UDPServer OnUDPRead reagiert nicht

[sirius]

Mir fällt grad noch etwas ein. Wenn du ein "einfaches" Programm als UDPServer basteln willst, welches nur auf Ereignisse am UDP-Port reagieren soll und sonst nichts, dann kannst du auch recvfrom blockierend aufrufen. Dadurch musst du dich weder mit Events noch mit Messages rumschlagen. Das sähe etwa so aus (WINAPI-Befehle verwendet):

Delphi-Quellcode:

//ohne Fehlerbearbeitung
uses Winsock;

var wsaData:TWsaData;
    udpSocket:TSocket;
    addr:TSockAddrIn;
    buf:array[0..511] of AnsiChar;
begin
  //Variablen initialisieren
  addr.sin_family:=af_inet; 
  addr.sin_port:=htons(cPort); //bsp: const cPort=12000;
  addr.sin_addr.S_addr:=INADDR_ANY; 
 


  WSAStartUp($0202,wsadata); //Socket-DLL laden
  udpSocket:=socket(af_inet,Sock_DGram,IPProto_UDP); //Socket initialisieren
  bind(udpSocket,addr,sizeof(addr)); //UDP-Socket an Port cPort für alle Netwerkverbindungen (INADDR_ANY) binden
  

  repeat
    //recv muss besser ausgebaut werden
    addrlen:=sizeof(addr);
    recvfrom(udpSocket,buf,512,addr,addrlen); //UDP_Packet empfangen (und warten bis eins ankommt!)
     
    //in addr ist der Absender enthalten und in buf die Message
    //Fehlerbehandlung nicht vergessen!
    //Umwandlung des Ports von Big Endian zu Little Endian mittels ntohs(...)
    //Umwandlung der Adresse von 32Bit zu String mittels inet_ntoa(...)

  until ...;
end;

Allerdings kann das Programm jetzt nichts anderes machen, als ganz ruhig auf Nachrichten am Port "cPort" zu warten und ggf. darauf zu reagieren. Andere Interaktionen sind nicht möglich.