Delphi-Quellcode:
while not terminated do
begin
bytecount := indyclient.IOHandler.InputBuffer.Size;
indyclient.IOHandler.ReadBytes(vBufferIn, bytecount, false);
FileStream.WriteBuffer(vBufferin,bytecount);
synchronize(DisplayUpdate);
So mache ich das. Der Buffer sollte in seiner Größe von ReadBytes dimensioniert und auch initialisiert werden. Und die Ergebnisse sehen auch vernünftig aus beim Debuggen.
Die Position setze ich nicht auf 0, der Filestream wird mit fmcreate jedesmal neu erzeugt, auch der Dateiname ist jedesmal ein anderer.
Danke, Messie