DELPHI中的消息广播接收与发送

[coll119]

现在有一需求,在局域网内,服务器一直开着的,并且处于消息监听状态,客户端启动后,向局域网内发送消息广播,此时,服务器端接收到客户端发送的广播后,发送本机IP给客户端.

这一过程用DELPHI中的什么控件实现较好?最好提供相关代码.

[budded]

Udp控件都行，

[Corn1]

比较类似于DHCP。用udp好了。

[budded]

用Indy给你写了两句，
procedure TForm3.Button1Click(Sender: TObject);
begin
IdUDPClient1.Broadcast('This is Budded', 1212);
end;

另外一个程序，设置IdUDPServer的DefaultPort为1212，
procedure TForm4.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);
begin
Caption := BytesToString(AData);
end;

[xy_dream]

客户端登录时需要用广播发送消息,服务器接收到消息后就把自己的IP告诉客户端,这样就可以通信了,需要用udp进行广播通信,知道IP后就可以用udp,tcp都行了

[coll119]

可是为什么客户端发送的消息广播,在服务器端要过很长时间才能接收到?好慢哦..