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

用Socket參數替換ServerSocket1.Socket並再次測試。刪除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;