Datei stückchenweise mit TFileStream einlesen

[Christian Seehase]

Moin Luckie,

komisch.
An welcher Stelle denn?

Im Prinzip müsste es auch so gehen:

Delphi-Quellcode:

  iLen := fsIN.Read(sBuf[1],iBlockSize);
  while iLen > 0 do begin
    fsOUT.Write(sBuf[1],iLen);
    iLen := fsIN.Read(sBuf[1],iBlockSize);
  end;

Statt eines Strings wie bei mir kannst Du natürlich auch einen anderen Buffer (array of char) nehmen.
Lesefehler dürftest Du nur bei ReadBuffer bekommen, nicht bei Read.