TServerSocket 및 TClientSocket

Question

이 코드를 사용하여 데이터를 알립니다. 하지만 작동하지 않습니다. 도와 주실 수 있습니까?

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; 
    Socket: TCustomWinSocket); 
var 
    i:integer; 
    sRec : string; 
begin 
    for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do 
    begin 
    with ServerSocket1.Socket.Connections[i] do 
    begin 
     sRec:=ReceiveText; 
     if sRec <> '' then 
     begin 
     if RemoteAddress='192.168.0.1' then 
     begin 
      if ReceiveText='1' then 
      Btn1.Color:=clNavy; 
      ADOQuery1.Active:=True; 
     end; 
     if RemoteAddress='192.168.0.1' then 
     begin 
      if ReceiveText='2' then 
      Btn1.Color:=clRed; 
      Pnl1.Visible:=True; 
     end; 
     end; 
    end; 
    end; 
end; 

Answer 1

ServerSocket1.Socket을 Socket param으로 바꾸고 다시 테스트하십시오. for 루프를 제거하는 방법

Answer 2

모든 클라이언트가 데이터를 보낼 때마다 TServerSocket.Socket.Connections 목록에서 모든 클라이언트 연결을 읽으려고합니다. 대신 이벤트가 제공하는 TCustomWinSocket 매개 변수를 사용해야합니다. 그것은 데이터를 보내는 정확한 클라이언트를 알려줍니다.

코드에 다른 논리 오류도 있습니다.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
var 
    sRec : string; 
begin 
    sRec := Socket.ReceiveText; 
    if sRec <> '' then 
    begin 
    if Socket.RemoteAddress = '192.168.0.1' then 
    begin 
     if sRec = '1' then Btn1.Color := clNavy; 
     ADOQuery1.Active := True; 
     if sRec = '2' then Btn1.Color := clRed; 
     Pnl1.Visible := True; 
    end; 
    end; 
end; 

을 아니면 이런 식으로 뭔가 더 의미 :

대신이 시도?

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
var 
    sRec : string; 
begin 
    sRec := Socket.ReceiveText; 
    if sRec <> '' then 
    begin 
    if Socket.RemoteAddress = '192.168.0.1' then 
    begin 
     if sRec = '1' then begin 
     Btn1.Color := clNavy; 
     ADOQuery1.Active := True; 
     end 
     else if sRec = '2' then begin 
     Btn1.Color := clRed; 
     Pnl1.Visible := True; 
     end; 
    end; 
    end; 
end;