HTML Quellcode auslesen

[delphinia]

Diesen Code hatte ich heute schonmal! Aber wieder entfernt, da er mir von ALLEN Anwenungen die InternetExplorer Fenster verwenden den HTML Code gibt - selbst von so ner anwendung wie Steam oder Hilfe Dateien


Dabei ist aber mein Problem das NUR das Aktuelle zu sehende Fenter den Code zu bekommen


Habe schon an sowas gedacht

Delphi-Quellcode:

if WB.LocationName = 'Das Web' then

Aber davon könnte ich auch mehrere haben dann ist es wieder hinfällig

[shmia]

Zitat:

Zitat von delphinia

Diesen Code hatte ich heute schonmal! Aber wieder entfernt, da er mir von ALLEN Anwenungen die InternetExplorer Fenster verwenden den HTML Code gibt - selbst von so ner anwendung wie Steam oder Hilfe Dateien
Dabei ist aber mein Problem das NUR das Aktuelle zu sehende Fenter den Code zu bekommen

Trotzdem ist das der richtige Weg. Du musst einfach ein Kriterium finden, anhand dessen du dein Toplevel-Fenster von allen anderen unterscheiden kannst.
Wenn man statt IWebBrowser das Interface IWebBrowser2 verwendet, dann bekommt man einige zusätzliche Properties, die man abfragen kann.
Besonders nützlich ist wb.HWND - das Window-Handle.

[delphinia]

Es gibt leider keinen unterschied in den Seiten...
Hmm ;-(



Hmm aber eventuell hab ich gerade ne Idee das anhand der URL zu prüfen!

[Angel4585]

Frage:

Wenn du das in deinem Programm machst.. dann ist doch dein Program aktiv und nicht der IE, also wie willst du dann das aktive IE-Fenster ermitteln?

Ansonsten denk ich gab es irgendwo ne Methode um das Handle des momentan aktiven Fensters zu ermitteln.

[delphinia]

Nein mein Programm schlummert in der TNA und das ganze geht dann per Timer

[Angel4585]

und was soll das machen? Emailadressen für en Spamverteiler auslesen? :shock:

[delphinia]

Nein - Emails lesen

[shmia]

Uffff. Jetzt hab ich dich doch 2cm vor die Lösung gesetzt.
Also mit GetForegroundWindow holst du das Handle des Windows, dass den Focus hat
und dann vergleichen:

Delphi-Quellcode:

   if (Copy(wb.LocationURL, 1, 5) = 'http:') and wb.Visible and (wb.Hwnd=GetForegroundWindow)then 
   begin 
      Memo1.Lines.Add('========HTML==========='); 
      Memo1.Lines.Add(Document_GetHTML(wb.Document)); 
   end;

Am Besten die Funktion GetForegroundWindow ausserhalb der Schleife aufrufen und in lokale Variable packen.