TsgcWSPClient_Files › Events › OnFileSent
Fires when the server confirms that a file has been fully received.
property OnFileSent: TsgcWSFileEvent;
// TsgcWSFileEvent = procedure(Connection: TsgcWSConnection; const aMessage: TsgcWSMessageFile) of object
—
Raised after the FILE_RECEIVED acknowledgment comes back from the server, at which point the local QoS queue entry and sent stream are released. For qosLevel0 the event is synthesised immediately after the last fragment is written.
procedure TForm1.oProtocolFileSent(Connection: TsgcWSConnection; const aMessage: TsgcWSMessageFile);
begin
Memo1.Lines.Add('upload ok: ' + aMessage.FileName);
end;