Problem beim Buttonklick auf HP vom Programm aus

[MrMyagi]

Moin, und zwar möchte ich mit meinem Programm auf einer Homepage einen Button klicken,
leider kommt es dabei immer zu einen Fehler.(Es soll der Button "status" angeklickt werden

Homepage Quelltcode (vllt falsche Button Id übernommen??):






<DIV id=startseite>&gt;&gt;Startseite</DIV></p>


<DIV id=status onclick=gotosite("/html/top_status.htm") onmouseover=rahmen("status",1) onmouseout=rahmen("status",0)>&gt;&gt;Status</DIV></p>


<DIV id=budget onclick=gotosite("/html/top_budget.htm") onmouseover=rahmen("budget",1) onmouseout=rahmen("budget",0)>&gt;&gt;Budget</DIV></p>
</td>


Der geschriebene Delphicode sieht dazu so aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://192.168.2.1/');
  repeat
  Application.ProcessMessages;
  until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
  WebBrowser1.OleObject.document.forms.item(0).elements.item('status').click;
end;

Ich hoffe Ihr könnt mir das Problem sagen.



mfG, Nico

[marabu]

Hallo Nico,

ein Fehler ist immer ärgerlich, aber solange du den Fehler nicht mitteilst, bleibst du weitgehend auf dich gestellt.

In dem HTML-Fragment, welches du zeigst, sehe ich keine Form - also würde ich es so versuchen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  vDoc, vForm, vElem: OleVariant;
begin
  WebBrowser1.Navigate('http://192.168.2.1/');
  repeat
    Application.ProcessMessages;
  until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
  vDoc := WebBrowser1.OleObject.document;
  vElem := vDoc.getElementById('status');
  if VarIsNull(vElem)
    then ShowMessage('Element "status" not found')
    else vElem.click;

Getippt und nicht getestet.

Grüße vom marabu