L
liboy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
打个比方,要做聊天程序,服务器端要不断的将聊天信息发到每个客户端,而且需要
解答客户端发来的数学题
====================================================================
看下面的客户端代码
通过时钟控件的执行,不断的将服务器发来的信息显示到聊天信息框里
procedure TForm1.Timer1Timer(Sender: TObject);
var Msg : String;
begin
Msg := IdTCPClient1.ReadLn('', 5); //5毫米读一次,为空则退出
memo1.Lines.Add(Msg);
end;
计算函数,客户端发出请求,服务器回答结果.
function TForm1.Calc(): String;
begin
IdTCPClient1.writeln( '1+1=' );
Result := IdTCPClient1.ReadLn; <<<<<问题所在,有可能返回的是聊天的信息
end;
问题是: 客户端单独执行两段代码都没有问题
如何能够同时执行两段代码而不相冲突呢?
请问大家有没有好的思路?
解答客户端发来的数学题
====================================================================
看下面的客户端代码
通过时钟控件的执行,不断的将服务器发来的信息显示到聊天信息框里
procedure TForm1.Timer1Timer(Sender: TObject);
var Msg : String;
begin
Msg := IdTCPClient1.ReadLn('', 5); //5毫米读一次,为空则退出
memo1.Lines.Add(Msg);
end;
计算函数,客户端发出请求,服务器回答结果.
function TForm1.Calc(): String;
begin
IdTCPClient1.writeln( '1+1=' );
Result := IdTCPClient1.ReadLn; <<<<<问题所在,有可能返回的是聊天的信息
end;
问题是: 客户端单独执行两段代码都没有问题
如何能够同时执行两段代码而不相冲突呢?
请问大家有没有好的思路?
]