AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke TWebBrowser if then Problem
Thema durchsuchen
Ansicht
Themen-Optionen

TWebBrowser if then Problem

Ein Thema von klaus9 · begonnen am 24. Dez 2011 · letzter Beitrag vom 8. Jan 2012
 
klaus9

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

AW: TWebBrowser if then Problem

  Alt 8. Jan 2012, 08: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz