＋设为首页 ＋添加到收藏夹
我在给对方机子发送消息的时候，为什么会马上触发NMUDP的接收事件，这样系统就提示出错。以下是发送程序：
procedure TForm2.OnOff(TmpStr: string);
var
MyStream:TMemoryStream;
i:integer;
begin
NMUDP1.ReportLevel := Status_Basic;
MyStream:=TMemoryStream.Create;
MyStream.Write(TmpStr[1],Length(Trim(TmpStr)));
for i:=0 to ListView1.Items.Count-1 do
begin
NMUDP1.RemoteHost:=ListView1.Items[i].Caption;
NMUDP1.SendStream(MyStream);
end;
MyStream.Free;
end;
你不是做了一个循环发送UDP消息吗？是不是自己也在里头？为什么不只发一个？
