delphi 在windows服务程序里用idudpServer

chenyz634

我做了一个简单的系统服务程序，用了IdUdpServer的控件，客户端是IdUdpClient，当客户端发广播的时候，服务端OnRead收不到数据。但将服务器端改成了Application后，OnRead却可以接收到数据了。这是怎么回事啊？

comeheres

。。。问题都是复制的

chenyz634

comeheres 发表于 2014-2-27 19:11

                               
登录/注册后可看大图

。。。问题都是复制的

因为我确实也越到了这个问题。顺手把问题复制了一下。:lol:

chenyz634

不过现在问题自己解决了。

chenyz634

在客户端设置一下UDPClient的属性如下：
IdUDPClient1.Port := UDP_DEFAULT_PORT;
IdUDPClient1.Host := '255.255.255.255';
IdUDPClient1.BroadcastEnabled := True;
IdUDPClient1.Active := True;
然后就可以广播消息了
x[0] := $00;
  IdUDPClient1.SendBuffer(x,4);
在服务器端的execute里接收消息即可
PeerIP := ABinding.PeerIP;
  PeerPort:= ABinding.PeerPort;
  count := AData.Size;
  if count > Length(Buffer) then
  begin
    exit;
  end;
  AData.Read(Buffer, count);

595835881

来过了:lol:，楼主这东东太实用了

tlwangxd

1