Newsgroups : Borland : borland.public.delphi.internet.winsock : 2006 Jan : TIdTCPClient read delay

www.cryer.info
Managed Newsgroup Archive

TIdTCPClient read delay

Subject:TIdTCPClient read delay
Posted by:"supaul" (qzwus..@163.com)
Date:Tue, 17 Jan 2006 14:03:25

I build a client/server program, use TIdTCPServer in Server and use
TIdTCPClient in Client, as fllowing:
--------------------------------------------------
Server: in on execute event, i write some codes
TIdTCPServer.OnExecute(AThread: ...)
var
  I: Integer;
begin
  I:= AThread.Connection.ReadInteger;
  I:= 10;
  AThread.Connection.WriteInteger(I);
  I:= 20;
  AThread.Connection.WriteInteger(I);
end;

Client: in a button's click event

OnButtonClick(Sender: TObject)
var
  I: Integer;
begin
  I:= 10;
  TCPClient.WriteInteger(I);
  I:= TCPClient.ReadInteger;

  //the following line has some error
  I:= TCPClient.ReadInteger;
end;
-------------------------------------------------------------
while my server app and client app run in the same computer, the line in
codes mark with red will run normal, and speed is fast. But while server app
and client app run in two computers, client app will delay(the line mark
with red in codes), please tell me how to solve this problem?

Replies:

www.cryer.info
Managed Newsgroup Archive