Indy的IdTCPClient怎么用的？

[nevergetwin]

连接上服务器后，接收到服务器消息后会触发什么事件？
怎么接收服务器数据？
我就想实现一个简单的TCP通信的客户端的代码，哪位能提供一下，谢谢！

[oushengfen]

不会有什么消息,要自己去读,判断.
这样的例子,网上多的是啊,自带的也有,自己去看啊

[lyguo]

IdTCPClient.connect
IdTCPClient.sendbuffer(@.,sizeof())

[lyguo]

TcpClient.host:='**.**.**.**';
TcpClient.port:=****;
TcpClient.Connect(300);
...

[fangsp]

if CBClientActive.Checked = true then
begin
for i := 0 to strtoint(Edit_ClientNum.text) - 1 do
begin
tcpClient[i] := TIdTCPClient.Create(self);
// tcpClient[i].Host := '192.168.0.54';
//tcpClient[i].Port := 5000;

end;
try
for i := 0 to strtoint(Edit_ClientNum.text) - 1 do
begin
if (Edit2.Text<>'') and (Edit3.Text<>'') then
begin
try
tcpClient[i].Host:=Edit2.Text;
tcpClient[i].Port:=strtoint(Edit3.text);
tcpClient[i].Connect(); // in Indy < 8.1 leave the parameter away
GetValue(i);
AppendTreeList(RecordList);
ProgramDelay(10);
except
end;
end;
end;
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
except
on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
end;
end
else
begin
ClientHandleThread.Terminate;
//Client.Disconnect;
end;

//ButtonSend.Enabled := Client.Connected;
//CBClientActive.Checked := Client.Connected;

这是连接的一个问题 你看看
如果还不能解决 在给代码
记得给分喽

[fangsp]

触发的是OnConnected事件

[shuihan20e]

建议看下indy带的DEMO

[nevergetwin]

我怎么看不见回复呢？显示回复6次，但是打开却显示回复次数：0，什么都没有！？

[nevergetwin]

怎么接收服务端数据？我要代码，谢谢