Einzelnen Beitrag anzeigen

waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

Threads zur Anzeige, dass WebSite noch geladen wird

  Alt 4. Jul 2010, 12:33
Hallo,

über ein JvThread zeige ich an, dass eine Seite im TWEbBrowser noch nicht fertig geladen ist.

Im Ersten Aufruf funktioniert dies auch wunderbar. Sobald ich aber dieses Thread bei einem erneuten Navigate aufrufe friert mein Programm ein. (Ein Terminate im
Was mach ich falsch ??

Delphi-Quellcode:
  WebBrowser1.Navigate('http://www.mywebsitelogin.com');
  JvThreadLogin.Execute(Self);
  WebBrowser1.Navigate('http://www.mywebsitelogin.com/test/test.php');
  JvThreadLogin.Execute(Self);


Delphi-Quellcode:
procedure TForm.JvThreadLoginExecute(Sender: TObject; Params: Pointer);
begin
  repeat
    Application.ProcessMessages;

  until (WebBrowser1.ReadyState = READYSTATE_COMPLETE) or (Application.Terminated);;
  JvThreadLogin.Terminate;
  If JvThreadLogin.Terminated then exit;


end;
mfg wf

Geändert von mkinzler ( 4. Jul 2010 um 12:37 Uhr) Grund: Code-Tags durch Delphi-Tags ersetzt
  Mit Zitat antworten Zitat