HowTo Use TScSFTPClient.OnSuccess?

[dwriedel]

Dear all,
after uploading one file I want determine if the operation was succesfull or not.
How I evaluate the OnSuccess - property?
I suspect I am the wrong track...

Code: Select all

procedure TForm1.ScSFTPClientOnSuccess(Sender: TObject; Operation: TScSFTPOperation;
  const FileName: string; const Handle: TArray<System.Byte>;
  const Message: string);
begin
   //Operation.opWritingFile
   //https://www.devart.com/sbridge/docs/index.html?tscsftpclient_onsuccess.htm
   //??
end;

procedure TForm1.UploadFile;
begin
  ScSFTPClient := TScSFTPClient.Create(nil);
  ScSFTPClient.SSHClient := ScSSHClient;
  ScSFTPClient.NonBlocking := True;
  ScSFTPClient.Initialize;
  ScSFTPClient.UploadFile('eula.1028.txt', 'eula.1028.txt', True);
  ScSFTPClient.OnSuccess (...);
end;

I am using SecureBridge Standard, Version 6.6.9.

[ViktorV]

To use the OnSuccess event handler correctly, you should modify the TForm1.UploadFile method implementation in the following way:

Code: Select all

procedure TForm1.UploadFile;
begin
  ScSFTPClient := TScSFTPClient.Create(nil);
  ScSFTPClient.SSHClient := ScSSHClient;
  ScSFTPClient.NonBlocking := True;
  ScSFTPClient.OnSuccess := ScSFTPClientOnSuccess;
  ScSFTPClient.Initialize;
  ScSFTPClient.UploadFile('eula.1028.txt', 'eula.1028.txt', True);
end;

[dwriedel]

Thanks for the quick reply. It is working now.

[ViktorV]

It is good to see that the issue has been solved. Feel free to contact us if you have any further questions about SecureBridge.