Button im webbrowser klicken lassen???

Murmel · Beiträge: 79 xp d6,d7

folgendes: ich möchte viele verschiedene html seiten im webbrowsser ausfüllen (klappt schon prächtig) danach, also nach dem ausfüllen eines jeden formulars, soll dann der button betätigt werden, dafür benutze ich folgenden code:

für einen button:

WebBrowser1.OleObject.Document.forms.item(0).elements.item(0).click;

falls mehrere da sein sollten:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).tagName = 'INPUT') and
      (ovElements.item(i).type = 'SUBMIT') and
      (ovElements.item(i).Value = 'Recent Charges') then
      ovElements.item(i).Click;
end;

klappt aber alles nicht... weiß jemand rat?

gruß murmel

Moderiert von Klabautermann: Delphi-Tags hinzugefügt.

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Schreib deinen Text doch zwischen [delphi] und [/ delphi] hinein.
Was den Browser betrifft kann es aber sein das statt eines Submit Buttons ein Imagebutton ist. Dann hilft dir das alles nichts.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

Murmel · Beiträge: 79 xp d6,d7

wo soll ich den reinschreiben?

Klabautermann · Verfasst: Di 09.09.03 10:29 Titel: Re: wie?

Hallo,

Murmel hat folgendes geschrieben:

wo soll ich den reinschreiben?

habe ich jetzt ersteinmal gemacht.

Wenn du Quelltext postest solltest du das so machen:

markieren

Quelltext

1:
2:
3:
4:

[delphi]procedure Hallo;
begin
  ShowMessage('Hallo Welt!');
end;[/delphi]

durch die Delphi-Tags wird das dann so schön formatiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure Hallo;
begin
  ShowMessage('Hallo Welt!');
end;

Gruß
Klabautermann

Murmel · Beiträge: 79 xp d6,d7

aber weiß trotzdem jemand wie ich irgendwie erzwingen kann, das mein prog den erst besten button in einem webbrowser anklickt?

gruß murmel

JustusJonas · Beiträge: 222

Wenn sich nur ein Button auf der Seite befindet reicht schon

markieren

Delphi-Quelltext

1:	WebBrowser1.OleObject.Document.Forms.item(0).submit;

Bei mehreren Buttons musst du den richtigen so auswählen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
          for i := 0 to (ovElements.Length - 1) do
              if (ovElements.item(i).type = 'submit') and (ovElements.item(i).Value = 'UPLOAD') then
                 begin
                      ovElements.item(i).Click;
                 end;

Musst also den "Type" und den "Value" aus dem Quelltext auslesen und in meinem Code ersetzen!

Greetz

Murmel · Beiträge: 79 xp d6,d7

danke danke schön

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme