lNet (FreePascal/Lazarus) : SendMessage 종료 후 연결 해제

Question

문제가 있습니다. "Client"라는 TLTCPComponent를 사용하고 있습니다. 서버 응용 프로그램이 연결을 받고있다

procedure TForm1.Create(Sender: TObject); 
begin 
    Client.Connect(ServerIP, Port); //ServerIP and Port are given... 
    Client.SendMessage('SomeText'); 
end; 

: 같은

코드가 보인다. 그런 다음 ''문자열을 수신하고 클라이언트와의 연결을 끊습니다. 나는 다음과 같은 시도하는 경우

는 :

procedure TForm1.Create(Sender: TObject); 
begin 
    Client.Connect(ServerIP, Port); //ServerIP and Port are given... 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Client.SendMessage('SomeText'); 
end; 

모든 것이 괜찮아. 서버는 클라이언트로부터 연결을 가져옵니다. 그리고 단추로 텍스트를 보내면 연결이 열려 있습니다.

문제는 다음과 같습니다. 여는 직후 텍스트를 보내면 연결이 닫히는 이유는 무엇입니까?

접견 감사, S-남자

Answer 1

솔루션 : 및 SendMessage 너무 빨리 온다. OnConnect 메서드를 호출해야합니다.