Salut,
jai ecris un code pour me connecter sur un Serveur FTP, le code marche bien sur une machine XP, mais sur une machine Win98 jai l'erreur suivante:
ERangeError: erreur de vérification étendue.
voila mon Code:
je suis sur Delphi 7, et indy 10.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 function FtpAccess.ConnectToSFTPServer(User, Passwd, Host, Port: String): boolean; begin Result:= False ; SSL:= TIdSSLIOHandlerSocketOpenSSL.Create(FTP); SSL.ReadTimeout := 60000; SSL.SSLOptions.Method := sslvSSLv23; SSL.SSLOptions.Mode := sslmClient; FTP:= TIdFTP.Create(nil); FTP.AutoLogin:= True; FTP.IOHandler := SSL ; FTP.AutoLogin := True; FTP.Passive := True; FTP.UseTLS := utUseExplicitTLS; FTP.AUTHCmd := tAuthSSL; FTP.DataPortProtection:= ftpdpsPrivate ; FTP.Username:= USER; FTP.Password:= Passwd; FTP.Host:= HOST; FTP.Port:= StrToInt(Port) ; FTP.Disconnect ; Try FTP.Connect ; Result:= True ; Except on E:Exception do Begin MyDataModule.AddToFtpLog('ERROR Func ConnectToSFTPServer', E.Message); MyDataModule.Log('ERROR Func ConnectToSFTPServer',E.className+' ' +E.Message); end ; End ; end;
Merci pr toute info,
Partager