Webbrowser.OleObject.Document.Forms.item(??). in Listbox zeigen

[klaus9]

Hallo,

ich würde gerne in einer Listbox mir aus einer Webseite alle vorhanden Forms raussuchen lassen, habe mir folgendes zusammengebastelt.

Einmal diese Variante (Habe eine Listbox und einen Button)
procedure TForm1.Button50Click(Sender: TObject);

var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document. Links.Item(i));
end;

Hier zeigt er mir alle vorhandenen Links der jeweiligen aufgerufenen Seite, das funktioniert prima.


Jetzt möchte ich aber gerne die Forms einer Seite herrausfinden..

Habe diese Variante zusammengebastelt:

procedure TForm1.Button51Click(Sender: TObject);

var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.forms.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document. forms.Item(i));
end;


Jetzt zeigt er mit an beim Aufruf: [Object] und wie oft es vorkommt, ich würde aber gerne die Nummern herrausfinden 01, 02 usw.

Wie kann ich dieses machen ?

[jaenicke]

Zitat von klaus9:

ich würde aber gerne die Nummern herrausfinden 01, 02 usw.

Welche Nummern? Meinst du die Namen der Formular? Dann musst du auch .name des Objekts abfragen...
Die Indizes hast du ja selber schon in i.

[klaus9]

ähm ich meinte den Wert aus

WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(0).click;

bei dem Forms.item(0) können ja Zahlen sein, in meinem Fall und alle möglichen Nummern oder halt Namen soll er anzeigen.


Denn mein Hauptproblem ist folgendes, ich habe auf der Seite zwei Javascript Felder die ich gerne ansprechen würde, nur das klappt nicht. Jetzt wollte ich mal generell ermitteln welche Felder / Forms vorhanden sind um diese dann ansprechen zu können.

Gruß

[jaenicke]

Schau dir vielleicht einmal diese Hilfsfunktionen an:
http://www.delphi-library.de/topic_m...en_8482,0.html

[Luckie]

Bitte benutze doch endlich mal die Delphi Tags in deinen Beiträgen.

[klaus9]

cool, danke.

ich glaube das hilft mir schon sehr viel weiter.

Dankeschön