delphi에서 tcp ip 연결을 만드는 동안 메시지를 읽을 수 없습니다

Question

로컬 컴퓨터 (127.0.0.1)에서 실행되는 exe가 있습니다. 이 exe는 포트 1234에 쓰고 5678에서 읽습니다. exe는 매번 50 초 후에 정수 값 1212, 4545, 6767 등을 씁니다. 그 정수 값을 읽고 표시하고 싶습니다. 그래서 Indy Client를 사용하여 그 목적을 달성했습니다. 나는 다음 코드 스 니펫을 개발했다.

IdTCPClient1.Port := 1234; //Set port to connect to 
IdTCPClient1.Host := '127.0.0.1'; //Set host to connect to 
IdTCPClient1.Connect; //Make connection 

sMsg := IdTCPClient1.Socket.ReadLn; //Read the response from the server 
ShowMessage(sMsg); 

하지만 독서가 아닙니다. 디버깅하는 동안이 줄에 걸리면 (SMSG : = IdTCPClient1.Socket.ReadLn)

나는이 텔넷 127.0.0.1 1234 일부 기타 또는 특수 문자 같은 텔넷 명령을 사용하여이 작업을 수행하려고 정기적 후에 표시됩니다 interval은 서버가 보내는 정수 값이 아닙니다.

해결 방법을 제안하십시오.

Answer 1

어디에 문제가 있는지 잘 모르겠습니다. 따라서 기본 인디 (Indy) 서버 및 클라이언트 응용 프로그램을 만들기위한 전체 예제를 게시하고 있습니다.

먼저 서버 응용 프로그램에 IdTCPServer 구성 요소와 버튼이 있습니다. 관련 속성은 다음과 같습니다

object Button1: TButton 
    Text = 'Listen' 
    OnClick = Button1Click 
end 
object IdTCPServer1: TIdTCPServer 
    DefaultPort = 1234 
    OnExecute = IdTCPServer1Execute 
end 

및 서버의 IdTCPServer.OnExecute 및 Button.OnClick 방법은 다음과 같습니다

procedure TServerForm.Button1Click(Sender: TObject); 
begin 
    IdTCPServer1.Active := not IdTCPServer1.Active; 
    if IdTCPServer1.Active then 
    Button1.Text := 'Close' 
    else 
    Button1.Text := 'Listen'; 
end; 

procedure TServerForm.IdTCPServer1Execute(AContext: TIdContext); 
var 
    Num: Integer; 
begin 
    while (IdTCPServer1.Active) and (AContext.Connection.Connected) do 
    begin 
    Num := Random(MaxInt); 
    AContext.Connection.IOHandler.WriteLn(IntToStr(Num)); 
    Sleep(1000); 
    end; 
end; 

당신이 볼 수 있듯이, 연결된 각 클라이언트에 대해, 우리는 루프를 입력 할 경우 각 초 의지 임의의 숫자 (문자열)를 소켓에 씁니다.

내가 서버를 실행하고 음악을 감상 할 수있는 버튼을 누르면, 열려있는 포트를 허용하도록 경고 방화벽을 받아들이고 나서 성공적으로 연결하고 텔넷을 통해이 서버에서 정보를 얻을 : 이제

클라이언트 응용 프로그램을 만들었습니다.

object Button1: TButton 
    Text = 'Connect' 
    OnClick = Button1Click 
end 
object Memo1: TMemo 
end 
object IdTCPClient1: TIdTCPClient 
    Host = 'localhost' 
    Port = 1234 
end 

과 코드는 다음과 같습니다 : 양식에

버튼, 메모 및 IdTCPClient, 관련 속성은

: 런타임시

procedure TClientForm.ReadResults; 
var 
    S: string; 
begin 
    while IdTCPClient1.Connected do 
    begin 
    S := IdTCPClient1.IOHandler.ReadLn; 
    Memo1.Lines.Add(S); 
    //don't repeat this approach in production code, it's just a test here 
    Application.ProcessMessages; 
    end; 
end; 

procedure TClientForm.Button1Click(Sender: TObject); 
begin 
    if IdTCPClient1.Connected then 
    begin 
    IdTCPClient1.Disconnect; 
    Button1.Text := 'Connect'; 
    end 
    else 
    begin 
    IdTCPClient1.Connect; 
    Button1.Text := 'Disconnect'; 
    Button1.Repaint; 
    ReadResults; 
    end; 
end; 

그것은 다음과 같습니다

프로젝트는 Delphi X가 포함 된 FireMonkey로 제작되었습니다. E3이지만, VCL에서도 Indy 10을 지원하는 Delphi 버전에서 작동해야합니다.