RIESEN-Dateitransfer mit Indy

[Kamil]

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;