Problème événement TIdUDPServer avec XE2

Bonjour,

J'insère la composante Indy "TIdUDPServer" sur une forme (que je renomme "udpServer"), double clique sur l'événement "OnUDPRead", ce qui déclenche automatiquement le message d'erreur:

Erreur dans le module form1: déclaration de méthode incorrecte

La méthode incorrecte en question :

Code:

---

1 2 3

void __fastcall udpServerUDPRead(TIdUDPListenerThread *AThread, TArray<System.Byte> AData, TIdSocketHandle *ABinding);

---

Je contourne le problème en déclarant dans "private" de ma classe TForm1 la méthode:

Code:

---

1 2 3

void __fastcall My_udpServerUDPRead(TIdUDPListenerThread *AThread, TBytes AData, TIdSocketHandle *ABinding);

---

que j'associe dans le constructeur à l'événement "OnRead" de mon udpServer:

Code:

---

1 2	udpServer->OnUDPRead = My_udpServerUDPRead ;

---

Ça fonctionne nickel, mais ça fait un détail de plus à expliquer à mes étudiants ;).

Il y a quelque chose à faire pour que XE2 permette le double-clic sur " "OnUDPRead"??

En tout cas, en charchant un peu plus, je me suis rendu compte que je suis pas le seul à avoir eu ce problème:

https://forums.embarcadero.com/threa...threadID=43690

L'omniprésent Remi Lebeau y propose un "workaround" semblable au miens. Je l'accuserai pas de plagiat, il l'a écrit avant moi. :D

Et pour finir cette discussion avec moi-même ;), je pense que j'aurai pas bin bin le choix d'y aller dynamiquement, il y aurait un autre problème avec TIdUDPServer.Le composant ne semble pas tenir compte (en fait, j'en suis pas mal certain) des modifications apportées à la propriété "DefaultPort" pendant l'exécution.

Donc, ma solution pour être capable de changer dynamiquement "DefautPort" et régler le problème de compilation:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void TfrmMain::UDP_ResetServer(int listeningPort) { if (udpServer) // NULL au démarrage delete udpServer ;   udpServer = new TIdUDPServer(this) ; udpServer->OnUDPRead = My_udpServerUDPRead ; udpServer->DefaultPort = listeningPort ; udpServer->Active = true ; }

---