En effet, il faut un RENVOYER dans FTPNom(..) :
- un RENVOYER VRAI fait que le FTPListeFichier(..) passe au fichier suivant ;
- un RENVOYER FAUX fait que le FTPListeFichier(..) s'arrête.
En effet, il faut un RENVOYER dans FTPNom(..) :
- un RENVOYER VRAI fait que le FTPListeFichier(..) passe au fichier suivant ;
- un RENVOYER FAUX fait que le FTPListeFichier(..) s'arrête.
Mince excuse moi je n'avais pas vu ta réponse hier. Effectivement ça fonctionne :
Merci de ton aide
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 PROCEDURE FTPNom(Nom) Info(Nom) sNomfichierFTP est chaîne = ExtraitChaîne(Nom, 1, ".") SI sNomfichierFTP <> INILit("Version", "NumVersion", "", cheminFichierIni) ALORS //Récupération de l'installation gsMsgErreurPopUp = "Mise à jour trouvée.....Mise à jour en cours, veuillez patienter" //ouvre(Popup_Erreur) SI FTPRécupère(resConnexion, "\Install\TestSocket.CAB", "\Flash Disk\TestSocket\Install\TestSocket.CAB") ALORS Info("Récupération réussie") RENVOYER Vrai SINON Info("Pas de récupération : " + RC + ErreurInfo()) RENVOYER Faux FIN FIN
Windows XP
Delphi 7
WinDev Mobile 17
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager