Indy 9
|
OpenWriteBuffer; 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;