Delphi 7中 TIdUDPServer 的接收端怎么写代码？

[叽哥飞]

我在发送端写下这样的代码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, StdCtrls;

type
TForm1 = class(TForm)
IdUDPServer1: TIdUDPServer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdUDPServer1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.Send('10.95.162.165',2000,'123456');
end;

procedure TForm1.IdUDPServer1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
showmessage('received');
end;

end.

那接收端就应该怎样接收了？

[goease]

不是有OnUDPRead事件么？

[goease]

不过我建议不要用TIdUDPServer同时进行收发，有时候会不顶用。我一般只用它来接数据，发数据用别的

[天轶]

楼上正解，OnUDPRead事件就是。

[gdxg0762]

procedure TfrmDM.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var i, DataLen : Integer ; buf : array[0..1023] of Byte ; s : String ; begin DataLen := AData.Size ; if DataLen = 0 then Exit ; AData.ReadBuffer(buf,AData.Size) ; if (Chr(buf[0]) = '$') and (Chr(buf[1]) = '$') then OnReceiveData(@buf,DataLen);