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

IF (pos('MH',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) AND ab hier immer erweitert um

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 von klaus9:

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