Button in Webbrowser Anklicken.......

[moe120]

Zitat von Paul0703:

Ich denke schon, hier der Auszug aus dem Quelltext:
type="submit" value="Runterladen!"

value ist doch auch ok, es muss nicht unbedingt das Feld <name> sein.

man kann es in diesem Fall so machen:

Delphi-Quellcode:

procedure cast_click_on_button(webbrowser: TWebBrowser; btn_text: String);
var
  ovElements: OleVariant;
  i: Integer;
  s1, s2, s3: String;
begin

  ovElements := WebBrowser.OleObject.Document.forms.item(0).elements;

  for i := 0 to (ovElements.Length - 1) do begin
    s1:= ovElements.item(i).tagName;
    s2:= ovElements.item(i).type;
    s3:= ovElements.item(i).Value;
    if (s1.ToUpper = 'INPUT') and
      (s2.ToUpper = 'SUBMIT') and
      (s3.ToUpper = btn_text.ToUpper) then
      ovElements.item(i).Click;
  end;

end;

Aufruf dann: cast_click_on_button(WebBrowser1, 'was_bei_value_halt_drinsteht');



p.s. Beitrag zwar schon älter aber es stand noch keine funktionierende Lösung drin was hiermit erledigt sein sollt.