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

[taktaky]

Hallo,

ich möchte, bevor ich ein Feld ausfülle, zuerst überprüfen, ob das Feld überhaubt in Webbrowser existiert, damit ich keine Fehlermeldung erhalte.

Delphi-Quellcode:

if ??? then
WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname').value:=Edit4.Text;
else
exit;
//Showmessage('blabla');

Was muss ich im Bereich ??? schreiben?

Oder einfach so :
if fileexists(WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname').value)

[marabu]

Hallo,

ein nicht existierendes item ist null.

Bitte trage deine Delphi-Version in deinem DP-User-Profil ein.

OffTopic: Dein Deutsch wird immer besser, aber mit den Emoticons musst du etwas aufpassen: Weniger ist manchmal mehr.

Freundliche Grüße

[taktaky]

Zitat von marabu:

ein nicht existierendes item ist null.

So habe ich ausprobiert:

Delphi-Quellcode:

if WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname').value <> 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;

Leider hat es nicht geklappt !

[marabu]

Wenn du auf item.value zugreifst, dann musst du zuerst prüfen, ob item nicht null ist. Du prüfst value und ich hatte item geschrieben.

[DGL-luke]

Eher so:

if WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname') <> Null then Allerdings solltest du aufpassen, dass du auch auf das richtige "Null" prüfst, das sollte eine entsprechend vordefinierte Konstante sein (Entweder vom Variant generell, oder eine, die nur für den Webbrowser gilt).

[taktaky]

Zitat von DGL-luke:

Eher so:

if WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname') <> Null then Allerdings solltest du aufpassen, dass du auch auf das richtige "Null" prüfst, das sollte eine entsprechend vordefinierte Konstante sein (Entweder vom Variant generell, oder eine, die nur für den Webbrowser gilt).

Ich bekomme eine Fehlermeldung : Invalid variant Operation !!!

Alle Felder befinden sich im Webbrowser1 und nicht in Web. Aber wenn das Formular geschickt wird, wird eine Seite von der Webseite angezeigt (Als Bestätigung :Formular wurde geschickt).

Wenn aber der User wieder auf das Button anklickt, dann erscheint natürlich die Fehlermeldung, da kein Formular in Webbrowser gibt. Und dies möchte ich unbedingt vermeiden.

[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.

[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 !!!




--

[marabu]

Den Test musst du mit der Funktion VarIsClear() durchführen.

[taktaky]

Zitat von marabu:

Den Test musst du mit der Funktion VarIsClear() durchführen.

Ich habe leider kein Beispiel über VarIsClear() in Forum gefunden.

Ich habe Eine andere Lösung (aber nicht ganz gut aber funktioniert):

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.item(0).submit;
Button1.Enabled:= false;
Button5.Enabled:= false;

Ich habe das Button "senden" in Webbrowser gelöscht und auf Form erstellen
Das Button "Senden" sendet das Formular und deaktiviert auch einige Buttons und sich selbst


Mit VarIsClear() wäre es vielleicht besser

gruß