Discussion :

[Guyt54]

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 :

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

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 :

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

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 :

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

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

[Guyt54]

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.

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 :

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

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 ;
}