[R] Bouton qui renvoie toujours a l'erreur.

[locos974]

Bonjour,

Me revoilà pour un autre problème dont je ne comprend pas vraiment l'erreur. Après diverse essaie, aucune réussite..
Mon problème :
- J'ai un boutton connexion
- J'ai des Inputs pour des informations a remplir pour se connecter au FTP.
Le problème quand je clique sur le boutton Connexion cela est censé ce connecté Si erreur sa renvoie a une MsgBox et la personne recommence, si la connexion réussie sa désactive les Input sur la GUI. Le problème est que sa renvoie toujours a l'erreur, donc a rien..

Code :

Code : Tout sélectionner

Case $Connexion
;~          If $InputAdresse = "" Then
;~             MsgBox(0,"Erreur","Un champ néccésaire a la connexion est vide, veuillez le remplir. Consultez le bouton ? pour plus d'aide.")
;~          If $InputUser = "" Then
;~             MsgBox(0,"Erreur","Un champ néccésaire a la connexion est vide, veuillez le remplir. Consultez le bouton ? pour plus d'aide.")
;~          If $InputUserTchat = "" Then
;~               MsgBox(0,"Erreur","Un champ néccésaire a la connexion est vide, veuillez le remplir. Consultez le bouton ? pour plus d'aide.")
            
            $FTPOpen = _FTP_Open("MyFTP COntrol")
            $FTPConnect = _FTP_Connect($FTPOpen,$Inputadresse,$Inputuser,$InputMdpUser)
            If @Error Then
               $FTPOpen = _FTP_Open("MyFTP COntrol")
            _FTP_Connect($FTPOpen,$Inputadresse,$Inputuser,$InputMdpUser)
               MsgBox(0,"Erreur","Une erreur est survenue lors de la connexion. Vérifier votre connection internet ou vérifier les informations demander.")
            Else
            GUICtrlSetState($InputAdresse,$GUI_DISABLE)
            GUICtrlSetState($InputPort,$GUI_DISABLE)
            GUICtrlSetState($InputUser,$GUI_DISABLE)
            GUICtrlSetState($InputMdpUser,$GUI_DISABLE)
            GUICtrlSetState($InputUserTchat,$GUI_DISABLE)
            MsgBox(0,"Connexion Réussi","La connexion au serveur FTP a été réussi. Vous pouvez a présent discuter.")
            Endif

;~          If @Error Then
;~                MsgBox(0,"Erreur","Une erreur est survenue lors de la connexion au serveur. Vérifier votre connection internet. Ou vérifié les Identifiants.")
;~             Else
;~          Endif
;~          EndIf
;~       EndIf
;~    EndIf

J'aimerais aussi que si y'a un champs vide il renvoie a une MsgBox disant une erreur sinon de continuer. ( <- Facultatif, je peux réussir a trouver, juste me donner quelque renseignement merci ).

Merci d'avoir lu/ répondu a mon sujet. Locos974

[Uranium]

Il y a des IFs , EndIfs et Else de partout , c'est normal !

Essaye ça :

► Afficher le texte

Code : Tout sélectionner

Case $Connexion
    If $InputAdresse = "" Or $InputUser = "" Then Or$InputUserTchat = "" Then
        MsgBox(0, "Erreur", "Un champ néccésaire a la connexion est vide, veuillez le remplir. Consultez le bouton ? pour plus d'aide.")
    Else

        $FTPOpen = _FTP_Open("MyFTP COntrol")
        $FTPConnect = _FTP_Connect($FTPOpen, $InputAdresse, $InputUser, $InputMdpUser)
        If @error Then
            MsgBox(0, '', 'Erreur lors de la connection !')
        Else
            GUICtrlSetState($InputAdresse, $GUI_DISABLE)
            GUICtrlSetState($InputPort, $GUI_DISABLE)
            GUICtrlSetState($InputUser, $GUI_DISABLE)
            GUICtrlSetState($InputMdpUser, $GUI_DISABLE)
            GUICtrlSetState($InputUserTchat, $GUI_DISABLE)
            If $FTPConnect = 0 Then
                MsgBox(0, '', 'Erreur lors de la connection !')
            Else

                MsgBox(0, "Connexion Réussi", "La connexion au serveur FTP a été réussi. Vous pouvez a présent discuter.")
            EndIf
        EndIf
    EndIf

Cordialement ,

[locos974]

Il y a un espace manquant mais même avec ou en modifiant :
  If $InputAdresse = "" Then
Cela ramène toujours a une erreur..

[Sea]

Question bête mais bon des fois les erreurs alacon sa arrive...

Fais tu bien un guictrlread(vu que tu appelles des contrôles ^^ et que tu les disable ^^) pour recup les valeurs et non pas juste le nom de ta variable contenant ton input?

De plus je te conseil de mettre tes guictrlread au début de ta fonction tout simplement parce que si tu le fais au moment de l’initialisation de la GUI il lira à ce moment or les input seront vide et après il ne les recheck pas bref moi je te propose ce code ^^

► Afficher le texte

Code : Tout sélectionner

Case $Connexion
    Local $Adresse = GUICtrlRead($InputAdresse)
    Local $User = GUICtrlRead($InputUser)
    Local $UserTchat = GUICtrlRead($InputUserTchat)
    If $Adresse = "" Or $User = "" Then Or $UserTchat = "" Then
        MsgBox(0, "Erreur", "Un champ néccésaire a la connexion est vide, veuillez le remplir. Consultez le bouton ? pour plus d'aide.")
    Else

        $FTPOpen = _FTP_Open("MyFTP COntrol")
        $FTPConnect = _FTP_Connect($FTPOpen, $Adresse, $User, $MdpUser)
        If @error Then
            MsgBox(0, '', 'Erreur lors de la connection !')
        Else
            GUICtrlSetState($InputAdresse, $GUI_DISABLE)
            GUICtrlSetState($InputPort, $GUI_DISABLE)
            GUICtrlSetState($InputUser, $GUI_DISABLE)
            GUICtrlSetState($InputMdpUser, $GUI_DISABLE)
            GUICtrlSetState($InputUserTchat, $GUI_DISABLE)
            If $FTPConnect = 0 Then
                MsgBox(0, '', 'Erreur lors de la connection !')
            Else

                MsgBox(0, "Connexion Réussi", "La connexion au serveur FTP a été réussi. Vous pouvez a présent discuter.")
            EndIf
        EndIf
    EndIf
 

[locos974]

Votre code marche a la perfection c'est vrai que j'ai pas pensé pour les GuiCtrlRead, alors que je les fait 'X' fois sur les Edit Box.
Encore une fois un grand merci a vous tous !