Вопрос - Kак преобразовать String в Pchar и обратно???

← →
Stenkz (2002-10-22 06:47) [0]

Вопрос - Kак преобразовать String в Pchar и обратно???

О то некоторые функции типа FileCopy пользуют Pchar а хотелось бы использовать string...

← →
sask (2002-10-22 06:49) [1]

var S: String; S1: PChar; ..... S1 := PChar(S);

← →
sask (2002-10-22 06:51) [2]

а обратно (PChar -> String) - простое присваивание

← →
Rouse_ (2002-10-22 06:53) [3]

procedure TForm1.FormCreate(Sender: TObject);
var s: String;
p: PChar;
begin
s:= "qwe";
p:= PChar(s);
Caption := p;
end;

Желаю успехов

← →
Rouse_ (2002-10-22 06:54) [4]

Ээээ опоздал ;)

← →
Opuhshii (2002-10-22 08:31) [5]

в Top 100 вопросов - этот 1 или 2 -е место,!

← →
Semion (2002-10-22 08:39) [6]

непорали его поместить в фак

← →
Anatoly Podgoretsky (2002-10-22 09:00) [7]

В самый болшой Delphi Help

← →
Stenkz (2002-10-23 13:45) [8]

Продолжение темы: Почему не работает такое дело?
MoveFile(Pchar(LocalFileName),Pchar("c:\rko\out\arhiv\"+ F.Name));

← →
Opuhshii (2002-10-23 13:55) [9]

2Stenkz © (23.10.02 13:45)
а что у вас LocalFileName???
и F.Name?

← →
Stenkz (2002-10-23 13:58) [10]

Енто
LocalFileName : string;
F.name : String;

← →
Me2 (2002-10-23 14:00) [11]

Что конкретно не работает?

← →
Anatoly Podgoretsky (2002-10-23 14:05) [12]

Интереснее другое, что такое F

← →
Stenkz (2002-10-23 14:07) [13]

Прога проскакивает эту функцию и ничего не говорит,
по наблюдением переноса файла не происходит...

← →
Me2 (2002-10-23 14:10) [14]

2Anatoly Podgoretsky © (23.10.02 14:05)
Скорее всего TSearchRec

← →
Me2 (2002-10-23 14:15) [15]

Предоставь значение переменных!!!!

← →
Anatoly Podgoretsky (2002-10-23 14:26) [16]

Какой код ошибки, ты ужасно скрытный человек, наверно в ящике работаешь

← →
sask (2002-10-23 14:27) [17]

проверяй возвращаемое значение (True/False), если False - юзай GetLastError ...

← →
Stenkz (2002-10-23 14:33) [18]

Значения -
LocalFileName: "c:\rko\out\mt581131.zip"
"c:\rko\out\arhiv\"+ F.Name: "c:\rko\out\arhiv\mt581131.zip"

← →
Игорь Шевченко (2002-10-23 14:33) [19]

Отладчик - оно вообще рулез

← →
Kaban (2002-10-23 14:33) [20]

Первоначальный вопрос, кстати, так никто и не понял, нужно преобразовать String в PChar ИСПОЛЬЗУЯ WINAPI!

← →
Anatoly Podgoretsky (2002-10-23 14:35) [21]

Ему в данном случае вообще не надо преобразовывать, так что WimApi побоку, достаточно только приведения

← →
Stenkz (2002-10-23 14:42) [22]

Ошибки не возникает
там просто перед этим происходит поиск фаила, а так как он не переноситься - цикл бесконечный. А преобразование нуна потомучто
при попытке написать:
MoveFile(LocalFileName,"c:\rko\out\arhiv\"+ F.Name);
говорит не верный тип....

← →
sask (2002-10-23 14:48) [23]

а директория "c:\rko\out\arhiv\" я, надеюсь, существует?

← →
Stenkz (2002-10-23 14:55) [24]

Конечно существует, например

RenameFile(LocalFileName,"c:\rko\out\arhiv\"+ F.Name);
DeleteFile(LocalFileName);

Работает, но это же геморой...

← →
sask (2002-10-23 15:20) [25]

Согласен...
попробуй:
MoveFileEx(PChar(LocalFileName), PChar("c:\rko\out\arhiv\"+ F.Name), MOVEFILE_COPY_ALLOWED + MOVEFILE_REPLACE_EXISTING)

← →
sask (2002-10-23 15:22) [26]

А еще лучше приведи кусок кода с циклом.

← →
Stenkz (2002-10-23 15:54) [27]

Вот оно
while FileSearch("*.zip", "c:\rko\out\")<>"" do
begin
FindFirst("c:\rko\out\*.zip", faAnyFile, F);
FCol:=FCol+1;
ProgressBar1.Position:=0;

LocalFileName :="c:\rko\out\"+ F.Name;
ZapFileName :=ChangeFileExt(LocalFileName, ".zap");
MoveFile(Pchar(LocalFileName),Pchar("c:\rko\out\arhiv\"+ F.Name));
FindClose(F);
end

← →
sask (2002-10-23 16:19) [28]

На мой взгляд все нормально,
но я все-таки поставил бы:
if not MoveFile(Pchar(LocalFileName), Pchar("c:\rko\out\arhiv\"+ F.Name)) then ShowMessage(SysErrorMessage(GetLastError));

← →
Anatoly Podgoretsky (2002-10-23 16:20) [29]

Не единой проверки на ошибки
FileSearch вообще не нужен эту работу выполняет FindFirst/FindNexr соответствнно нет нужды во множественном захвате/освобождние ресурсов.
Неястно зачем в цикле постоянно ProgressBar1.Position:=0;, не видать использования ZapFileName

← →
Stenkz (2002-10-24 05:37) [30]

С проверкой на ошибки конечно туго...
а всё остальное используется (progressbar и т.д.) :).

насколько я понял предлагается следующее:
while FindFirst("c:\rko\out\*.zip", faAnyFile, F) do
begin
FCol:=FCol+1;
ProgressBar1.stepit;
.....................................
LocalFileName :="c:\rko\out\"+ F.Name;
MoveFile(Pchar(LocalFileName),Pchar("c:\rko\out\arhiv\"+ F.Name));
FindClose(F);
end;

← →
Stenkz (2002-10-24 11:55) [31]

У кого-нибудь была проблемма -
Запускаем досовский *.bat...
и программа понеслась дальше, даже если "батник" не отработал.
Как это дело сделать так, чтобы прога ждала пока батник отработает?
Я написал примерно так:

rez:=0;
rez:=WinExec("c:\rko\move.bat", SW_HIDE);
If rez>31 then
begin
Memo1.Lines.Add(" файлы перенесены в архив... ");
end
else MessageDlg("Дожитесь переноса файлов в архив",mtInformation,[mbOK],0);

← →
Anatoly Podgoretsky (2002-10-24 12:13) [32]

Stenkz © (24.10.02 05:37)
Нельзя так, FindFirst/FindClose вызываются только один раз, а FindNext ы цикле
Хороший пример есть в местном FAQ

← →
Stenkz (2002-10-28 08:10) [33]

Спасибо все за ответы.

← →
KSergey (2002-10-28 12:52) [34]

> Kaban © (23.10.02 14:33)
> Первоначальный вопрос, кстати, так никто и не понял, нужно
> преобразовать String в PChar ИСПОЛЬЗУЯ WINAPI!

А как же его можно было понять, интересно? Телепатией?!
А в WinAPI нет понятия String и PChar. Это - исключетельно паскальные понятия. Следовательно и переводить средствами WinAPI это невозможно.

Вопрос - Kак преобразовать String в Pchar и обратно??? Найти похожие ветки