I want to use the SFTPClient component to upload a file to an SFTP server.
I used the following code:
Code: Select all
SSHOpera.HostName: = fFTP_AD;
SSHOpera.User: = fFTP_LOGIN;
SSHOpera.Password: = fFTP_MDP;
SSHOpera.Port: = fFTP_PORT;
SSHOpera.Connect;
SFTPOpera.Initialize;
if Typetransfert = 'VENTE' then
begin
SFTPOpera.UploadFile(IncludeTrailingBackslash(Chemin_Recherche) + sr.Name, IncludeTrailingBackslash(fFTP_Vente) + sr.Name, False);
end
else
begin
SFTPOpera.UploadFile(IncludeTrailingBackslash(Chemin_Recherche) + sr.Name, IncludeTrailingBackslash(fFTP_Achat) + sr.Name, False);
end;
SFTPOpera.Disconnect;
SSHOpera.Disconnect;
Code: Select all
procedure TFrmExport_Opera.SSHOperaServerKeyValidate(Sender: TObject;
NewServerKey: TScKey; var Accept: Boolean);
begin
Accept := True;
end;
Host key not verified
Can you help me solve the problem?