WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('

[taktaky]

Zitat von marabu:

Unter diesen Umständen musst du natürlich bereits forms.item(0) auf null prüfen, da sonst der Zugriff auf item(0).elements zu dem beobachteten Zugriffsfehler führt.

Und wie?

So habe ich versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (WebBrowser1.OleObject.document.forms.item(0)<> Null) and
(WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname') <> Null)
then
begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname').value:='x';
WebBrowser1.OleObject.document.forms.item(0).elements.item('nachname').value:='y';

end
else
exit;
end;

Ich bekomme immer die Fehlermeldung : Invalid variant Operation !!!




--