also ich hab nun nochmal ne ganze weile rumprobiert
und mittlerweile echt genervt von dem kram =(
Delphi-Quellcode:
procedure TMyThreads.Execute();
var
WebBrowser: TWebBrowser;
begin
OleInitialize(nil);
WebBrowser:= TWebBrowser.Create(nil);
with WebBrowser do
try
Navigate('http://www.google.com');
while ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
OleObject.document.forms.item(0).elements.item('q').value:='test';
OleObject.Document.Forms.item(0).submit;
except
end;
FreeAndNil(WebBrowser);
OleUninitialize;
end;
Der Aufruf von Application.ProcessMessages; funktioniert in
dem Thread nicht und mit einer Delay Funktion aus diesem
Forum wird die while Schleife nie verlassen.
der Ansatz mit Hilfe von ReadyStats <> Readystats_Complete klingt ja
vielversprechend, aber wie kann damit im besagten Thread
auf ein positives Ergebnis warten bzw wie kann man Delphi
veranlassen auf das Eintreten des OnDocumentComplete Events zu warten.