TWebBrowser if then Problem

[klaus9]

Delphi-Quellcode:

procedure TForm1.Button111Click(Sender: TObject);
begin
if VarIsNull(WebBrowser1.OleObject.Document.documentElement.innerHTML('TelefonAnlagen'))
then
showmessage('test')
end;

auch dieser Code funktioniert leider nicht, es kommt dann Nicht implementiert

[klaus9]

Habe jetzt mal ein bisschen rumprobiert und glaube die lösung gefunden zu haben, zwar noch nicht so wie ich es haben will, aber so müßte es gehen

jetzt auch mit Tags ;-)

Delphi-Quellcode:

procedure TForm1.Button112Click(Sender: TObject);
var was:string;
begin
 if pos('11:45', string(webBrowser1.OleObject.Document.Body.InnerHtml))=0 then
  showmessage('nein')
    else
    showmessage('ja')

end;

habe mal nach der Uhrzeit 11:45 gesucht im HTML Quelltext und auch gefunden..

Wenn ich jetzt noch nach zwei übereinstimmungen suchen könnte, dann hätte ich es

vielleicht hat ja jemand einen Tipp

Gruß

[jaenicke]

Naja, du müsstest halt dich bis zu dem Element durchhangeln, in dem der Wert tatsächlich steht. Dann kannst du den auch direkt vergleichen. Aber wie Thom schon geschrieben hat: Ohne den Quelltext der Seite (bzw. den entsprechenden Teil mit allen Elternelementen zumindest) zu kennen kann dir da niemand wirklich helfen, da musst du das schon selbst machen...

[klaus9]

Hi,

ja stimmt danke dir / euch allen.. habe es mit eurere hilfe hinbekommen, also schonmal das Problem :-)

Also mit dem Code funktioniert es..

[DELPHI]procedure TForm1.Button114Click(Sender: TObject);
var was:string;
begin
IF (pos('MH',string(webBrowser1.OleObject.Document.Bo dy.InnerHtml))=0) AND (pos('11:45',string(webBrowser1.OleObject.Document .Body.InnerHtml))=0) THEN

//if pos('MH'+'11:45', string(webBrowser1.OleObject.Document.Body.InnerHt ml))=0 then
//if pos('11:45', string(webBrowser1.OleObject.Document.Body.InnerHt ml))=0 then
showmessage('nein')
else
showmessage('ja')

end;DELPHI]

Jetzt wird auf einer HTML Seite im Quelltext nach zwei bestimmten Werten gesucht,
d.h. wenn in dem oben genannten Beispiel der Wert "MH" vorkommt und auch der Wert "11:45" dann zeigt mir Delphi
die Showmessage "Ja" ann und wenn nicht "Nein".

Es gehen auch mehrere möglichkeiten in dem man hingeht nach

Delphi-Quellcode:

IF (pos('MH',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) AND

ab hier immer erweitert um

Delphi-Quellcode:

AND (pos('11:45',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) AND ...... und dann THEN und dann den rest

Dankeschön für eure unterstützung..

[Sir Rufo]

Zitat:

Zitat von klaus9 (Beitrag 1144866)

Also mit dem Code funktioniert es..

[...]

Jetzt wird auf einer HTML Seite im Quelltext nach zwei bestimmten Werten gesucht,
d.h. wenn in dem oben genannten Beispiel der Wert "MH" vorkommt und auch der Wert "11:45" dann zeigt mir Delphi
die Showmessage "Ja" ann und wenn nicht "Nein".

Bist du dir da sicher, das das funktioniert?

IMHO wird auch dann "Ja" erscheinen, wenn nur "MH" oder nur "11:45" vorkommt

[klaus9]

Hmm zumindest hoffe ich es , also beim probieren hat es geklappt. Probier es aber gleich besser nochmal aus ..

[Sir Rufo]

Überlegen würde scon reichen ;)

Wenn "MH" nicht gefunden und "11:45" nicht gefunden
dann "nein"
sonst "ja"

Was passiert wohl, wenn nur "MH" gefunden wird?

[klaus9]

Stimmt :-( arghh klappt nicht ... Mist hast du eine Idee weil wenn ich 'Mh'+'11:45' mache klappt es auch nicht
Versuche gerade erst nach mh zu suchen und dann nach Zeit

Inform von zwei if POS .... Then if POS aber klappt auch nicht .. ;-(

[jaenicke]

Du suchst wohl eher PosEx statt Pos, aber das Problem ist halt, dass die Buchstaben einfach überall gefunden werden. Die können zufällig auch woanders vorkommen.

[klaus9]

Hi, jetzt glaube ich habe ich es hinbekommen..

Delphi-Quellcode:

var was:string;
begin
IF (pos('MH',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0)
 THEN
 showmessage('nein')
    else
 IF (pos('11:45',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0)  THEN
    showmessage('nein')
    else
         showmessage('jepp');
         end;

ist vielleicht nicht so super gut programmiert aber scheint zu klappen.. hoffe ich ;-)