TsgcWSPServer_Files › Events › OnFileReceivedAuthorization

OnFileReceivedAuthorization Event

Fired before an incoming file is accepted, allowing authorization and rename of the destination file.

Syntax

property OnFileReceivedAuthorization: TsgcWSFileAuthorizationEvent;
// TsgcWSFileAuthorizationEvent = procedure(Connection: TsgcWSConnection; const aMessage: TsgcWSMessageFile; var aFileName: string; var Accept: Boolean) of object

Default Value

—

Remarks

Only fires for qosLevel2 transfers. Set Accept to False to reject the incoming file (the sender receives OnFileSentError). You can also reassign aFileName to choose a different destination path; it defaults to Files.SaveDirectory + original filename.

Example

procedure TForm1.oFilesFileReceivedAuthorization(Connection: TsgcWSConnection;
  const aMessage: TsgcWSMessageFile; var aFileName: string; var Accept: Boolean);
begin
  Accept := aMessage.FileSize < 100 * 1024 * 1024;
  aFileName := 'C:\Uploads\' + Connection.Guid + '_' + ExtractFileName(aFileName);
end;

Back to Events