TWebBrowser if then Problem

[klaus9]

Hallo,

ich würde gerne folgendes ermöglichen mit Delphi.

Ich habe einen Twebbrowser und würde gerne wenn im Quelltext ein bestimmter Text vorkommt,
das Delphi dann einen value Wert in ein bestimmtes Feld einfügt und weitermacht.


procedure TForm1.Action20Execute(Sender: TObject);
begin
if
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('Operation') //wenn das Wort Operation im Quelltext gefunden wird
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;

Das Feld 'bemerkung' gibt es und es läßt sich auch so befüllen, nur halt leider nicht die vorherige überprüfung.

Gruß
Klaus

[jaenicke]

Naja, du holst dir ein Element aus dem geladenen Quelltext im Webbrowser und versuchst dieses Element als boolschen Wert zu benutzen. Das ist als ob du sagen würdest: "Wenn Apfel, dann..."
Du musst schon mit dem Element etwas machen. Schauen, ob es zugewiesen ist, damit etwas machen, ...
Sprich du sagst z.B. "Wenn der Apfel rot ist, dann..."

Was du also wohl meinst:

Delphi-Quellcode:

if not VarIsNull(WebBrowser1.OleObject.document.forms.item(0).elements.item('Operation')) then
  ...

[klaus9]

Danke aber irgendwie fehlt mir noch was im code.

procedure TForm1.Action20Execute(Sender: TObject);
begin
if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation')) then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.

end;

end.

ich muß glaub ich noch die function VarIsNull einbinden, wie geht das ?

[himitsu]

Zitat von klaus9:

Danke aber irgendwie fehlt mir noch was im code.

Ja, die Delphi/Code-Tags

Zitat von klaus9:

ich muß glaub ich noch die function VarIsNull einbinden, wie geht das ?

F1 drücken, nachsehn was in der OH steht und die genannte Unit (Variants) einbinden


Wieso glaubst du nur und weißt es nicht?
Delphi gibt dir doch hoffentlich eine entsprechende Fehlermeldung? (welche wir nicht kennen)

[klaus9]

hmm bekomme ich irgendwie nicht so hin..

[jaenicke]

Zitat von klaus9:

hmm bekomme ich irgendwie nicht so hin..

Da du vergessen hast zu schreiben was genau du jetzt zuletzt versucht hast und was für eine Fehlermeldung kommt, wird dir da auch niemand helfen können.

[klaus9]

Habe jetzt folgenden Code

procedure TForm1.Button65Click(Sender: TObject);
begin

if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end;

[Fehler] Unit1versuch.pas(1288): Undefinierter Bezeichner: 'VarIsNull'

ich weiß nur nicht genau was ich als bezeichner einfügen soll.

function VarIsNull hatte ich im Netz gelesen, wenn ich es davor packe startet es leider auch nicht richtig

[jaenicke]

Hat himi doch schon geschrieben...

Zitat von himitsu:

und die genannte Unit (Variants) einbinden

Hast du die Unit denn nun in die uses geschrieben? (Also da ganz oben in deiner Unit.)

[klaus9]

Hi,

was muß ich da denn reinschreiben, bin nicht mehr so ganz fit in delphi.

[jaenicke]

Variants? Wobei das eigentlich ab Delphi 6 oder so auch schon standardmäßig in der uses steht.