delphi7 udpsocket的問題

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  strarr:array[0..1000] of char;
  Str:string;
  len:integer;
begin
  Str:=Edit2.Text;
  if length(str)=0 then len:=1 else len:=length(str);
  UdpSocket1.RemoteHost:= '127.0.0.1';
  UdpSocket1.RemotePort:='888';
  StrpCopy(strarr, str);
  UdpSocket1.SendBuf(strarr,len);
end;procedure TForm1.UdpSocket1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
var
  str:array[0..1000] of char;
begin
  str:='';
  UdpSocket1.ReceiveBuf(str,DataLen);
  Memo1.Lines.Add(str);
end;为什么接收不到数据,receive事件没有触发,怎样才能触发该事件?请高手指点!

Answer 1

赶紧换个控件，这个控件是公认的不好用，用IdUDPServer和IdUDPClient