Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
rooman1 © (2002-12-15 15:31:00)
здрасте.
винда дает сообщение "не могу скопировать,файл не найден"
подскажите что не так
var
List : TStringList;
Begin
List := TStringList.Create;
FindOne("C:\int.exe",List);
WindowsCopyFile ("List", GetCurrentDir);
End;

mystang (2003-01-10 11:23:00) [1]
Любой файл можно скопировать куда угодно (в том числе и на дискету)через нетипизированый файл, блочным копированием.

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;

()

Alond (2003-01-10 00:07:00) [2]
У меня вопрос по Dеlphi.
Как копировать файл любой (размер до 200 Кб) на дискету.

Alond (2003-01-10 00:04:00) [3]
Прямо в точку что мне надо было!!!!
Спасибо rooman1

rooman1 (2002-12-15 19:45:00) [4]
програмисты!!!
так в чем загвоздка

Anatoly Podgoretsky (2002-12-15 19:12:00) [5]
Это точно, товарищ Сухов

Reindeer Moss Eater (2002-12-15 19:10:00) [6]
Не поможет, это судьба такая.

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

ZrenBy (2002-12-15 19:08:00) [7]
А ты можешь посмотреть, что у тебя в
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:06:00) [8]
Это судьба такая

rooman1 (2002-12-15 19:00:00) [9]
убрал windpws ничего не вышло
не компелится

Song (2002-12-15 18:54:00) [10]
"Windows." можно опустить т.к. Windows.dcu у тебя прописан в uses

Song (2002-12-15 18:53:00) [11]
WindowsCopyFile - нет такого. Скорей всего я (15.12.02 18:45)

rooman1 (2002-12-15 18:53:00) [12]
Windows.CopyFile
не компелируется

Reindeer Moss Eater (2002-12-15 18:50:00) [13]
Тогда где третий параметр?

rooman1 (2002-12-15 18:50:00) [14]
не выходит

Song (2002-12-15 18:45:00) [15]
Наверно Windows.CopyFile(.. ?

Zz_ (2002-12-15 18:04:00) [16]
List.Add(Path+SearchRec.Name);
или
List.Add(Path+"\"+SearchRec.Name);

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

Reindeer Moss Eater (2002-12-15 18:02:00) [17]
WindowsCopyFile???-функция коопир.файлов
Ошибку вызывает она. А где ее(функции) код???

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

rooman1 (2002-12-15 17:58:00) [18]
как добавить полный путь
WindowsCopyFile???-функция коопир.файлов

Anatoly Podgoretsky (2002-12-15 17:55:00) [19]
Наверно в текущем каталоге нет таких файлов, подозрение, что они в другом каталоге

Reindeer Moss Eater (2002-12-15 17:44:00) [20]
Hint #1:
В List после выполнения FindOne находятся только имена файлов без полного пути

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »