Einzelnen Beitrag anzeigen

moe120

Registriert seit: 1. Okt 2012
Ort: Radeberg
34 Beiträge
 
Delphi XE6 Enterprise
 
#13

AW: Re: Button in Webbrowser Anklicken.......

  Alt 17. Feb 2014, 14:12
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.

Geändert von moe120 (17. Feb 2014 um 14:16 Uhr)
  Mit Zitat antworten Zitat