PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → hchangeconnexion
hchangeconnexion
Iniciado por gilleswathelet, jul., 29 2005 3:43 PM - 1 resposta
Publicado em julho, 29 2005 - 3:43 PM
bonjour,
je vous explique mon problème : mon groupware est en c/s et les paramètres de connexion sont enregistrer dans un fichier.ini à la première exécution de l'application
serveur : mon_serveur
port : 4900
utilisateur : admin
mot de passe : ****
base de données : groupwarecs

dans mon application, j'utilise également une autre base de donnée.
sur certaine fenêtre, j'aimerais récupérer la liste des utilisateur.
en mode hyperfile classic, j'utilisais pour cela :

EXTERNE GPWUtilisateur
EXTERNE GPWUtilisateurConfiguration
EXTERNE GPWConfiguration
EXTERNE GPWConfigurationElement
EXTERNE GPWElement

// initialisation
SI PAS gpwInitAnalyse() ALORS
MaFenêtre..ValeurRenvoyée=gpwErreur
Erreur("Impossible d'initialiser le groupware utilisateur." + ErreurInfo())
Ferme()
FIN

// description de la combo
login..RubriqueParcourue = "Login"
login..RubriqueAffichée = "Login"
login..RubriqueMémorisée = "Login"
login..FichierParcouru = "GPWUtilisateur"

//log est une chaine = gpwRecupInfoUtilisateur(gpwInfoLogin)
//gestionnaire = log
// intilisation de la combo auto alimentée
ListeAffiche(login,taInit)
ListeSelectMoins(login)

maintenant que je suis en c/s,
j'ai ajouter cette ligne ci :

HChangeConnexion("gpwutilisateur","groupware")

mon problème est que le fichier gpwutilisateur est dans un sous répertoire nommé "groupware" donc évidement il ne le trouve pas sur le disque
comment puis-je indiquer un chemin relatif à ma base
donc je veux qu'il accède aufichier :
c:\serveur hf\bdd\grouwarecs\groupware\gpwutilisateur.FIC

pour mes test, lorsque je copie le fichier dans
c:\serveur hf\bdd\grouwarecs
ca marche très bien donc je me dis que j'approche du but.

merci de votre aide
Publicado em julho, 29 2005 - 4:38 PM
gilles a exprimé avec précision :

bonjour,
je vous explique mon problème : mon groupware est en c/s et les paramètres de connexion sont enregistrer dans un fichier.ini à la première exécution de l'application
serveur : mon_serveur
port : 4900
utilisateur : admin
mot de passe : ****
base de données : groupwarecs

dans mon application, j'utilise également une autre base de donnée.
sur certaine fenêtre, j'aimerais récupérer la liste des utilisateur.
en mode hyperfile classic, j'utilisais pour cela :

EXTERNE GPWUtilisateur
EXTERNE GPWUtilisateurConfiguration
EXTERNE GPWConfiguration
EXTERNE GPWConfigurationElement
EXTERNE GPWElement

// initialisation
SI PAS gpwInitAnalyse() ALORS
MaFenêtre..ValeurRenvoyée=gpwErreur
Erreur("Impossible d'initialiser le groupware utilisateur." + ErreurInfo())
Ferme()
FIN

// description de la combo
login..RubriqueParcourue = "Login"
login..RubriqueAffichée = "Login"
login..RubriqueMémorisée = "Login"
login..FichierParcouru = "GPWUtilisateur"

//log est une chaine = gpwRecupInfoUtilisateur(gpwInfoLogin)
//gestionnaire = log
// intilisation de la combo auto alimentée
ListeAffiche(login,taInit)
ListeSelectMoins(login)

maintenant que je suis en c/s,
j'ai ajouter cette ligne ci :

HChangeConnexion("gpwutilisateur","groupware")

mon problème est que le fichier gpwutilisateur est dans un sous répertoire nommé "groupware" donc évidement il ne le trouve pas sur le disque
comment puis-je indiquer un chemin relatif à ma base
donc je veux qu'il accède aufichier :
c:\serveur hf\bdd\grouwarecs\groupware\gpwutilisateur.FIC

pour mes test, lorsque je copie le fichier dans
c:\serveur hf\bdd\grouwarecs
ca marche très bien donc je me dis que j'approche du but.

merci de votre aide


il faut lors de l'ouverture de la fenetre de login indiquer le chemin des répertoires de fichier GPW
// si paramètre crep est passé a vide on récupère le répertoire courant
SI cRep="" ALORS cRep=ComplèteRep(fRepEnCours())
// Construction de nom de répertoire des données groupware
SELON TypeBase
CAS 1 : // local cRep est absolu du genre "C:\MonProg\MesDonnees"
// fichiers des droits
gpwRep=cRep+"droits\utilisateurs"
// fichier des sessions
gpwSessionRep=cRep+"droits\sessions" // les sessions sont gérées pour l'exe en cours !

CAS 2 : // relatif à la base client serveur du genre ".\MesDonnees"
// fichiers des droits
:gpwRep=cRep+"droits\utilisateurs"
// fichier des sessions
gpwSessionRep=cRep+"droits\sessions" // les sessions sont gérées pour l'exe en cours !

FIN
// Si les répertoires n'existent pas, les créent
SI fRep(gpwRep,frRépertoire)="" ALORS fRepCrée(gpwRep)
SI fRep(gpwSessionRep,frRépertoire)="" ALORS fRepCrée(gpwSessionRep)

// Lance le login du groupware
PROCEDURE gpw_InitLogin()
nRes est un entier
// on va afficher la fenêtre de login
nRes= gpwOuvre(gpwSessionRep,gpwRep)
// résultat du login
// si le login a échoué
SI nRes<>gpwOk ALORS
SELON nRes
CAS gpwErreur :
//Erreur à l’initialisation du groupware.
Erreur(ErreurInfo())
CAS gpwUtilisateurInconnu :
Erreur("Utilisateur inconnu.")
CAS gpwMotPasseInvalide :
Erreur("Mot de passe invalide.")
FIN
FinProgramme(Vrai)
FIN


Voilà.




--
Pascal
N0.pascal.SPAM@efpe.biz
Ne garder que le prénom pour me joindre