怎样用idTCPClient连接上服务器?

[soasoa]

正在做什么聊天程序，可是不知道怎么连接上服务器，哪位教一下。
那接收消息怎么样实现呢。

[crbb]

indy有现成的例子可以看的..

[soasoa]

有没有简单一点的例子，传一上小的聊天程序给小弟看一下，老是出问题这边

[2312]

look it(indy Demo),it's easy!good luck!

[firetop818]

procedure TForm1.btnConnectClick(Sender: TObject);
begin
IdTcpClient.Host:= EdtHost.Text; //服务器名
IdTcpClient.Port:= StrToInt(EdtPort.Text); //连接的端口
LbLog.Items.Add('正在连接 ' + EdtHost.Text+ '...');
With IdTcpClient do
begin
try
Connect();
try
LbLog.Items.Add(ReadLn());
except
LbLog.Items.Add('服务器无响应,请稍后再连接!');
IdTcpClient.Disconnect();
end;
except
LbLog.Items.Add('与服务器'+ EdtHost.Text + '无法建立连接!');
end;
end;
end;

[soasoa]

那服务器端的连接呢？
发送与及接收消息怎么样实现呢

[weige250]

connect()连接