Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > CopyFile для Linux

Автор: Poseidon 19.5.2005, 02:48

Код

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;