急！！！使用UDP通讯时报错：Socket Error # 10049

[lifengguo]

以前很少写delphi程序，我现需要向一服务器发送一连串字符串，服务器会根据我发送的字符串分类返回一字符给我，我在Timer1的OnTime事件写了发送程序：(Timer1在程序启动就激活了,Enabled=true)

SendStr:='ABCD';
IdUDPClient1.Active:= true;
IdUDPClient1.port:=2003;
IdUDPClient1.Send(SendStr);


procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
var
ReciveStr:string;
Data:TStringList;
begin
Data := TStringList.Create;
adata.seek(0,0);
setlength(ReciveStr,adata.size);
adata.Read(ReciveStr[1],adata.size);
if ReciveStr<>'' then
begin


end;
end;

服务器IP为:192.168.116.72
IdUDPClient的属性设置如下：Host:192.168.116.72，Active=true
IdUDPServer的属性设置如下：Bindings:192.168.116.72:2003，DefaultPort:2003，Active=true

当 IdUDPServer 的Active=false就不会报错了......

报的错误：Socket Error # 10049 Cannot assign requested address.

在本机调试通过（127.0.0.1）,急啊，各位帮帮我吧，谢谢！

[jadeluo]

Client端:
SendStr:='ABCD';
IdUDPClient1.Host := '192.168.116.72'; //加上这一行试试
IdUDPClient1.Port := 2003;
IdUDPClient1.Active := True;
IdUDPClient1.Send(SendStr);

[forestry98]

IdUDPServer的属性设置
Bindings:这里应该留空
或者用
Bindings.Clear; 方法清空