Einzelnen Beitrag anzeigen

klaus9

Registriert seit: 4. Dez 2011
123 Beiträge
 
#24

AW: TWebBrowser if then Problem

  Alt 8. Jan 2012, 09:37
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..
  Mit Zitat antworten Zitat