Bin mir jetzt nicht ganz sicher, aber mit OpenWriteBuffer kannst du doch die Größe des Buffers bestimmen:
Zitat:
procedure OpenWriteBuffer(const AThreshhold: Integer);
Parameters
const AThreshhold: Integer = -1
Number of bytes to buffer before flushing data in the write buffer to the peer. Default value is -1.
Delphi-Quellcode:
OpenWriteBuffer(5*1024*1024);
//5mb
try;
WriteStream(AStream);
// Close the write buffer and have Indy now transmit it
CloseWriteBuffer;
except
// Clear what we had buffered, and disable write buffering
CancelWriteBuffer;
// Re-raise the exception so it is not masked
raise;
end;