Einzelnen Beitrag anzeigen

tkhandel

Registriert seit: 2. Jan 2022
Ort: Arnsberg im Sauerland
87 Beiträge
 
Delphi 10.4 Sydney
 
#1

FTPS Einstellungen

  Alt 19. Jan 2023, 13:25
Hallo,
ich versuche mit dem folgenden Code eine Verbindung per FTPS Indy 10 Delphi 10.4
zu einem Onlinespeicher(HiDrive) bei ionos (1und1) herzustellen:

IdFTP1.Passive := true;
IdFTP1.AUTHCmd := tAuto;
IdFTP1.Host := 'ftp.hidrive.ionos.com';
IdFTP1.Username := '****';
IdFTP1.Password := '****';
IdFTP1.UseTLS := utUseExplicitTLS;
IdFTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdFTP1.UseTLS := utUseExplicitTLS;

IdSSLIOHandlerSocketOpenSSL1.Host := 'ftp.hidrive.ionos.com';
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [sslvrfPeer]; // z.B.
IdSSLIOHandlerSocketOpenSSL1.Port := 21;
IdSSLIOHandlerSocketOpenSSL1.PassThrough := False;

// FTP Server connect
try
IdFTP1.Connect;
except
Memo1.Lines.Add('Fehler: Server nicht gefunden');
IdFTP1.Disconnect;
Abort;
end;
//Login wenn erfolgreich angemeldet
Memo1.Lines.Add('verbunden');
try
IdFTP1.Login;
except
Memo1.Lines.Add('Fehler: Login Fehler');
IdFTP1.Disconnect;
Abort;
end;
Memo1.Lines.Add('erfolgreich angemeldet');

Die Verbindung wird hergestellt der Login aber abgelehnt.
Zugangsdaten schon 100 überprüft woran könnte es noch liegen?
Was habe ich vergessen?
Jürgen
  Mit Zitat antworten Zitat