Utilisation de Indy 10

Bonjour,

J'essaie de migrer de Turbo Delphi sur Lazarus et après quelques tentatives infructueuses j'ai réussi à installer le package Indy 10 dans Lazarus.
Je peux donc expliquer comment je m'y suis pris...
Mais je ne suis pas encore au bout de mes peines car maintenant il faut le faire marcher.

La première difficulté que je rencontre est d'affecter une méthode au serveur TCP onconnect.
Sous Delphi c'était simple il suffisait d'écrire:

Code:

---

1 2 3

IdTCPServer1.OnExecute:= IdTCPServer1Execute; IdTCPServer1.OnDisconnect:= IdTCPServer1Disconnect; IdTCPServer1.OnConnect:= IdTCPServerconnect;

---

Avec Lazarus, d'abord on me dit qu'il manque des paramètres d'appel. Or à ce niveau de déclaration il n'y en a pas de défini.
Lorsque je les supprime dans la procédure, alors il m'est dit que ce n'est pas le même type, et lorsque je mets

Code:

---

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

---

J'ai encore un message plus curieux :

Citation:

---

otc.pas(115,28) Error: Incompatible types: got "<procedure variable type of procedure of object;Register>" expected "<procedure variable type of procedure(TIdContext) of object;Register>"

---

Comment dois-je procéder ?

Merci..

Bonjour

C'est parce que la syntaxe pour affecter une méthode est différente entre Lazarus et Delphi, hélas.

Il faut écrire ceci :

Code:

---

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

---

Salut,

Je me mêle peut-être de ce qui ne me regarde pas, mais :

Citation:

---

Envoyé par tintinux

(...)

Code:

---

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

---

---

ce n'est pas ce qu'il a déjà essayé ? :

Citation:

---

Envoyé par GerardJ

(...) et lorsque je mets

Code:

---

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

---

J'ai encore un message plus curieux:
otc.pas(115,28) Error: Incompatible types: got "<procedure variable type of procedure of object;Register>" expected "<procedure variable type of procedure(TIdContext) of object;Register>"

---

:koi:

Merci les gars, j'ai trouvé!
En fait lors du premier essai, j'avais supprimé le paramètre d'appel, mais je ne l'avais pas restitué lors du second essai, ce qui générait une erreur.
Le message d'erreur était inadéquat mais en remettant le paramètre cela a marché...
Merci!