idtcpserver의 excute 부분에 아래처럼 단순 접속 클라이언트 정보를 memo에 뿌리는 경우입니다.
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
stTemp: String;
MSG: String;
begin
Memo1.Lines.Add('testestsetst');
stTemp := AContext.Connection.Socket.Binding.PeerIP;
MSG := AContext.Connection.IOHandler.ReadLn;
Memo1.Lines.Add(stTemp + ' : ' + MSG);
end;
어찌 하다가 2개의 프로그램을 작성하였는데 telnet client 연결시에
한 프로그램은 단 1줄로 클라이언트 접근을 표시하는데 다른 프로그램에서는
지속적으로 클라이언트 요청이 오는 것으로 표시가 됩니다. (스크롤 생기면서 위의 메세지가 쭈르륵...)
소스 코드 틀린것은 port뿐인데... 이유가 멀까요...
답변에 미리 감사드립니다.
|