Einzelnen Beitrag anzeigen

VxDMon

Registriert seit: 28. Nov 2005
1 Beiträge
 
#1

TWebBrowser Button Automatisch drücken

  Alt 11. Mai 2006, 19:03
Hiho,
ich hab ein Problem und zwar will ich ein Button Automatisch drücken lassen in TWebBrowser das funktoniert mit den Code von shmia aus http://www.delphipraxis.net/internal...862&highlight= auch ganz gut wenn der Button ein "Namen" besitzt nun hab ich aber 3 Buttons die keinen Namen besitzten sondern nur unterschiedliche Value's haben dann habe ich versucht shmia's code so abzuändern das er auf die Value's zugreift bzw den Button mit der bestimmen Value drückt denn ich ihn gesagt habe aber leider klappt das nicht so ganz also der Code drückt denn Button nicht er macht einfach nichts.

-> HTML
Delphi-Quellcode:
<input type=button value=' Beispiel1 ' onClick='Action(this.form,1)'>
<input type=button value=' Beispiel2 ' onClick='Action(this.form,2)'>
<input type=button value=' Beispiel3 ' onClick='Action(this.form,3)'>
So sehen die Buttons aus ich will nun das der zweite Button mit der Value " Beispiel2 " geklickt wird
mit den Code von shmia geht es nicht auch wenn ich das abändern tue so das es eigentlich gehen müsste.

-> shmia's Code
Delphi-Quellcode:
procedure SubmitWebForm(webform:OleVariant);
var
   i : Integer;
   formitem : OleVariant;
   itemtype, itemname : string;
begin
   // Schleife über alle Items eines WebFormulars
   For i:= webform.Length-1 downto 0 do
   begin
      formitem := webform.Item(i);
      itemtype := UpperCase(formitem.Type);
      itemname := UpperCase(formitem.Name);

      // if it's a submit button: click it
      if itemtype = 'SUBMITthen
      begin
         formitem.Click;
         Exit;
      end
      else if (itemtype='BUTTON') and (itemname='SUBMIT') then
      begin
         formitem.Click;
         Exit;
      end
   end;

   // try default submit Method
   webform.submit;
end;

// erstes Formular abschicken
SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));
Ich hoffe es kann mir wer Helfen.

//EDiT
Habe es nun selber hingekriegt

mfg, VxDMon
  Mit Zitat antworten Zitat