Index de méthode de message dupliqué

Bonjour à tous, j'ai un problème qui me hante en ce moment.

Alors j'ai récupérer une apllication (ICS) pour une communication via des sockets utilisant le composant TWSocket.

Alors le truc est que il y a deux fiches (client et serveur) et si je les lance séparement ça fonctionne bien.

Maintenant moi j'ai réunit ces 2 fichiers pour en faire qu'un seul.

Le problème est que lorsque je compile il me met l'erreur suivante :
Index de méthode de message dupliqué

L'erreur est du aux 2 déclarations suivantes :

Code:

---

1 2	procedure WMSendBlock(var msg: TMessage); message WM_SENDBLOCK; procedure WMListen(var Msg: TMessage); message WM_LISTEN;

---

Je sais que c'est du au fait que je déclare 2 fois 'message' mais je sais pas à quoi 'message' correspond donc je ne sais pas comment remédier à ce problème.

J'èspère avoir été compréhensible.

par hazard WM_SENDBLOCK = WM_LISTEN
donc Client et Serveur ne peuvent pas être mis dans le même objet ?

:roll: , je ne comprend pas ce que tu me demande

Citation:

---

Envoyé par lemarquisien

:roll: , je ne comprend pas ce que tu me demande

---

vérifie la valeur des deux constantes (WM_SENDBLOCK et WM_LISTEN)...à priori elles sont identiques et c'est pour cela que Delphi refuse la compilation.

si elles sont identiques, tu ne peux avoir qu'une seule procédure qui traite les deux événements...reste à savoir comment on distingue un SENDBLOCK d'un LISTEN :D

effectivement, merci pou l'info, j'avais :

Code:

---

1 2	WM_SENDBLOCK = WM_USER + 1; WM_LISTEN = WM_USER + 1;

---

par contre je comprend pas à quoi ca sert.

J'ai remplacé (au pif) par :

Code:

---

1 2	WM_SENDBLOCK = WM_USER + 1; WM_LISTEN = WM_USER + 2;

---

Il ne me met plus ce problème mais j'ai un autre problème. Je ne peut donc pas tester si ça fonctionne ...

Cependant mon autre problème est le suivant (ci quelqu'un peut m'aider) :
Déclaration Forward ou external non satisfaite

Code:

---

procedure LogServ(LogType: TLogType; const ToLog: String);

---

Salut

Cela signifie simplement que la procédure LogServ est absente de la partie implementation.

@+ Claudius

Merci à tous pour votre aide,

la solution de mon 2ème problème était qu'il fallait que je déclare ma fonction en dehors de private et public (en externe) après 'end;'
c'est à dire mettre :

Code:

---

1 2 3 4 5 6 7 8 9 10

TMainForm = class(TForm) MainMenu: TMainMenu; ... procedure ..... public procedure ..... public procedure ..... end; procedure LogServ(LogType: TLogType; const ToLog: String);

---

au lieu de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

TMainForm = class(TForm) MainMenu: TMainMenu; ... procedure ..... public procedure ..... public procedure ..... procedure LogServ(LogType: TLogType; const ToLog: String); end;

---

c'est au choix...soit tu déclares une simple procédure, soit c'est une méthode et dans ce cas il faut ajouter "TMainForm." devant son nom dans la partie Implementation :)