TFileStream - irgendwie raff ichs net

[mirage228]

Delphi-Quellcode:

var
  InPutS, OutPutS: TFileStream;
  Mode: Word;
begin
  InPutS := TFileStream.Create(InPut, fmOpenRead or fmShareDenyNone);

  if not FileExists(OutPut) then Mode := fmCreate else Mode := fmOpenWrite;
  OutPutS := TFileStream.Create(OutPut, Mode or fmShareDenyNone);

  try
    OutPutS.Position := 0;
    OutPutS.CopyFrom(InPutS, 0); // Kopiert InPut Datei nach OutPut;
    // restliche verarbeitung von OutPutS
  finally
    OutPutS.Free;
    InPutS.Free;
  end;
end;

so solltes gehn.

mfG
mirage228