begin
Web.navigate('
http://xyz.de/');
if warten
then
begin
Web.OleObject.Document.Frames.item('
mainframe').Document.Forms.item(0).Elements.item('
login').value:='
user';
Web.OleObject.Document.Frames.item('
mainframe').Document.Forms.item(0).Elements.item('
pass').value:='
pw';
showmessage(inttostr(Web.OleObject.Document.Images.Length));
// ergebnis: 0
end;
end;
function TForm1.warten:boolean;
begin
repeat
Sleep(50);
Application.ProcessMessages;
until (b_web_f=true)
or (Application.Terminated);
b_web_f:=false;
result:=true;
end;
procedure TForm1.WebDocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
begin
b_web_f:=false;
CurWebrowser := pDisp
as IWebBrowser;
TopWebBrowser := (ASender
as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser
then
begin
b_web_f:=true;
showmessage('
haupt');
end
else
begin
// showmessage('sub');
end;
end;