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

Question

现在有一需求,在局域网内,服务器一直开着的,并且处于消息监听状态,客户端启动后,向局域网内发送消息广播,此时,服务器端接收到客户端发送的广播后,发送本机IP给客户端.这一过程用DELPHI中的什么控件实现较好?最好提供相关代码.

Answer 1

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

Answer 2

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