問題說明：由PC透過IdTCPClient去詢問機台的狀態，因為機台那邊韌體已經修改因此希望能有PC端軟體去詢問機台狀態    ，必須要詢問很多台機台，目前做法是用Thread+輪詢的模式，但是因為重複Client1.Connect;與Client1.Disconnect;造    成機台每次增加連線後記憶體都會被吃掉，吃光後機台連線部分就當機，想請教各位大大有什麼辦法能夠讓IdTCPClient元件不用重複連線 斷線 就能夠連結機台並且詢問資料。    

procedure TForm1.Button1Click(Sender: TObject);
begin
        MyThread(CTOC,Nil); //程式進入點
end;    end.    procedure TForm1.CTOC(Sender: TObject);
Var I,J:Integer;
begin
  J:= C_Count;  //紀錄有幾筆IP資料
  try
    //If C_Count<>0 then
    For I:=1 to J do
      begin
        NCC:=I; //Target
        Client1.CheckForGracefulDisconnect(False);
        Client1.Disconnect;
        Client1.Host:=C_ip[I]; //由陣列中取出IP
        Client1.Port:=3000;
        Client1.Connect;        
        View(!0022); //詢問機台狀態
        Client1.Disconnect;
      end;  
  except    
    
  end;    end;    Procedure TForm.View(S:String);
var X:string;
begin
    try                                       //尚未連線例外處理
      Client1.Write(s);                       //寫入TCP/IP 指令，寫入字串
      Client1.ReadFromStack(False,1,False);   //判斷是否有回應資料如果沒有則不讀取傳回數值
        While Client1.InputBuffer.Size>0 do
          Begin                               
            X:=Client1.ReadLn(#13);           
            Decoder(X);                       //將收到資料進行拆解
          End;    
    except                                      
      
    End;
End;    Procedure TForm.Decoder(S:string);  //將傳回值依照指令顯示
Var   sTmp:string;      
      Tmp:Integer;
Begin
  try
  sTmp:= S[2] S[3];  
  Case StrToInt(sTmp) of
      00: 
        begin
          Case Tmp of     //指令相對應處理
            0000: 
              Begin
                //處理1
              end;
            0001: 
              Begin
                //處理2
              end;
            0002: 
              Begin
                //處理3
              end;
          Else              end;
        end;
    end;
        except
                
        end;
End;

數學 程式 經驗=不懂^^

是否換個方式 一、改用 UDP ，沒有斷線問題。只是必需增加對傳送資料的檢查工作，以免資料傳輸不完整。在區域網路內，資料量又不大於一個封包時，幾乎不用考慮這樣的問題。 二、改用 UDP 廣播，TCP 傳回資料 PC 建立 UDPClient 及 TCPServer 機台建立 UDPServer 及 TCPClient PC 以 UDP 廣播通知機台，再由機台以TCP方式主動將內容傳到PC端。 這樣的架構，可以由PC主動發出通知，也可以由機台定時將資料回傳。 雙重保障 ^_^

謝謝您的回應，因為該架構已經用很多了年，要改變是不可能的，許多週邊都是依照此架構設計，因此只能想辦法由軟體去配合，感謝您提供的意見.....持續找解中。 數學 程式 經驗=不懂^^

如果一個機台配一個 IdTCPClient呢?? 因為你要換機台,所以IdTCPClient是一定要重複Connect, 還有,你有要求 IdTCPClient 處理速度嗎?? 換個方向,你把IdTCPClient裝在遠端機台,你目前改成收訊息的主機, 由遠端發送訊息,這端只收訊息, 由於架構不是很深入了解,所以只能提供這些方法...你就酌參...

感謝，找到解決辦法了，因為不知道將會有多少機台連接，因此將每各Thread配置一個IdTCPClient，原來就差這麼一點，感謝。 數學 程式 經驗=不懂^^

找到解決辦法了，因為不知道將會有多少機台連接，因此將每各Thread配置一個IdTCPClient，原來就差這麼一點，感謝。 數學 程式 經驗=不懂^^