Autor Beitrag
F.Art
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 434



BeitragVerfasst: Do 23.10.03 23:12 
Wie kann ich im WebBrowser folgenden iFrame anklicken lassen?

ausblenden Quelltext
1:
<iframe id='a7041872' name='a7041872' src='http://www.test/test.php?n=a7041872&what=zone:7763&target=_top' framespacing='0' frameborder='no' scrolling='no' width='120' height='60' allowtransparency='true'><a href='http://www.test/test.php?n=a7041872' target='_top'><img src='http://www.test/test.php?what=zone:7763&n=a7041872' border='0' alt=''></a></iframe>					


Ich benutze diesen Code normalerweise um Buttons per Webbrowser an klicken zu lassen

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 WebBrowser.Navigate('http://www.test.de');
 repeat
 Application.ProcessMessages;
 Sleep(0);
 until WebBrowser.ReadyState = READYSTATE_COMPLETE;
 Document:= WebBrowser.Document;
 WebBrowser.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDoc);
  ov:='INPUT';
  IDisp:=iDoc.all.tags(ov);
  IDisp.QueryInterface(IHTMLElementCollection,iColl);
  for i:=1 to iColl.Get_length do begin
   iDisp:=iColl.item(pred(i),0);
   iDisp.QueryInterface(IHTMLInputElement,iInputElement);
   iInputElement.Get_form.submit;
  end;