CopyFile для Linux
Falk0ner, вс, 06/07/2008 - 15:35.
Function CopyFile(Org, Dest:string):boolean;
var Source, Target:TFileStream;
begin
Result:=false;
try
try
Source:=TFileStream.Create(Org, fmShareDenyNone or fmOpenRead);
try
Target:=TFileStream.Create(Dest, fmOpenWrite or fmCreate);
Target.CopyFrom(Source,Source.Size);
Result:=true;
finally
Target.Free;
end;
finally
Source.Free;
end;
except
end;
end;
var Source, Target:TFileStream;
begin
Result:=false;
try
try
Source:=TFileStream.Create(Org, fmShareDenyNone or fmOpenRead);
try
Target:=TFileStream.Create(Dest, fmOpenWrite or fmCreate);
Target.CopyFrom(Source,Source.Size);
Result:=true;
finally
Target.Free;
end;
finally
Source.Free;
end;
except
end;
end;
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Отправить комментарий