unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, ExtCtrls, DBXNav, Grids, DBGrids, DB, DBClient,
  SimpleDS, SqlExpr, ComCtrls, StdCtrls, FMTBcd, IdBaseComponent,
  IdComponent, IdRawBase, IdRawClient, IdIcmpClient, ZConnection,
  ZAbstractRODataset, ZAbstractDataset, ZDataset, ZSqlUpdate, Provider,
  Gauges, Spin;    type
  Get_Ping = class(TThread)
  private
    FT_NO:Integer;
    FT_IP:String;
  protected
    procedure Execute; override;
  public
    Constructor Create(T_NO:Integer;T_IP:String);
    { Public declarations }
  end;
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    SDS1: TSimpleDataSet;
    DBGrid1: TDBGrid;
    DBXNavigator1: TDBXNavigator;
    DataSource1: TDataSource;
    Button1: TButton;
    SB1: TStatusBar;
    IdIcmpClient1: TIdIcmpClient;
    SQLQuery1: TSQLQuery;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Gauge1: TGauge;
    SpinEdit1: TSpinEdit;
    Button4: TButton;
    SpinEdit2: TSpinEdit;
    SDS1con_ip: TStringField;
    SDS1con_name: TStringField;
    SDS1con_type: TStringField;
    procedure T_Modify(S:String);
    procedure Get_Tab_Ip;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Chk_Ip;
    procedure IdIcmpClient1Reply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    C_id    : array[0..255] of Integer;
    C_ip    : array[0..255] of String;
    C_Count : Integer;
    Tm:Integer;
   public
    { Public declarations }
   end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    Constructor Get_Ping.Create(T_NO:Integer;T_IP:String);
begin
  inherited Create(False);
  FT_NO:=T_NO;
  FT_IP:=T_IP;
  FreeOnTerminate:= True;
end;    procedure Get_Ping.Execute;
Var JN:Integer;
begin
  IdIcmpClient1.ReceiveTimeout:=300;
  IdIcmpClient1.Host:=FT_IP;
  For JN:=1 to 2 do
    begin
      try
        IdIcmpClient1.Ping();
        Application.ProcessMessages();
      except          end;
    end;
end;    procedure TForm1.T_Modify(S:String);
begin
  With SQLQuery1 do
    begin
      SQL.Text:=S;
      ExecSQL(True);
    end;
end;    procedure TForm1.Get_Tab_Ip(); //讀取設定在controller資料表的IP位址
Var I:Integer;
begin
  With SQLQuery1 do
    begin
      Close;
      SQL.Text :='Select con_id,con_ip from controller ';
      Open;            //執行並且傳回資料
      //ExecSQL(True); //執行不傳回資料
      C_Count:= RecordCount;
      if RecordCount > 0 then
        begin
          For I:=1 to RecordCount do
            begin
              //C_id[I]:= FieldValues['con_id']; //指定欄名方式
              //C_ip[I]:= FieldValues['con_ip'];
              C_id[I]:= Fields.Fields[0].AsInteger;//指定位址方式
              C_ip[I]:= Fields.Fields[1].AsString;
              SQLQuery1.Next; //讀取下ㄧ筆紀錄
            end;
        end;
      Close;
    end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Tm:=0;
  Get_Tab_Ip;
  Timer1.Enabled:=True;
  Chk_Ip;
  SDS1.Refresh;
  Timer1.Enabled:=False;
  SB1.Panels[1].Text:='總花費時間：' IntToStr(Tm) '秒';      With SQLQuery1 do
    begin
      Close;
      SQL.Text:='select count(*) CON from controller where con_segment = 1';
      Open;
      SB1.Panels[2].Text:='上線機台數量：' IntToStr(FieldValues['CON']);
    end;    end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  C_Count:=0;
end;    procedure TForm1.Chk_Ip();
Var I,J:Integer;
begin
  For I:=1 to C_Count do
    begin
      IdIcmpClient1.ReceiveTimeout:=300;
      //IdIcmpClient1.Host:=C_ip[I];
      SB1.Panels[0].Text:='已處理筆數：' IntToStr(I);
      Gauge1.Progress:=(I*100) div C_Count; //處理進度
      {For J:=1 to 2 do
        begin
          try
            IdIcmpClient1.Ping();
            Application.ProcessMessages();
          except              end;
        end; }
       Get_Ping.Create(I,C_ip[I]);
    end;
end;    procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var SA:String;
begin
  if (AReplyStatus.FromIpAddress='0.0.0.0') and (AReplyStatus.TimeToLive = 0) then
    begin
        SA:= 'UPDATE controller SET con_segment = ''0'' WHERE con_ip = ' '"' AReplyStatus.FromIpAddress '"';
        T_Modify(SA);
    end else begin
        SA:= 'UPDATE controller SET con_segment = ''1'' WHERE con_ip = ' '"' AReplyStatus.FromIpAddress '"';
        T_Modify(SA);
    end;
    SDS1.Refresh;
end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Tm:=Tm 1;
end;    end.

錯誤訊息為 [Error] Unit1.pas(83): Undeclared identifier: 'IdIcmpClient1' [Error] Unit1.pas(83): Missing operator or semicolon 改成下面程式後私乎會產生其他問題 Get_Ping = class(TThread) private FT_NO:Integer; FT_IP:String; IdIcmpClient1: TIdIcmpClient; protected procedure Execute; override; public Constructor Create(T_NO:Integer;T_IP:String); { Public declarations } end; 請問有方法可以讓IdIcmpClient以Thread的方式去偵測網路IP嗎？ 數學 程式 經驗=不懂^^

1.第一個錯誤，因為IdIcmpClient1不是Get_Ping這個Thread類別的成員當然不能引用。 2.雖然將IdIcmpClient1改放入了Thread的成員內，但並沒有實體，記得要將其Create起來才可。他並不是像是放在FORM裏面的元件一樣，由FORM幫其建立實體，你是放在Thread類別裡，要自己建立實體，自己清除。 ---------------------------------------------- We will either find a way, or make one. -Hannibal -。