Discussion :

[lemarquisien]

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 :

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

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.

[ShaiLeTroll]

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

[lemarquisien]

, je ne comprend pas ce que tu me demande

[Paul TOTH]

, 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

[lemarquisien]

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

Code :

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

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 :

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

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 ...

[lemarquisien]

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

Code :

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

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

[Cl@udius]

Salut

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

@+ Claudius

[lemarquisien]

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 :

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

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 :

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

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;

[Paul TOTH]

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