如何將IdIcmpClient在Thread架構中實作 |
答題得分者是:Stallion
|
juneo
高階會員 發表:103 回覆:190 積分:118 註冊:2004-05-13 發送簡訊給我 |
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嗎? 數學 程式 經驗=不懂^^ |
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
1.第一個錯誤,因為IdIcmpClient1不是Get_Ping這個Thread類別的成員當然不能引用。
2.雖然將IdIcmpClient1改放入了Thread的成員內,但並沒有實體,記得要將其Create起來才可。他並不是像是放在FORM裏面的元件一樣,由FORM幫其建立實體,你是放在Thread類別裡,要自己建立實體,自己清除。 ----------------------------------------------
We will either find a way, or make one. -Hannibal -。
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |