BUtton auf webseite drücken!

**la.reunion**

Hey, ich habe mich schoneinmal schlau gemacht über den TWebBrowser jedoch bekomme ich es nciht hin enen BUtton zu drücken.

Als beispiel mal diese seite

http://26b8tmm1ru.rapidsafe.de/

Wie kann ich da den free Button drücken?

Thx for help.

PS Ja ich habe die forum suche schon benutzt bin aus den beiträgen aber nciht schlau geworden.

**konda**

vielleicht hilft idr das weiter:

http://www.delphipraxis.net/internal...button+website

**la.reunion**

Danke für die antwort!

Aber ich peil das immernoch nicht wo ich den "free" button definieren muss

....

Das der bisherige code er funktioniert aber nicht was amche ich falsch

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

begin

WebBrowser1.Navigate(Edit1.Text);

end;

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 = 'SUBMIT' then

      begin

         formitem.Click;

         Exit;

      end

      else if (itemtype='BUTTON') and (itemname='Free') then

      begin

         formitem.Click;

         Exit;

      end

   end;

   // try default submit Method

   webform.submit;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

   i : Integer;

   formitem : OleVariant;

   itemtype, itemname : string;

begin

if (itemtype='BUTTON') and (itemname='Free') then

      begin

         formitem.Click;

         Exit;

      end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));

end;

end.

Ich würde sagen du solltest das was im Edit1Change steht in das OnCLick-Ereignis des Buttons einfügen und das was im ButtonClick derzeit drinsteht ist IMHO völlig nutzlos.

**la.reunion**

Wa shabn ich da fürn müll geschrieben mit dem onchange ? Naja ich habe den code nun

zusammenfalten · markieren

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 = 'SUBMIT' then

      begin

         formitem.Click;

         Exit;

      end

      else if (itemtype='BUTTON') and (itemname='Free') then

      begin

         formitem.Click;

         Exit;

      end

   end;

   // try default submit Method

   webform.submit;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0)); 

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Webbrowser1.Navigate(Edit1.TExt);

end;

end.

so bekomme ich aber bei

For i:= webform.Length-1 downto 0 do
eine Zugriffsverletztung!

Unter JavaScript funktioniert das was du vor hast mit
Document.Forms[0].Submit ();

Wenn ich mich nicht irre funktioniert das auf ähnliche Weise auch in Delphi:
WebBrowser1.OleObject.Document.Forms.Item (0).Submit ();

Siehe auch hier:

http://www.delphipraxis.net/internal...ghlight=mshtml

**la.reunion**

Danke für deine Hilfe

ist das dann so richtig?

WebBrowser1.OleObject.Document.Forms.Item (0).Submit ('Free');

ABer das funktioniert nicht!

Nimm das Free raus. Du könntest auch die Klammern theoretisch weglassen.
Also nur submit () oder submit
Beim Absenden des Formulars wird nicht direkt der Button angesprochen sondern es wird einfach das Formular abgesendet. submit = absenden

Wenn du mehrere Formulare hast kannst du sie auch mit Namen ansprechen. Einfach bei Forms(0) den Namen angeben. Also Forms('loginform') oder auch die laufende Nummer des Formulars.

markieren

Code:

			<html>

<head>

...

</head>

<body>

...

<form name="formular1" action="login.php" method=get >

<input type=text name="Eingabefeld1">

<input type=submit name="Absenden">

</form>

<form name="formular2" action="login.php" method=get >

<input type=text name="Eingabefeld2">

<input type=submit name="Absenden">

</form>

...

</body>

</html>

markieren

Code:

			Erstes Formular absenden:

1. Möglichkeit: WebBrowser1.OleObject.Document.Forms.Item(0).Submit();

2. Möglichkeit: WebBrowser1.OleObject.Document.Forms.Item('forumlar1').Submit();

Zweites Formular absenden:

WebBrowser1.OleObject.Document.Forms.Item(1).Submit();

WebBrowser1.OleObject.Document.Forms.Item('forumlar2').Submit();

In JavaScript würde gleiches so aussehen:

Erstes Formular absenden:

Document.Forms[0].Submit();

Document.Forms['forumlar1'].Submit();

Document.forumlar1.Submit();

Zweites Formular absenden:

Document.Forms[1].Submit();

Document.Forms['forumlar2'].Submit();

Document.forumlar2.Submit();

Bei Vergabe der Namen (also 'formular1') bitte auf Groß-/Kleinschreibung achten.
Das Leerzeichen vor den () das ich oben gesetzt habe kann weggelassen werden.
Ich setze es nur häufig --> Formsache.

**la.reunion**

...ok ich werde mir das mal noch angucken danke.

Thx

**la.reunion**

Sry aber ich habe das immernochnicht gerafft wie ich das umshcirebn muss für die page!

...

BUtton auf webseite drücken!

BUtton auf webseite drücken!

Re: BUtton UAf webseite drücken!

Re: BUtton UAf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Re: BUtton auf webseite drücken!

Forumregeln

la.reunion Registriert seit: 30. Apr 2006 152 Beiträge	#1 BUtton auf webseite drücken! 11. Aug 2006, 14:58 Hey, ich habe mich schoneinmal schlau gemacht über den TWebBrowser jedoch bekomme ich es nciht hin enen BUtton zu drücken. Als beispiel mal diese seite http://26b8tmm1ru.rapidsafe.de/ Wie kann ich da den free Button drücken? Thx for help. PS Ja ich habe die forum suche schon benutzt bin aus den beiträgen aber nciht schlau geworden.
	Zitat

konda Registriert seit: 20. Dez 2005 253 Beiträge Turbo Delphi für Win32	#2 Re: BUtton UAf webseite drücken! 11. Aug 2006, 15:03 vielleicht hilft idr das weiter: http://www.delphipraxis.net/internal...button+website "Nichts ist schwieriger als den Gedankengang eines anderen nachzuvollziehen" Gruß Konda
	Zitat

Andreas L. (Gast) n/a Beiträge	#4 Re: BUtton auf webseite drücken! 11. Aug 2006, 15:47 Ich würde sagen du solltest das was im Edit1Change steht in das OnCLick-Ereignis des Buttons einfügen und das was im ButtonClick derzeit drinsteht ist IMHO völlig nutzlos.
	Zitat

Puhbaehr (Gast) n/a Beiträge	#6 Re: BUtton auf webseite drücken! 11. Aug 2006, 17:44 Unter JavaScript funktioniert das was du vor hast mit Document.Forms[0].Submit (); Wenn ich mich nicht irre funktioniert das auf ähnliche Weise auch in Delphi: WebBrowser1.OleObject.Document.Forms.Item (0).Submit (); Siehe auch hier: http://www.delphipraxis.net/internal...ghlight=mshtml
	Zitat

la.reunion Registriert seit: 30. Apr 2006 152 Beiträge	#7 Re: BUtton auf webseite drücken! 11. Aug 2006, 19:16 Danke für deine Hilfe ist das dann so richtig? WebBrowser1.OleObject.Document.Forms.Item (0).Submit ('Free'); ABer das funktioniert nicht!
	Zitat

la.reunion Registriert seit: 30. Apr 2006 152 Beiträge	#9 Re: BUtton auf webseite drücken! 11. Aug 2006, 22:00 ...ok ich werde mir das mal noch angucken danke. Thx
	Zitat

la.reunion Registriert seit: 30. Apr 2006 152 Beiträge	#10 Re: BUtton auf webseite drücken! 12. Aug 2006, 13:47 Sry aber ich habe das immernochnicht gerafft wie ich das umshcirebn muss für die page! ...
	Zitat