먼저 이 질문을 읽어 주시는 님께 감사드립니다.
Kylix2로 클라이언트(약 50대)에서 한 라인의 메시지를 서버로 보내면
서버는 보내온 메시지를 그대로 리스트박스에 출력하는 프로그램을 테스트 하고 있습니다.
사용된 프로시져는 아래에 있는게 전부 입니다.
윈도우에 이 서버 프로그램을 설치해서 테스트하면 클라이언트에서 보내온 메시지를
지연시간없이 바로 리스트박스에 뿌려주던데 리눅스에 설치하고 테스트하니까
클라이언트에서 보내온 메시지가 엄청 늦게 보여집니다.
운영체제에 따른 차이가 있는지 아님 다른 문제인지
고수님들의 조언 부탁드립니다. 꼭이요..
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
str: string;
begin
with AThread.Connection do
begin
str := ReadLn;
if SameText(str, 'bye') then
begin
Disconnect;
end
else if str <> '' then
begin
ListBox1.Items.Add(str);
end
end;
end;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Connection.WriteLn('하이!!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active := true;
end;
|