Discussion :

[Just-Soft]

Salut;

Je viens de réaliser un petit serveur "MIDAS" qui gère le nombre de connexions à une base de données. Au démarrage du serveur, il vérifie l'état de l'application "enregistrée ou pas" pour afficher un message en conséquence.

Dans la partie client, le serveur se charge d'afficher le message adéquat à l'utilisateur. Jusque là tout marche bien. Sauf que l'application client ne me laisse pas le temps de lire le message renvoyé par le serveur !

J’ai essayé d'afficher mon message avec MessageDlg puis avec ShowMessage et c'est toujours le même le problème. S'agit-il d'un bug car l'aide de Delphi ne parle d'aucune exception quant à l'utilisation des routines d'affichage à partir d'une application serveur ? Comment contourner ce petit problème ?

Merci de m'avoir lu.

[LeGEC]

Salut,

l'application client ne me laisse pas le temps de lire le message renvoyé par le serveur !

Peux-tu expliquer plus en détail ce qui se passe?

*LeGEC*

[Just-Soft]

Merci LeGEC pour avoir lire le message car je suis toujours au même point. Le déroulement est comme ceci :

- j'exécute l'application client qui contient un DCOM recensant mon serveur;
- Qaund mon DCOM passe à l'état True il invoque le OnActivate de la form Login qui est chargée de vérifier si l'application a ou non un numéro d'enregistrement, si l'application n'est pas enregistrée le OnActive rend un message d'information à l'utilisateur en plus du nombre d'essai qui lui reste;
- Le message est passé par MessageDlg;
- Mais avant que j'appuie sur "Ok" l'application client continue son exécution comme si aucun message n'est affiché!

et je ne sais pas comment lui demander de rester figer jusqu'à ce que l'utilisateur lise le message et appuie sur le boton "Ok".

[philnext]

Peut être en mettant la propriété visibel de ta Form principale à False par défaut et à la passer à True uniquement si ton utilisateur appuie sur OK ?

[Just-Soft]

Salut et merci à vous deux;

En fait je faisais une erreur fondamentale. La solution était tellement simple que je n'y ai pas pensé. Il fallait tout juste ajouter deux fonctions du genre Get qui retournaient pour l'une la chaine de caractères "enregistrée" ou "pas enregistrée", et pour l'autre le nombre d'essais restant.

Ensuite, lire le résultat des deux fonctions, une fois le serveur lancé, à partir de l'application client et afficher le message en conséquence.

Merci encore.