TsgcWSPServer_Files › Events › OnFileSent
Fired when a file has been successfully delivered to the client.
property OnFileSent: TsgcWSFileEvent;
// TsgcWSFileEvent = procedure(Connection: TsgcWSConnection; const aMessage: TsgcWSMessageFile) of object
—
Fires for qosLevel1 / qosLevel2 transfers after the receiver confirms the full file was received. The subprotocol also releases the QoS queue entry and any sent-stream tracking for the file.
procedure TForm1.oFilesFileSent(Connection: TsgcWSConnection; const aMessage: TsgcWSMessageFile);
begin
Memo1.Lines.Add('sent: ' + aMessage.FileName);
end;