Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

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

 
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...


 
Fay ©   (2004-07-14 14:29) [8]

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


 
stone ©   (2004-07-14 14:35) [9]


> 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);  //Откуда


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



Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.059 c
14-1089799403
Rostislav Rotaru
2004-07-14 14:03
2004.08.01
А какая разница на чем писать программы?


6-1086238856
NorthMan
2004-06-03 09:00
2004.08.01
idTCPClient


6-1086254122
t100
2004-06-03 13:15
2004.08.01
Прием почты.


4-1087382966
Leon
2004-06-16 14:49
2004.08.01
Можно ли послать сообщение WM_CLOSE и не ждать


14-1090096367
KilkennyCat
2004-07-18 00:32
2004.08.01
Встреча мастаков в 31-го в Выборге.