WD [Résolu] Erreur 74001 (l'accès au serveur vous est refusé)

Pour etre sur que les parametres soient bons, dans l'init du projet essaye de faire ça

Code (Text):

   DataBase est une Connexion
   DataBase..Provider = hAccèsHFClientServeur
   DataBase..Utilisateur = "MonUser"
   DataBase..MotDePasse = "MonMotDePasse"
   DataBase..Serveur = "IPSERVER:PORTSERVER"
   DataBase..BaseDeDonnées = "NomDeLaBase"
   HChangeConnexion("*",DataBase)
 

 

Comme l'a souligner

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

, il est préférable de passer par une connexion défini dans le code (de préférence dans le code du projet)

En reprenant le code ci-dessus :

Code (Windev):

 
   DataBase est une Connexion
   DataBase..Provider = hAccèsHFClientServeur
   DataBase..Utilisateur = "MonUser"
   DataBase..MotDePasse = "MonMotDePasse"
   DataBase..Serveur = "IPSERVER:PORTSERVER"
   DataBase..BaseDeDonnées = "NomDeLaBase"
 
   SI PAS

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(DataBase) ALORS
        // Gestion erreur (finprogramme par exemple)
   FIN
 
   SI PAS

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("*",DataBase) ALORS
        // Gestion erreur (finprogramme par exemple)
   FIN

 

 

De toute façon je conseille de paramétrer par le code la connexion, avec des variables.
Rien ne t'assure que la connexion au serveur HFSQL ne change pas d'ici quelques temps.. et il faudra recompiler si tu ne te base que sur l'analyse..

 

Bonsoir, nouveau dans le forum j'ai bien lu tout ce sujet et je me trouve à peu près dans la même situation que lerenar, j'utilise windev 24 et je voudrais utiliser le fichier wx créé par wdsetup pour modifier la connexion existante que j'utilise dans mon projet :

Code (Windev):

sLeFichierDeCnx est une chaîne =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

()+"\NomDeMonEX.wx"

SI

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sLeFichierDeCnx) ALORS
    NomDeLaConnexionDuProjet..Serveur =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("CONNECT", "ADRESSE_1", "",sLeFichierDeCnx)
    NomDeLaConnexionDuProjet..BaseDeDonnées =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("CONNECT", "DATABASE_1", "",sLeFichierDeCnx)
    NomDeLaConnexionDuProjet..Utilisateur =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("CONNECT", "LOGIN_1", "",sLeFichierDeCnx)
    //NomDeLaConnexionDuProjet..MotDePasse = INILit("CONNECT", "PWD_1", "",sLeFichierDeCnx)
FIN
 

Je bute sur :
=> le PWD_1 car d'après la documentation de PCSOFT le mot de passe est crypté et je ne sais pas comment le décrypter, j'ai décortiqué l'exemple de WDSetup et je n'ai rien trouvé.
=> le PORT_1 comment l'attribuer à ma connexion si jamais l'utilisateur final définit une autre valeur que celle par défaut (4900) lors de l'installation ?

Merci bien.

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

si mdp crypte avec fcrypte.
pour le port tu dois le rajouter a ta propriete serveur avec ort

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

Merci bien je vais tester ce soir

 

Salut, c'est réglé pour le port.

Pour ce qui est du mot de pass ce n'est pas tout le fichier qui est crypte c'est juste la valeur qui existe dans le fichier INI (WX) :

PWD_1=Wx4dO.....

c'est une chaîne cryptée mais je ne connais pas le mot de passe

 

il faut utiliser le mot de passe fournit lors de l’installation pour moi, car ce fichier est crée lors de l’installation du programme et modifie la connexion de l'analyse.
je dirais heureusement que le pas est pas en clair sinon n'importe qui peut aller farfouiller dans les bases.

 

Ah OK j'ai hate de tester ça je vous tiendrais au courant merci beaucoup.

 

Bonsoir, malheureusement c'est beaucoup plus compliqué que je ne l'espérais, j'ai trouvé la partie du wdsetup qui se charge du cryptage :

Code (Windev):

POUR nCx=1 _À_

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(tabCx)
   // On ne sauve pas les paramètres quand la connexion a les valeurs du .wer ou de l'analyse
   SI tabCx[nCx]:m_nValDefaut<>CDescConnexionExe::CX_PARAM_WER _ET_ tabCx[nCx]:m_nValDefaut<>CDescConnexionExe::CX_PARAM_ANALYSE ALORS
       // On choisit quelle description de connexion on va utiliser
       // QW162910 : il est également crypté si on ne l'a jamais modifié dans WDSetup
       bCryptePW est un booléen = (tabCx[nCx]:m_nValDefaut<>CDescConnexionExe::CX_PARAM_SETUP) _OU_ (tabCx[nCx]:m_bUtiliseDefaut)
       pclCx est un CDescConnexionExe dynamique = tabCx[nCx]
       // Incrémente le compteur du nombre de connexion effectives dans le fichier
       nNbCx++
       // Crée l'entrée de fichier
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"NOM_"+nNbCx,pclCx:m_sNom,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"BASE_"+nNbCx,pclCx:m_sDest_Provider,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"ADRESSE_"+nNbCx,pclCx:m_sDest_Adresse,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"PORT_"+nNbCx,""+pclCx:m_nDest_Port,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"DATABASE_"+nNbCx,pclCx:m_sDest_Database,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"LOGIN_"+nNbCx,pclCx:m_sDest_User,sCheminFic)
       // Il faut crypter le mdp dans tous les cas pour l'écrire dans le WX
       sPwd est une chaîne = sCrypteExe(pclCx:m_sDest_Pwd,sExec,bCryptePW)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"PWD_"+nNbCx,sPwd,sCheminFic)
       // INIEcrit(sNomSection,"ACCES_"+nCx,""+pclCx:m_nDest_Acces,sCheminFic)
       // Si le provider est HF ISAM, le chemin est stocké dans ExtInfo
       // Il faut étendre le répertoire avant de l'écrire
       // Ne pas étendre dans le cas d'une installe de référence (sera étendu lors de la recopie pendant l'install cliente)
       SI pclCx:m_sDest_Provider=hAccèsHF7 ET PAS gclInst:m_stInstChoix:nTypeInst=nTYPE_RESEAU_REF ALORS
           ParamRep(pclCx:m_sDest_ExtInfo)
           // Et tente de créer le répertoire
           

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(pclCx:m_sDest_ExtInfo)
       FIN
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"INFOEXT_"+nNbCx,pclCx:m_sDest_ExtInfo,sCheminFic)
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sNomSection,"OPTCURSEUR_"+nNbCx,""+pclCx:m_nDest_OptionsCurseur,sCheminFic)
   FIN
FIN
 

sCrypteExe étant une procédure d'un composant externe ManipCx