Discussion :

[JohnVist]

Bonjour,

Quelqu'un saurait comment utiliser la variable FTP.IgnoreErreur ?

J'ai lu la doc de pcsoft seulement, aucun exemple n'illustre son utilisation.
J'établis une connexion FTP sécurisé en utilisant le protocole FTPS dans mon application, cependant la connexion m'affiche l'erreur " le certificat distant ne peut être authentifier"
J'ai donc utilisé la variable FTP.IgnoreErreur pour ignorer la vérification du certificat comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
// Tentative de connexion
Connecter(AdresseFTP,NomUtilisateur,MotDePasse,NumPort,ConnexionPassive,DelaiConnexion)
 
//Ignorer la vérification du certificat
FTP.IgnoreErreur = ftpIgnoreCertificatInvalide + ftpIgnoreNomCertificatInvalide + ftpIgnoreCertificatExpiré + ftpIgnoreRévocation

Mais le message d'erreur " le certificat distant ne peut être authentifier" s'affiche toujours!

Merci d'avance.

[JG_33]

Bonjour,

A première vue, un problème l'algo :
L'affectation de FTP.IgnoreErreur est à renseigner avant la connexion

[dsr57]

Bonjour

Je rejoins JG_33, renseignes la valeur FTP.IgnoreErreur avant l'appel de la fonction FTPConnecte

Bon dev

[JohnVist]

Bonjour,

J'ai mis le code de la variable FTP.IgnoreErreur avant celui de connecter comme vous l'avez suggérer mais hélas j'ai le même message d'erreur.
J'ai également essayé la variable dans le code d'initialisation de la fenêtre mais toujours le même message.

Merci.

[dsr57]

Bonjour

A quoi correspond la fonction Connecter, je ne connais pas cette fonction dans le WLangage ?

[JohnVist]

Bonjour

A quoi correspond la fonction Connecter, je ne connais pas cette fonction dans le WLangage ?

Bonjour,

J'ai juste réecrit la fonction FTPConnecte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
PROCEDURE Connecter(AdresseFTP, NomUtilisateur,MotDePasse,NumPort,ConnexionPassive,DelaiConnexion)
 
Globales.IDConnexionFTP = FTPConnecte(AdresseFTP, NomUtilisateur, MotDePasse, NumPort,ConnexionPassive,DelaiConnexion)

[dsr57]

Bonjour

As tu essayé d'utiliser FTP.IgnoreErreur à l'intérieur de la fonction ?

[JG_33]

la variable AdresseFTP commence bien par ftps:// ?

[JohnVist]

Bonjour

As tu essayé d'utiliser FTP.IgnoreErreur à l'intérieur de la fonction ?

Je viens de l'essayer à l’intérieur de la fonction connecter ( FTP.IgnoreErreur avant FTPConnecte)
Mais toujours le même message d'erreur " le certificat distant ne peut être authentifier"

[JohnVist]

la variable AdresseFTP commence bien par ftps:// ?

quand je mets ftps:// la connexion échoue complètement, c'est plutôt ftpes:// qui m'affiche le message " le certificat distant ne peut être authentifier"

[JG_33]

ftpes , effectivement je me suis trompé, mais que donne la connexion avec Filezilla en choisissant la connexion explicite sur TLS ?
L'affichage du certificat se fait bien ?

[JohnVist]

ftpes , effectivement je me suis trompé, mais que donne la connexion avec Filezilla en choisissant la connexion explicite sur TLS ?
L'affichage du certificat se fait bien ?

Sous FileZilla, j'arrive à me connecter avec ftpes://. Quand il m'affiche le message du certificat je choisi ignorer, option que que je n'arrive pas à mettre dans mon code avec FTP.IgnoreErreur.

[JG_33]

Pour donner un exemple qui fonctionne tous les jours par une application vers un serveur sécurisé

Petit détail qui peut être à l'origine d'erreur :
Si l'adresse n'est pas une ip mais sous la forme "ftp.xxxxx.com", le "ftpes://" ne se substitue pas au "ftp" de l'adresse, mais le précède

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
 
FTP.IgnoreErreur = ftpIgnoreNomCertificatInvalide + ftpIgnoreCertificatInvalide + ftpIgnoreCertificatExpiré
 
sProtocole = "ftpes://"
gsAdresseFTP = "ftp.xxxxx.com"
gsNomUtilisateur = "xxxxxxxx"
gsMDPUtilisateur = "maudpasse"
gnNumeroport = 21
gbTypeConnexion = vrai
 
 
nIDConnexion = FTPConnecte(sProtocole+gsAdresseFTP,gsNomUtilisateur,gsMDPUtilisateur,gnNumeroport,gnTypeConnexion)
SI nIDConnexion  = -1 ALORS
	Erreur(ErreurInfo())
FIN

Ici le numéro de port et le type de connexion ont les valeurs par défaut et donc ne sont pas obligatoires

[JohnVist]

Bonjour,

Oui, je suis tout à fait d'accord avec toi, concernant l'adresse ( dans mon cas j'ai mis AdresseTFP="ftpes://xxxxx.com") et j'ai bien mon FTP.IgnoreErreur qui précède
FTPconnecte

Je ne trouve pas encore la solution pour ignorer l'erreur que mon application m'afffiche "Le certificat distant ne peut être authentifié"
Quand j'utilise FileZilla, ce dernier permet d'ignorer les certificats donc le problème est bien dans mon code.

[DelphiManiac]

Je viens de faire un test sur un serveur public : http://test.rebex.net/

et ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
FTP.IgnoreErreur = ftpIgnoreNomCertificatInvalide + ftpIgnoreCertificatInvalide + ftpIgnoreCertificatExpiré
 
nIDConnexion est un entier = FTPConnecte("ftpes://test.rebex.net", "demo", "password", 21, Vrai)
SI nIDConnexion  = -1 ALORS
    Erreur(ErreurInfo())
FIN

Essayes avec ton code sur ce même serveur public de test.

[JohnVist]

Essayes avec ton code sur ce même serveur public de test.

Bonjour DelphiManiac,

Merci d'avoir fait le test pour apporter ton aide!

J'ai testé le même code dans mon application sur deux machines différentes et voici les retours d'erreurs :





Merci

[dsr57]

Bonjour : coucou:

• Délai d'attente dépassé : vérifies que le port 21 est bien ouver dans ton pare-feu
• Impossible de résoudre le nom de l'hôte : je pense à un problème de résolution de DNS, essayes avec l'adresse IP 80.79.26.97

Bon dev

[DelphiManiac]

Je dirais même, essayes juste de ping test.rebex.net à partir des 2 postes.

Si le ping fonctionne, désactive temporairement, tout ce qui est parefeu, antivirus et tout ce qui ressemble de prêt ou de loin à un outil de sécurité. J'ai déjà eu des cas, ou des programmes étaient "sandboxé", sans aucun message l'indiquant, et rien ne sortait ou n'entrait.

Quand on a des erreurs réseaux, toujours commencer par le plus bas niveau pour voir si cela fonctionne.
- 1) ping
- 2) putty, mais il faut déjà un peu plus connaître les protocoles que l'on veut tester.

P.S.: Le ping n'est pas une méthode infaillible, vu que certaines machines ne réponde pas à ce protocole, mais ça permets de lever certains doute dans le cas général. Pour test.rebex.net, le ping fonctionne, j'ai vérifié.

[JohnVist]

Bonjour,

Merci à DelphiManiac, dsr57 et JG_33 pour vos contributions. J'ai donc fait quelques tests sur 2 machines clients vers 2 serveurs en occurrence le serveur test.rebex.net et mon serveur.
Sur les 2 machines clients, j'ai donc temporairement désactivé les Firewall. voici en image les résultats des différents tests.

Test sur la machine 1

1. Ping test.rebex.net


2.FTP avec adresse vers ftpes://test.rebex.net


3.FTP avec Ip (seule réussite)


4.Ping de mon serveur


5.FTP avec adresse vers mon serveur

[JohnVist]

(Suite)

6. FTP avec IP vers mon serveur


Test sur la machine 2

1.Ping test.rebex.net


2.FTP avec adresse vers ftpes://test.rebex.net


3.FTP avec Ip


4.Ping de mon serveur