|
Internet Direct (Indy) Version 9.0.1 Beta
|
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;