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

Вниз

Копирование самого себя...   Найти похожие ветки 

 
KPV-10k ©   (2002-04-25 22:27) [0]

Не могу справиться с проблемой: хочу скопировать запущенный файл в другой, но никак не получается. Подскажите как это можно сделать. Плиз...


 
Doom ©   (2002-04-25 23:06) [1]

А как ты делаешь?


 
zmy   (2002-04-26 06:26) [2]

function CopyFile( InFile,OutFile: String; From,Count: Longint ): Longint;
var InFS,OutFS: TFileStream;
begin
if not FileExists(InFile) then begin
Result := -1;
Exit;
end;
InFS := TFileStream.Create( InFile, fmShareDenyNone );
OutFS := TFileStream.Create( OutFile, fmCreate );
InFS.Seek( From, soFromBeginning );
Result := OutFS.CopyFrom( InFS, Count );
InFS.Free;
OutFS.Free;
end;


 
Anatoly Podgoretsky ©   (2002-04-26 13:09) [3]

Procedure FileCopy( Const src, dst: String );
Var
S,T: TFileStream;
Begin
S := TFileStream.Create(src, fmOpenRead);
try
T := TFileStream.Create(dst, fmCreate);
try
T.CopyFrom(S, S.Size) ;
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally
S.Free;
end;
End;


 
cok ©   (2002-04-26 20:28) [4]

А можно паскалевскими методами
assign(f,paramstr(0)); {это как раз то самое...}
reset(f);
...{копируешь куда надо}
close(f);
...


 
Doom ©   (2002-04-26 20:39) [5]

А что-через API CopyFile не работает?


 
n\a   (2002-05-01 22:05) [6]

TMemoryStream - чтобы не возникало ошибок....



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
3-70668
Юра
2002-07-01 16:04
2002.07.22
Заблокировать DBGrid без использования disablecontrols


3-70663
CyberWarlock
2002-07-02 12:03
2002.07.22
Небольшая проблемка с TDataBase


3-70605
Солер
2002-06-30 08:57
2002.07.22
TDBLookupCombobox замучил


1-70827
Andrew_k
2002-07-02 11:09
2002.07.22
трабл с ParamStr!!! Хелп, плз!!!


1-70748
AlekseyK
2002-07-09 10:44
2002.07.22
Как найти слово в тексте если текст дан ввиде переменной string ,