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

← →
rooman1 (2002-12-15 15:31) [0]

здрасте.
винда дает сообщение "не могу скопировать,файл не найден"
подскажите что не так
var
List : TStringList;
Begin
List := TStringList.Create;
FindOne("C:\int.exe",List);
WindowsCopyFile ("List", GetCurrentDir);
End;

← →
Reindeer Moss Eater (2002-12-15 16:00) [1]

Что такое:
FindOne,WindowsCopyFile ?

← →
Zz_ (2002-12-15 16:07) [2]

"List" -> List наверное ?

← →
rooman1 (2002-12-15 17:27) [3]

находим файл,затем копируем
Procedure FindOne(Path:String; List: TStringList);
Var SearchRec:TSearchRec;
Begin
IF FindFirst(Path,faAnyFile-faDirectory,SearchRec)=0 then
try
List.Add(SearchRec.Name);
While FindNext(SearchRec)=0 Do List.Add(SearchRec.Name);
finally
FindClose(SearchRec);
end;
function WindowsCopyFile (FromFile, ToDir : string) : boolea.
...
Procedure TForm1.Button1Click(Sender:TObject);
var
List : TStringList;
Begin
List := TStringList.Create;
List.Sorted := true;
FindOne("C:\int.exe",List);
WindowsCopyFile ("List", GetCurrentDir);
End;

← →
Reindeer Moss Eater (2002-12-15 17:44) [4]

Hint #1:
В List после выполнения FindOne находятся только имена файлов без полного пути

И скажи наконец, что такое WindowsCopyFile???

← →
Anatoly Podgoretsky (2002-12-15 17:55) [5]

Наверно в текущем каталоге нет таких файлов, подозрение, что они в другом каталоге

← →
rooman1 (2002-12-15 17:58) [6]

как добавить полный путь
WindowsCopyFile???-функция коопир.файлов

← →
Reindeer Moss Eater (2002-12-15 18:02) [7]

WindowsCopyFile???-функция коопир.файлов
Ошибку вызывает она. А где ее(функции) код???

как добавить полный путь?
Строка1:=Строка2 + Строка3;

← →
Zz_ (2002-12-15 18:04) [8]

List.Add(Path+SearchRec.Name);
или
List.Add(Path+"\"+SearchRec.Name);

WindowsCopyFile(List.Strings[0], GetCurrentDir);
...
WindowsCopyFile(List.Strings[List.Count-1], GetCurrentDir);

← →
Song (2002-12-15 18:45) [9]

Наверно Windows.CopyFile(.. ?

← →
rooman1 (2002-12-15 18:50) [10]

не выходит

← →
Reindeer Moss Eater (2002-12-15 18:50) [11]

Тогда где третий параметр?

← →
Song (2002-12-15 18:53) [12]

WindowsCopyFile - нет такого. Скорей всего я (15.12.02 18:45)

← →
rooman1 (2002-12-15 18:53) [13]

Windows.CopyFile
не компелируется

← →
Song (2002-12-15 18:54) [14]

"Windows." можно опустить т.к. Windows.dcu у тебя прописан в uses

← →
rooman1 (2002-12-15 19:00) [15]

убрал windpws ничего не вышло
не компелится

← →
Reindeer Moss Eater (2002-12-15 19:06) [16]

Это судьба такая

← →
ZrenBy (2002-12-15 19:08) [17]

А ты можешь посмотреть, что у тебя в
List
находится после FindOne ?

>>Procedure FindOne(Path:String; List: TStringList);
>>Var SearchRec:TSearchRec;
>>Begin
>>IF FindFirst(Path,faAnyFile-faDirectory,SearchRec)=0 then
>> try
>> List.Add(SearchRec.Name);

и попробуй List.Add(ExtractFilePath(Path)+"\"+SearchRec.Name);

← →
Reindeer Moss Eater (2002-12-15 19:10) [18]

Не поможет, это судьба такая.

И тем более вот это не поможет:
ExtractFilePath(Path)+"\"+SearchRec.Name);

← →
Anatoly Podgoretsky (2002-12-15 19:12) [19]

Это точно, товарищ Сухов

← →
rooman1 (2002-12-15 19:45) [20]

програмисты!!!
так в чем загвоздка

← →
Alond (2003-01-10 00:04) [21]

Прямо в точку что мне надо было!!!!
Спасибо rooman1

← →
Alond (2003-01-10 00:07) [22]

У меня вопрос по Dеlphi.
Как копировать файл любой (размер до 200 Кб) на дискету.

← →
mystang (2003-01-10 11:23) [23]

Любой файл можно скопировать куда угодно (в том числе и на дискету)через нетипизированый файл, блочным копированием.

BlockRead, BlockWrite, SaveDialog Example

var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, "Copying " + IntToStr(FileSize(FromF))
+ " bytes...");
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;

()

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