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:
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;
je suis sur Delphi 7, et indy 10.
Merci pr toute info,