M
meme258
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi做的小程序长时间运行，就无响应了！<br>主要就是一个Webbrowser 不停的刷新3个网页，有的时候几个小时就无响应了，有的时候几天没响应。<br>新手求救。。。。 。。。<br><br>unit Unit1;<br><br>interface<br><br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls,inifiles,shellapi, ExtCtrls;<br><br>type<br> TForm1 = class(TForm)<br> WebBrowser1: TWebBrowser;<br> GroupBox1: TGroupBox;<br> GroupBox2: TGroupBox;<br> Edit1: TEdit;<br> Edit2: TEdit;<br> Edit3: TEdit;<br> Button1: TButton;<br> Button2: TButton;<br> Button3: TButton;<br> StatusBar1: TStatusBar;<br> Label1: TLabel;<br> Edit4: TEdit;<br> Button4: TButton;<br> Timer1: TTimer;<br> Label2: TLabel;<br> Label3: TLabel;<br> Button5: TButton;<br> Button6: TButton;<br> procedure Button1Click(Sender: TObject);<br> procedure Button4Click(Sender: TObject);<br> procedure Timer1Timer(Sender: TObject);<br> procedure Button5Click(Sender: TObject);<br> procedure Button6Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> procedure Button3Click(Sender: TObject);<br> procedure FormCreate(Sender: TObject);<br> procedure FormDestroy(Sender: TObject);<br> function CheckThreadFreed(aThread: TThread): Byte;<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br> i,zti:integer;<br><br>implementation<br><br>uses Unit2, Unit3;<br>var<br> myinifile: TInifile;<br> //timThread:timeThread;<br> //id1,id2,id3:string;<br>{$R *.dfm}<br><br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> tOne : cThread;<br>begin<br> zti := 1;<br> tOne := cThread.Create(false);<br> //WebBrowser1.Navigate(edit1.Text);<br>end;<br><br>procedure TForm1.Button4Click(Sender: TObject);<br>begin<br> timer1.Enabled :=true;<br> label2.Caption := '开始';<br><br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>begin<br> application.HandleMessage;<br> //timThread := timeThread.Create(false);<br> if webbrowser1.LocationURL = '' then<br> begin<br> timer1.Enabled := false;<br> label2.Caption := '采集未运行' ;<br> exit;<br> end;<br> if pos('collectpagenum=' + edit4.Text ,webbrowser1.LocationURL) <> 0 then<br> begin<br> webbrowser1.Navigate(edit1.text);<br> end;<br><br> label3.Caption := IntToStr(i) ;<br> i := i+1;<br> statusbar1.Panels.Items[1].Text := webbrowser1.LocationURL;<br> if webbrowser1.Busy = false then<br> webbrowser1.Refresh;<br><br> //showmessage('s');<br> // showmessage(webbrowser1.LocationURL);<br> <br>end;<br><br>procedure TForm1.Button5Click(Sender: TObject);<br>begin<br> timer1.Enabled := false;<br> label2.Caption := '停止' ;<br>end;<br><br>procedure TForm1.Button6Click(Sender: TObject);<br>begin<br> webbrowser1.Stop;<br> timer1.Enabled := false;<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br> tTwo : cThread;<br>begin<br> zti := 2;<br> tTwo := cThread.Create(false);<br> //WebBrowser1.Navigate(edit2.Text);<br>end;<br><br>procedure TForm1.Button3Click(Sender: TObject);<br>var<br> tThere : cThread;<br>begin<br> zti := 3;<br> tThere := cThread.Create(false);<br> //WebBrowser1.Navigate(edit3.Text);<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> filename: string;<br>begin<br> filename := ExtractFilePath(paramstr(0)) + '1.ini';<br> MyINIFile := TINIFile.Create(filename);<br> edit1.Text := myinifile.readstring('url', 'url1', '');<br> edit2.Text := myinifile.readstring('url', 'url2', '');<br> edit3.Text := myinifile.readstring('url', 'url3', '');<br> button1.Caption := myinifile.readstring('an', 'an1', '');<br> button2.Caption := myinifile.readstring('an', 'an2', '');<br> button3.Caption := myinifile.readstring('an', 'an3', '');<br> MyINIFile.Free;<br> // id1:= myinifile.readstring('id', 'id1', '');<br> //id2:= myinifile.readstring('id', 'id2', '');<br> // id3:= myinifile.readstring('id', 'id3', '');<br>end;<br><br>procedure TForm1.FormDestroy(Sender: TObject);<br>begin<br><br> //shellexecute(handle,'open',pchar('http://www.tomzw.com'),nil,nil,sw_show);<br>end;<br><br><br>function TForm1.CheckThreadFreed(aThread: TThread): Byte;<br>var <br> i: DWord; <br> IsQuit: Boolean; <br>begin <br> if Assigned(aThread) then <br> begin <br> IsQuit := GetExitCodeThread(aThread.Handle, i); <br> if IsQuit then //If the function succeeds, the return value is nonzero. <br> //If the function fails, the return value is zero. <br> begin <br> if i = STILL_ACTIVE then //If the specified thread has not terminated, <br> //the termination status returned is STILL_ACTIVE. <br> Result := 1 <br> else <br> Result := 2; //aThread未Free，因为Tthread.Destroy中有执行语句 <br> end <br> else <br> Result := 0; //可以用GetLastError取得错误代码 <br> end <br> else <br> Result := 3; <br>end;<br><br>end.<br>===============================================================================<br><br>unit Unit2;<br><br>interface<br><br>uses<br> Classes;<br><br>type<br> cThread = class(TThread)<br> private<br> { Private declarations }<br> protected<br> procedure Execute; override;<br> procedure UpdateCaption;<br> end;<br><br>implementation<br><br>uses Unit1;<br><br>{ Important: Methods and properties of objects in visual components can only be<br> used in a method called using Synchronize, for example,<br><br> Synchronize(UpdateCaption);<br><br> and UpdateCaption could look like,<br><br> procedure cThread.UpdateCaption;<br> begin<br> Form1.Caption := 'Updated in a thread';<br> end; }<br><br>{ cThread }<br><br>procedure cThread.Execute;<br>begin<br> { Place thread code here }<br> FreeOnTerminate := True;<br> Synchronize(UpdateCaption);<br> form1.Caption := '采集线程在运行';<br>end;<br><br>procedure cThread.UpdateCaption;<br>begin<br> case zti of<br> 1:form1.WebBrowser1.Navigate(form1.Edit1.Text);<br> 2:form1.WebBrowser1.Navigate(form1.Edit2.Text);<br> 3:form1.WebBrowser1.Navigate(form1.Edit3.Text);<br> end; <br>end;<br><br>end.