用indy9控件写聊天程序，信息发送有关问题

2014-01-13

用indy9控件写聊天程序，信息发送问题我是初学者，我用idtcpclient和idtcpserver写客户端和服务器，用writeln

用indy9控件写聊天程序，信息发送问题
我是初学者，我用idtcpclient和idtcpserver写客户端和服务器，用writeln和readln进行客户端和服务器的通信。客户端向服务器发的信息，服务器能接收，服务器向客户端发的消息，客户端就收不到。这是为什么？还有所有客户端都是相同的，怎么实现与固定的客户端通信？就像QQ一样，与特定好友聊天，这是服务器的功能吗？服务器怎么区分不同的客户端？客户端接收代码

procedure TForm3.Button3Click(Sender: TObject);
begin
with IdTCPClient1 do
begin
try
if Connected then
Listbox1.Items.Text:=IdTCPClient1.ReadLn;
finally
IdTCPClient1.Disconnect;
end;
end;

客户端发送代码

begin
idTCPClient1.Connect();
idTCPClient1.WriteLn(Edit1.Text);
idTCPClient1.Disconnect;
end;

服务器接收和发送代码

procedure TForm1.IdTCPServer2Execute(AThread: TIdPeerThread);
var
name:string;
begin
name:=AThread.Connection.Readln();
memo1.Lines.Add(name);
Listbox1.Items.Add(name);
AThread.Connection.Writeln(Listbox1.Items.Text);
end;

聊天工具 Delphi indy9 idtcp
[解决办法]
给你个小例子，回去自己借鉴一下吧
留下信箱

热点排行

.NET

用indy9控件写聊天程序，信息发送有关问题