请教DELPHI自带的例子 NETCHAT的问题(50分)

  • 主题发起人 主题发起人 asiancat
  • 开始时间 开始时间
A

asiancat

Unregistered / Unconfirmed
GUEST, unregistred user!
// create thread
DataThread:= TClientDataThread.Create(true);
// set the TagetList to the gui list that you
// with to synch with.
DataThread.TargetList := memRecv.lines;
// Load the Threads ListBuffer
DataThread.ListBuffer.Add('*** Connection Accepted ***');
DataThread.ListBuffer.Add('Remote Host: ' + ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
' (' + ClientSocket.RemoteHost + ')');
DataThread.ListBuffer.Add('===== begin
message =====');
s := ClientSocket.Receiveln;
while s <> ''do
begin
DataThread.ListBuffer.Add(s);
s := ClientSocket.Receiveln;
end;
DataThread.ListBuffer.Add('===== End of message =====');
// Call Resume which will execute and synch the
// ListBuffer with the TargetList
DataThread.Resume;
2个问题:
1,这个例子里面是客户端向服务端发消息,如果服务端要返回消息应该如何做?
2,如果程序写的复杂些,同时有10个客户端向服务端发消息,服务端是每接受到一个消息就创建一个进程,还是消息在队列里面自动排列呢?
请大家点拨,谢谢
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
757
import
I
S
回复
0
查看
937
SUNSTONE的Delphi笔记
S
后退
顶部