Discussion :

[GerardJ]

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 :

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

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 :

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

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

Comment dois-je procéder ?

Merci..

[tintinux]

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 :

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

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

[Jipété]

Salut,

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

(...)

Code :

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

IdTCPServer1.OnExecute:= @IdTCPServer1Execute;

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

(...) et lorsque je mets

Code :

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

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

[GerardJ]

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!