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 :

Delphi-Quellcode:

if fileexists(WebBrowser1.OleObject.document.forms.item(0).elements.item('vorname').value)

:gruebel:

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

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:

Delphi-Quellcode:

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:

Zitat von DGL-luke

Eher so:

Delphi-Quellcode:

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:

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:

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ß

[Andreas L.]

Ein Blick in die Delphi-Hilfe verrät dir, dass die Funktion so angewendet werden kann:

Delphi-Quellcode:

   if VarIsClear(webbrowser1.......) then
    begin
     tuwas;
    end;

[taktaky]

Zitat:

Zitat von Andreas L.

Ein Blick in die Delphi-Hilfe verrät dir, dass die Funktion so angewendet werden kann:

Delphi-Quellcode:

   if VarIsClear(webbrowser1.......) then
    begin
     tuwas;
    end;

So habe ich den Code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if VarIsClear(WebBrowser1.OleObject.document.forms.item(0)) <> Null then
begin
blabla
blabla
end
else
exit;
end;

Man kann das Formular zwar ausfüllen und senden aber wenn das Formular nicht mehr vorhanden ist und klicke ich auf das Button, dann erscheint eine Fehlermeldung

[Andreas L.]

Zitat:

Zitat von taktaky

Zitat:

Zitat von Andreas L.

Ein Blick in die Delphi-Hilfe verrät dir, dass die Funktion so angewendet werden kann:

Delphi-Quellcode:

   if VarIsClear(webbrowser1.......) then
    begin
     tuwas;
    end;

So habe ich den Code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if VarIsClear(WebBrowser1.OleObject.document.forms.item(0)) <> Null then
begin
blabla
blabla
end
else
exit;
end;

Man kann das Formular zwar ausfüllen und senden aber wenn das Formular nicht mehr vorhanden ist und klicke ich auf das Button, dann erscheint eine Fehlermeldung

Du brauchst nicht mehr auf <> Null prüfen. Das macht alles die Funtion varIsClear. Einfache if varisclear(...) then wie ich es weiter oben bereits gepostet habe. Markiere in Delphi den Befel VarIsClear und drücke F1...

[taktaky]

Wenn ich so mache:

Delphi-Quellcode:

if VarIsClear(WebBrowser1.OleObject.document.forms.item(0))

dann passiert nichts, wenn ich auf das Button zum Ausfüllen klicke !

[marabu]

C'est tres mysterieuse.

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  form, element: OleVariant;
begin
  form := WebBrowser.OleObject.Document.forms.item('f');
  if not VarIsClear(form) then
  begin
    element := form.elements.item('q');
    if not VarIsClear(element) then
      element.value := 'taktaky';
  end;
end;

Wenn ich auf http://www.google.de navigiere und den Button drücke, dann wird das Suchfeld gefüllt, auf anderen Seiten wird ein Fehler vermieden. Das waren deine beiden Anforderungen - n'est-ce pas?

Salut

[taktaky]

Mit dem Code erscheint zwar keine Fehlermeldung, passiert aber nichts!

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  form, element: OleVariant;
begin
  form := WebBrowser1.OleObject.Document.forms.item('vorname');
  if not VarIsClear(form) then
  begin
    element := form.elements.item('vorname');
    if not VarIsClear(element) then
      element.value := 'taktaky';
  end;
end;

Das Feld im WebBrowser1 mit dem Namen "vorname" bleibt leer


--------------

[Die Muhkuh]

Was sagt der Debugger? Per F7 mal durchsteppen und die Werte ansehen...

[marabu]

Hallo taktaky,

du hast einen kleinen Fehler beim Anpassen meines Codes gemacht: forms.item('f') bezeichnet das Formular mit dem Namen 'f' auf der Google-Einstiegsseite und du hast einfach den Namen deines Feldes eingetragen. Wenn dein Formular keinen Namen hat, dann kannst du es über seinen Index ansprechen - forms.item(0) addressiert das erste Formular auf der Seite.

Freundliche Grüße

[taktaky]

Zitat:

Zitat von marabu

Hallo taktaky,

du hast einen kleinen Fehler beim Anpassen meines Codes gemacht: forms.item('f') bezeichnet das Formular mit dem Namen 'f' auf der Google-Einstiegsseite und du hast einfach den Namen deines Feldes eingetragen. Wenn dein Formular keinen Namen hat, dann kannst du es über seinen Index ansprechen - forms.item(0) addressiert das erste Formular auf der Seite.

Freundliche Grüße

Das stimmt. Nun funktioniert alles in Ordnung ohne Fehlermeldung, wenn kein Formular in WebBrowser gibt :thumb:

Viele Grüße

Delphi-Quellcode:

 _      _   _   _____   _       _____   __   _  
| |   / / | | | ____| | |     | ____| |  \ | | 
| |  / /  | | | |__   | |     | |__   |   \| | 
| | / /   | | |  __|  | |     |  __|  | |\   | 
| |/ /    | | | |___  | |___  | |___  | | \  | 
|___/     |_| |_____| |_____| |_____| |_|  \_| 
 _____        ___   __   _   _   _   
|  _  \     /   | |  \ | | | | / /  
| | | |    / /| | |   \| | | |/ /   
| | | |   / / | | | |\   | | |\ \   
| |_| |  / /  | | | | \  | | | \ \  
|_____/ /_/   |_| |_|  \_| |_|  \_\