TWebBrowser if then Problem

[p80286]

@Klaus9
uses Variants, weitere_Units;
@jaenike
in D7: (in einer Forms-Unit)

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

gruß
K-H

[klaus9]

Hi also ich habe das Problem jetzt glaub ich an einer anderen stelle, die variants habe ich drin im delphi.

Jetzt schreibt mir Delphi als fehler bei folgendem 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';
end;
end;

Dann das
[Warnung] Variants.pas(1012): Unsicherer Typ 'VPointer: Pointer'
[Warnung] Variants.pas(1014): Unsicherer Typ 'VPointer: Pointer'
[Fataler Fehler] Variants.pas(1024): Das Programm oder die Unit 'Variants' ruft sich selbst wieder auf

[klaus9]

Bei mir sind folgende Uses

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls, mshtml, ExtCtrls, Buttons, ActnList,
Variants;

[jaenicke]

Du darfst deine Unit natürlich nicht selbst Variants nennen...

[klaus9]

Wie meinst du das ?

unit Unit1versuch;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls, mshtml, ExtCtrls, Buttons, ActnList,
Variants;

so heißt Sie Unit1versuch

[klaus9]

ich glaub ich habe es, es lag im selben verzeichnis eine variants.pas

habe jetzt alles im grünen Bereich, nur er schreibt mir in das erledigt feld erledigt rein, obwohl es operation nicht text gibt.

Oder kann man irgendwie anders delphi sagen, er soll im HTML Quelltext nach bestimmten Wert suchen und wenn dieser gefunden wird, soll er in das Feld bemerkung "erledigt" schreiben ?

Geht das irgendwie ?

Gruß

[jaenicke]

Zitat von klaus9:

Oder kann man irgendwie anders delphi sagen, er soll im HTML Quelltext nach bestimmten Wert suchen und wenn dieser gefunden wird, soll er in das Feld bemerkung "erledigt" schreiben ?

Was ist denn für dich ein Wert? Ich meine du suchst im Moment nach dem HTML Element mit dem Namen Operation. Nur, wenn das Element nicht existiert, wird dein erledigt geschrieben. Deine Beschreibung liest sich jetzt so als ob du etwas ganz anderes willst. Nur passt das nicht zu dem was du als Quelltext geschrieben hast.

Was du nun eigentlich wirklich willst, ist mir nicht klar.

[klaus9]

Hallo,

vielen Dank, das eigentliche Problem habe ich mit deiner Hilfe hinbekommen.

Derzeit bin ich noch nach nem anderem am schauen, jetzt habe ich an einer anderen Stelle das Problem ich muß
nach zwei Werten aus der Innerhtml suchen, da bin ich zurzeit am herum probieren.

aber mit

procedure TForm1.Button107Click(Sender: TObject);


begin

if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('<td>TelefonAnlagen</td>')) and
if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('11:59'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('eingabe').value:='fertig'; // soll er diese funktion ausführen.
end;

will es noch nicht so funktionieren..

hast du vielleicht einen Tipp

[Thom]

Hallo klaus9,

könntest Du bitte bei Deinem Quelltext die Delphi-Tags benutzen (der Button mit dem Helm oberhalb des Editorfeldes)? Himitsu hatte Dich schon mal darum gebeten - Du hast das wahrscheinlich überlesen.

Da ich "TelefonAnlagen" gelesen habe: Ist das eine Seite zur Konfiguration einer Telefonanlage/eines Routers?
Wäre es möglich, die betreffende HTML-Seite zu zeigen? Falls Du das nicht öffentlich machen möchtest, kannst Du mir auch eine Email mit Anhang schicken (die Emailadresse befindet sich in meinem Profil).
Ich habe nämlich etliche Units programmiert, mit deren Hilfe man sehr einfach auf HTML-Objekte zugreifen kann. Um das zu testen, bräuchte ich allerdings die betreffende HTML-Seite.

[klaus9]

Delphi-Quellcode:

procedure TForm1.Button107Click(Sender: TObject);


begin

if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('<td>TelefonAnlagen</td>')) and
if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('11:59')) 
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('eingabe').value:='fertig'; // soll er diese funktion ausführen.
end;

Ah okay gefunde, Danke.. Jetzt weiß ich auch was Delphi Tags sind
aber Problem noch nicht gelöst..