Demande d'infos sur ma Procedure
Publié : jeu. 16/avr./2009 4:16
salut les boss de Pb, j'utilise une Procédure pour envoyer une image sur mon FTP et je voulais savoir si une fois l'image envoyé sur le FTP cette procédure ce déconnectais bien et si niveau sécurité ou utilisation mémoire il n'y avait pas de problèmes. Je ne c pas trop comment contrôler ça.
Code : Tout sélectionner
Procedure FTP()
Pass$ = GetGadgetText(#Gadget_Form1_StringPass)
AdresseFTP$ = GetGadgetText(#Gadget_Form1_StringAdresse)
UtilisateurFTP$ = GetGadgetText(#Gadget_Form1_StringUtilisateur)
If OpenFTP(0, AdresseFTP$, UtilisateurFTP$, Pass$)
StatusBarText(#StatusBar_Form1, 3, "FTP [OK]")
Result = SendFTPFile(0, "Rapport.jpg", "Rapport.jpg", 1)
Repeat
compte = FTPProgress(0)
SetGadgetState(#Gadget_Form1_ProgressBar14, compte)
Delay(300)
Until FTPProgress(0) = -3 Or FTPProgress(0) = -2
SetGadgetState(#Gadget_Form1_ProgressBar14, 0)
StatusBarText(#StatusBar_Form1, 3, "Envoye [Ok]")
Else
StatusBarText(#StatusBar_Form1, 3, "FTP [ERREUR]")
EndIf
CloseFTP(0)
EndProcedure