delphi IdUdpclient 给服务器发送消息，返回的是TLclient的问题

[lam_lau]

IdUdpclient 向服务器发送消息后，服务器返回消息给客户端，代码如下：
with IdUDPClient1 do
begin
Host := '192.168.0.18';
Port := 3000;
Send('GET_DATE_LIST');
s := ReceiveString();
ShowMessage(s);
end;
但是返回的不是服务器的数据字符串，本应该返回“Result line1，line2”，但是一直返回的确实TLclient，这个是什么问题，如何解决呢？
若如下代码：
with IdUDPClient1 do
begin
Host := '192.168.0.18';
Port := 3000;
Send('GET_DATE_LIST');
ReceiveBuffer(buf,-1);
ShowMessage(StringOf(buf));
end;
报错"Range check error";
客户端应该如何发送数据后，接受服务器返回的消息呢？

[LastAvengers]

Repeat s := ReceiveString(); until s <> 'TLclient'; showmessage(s);

[lam_lau]

引用 1 楼 LastAvengers 的回复:

Repeat s := ReceiveString(); until s <> 'TLclient'; showmessage(s);

用这个方法试了一下，仍然返回TLCLINET，求解中...

[lam_lau]

引用 3 楼 LastAvengers 的回复:

[quote=引用 2 楼 lewlin2008 的回复:] [quote=引用 1 楼 LastAvengers 的回复:] Repeat s := ReceiveString(); until s <> 'TLclient'; showmessage(s);

用这个方法试了一下，仍然返回TLCLINET，求解中...[/quote] 呃……这个帖子过去很久了不是吗[/quote]是啊，但是目前还没有解决到，现在我在想是不是因为发送端口和接受端口不一致的原因出现无法接受服务器正确返回的信息？？

[LastAvengers]

引用 2 楼 lewlin2008 的回复:

[quote=引用 1 楼 LastAvengers 的回复:] Repeat s := ReceiveString(); until s <> 'TLclient'; showmessage(s);

用这个方法试了一下，仍然返回TLCLINET，求解中...[/quote] 呃……这个帖子过去很久了不是吗

[lam_lau]

解决问题了，接受的时候指定接受端口就ok了！