Wieder einmal: Felder im WebBrowser ausfüllen

[Rued]

Hallo!

Man kennt die Zeile für das Ausfüllen von Formularfeldern im WebBrowser:

Code:

WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value := Edit1.Text

Ist es möglich, den Namen der elements.item im Formular abzufragen? So etwas wie Findcomponent oder if ...name = 'FELDNAME' then

Was bei mir nicht funktioniert ist die Namensabfrage über:

Code:

  FormItem: Variant;
begin

...
   for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do begin 
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
   for j := 0 to FormItem.Length - 1 do
    begin
      try                                           
        if FormItem.Item(j).Name = 'FELDNAME' then ...

Agiere ich "blind", funktioniert es:

Code:

for b := 0 to WebBrowser.OleObject.Document.all.tags('FORM').Length -1 do 
         WebBrowser.OleObject.document.forms.item(b).elements.item('FELDNAME').value := 'Wert';

Geht es nicht eleganter?

Gruß

Rüd