IdUDPClient1.Send的问题 来者有分

[fbwt]

IdUDPClient1.Send('192.168.0.151',9880,'以送的内容');
为何点第二次发送时，就显示write of address 错误

[shanxmxj]

顶一下吧!!!

[zzlingaaa]

其他地方的问题吧,多贴一点相关代码看看

[JeffChung]

接分，帮顶

[fbwt]

procedure TfrmMain.Button3Click(Sender: TObject);
var
a:TIdUDPClient;
begin
a:= TIdUDPClient.Create(nil);
a.Active:=false;
a.Host:='192.168.0.151';
a.Port:=9880;
a.ReceiveTimeout:=500;
a.Active:=true;
a.Send('3|文档.doc');
delay(500);
a.Destroy;

end;

我第一次点击时，没有问题
第二次点击时,就出现了上面所述的错误！

[fbwt]

我这样设定，是为了
在向A机器发送信息后
还要向B机器发送信息！

procedure TfrmMain.Button3Click(Sender: TObject);
var
a:TIdUDPClient;
begin
a:= TIdUDPClient.Create(nil);
a.Active:=false;
a.Host:='192.168.0.151';
a.Port:=9880;
a.ReceiveTimeout:=500;
a.Active:=true;
a.Send('3 ¦文档.doc');

a.Active:=false;
a.Host:='192.168.0.152';
a.Port:=9880;
a.ReceiveTimeout:=500;
a.Active:=true;
a.Send('3 ¦文档.doc');


end;

[zzlingaaa]

点多少次都没出问题...-_-!!
发多台机器,这样不行吗,为什么要弄那么复杂?

var 
  a:TIdUDPClient;
begin
  a:= TIdUDPClient.Create(nil);
  a.Send('192.168.0.151', 9880, '151');
  a.Send('192.168.0.152', 9880, '152');
  a.Free;

[XT_CDC_GHB]

ok

[fbwt]

是呀！：）