Demande d'infos sur ma Procedure

[MetalOS]

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

[Atomo]

Tu as oublié CloseFTP(0) après ta boucle d'envoi.