PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → FTP ERREUR 425
FTP ERREUR 425
Débuté par Cyril, 30 jan. 2020 16:43 - 2 réponses
Membre enregistré
5 messages
Posté le 30 janvier 2020 - 16:43
Bonjour à tous,
Je récupère dans une appli android un fichier sur un ftp et j'obtiens l'erreur : "425 Can't open data connection for transfer of 'fichier.file'". J'ai essayé de récupérer le même fichier avec un client ftp android et cela fonctionne.

Voici mon code :
gnIDFTP = FTPConnecte(CS_FTP_ADR,gsCS_FTP_USER,gsCS_FTP_MDP)

bres est un booléen
srep est une chaîne = ComplèteRep(SysRepCarteStockage() + "/" + "Test" )
SI PAS fRépertoireExiste(srep) ALORS
fRepCrée(srep)
FIN
Erreur()
SI gnIDFTP >= 0 ALORS
bres = FTPRécupère(gnIDFTP, "/fichier.file", srep)
Erreur()
Info(bres)
FIN


Merci de votre aide.
Membre enregistré
450 messages
Popularité : +31 (43 votes)
Posté le 31 janvier 2020 - 08:47
Bonjour

Voici le code dont je me sert pour une connexion FTP et récupération de fichier si cela peut vous aider :

<Compile SI Configuration="Application Android">
Num_connexion est un entier
Chemin_APK est une chaîne


//recuperation du numero de version
SI Var_Globale.Nom_APK_INI <> "" ALORS
FTP.IgnoreErreur = ftpIgnoreCertificatExpiré + ftpIgnoreCertificatInvalide + ftpIgnoreNomCertificatInvalide + ftpIgnoreRevocation
Multitâche(10)
Num_connexion = FTPConnecte(Var_Globale.FTP_Serveur,Var_Globale.FTP_Login, Var_Globale.FTP_Password,Port_FTP,ftpModePassif,5)
SI Num_connexion = -1 ALORS
ToastAffiche("Problème de connexion au serveur FTP",toastCourt,cvBas,chCentre)
Etat_CNX_FTP = Faux
RETOUR
SINON
Etat_CNX_FTP = Vrai
//test si le fichier version.ini existe au niveau du serveur FTP
SI FTPFichierExiste(Num_connexion,Var_Globale.Nom_APK_INI) ALORS
//on recupere le fichier ini afin de voir quel est version est disponible sur le serveur FTP
SI FTPRécupère(Num_connexion,Var_Globale.Nom_APK_INI,SysRepStockageExterne(1,ssePublic) + "/Download/",ftpModeBinaire) = Vrai ALORS
ToastAffiche("Vérification de la version iWpAddon",toastCourt,cvHaut,chCentre)
Version_MAJ = INILit("VERSION", "NUMERO", "", SysRepStockageExterne(1,ssePublic) + "/Download/" + Var_Globale.Nom_APK_INI)

SI Version_MAJ > Version_Iwpaddon ALORS
//test si le fichier APK existe au niveau du serveur FTP
SI FTPFichierExiste(Num_connexion,Var_Globale.Nom_APK) ALORS
Libellé_InfoMAJ..Visible = Vrai
SELON Dialogue("Une mise à jour est disponible, souhaitez-vous l'installer ?")
// &Installer
CAS 1
//on cache certains elements
Combo_User..Visible = Faux
Image_cadenas..Visible = Faux
IMG_download..Visible = Vrai
Multitâche(10)
//Download de l'apk sur le Terminal industriel
SI FTPRécupère(Num_connexion,Var_Globale.Nom_APK,SysRepStockageExterne(1,ssePublic) + "/Download/",ftpModeBinaire) = Vrai ALORS
Chemin_APK = SysRepStockageExterne(1,ssePublic) + "/Download/" + Var_Globale.Nom_APK
Info("Mise à jour téléchargée." + RC + "Lancer l'installation...")
SauveParamètre("MAJ","OUI")
SauveParamètre("DATE",DateVersChaîne(DateHeureSys()))
//Lancement de l'installation
LanceAppliAssociée(Chemin_APK)
Multitâche(10)

Info("Mise à jour installée, redémarrer le programme")
FinProgramme()
FIN
// &Ne pas installer
CAS 2
Libellé_InfoMAJ..Visible = Faux
FIN

FIN
FIN
FIN
FIN
FIN
FIN


cordialement

DG
Membre enregistré
2 messages
Posté le 01 décembre 2020 - 16:49
Bonjour,

J'espère que tout le monde va bien, je relance également ce sujet car j'ai le même souci. Et même le client WindevMobile 24 ne fonctionne pas...

Dans l'attente de vous lire.

Bonne soirée.