UDP Verbindung

[Michael II]

Es wäre sicher hilfreich, wenn du mehr Delphi Code und weniger Text postest .

Wie andere erwähnen wäre es voll OK, wenn du mit einem Sniffer prüfst, ob die Daten deine Kiste erreichen und wenn Ja an welche Zieladresse die Pakete gesendet werden.

Es wird hier geschrieben, dass je Port nur ein Socket listen kann. Das stimmt nicht: Wenn du die Sockets an verschiedene Interfaces bindest (bei ICS Addr:=<IP Interface>), dann geht das einfach so. Wenn du das gleiche Interface nutzen musst/willst, dann kannst du bei ICS die Eigenschaft reuseaddr auf TRUE setzen.

Wenn zwei Sockets auf dem gleichen Port und Interface auf listen gehen, dann spielt es eine Rolle, an welche Adresse der Sender die Pakete sendet.

Mehr Infos

Wenn ein Paket via Broadcast an einen Port P gesendet wird, dann empfangen alle Sockets, welche auf Port P lauschen das Paket.

Ich nehme an, die Pakete werden in deinem Fall via Broadcast versendet. Dann sollte es so funktionieren:

Zwei Sockets WSocket1 und WSocket2 gehen auf dem gleichen Port auf Listen (die beiden Sockets leben bei dir in zwei voneinander verschiedenen Apps, einer davon in deiner ).
WSocket3 (wohnt bei dir im Senderprogramm) broadcastet 'Hallo'. Die Meldung kommt bei WSocket1 und WSocket2 an.

Delphi-Quellcode:

procedure TForm48.Button1Click(Sender: TObject);
begin
  WSocket3.Proto:='udp';
  wsocket3.addr := '255.255.255.255'; // Broadcast
  wsocket3.Port:='7701';
  wsocket3.Connect;
  wsocket3.SendStr( 'Hallo' );
  wsocket3.Close;
end;

procedure TForm48.buttonClick(Sender: TObject);
begin
 WSocket2.Proto:='udp';
 wsocket2.Addr:='0.0.0.0'; // egal welches Interface
 wsocket2.Port:='7701';
 wsocket2.ReuseAddr:=true;
 wsocket2.Listen;

 WSocket1.Proto := 'udp';
 WSocket1.Addr := '0.0.0.0';
 wsocket1.Port:='7701';
 wsocket1.ReuseAddr:=true;
 wsocket1.Listen;
end;

procedure TForm48.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
begin
  showmessage( '1' + (sender as twsocket).ReceiveStr );
end;

procedure TForm48.WSocket2DataAvailable(Sender: TObject; ErrCode: Word);
begin
   showmessage( '2' + (sender as twsocket).ReceiveStr );
end;

Wenn das nicht hilft,
- dann verwende einen Sniffer und poste hier das Paket, welches von deiner App nicht empfangen wird.
- Poste den Code, den du in deiner App zum Empfangen der Datenpakete verwendest.