Копирование самого себя...

← →
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);
...

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

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

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

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