Datei übertragen per BlockRead/Write

[Christian Seehase]

Moin iaby,

mit TFileStream sähe das z.B. so aus:

Delphi-Quellcode:

var
  fs   : TFileStream;
  sBuf : string;

begin
  fs := TFileStream.Create('Pfad und Name der zu lesenden Datei', fmOpenRead);
  try
    // Platz reservieren
    sBuf := StringOfChar(#32,fs.Size);
    // Datei einlesen
    fs.Read(sBuf[1],fs.Size);
  finally
    FreeAndNil(fs);
  end;
  fs := TFileStream.Create('Pfad und Name der zu schreibenden Datei',fmCreate or fmOpenWrite);
  try
    fs.Write(sBuf[1],length(sBuf));
  finally
    FreeAndNil(fs);
  end;
end;

Sollte die Datei gross sein, kann man auch zwei Filestreams benutzen, und dann "häppchenweise" lesen und schreiben.