PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Connexion distante HFSQL C/S inexistante
Connexion distante HFSQL C/S inexistante
Iniciado por José, 03,nov. 2019 18:15 - 4 respuestas
Miembro registrado
123 mensajes
Publicado el 03,noviembre 2019 - 18:15
Bonjour à tous
J'ai une application HFSQL C/S, le serveur est chez le client
Quand je veux me connecter de chez moi pour faire des tests de connexion à distance avec le centre de contrôle je me connecte bien. Mais avec l'application, j'ai un message connexion inexistante, pourtant j'utilise la même adresse IP, sur le port 4900, et le même utilisateur avec son mot de passe.

Avez-vous une piste ?
Merci d'avance
José
Miembro registrado
123 mensajes
Publicado el 03,noviembre 2019 - 18:20
Je corrige, l'erreur renvoyé par HEtatServeur après le HChangeConnexion("*","MaConnexion") est hInaccessible
Chez le client j'au set postes en réseau qui utilisent l'application et il n'y a aucun problème
Publicado el 04,noviembre 2019 - 11:26
Bonjour,
Vérifiez la configuration du pare-feu Windows et les ouvertures de ports de la box.
Bien cordialement,
Miembro registrado
1.640 mensajes
Publicado el 04,noviembre 2019 - 17:07
On peut avoir le code de connexion ? (sans les identifiants biensur :D)
Mensaje modificado, 04,noviembre 2019 - 17:07
Miembro registrado
123 mensajes
Publicado el 04,noviembre 2019 - 19:13
Bonsoir
Merci de prendre du temps pour m'aider
Pour répondre à François, voici mon code de connexion, il y a aussi un traitement en cas de
gcnxConnexionEntreprise est une variable de type connexion
le gsServeurNom, gsServeurPort sont lu dans un fichier .ini

C'est le nom du serveur en utilisation sur le réseau et l'adresse IP pour une connexion distante

gcnxConnexionEntreprise..Serveur=gsServeurNom+":"+gsServeurPort
gcnxConnexionEntreprise..Utilisateur=gsUtilisateurNom
gcnxConnexionEntreprise..MotDePasse=gsUtilisateurCode
gcnxConnexionEntreprise..BaseDeDonnées=gsEntrepriseEnCours
gcnxConnexionEntreprise..Provider=hAccèsHFClientServeur
gcnxConnexionEntreprise..Accès=hOLectureEcriture
gcnxConnexionEntreprise..OptionsCurseur=hCurseurClient

HChangeConnexion("*","gcnxConnexionEntreprise")

SELON HEtatServeur(gcnxConnexionEntreprise..Serveur)
CAS hArrêté
ToastAffiche("Le serveur "+gsServeurNom+" est arrêté !"+RC+"Le logiciel va essayer de le démarrer"+RC+"Si la connexion ce se fait pas, vous
devez avertir la personne qui gère le serveur logiciel"+RC+"pour qu'il redémarre le serveur."+RC+"Il est possible qu'une
opération de maintenance soit en cours.",toastCourt,cvMilieu)
SI PAS HDémarreServeur(gsServeurNom) ALORS
ToastAffiche("Le serveur n'a pas pû être démarré !"+RC+"Contactez la personne qui gère le serveur.")
FinProgramme()
SINON
//Ouverture de la connexion
SI PAS HOuvreConnexion(gcnxConnexionEntreprise)ALORS
Erreur(HErreurInfo(hErrComplet))
FinProgramme()
FIN
FIN
CAS hDémarré :
// Ouverture de la connexion
SI PAS HOuvreConnexion(gcnxConnexionEntreprise)ALORS
Erreur(HErreurInfo(hErrComplet))
FinProgramme()
FIN
HJournalRecrée("*")
ToastAffiche("Bonjour "+gcnxConnexionEntreprise..Utilisateur+RC+ "Vous êtes connecté(e) au serveur
"+gsServeurNom+" sur le port : "+gsServeurPort+RC+"Entreprise : "+gsEntrepriseEnCours,toastCourt,cvMilieu)
CAS hInaccessible
Information("CONNEXION SERVEUR","I","Le serveur "+gsServeurNom+" :Port "+gsServeurPort+" est inaccessible !"+RC+"Relancer
BâtiArt Gestion."+RC+"Si le problème persiste, prévenez la personne en change du réseau ou la maintenance ")
FinProgramme()
FIN