Discussion :

[noviceman1]

Bonjour,
Je souhaite réaliser une application client/serveur sous Windev 14, et je voudrais savoir comment faire cela le plus simplement possible; l'application est fin prête, mais je ne sais pas comment générer l'Install et procéder au déploiement sur mon petit réseau. Si quelqu'un pourrait me donner quelques indications, dans ce sens.

[lazariel]

Client-serveur est une architecture

https://en.wikipedia.org/wiki/Client_server

Il faudrait donc préciser un peu plus ta question.

[Nicolas_Jeanneau]

Bonjour,

quelle est l'architecture dans laquelle tu dois déployer ? Base de données sur un serveur, client sur le même réseau ou non ? As-tu pensé à paramétrer les accès dans ton appli ? As-tu une gestion d'utilisateurs ?

Plein de questions me viennent à l'esprit mais je n'aurais pas assez de place dans ce post ...

à bientôt,

Nicolas

[noviceman1]

Ok, pour être plus précis, je souhaiterais que la base de données soit effectivement sur un serveur et la partie client (une interface utilisateur) sur les postes clients, comme l'a fait ressortir Nicolas_Jeanneau, sur un même réseau. Voilà comment j'imagine ma configuration :
1- PC1= Serveur, sur laquelle sera la base de donnée;
2- PC2= Poste Client;
3- PC3= Poste Client.
De sorte que les PC2 et 3, à travers l'interface de mon application, puissent se connecter à la base pour des manip.
Voici le code que j'ai mis dans la partie initialisation de mon projet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
sNomConnexion 	est une chaîne 		= "ma_connexion"
sLibelléConnexion 	est une chaîne 	= "Connexion au serveur monServeur, maBase"
sTypeConnexion 	est une chaîne 		= "WinDevClientServeurHF"
sTypeAccès 	est un entier 		= hOLectureEcriture
sNomSource 	est une chaîne 		= "monServeur:4900"
sNomBase 	est une chaîne 		= "maBase"
sNomUtilisateur est une chaîne 	= "admin"
sMotDePasse 	est une chaîne 	= ""
sInfoEtendus 	est une chaîne 	= ";Cryptage = aucun;Initial Catalog=SYGASIG_LD;Compression=aucun"
 
SI gpwOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse,sNomSource, sNomBase, sTypeConnexion, sTypeAccès,sInfoEtendus)=Faux ALORS
	Erreur(HErreurInfo())
SINON
	nRes est un entier = gpwOuvre() 
	SI nRes <> gpwOk ALORS 
		SELON nRes 
			CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo()) 
			CAS gpwUtilisateurInconnu : Erreur("Utilisateur non enregistré.") 
			CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.") 
 
		FIN 
			FinProgramme()
FIN
HChangeConnexion("*",sNomConnexion ) 
FIN
 
HCréationSiInexistant(Personne)
HCréationSiInexistant(Type_signalement)

Maintenant je ne sais pas quel choix dois je faire dans la procedure d'installation et comment dois-je procéder pour le déploiement sur mon réseau? En gros c'est ça mon souci, et j'espère que j'ai été quelque peu précis.

[lazariel]

En effet !

Il faut t'orienter sur une architecture Client-Serveur (C/S) pour la base de données. Le choix de prédilection c'est HyperFileSQL C/S

Mais tu n'es pas obligé de passer par HF C/S, MySQL etc iront très bien aussi. Ensuite, il sera nécessaire de déclarer une connexion dans ton projet par HOuvreConnexion() et de déclarer que tes tables se connectent à ladite connexion.

En terme de déploiement (qui est un autre problème), il existe les mécanismes de mises à jour...

Attention lors de la configuration de tes postes à ouvrir les bons ports etc...

[noviceman1]

Ok, je resume la demarche en 4 étapes (Choix du type de fichiers dans l'Analyse- Code de connexion au niveau de l'initialisation du Projet- Réalisation de l'installeur- Déploiement sur le réseau ou installation de l'application sur le réseau) :

1- Effectivement j'ai opté pour le HyperFile C/S, cette phase est OK;
2- Si je comprends un peu, mon code de connexion d'en-haut est incomplet? Il me faut ajouter d'autres lignes par rapport à HOuvreConnexion()? Je ne sais pas comment déclarer que mes tables se connectent à ma connexion.

[Nicolas_Jeanneau]

La déclaration des tables est faite avec la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HChangeConnexion("*",sNomConnexion )

Donc normalement tu n'as besoin de rien de plus. Peut-être stocker en dehors de l'application les paramètres de la connexion à la base.

Ensuite, il faut peut-être aussi gérer l'accès des utilisateurs à l'application si tu ne l'as pas déjà fait pour les accès concurrents aux données ...

[noviceman1]

Si mon code est bon, donc la phase 2 est aussi OK; mais je suis un peu perdu par rapport au stockage des paramètres de connexion en déhors de l'application; et à la gestion de l'accès des utilisateurs dont tu parles. J"avais qu' à même déjà intégré l'outil GroupeWare de sorte qu'au lancement de l'application la fenêtre login se présente à l'utilisateur; s'il s'agit de cela, il n'y a pas de souci à ce niveau aussi. Maintenant je dois passer à quelle étape?
Je tiens à préciser que je suis novice sur ce terrain et j'ai vraiment besoin de votre assistance.

[lazariel]

Pas de souci !

Ce qu'il entend par là c'est de faire un fichier de config externe à l'application et stocké du côté du client. Windev permet quelques facilités, jettes un oeil du côté de IniLit et IniEcrit.

http://doc.pcsoft.fr/fr-FR/?3013043&...ction&q=IniLit

Dans ce fichier de configuration, tu stockes les informations minimales. L'exemple sur la doc de PCSoft y est très parlant !

http://doc.pcsoft.fr/fr-fr/?3044150

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
// Décrire la nouvelle connexion
HDécritConnexion ("MaConnexion", "", "",...
       "Serveur_SQLServer", "dbo", hOledbSQLServer, hOLectureEcriture, "")
 
// Ouvrir la nouvelle connexion
HOuvreConnexion("MaConnexion")
 
// Indiquer que "Salaires" utilise la nouvelle connexion
HChangeConnexion("salaires", "MaConnexion")

Dans le cas de figure qui nous intéresse, on charge les quelques variables que l'on désire depuis notre fichier de configuration (adresse du serveur, mot de passe, utilisateur, nom de la base de données), on le passe dans HDécritConnexion et PAF ça fait des Chocapic :-)

[noviceman1]

Merci pour ces détails. Maintenant, je crois avoir bien validé ces étapes: j'ai défini dans le code du projet une nouvelle connexion, comme tu me l'as décrit avec mes paramètres. Je crois qu'il ne reste plus qu'à générer l'exécutable ou à lancer la procédure d'installation. Là-dessus, je suis un hésitant et je serais rassuré d'avoir quelques indications par rapprt à cela. Comment dois-je m'y prendre?

[noviceman1]

Slt, je reviens en récapitulant mes démarches.
1-J'ai créé des des fichiers HFCS;
2-J'ai réalisé le code de connexion comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
sNomConnexion 	est une chaîne 		= "ma_connexion"
sLibelléConnexion 	est une chaîne 	= "Connexion au serveur monServeur, maBase"
sTypeConnexion 	est une chaîne 		= "WinDevClientServeurHF"
sTypeAccès 	est un entier 		= hOLectureEcriture
sNomSource 	est une chaîne 		= "monServeur:4900"
sNomBase 	est une chaîne 		= "maBase"
sNomUtilisateur est une chaîne 	= "admin"
sMotDePasse 	est une chaîne 	= ""
sInfoEtendus 	est une chaîne 	= ";Cryptage = aucun;Initial Catalog=SYGASIG_LD;Compression=aucun"
 
SI gpwOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse,sNomSource, sNomBase, sTypeConnexion, sTypeAccès,sInfoEtendus)=Faux ALORS
	Erreur(HErreurInfo())
SINON
	nRes est un entier = gpwOuvre() 
	SI nRes <> gpwOk ALORS 
		SELON nRes 
			CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo()) 
			CAS gpwUtilisateurInconnu : Erreur("Utilisateur non enregistré.") 
			CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.") 
 
		FIN 
			FinProgramme()
FIN
HChangeConnexion("*",sNomConnexion ) 
FIN
 
// Décrire la nouvelle connexion
HDécritConnexion ("ma_connexion", "", "", "monServeur:4900", "maBase", hOLectureEcriture, "")
 
// Ouvrir la nouvelle connexion
HOuvreConnexion("ma_connexion")
HChangeConnexion("*",ma_connexion) 
 
HCréationSiInexistant(Personne)
HCréationSiInexistant(Type_signalement)

3-J'ai réalisé la procédure d'installation en choisissant le Mode:Installation avec mise à jour automatique; et comme mode distribution: Mise à jour via un repertoire partagé sur un réseau; et le reste est quasi laissé par défaut.
Et la création de la procédure d'installation se fait sans erreur: Opération réussie.
4- Pour tester, j'ai fait un réseau de 3 PC et j'ai copier dans un repertoire partagé sur le PC Serveur l'Install que je viens de créer. J'ai ensuite installer le Centre de controle où j'ai créé un serveur du nom de "monserveur".
5-J'ai exécuté Install_server, à partir du repertoire partagé du serveur. Lors de l'exécution j'ai des erreurs genre: la communication avec le serveur a échoué; l'adresse demandé n'est pas valide dans son context; et puis les fichiers n'ont pas pu être créer, je crois. En poursuivant l'installation, vers la fin il me demande un login pour la connexion au serveur; et je ne sais pas quel mot de passe mettre.
Je suis vraiment perdu, j'ai besoin de votre assitance.

[noviceman1]

Salut, après quelques jours de labeur, voilà comment je m'y suis pris :
1-J'ai créé des des fichiers HFCS;
2-J'ai réalisé le code de connexion suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
sNomConnexion 	est une chaîne 		= "ma_connexion"
sLibelléConnexion 	est une chaîne 	= "Connexion au serveur monServeur, maBase"
sTypeConnexion 	est une chaîne 		= "WinDevClientServeurHF"
sTypeAccès 	est un entier 		= hOLectureEcriture
sNomSource 	est une chaîne 		= "monServeur:4900"
sNomBase 	est une chaîne 		= "maBase"
sNomUtilisateur est une chaîne 	= "admin"
sMotDePasse 	est une chaîne 	= ""
sInfoEtendus 	est une chaîne 	= ";Cryptage = aucun;Initial Catalog=SYGASIG_LD;Compression=aucun"
 
SI gpwOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse,sNomSource, sNomBase, sTypeConnexion, sTypeAccès,sInfoEtendus)=Faux ALORS
	Erreur(HErreurInfo())
SINON
	nRes est un entier = gpwOuvre() 
	SI nRes <> gpwOk ALORS 
		SELON nRes 
			CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo()) 
			CAS gpwUtilisateurInconnu : Erreur("Utilisateur non enregistré.") 
			CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.") 
 
		FIN 
			FinProgramme()
FIN
HChangeConnexion("*",sNomConnexion ) 
FIN
 
HCréationSiInexistant(Personne)
HCréationSiInexistant(Type_signalement)

3-J'ai réalisé la procédure d'installation en choisissant le Mode:Installation avec mise à jour automatique; et comme mode distribution: Mise à jour via un repertoire partagé sur un réseau; et le reste est quasi laissé par défaut.
4- Pour tester, j'ai mis en réseau mon Ordi en réseau avec un PC virtuel que j'ai créé à partir de VirtualBox (un logiciel de virtualisation).
5- J'ai pris le PC virtuel comme Serveur et lui es donné le même nom que le PC sur lequel j'ai véritablement conçu mon appli. J'ai copier les fichiers d'installation (dossier Install généré) sur le Serveur.
6- J'ai ensuite installer le Centre de controle (le package HF client serveur) avec création d'un serveur du même nom que celui indiqué dans mon code de connexion.
7-J'ai exécuté Install_server sur le serveur. Le repertoire d'installation choisi est un dossier partagé sur le réseau. Lors de l'exécution j'ai des erreurs genre: la communication avec le serveur a échoué; l'adresse demandé n'est pas valide dans son context; et puis les fichiers n'ont pas pu être créer, je crois. Et si je retourne dans le Centre de Controle, je pourrais voir mon nveau serveur avec ses bases de données.
8-Je retourne sur mon Ordi (qui joue le rôle de client, ici) et lance l'installation à partir du repertoire partagé du serveur (en cliquant sur install dans ce repertoire).
Et l'application se connecte bien au serveur, et je parviens même à renseigner ma base de données à travers mon appli cliente. Et ça repond un peu à mes aspirations; mais si quelqu'un à une suggestion à faire pour peaufiner davantage mon système, je suis preneur

[shix05]

Salut, après quelques jours de labeur, voilà comment je m'y suis pris :
1-J'ai créé des des fichiers HFCS;
2-J'ai réalisé le code de connexion suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
sNomConnexion 	est une chaîne 		= "ma_connexion"
sLibelléConnexion 	est une chaîne 	= "Connexion au serveur monServeur, maBase"
sTypeConnexion 	est une chaîne 		= "WinDevClientServeurHF"
sTypeAccès 	est un entier 		= hOLectureEcriture
sNomSource 	est une chaîne 		= "monServeur:4900"
sNomBase 	est une chaîne 		= "maBase"
sNomUtilisateur est une chaîne 	= "admin"
sMotDePasse 	est une chaîne 	= ""
sInfoEtendus 	est une chaîne 	= ";Cryptage = aucun;Initial Catalog=SYGASIG_LD;Compression=aucun"
 
SI gpwOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse,sNomSource, sNomBase, sTypeConnexion, sTypeAccès,sInfoEtendus)=Faux ALORS
	Erreur(HErreurInfo())
SINON
	nRes est un entier = gpwOuvre() 
	SI nRes <> gpwOk ALORS 
		SELON nRes 
			CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo()) 
			CAS gpwUtilisateurInconnu : Erreur("Utilisateur non enregistré.") 
			CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.") 
 
		FIN 
			FinProgramme()
FIN
HChangeConnexion("*",sNomConnexion ) 
FIN
 
HCréationSiInexistant(Personne)
HCréationSiInexistant(Type_signalement)

3-J'ai réalisé la procédure d'installation en choisissant le Mode:Installation avec mise à jour automatique; et comme mode distribution: Mise à jour via un repertoire partagé sur un réseau; et le reste est quasi laissé par défaut.
4- Pour tester, j'ai mis en réseau mon Ordi en réseau avec un PC virtuel que j'ai créé à partir de VirtualBox (un logiciel de virtualisation).
5- J'ai pris le PC virtuel comme Serveur et lui es donné le même nom que le PC sur lequel j'ai véritablement conçu mon appli. J'ai copier les fichiers d'installation (dossier Install généré) sur le Serveur.
6- J'ai ensuite installer le Centre de controle (le package HF client serveur) avec création d'un serveur du même nom que celui indiqué dans mon code de connexion.
7-J'ai exécuté Install_server sur le serveur. Le repertoire d'installation choisi est un dossier partagé sur le réseau. Lors de l'exécution j'ai des erreurs genre: la communication avec le serveur a échoué; l'adresse demandé n'est pas valide dans son context; et puis les fichiers n'ont pas pu être créer, je crois. Et si je retourne dans le Centre de Controle, je pourrais voir mon nveau serveur avec ses bases de données.
8-Je retourne sur mon Ordi (qui joue le rôle de client, ici) et lance l'installation à partir du repertoire partagé du serveur (en cliquant sur install dans ce repertoire).
Et l'application se connecte bien au serveur, et je parviens même à renseigner ma base de données à travers mon appli cliente. Et ça repond un peu à mes aspirations; mais si quelqu'un à une suggestion à faire pour peaufiner davantage mon système, je suis preneur

Bonsoir à vous!
je suis debutant en windev 17 et j'ai pu developper une application de gestion de bibliothèque qui marche sans probleme en monoposte. Maintenant j'ai le souci de le rendre client/serveur. j'ai parcouru beaucoup de forum et j'ai reussi a le faire.
Mais mon problème se trouve au niveau du client: il n'arrive pas a se connecter au serveur.
A part le dossier d'installation sur le serveur, quel autre dossier faut-il partager ? comment ? est ce que c'est seulement ce code la qu'il faut à l'initialisation de mon projet ?

Merci de bien vouloir m'aider

voici ce que j'ai mis comme code dans ma première fenetre de mon application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
MaConnexion est une Connexion
// Description de la connexion
MaConnexion ..Utilisateur= "admin"
MaConnexion .. MotDePasse=""
MaConnexion ..Serveur ="SERVER :4900"
MaConnexion ..BaseDeDonnées="DATABASE"
MaConnexion ..Provider = hAccèsHFClientServeur
MaConnexion .. Accès = hOLectureEcriture
MaConnexion..OptionsCurseur = hCurseurDynamique+hCurseurServeur
SI HOuvreConnexion(gcnxNouvelleconnexion) ALORS 
		SI HChangeConnexion("*",gcnxNouvelleconnexion)ALORS 
 
			HCréationSiInexistant("*") 
		FIN 
		Info("Vous êtes connectés à la base de données") 
 
	SINON 
		 Erreur(ErreurInfo())
	FIN

[WDKyle]

Bonjour,

Il y a un espace entre SERVER et le PORT regarde bien "SERVER :4900".

L'erreur viens peut-être de la...