Копирование файла

← →
msdn (2004-07-14 12:03) [0]

Доброе утро. Вот код:
function WindowsCopyFile(FromFile, ToDir : string) : boolean; var F : TShFileOpStruct; begin F.Wnd := 0; F.wFunc := FO_COPY; FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile); ToDir:=ToDir+#0; F.pTo:=pchar(ToDir); F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION; result:=ShFileOperation(F) = 0; end;эта функция для копирования файлов

вот копирование
procedure TFrame.Button1Click(Sender: TObject); var Dir:string; i:integer; begin if SelectDirectory(Dir,[],0) then begin for i:=0 to length(a) do begin WindowsCopyFile(a[i], dir) end; end; end;
Вопрос следующий. После копирования, которое происходит вполне успешно, бесконечно выдаётся ошибка "Не удаётся скопировать файл. Указано неправильное или слишком длинное имя файла. Задайте другое имя". Как подавить или исправить ошибку? Заранее благодарен.

← →
wicked © (2004-07-14 12:06) [1]

что такое "a"?...

← →
msdn (2004-07-14 12:10) [2]

массив в котором храню кучу имён файлов, я тут подумал может это с русскими именами файлов связано?

← →
wicked © (2004-07-14 12:14) [3]

может цикл нужно оформить так:

> for i:=0 to length(a) - 1 do
> begin
> WindowsCopyFile(a[i], dir)
> end;

ЗЫ а length точно возвращает размер массива?...

← →
Vitalik © (2004-07-14 12:17) [4]

> ЗЫ а length точно возвращает размер массива?...

Точно. К бабке не ходи :)

← →
msdn (2004-07-14 12:18) [5]

length(a) - 1 да тут вы правы,забыл, но это не помогло.

← →
msdn (2004-07-14 12:42) [6]

ну кто-то что-то толковое по этому поводу сказать может?

← →
wicked © (2004-07-14 13:02) [7]

> FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
> ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);

вполне вероятно, что F.pFrom и F.pTo не заканчиваются на двойной NULL символ...
как вылечить - завести два массива array [0..MAX_PATH + 10] of char, сделать им ZeroMemory, и копировать переменные FromFile и ToDir в них... соответственно, их адреса (адреса нулевых элементов) передавать в F.pFrom и F.pTo...

(Length(a) -1) = High(a)
Так, к слову.

> msdn (14.07.04 12:03)

А стандартная дельфовая функция CopyFile не спасет "отца русской демократии"?

← →
Vetalich (2004-07-15 02:58) [10]

А не проще так:

var lpBuffer:pchar; s_dir:string; Begin s_dir:=string(lpBuffer)+"C:\123.ini"; //Куда CopyFile("D:\23435",pchar(s_dir),False); //Откуда

И копирует и лишних слов не задаёт... :)

Копирование файла Найти похожие ветки