Zitat von
delphinia:
Du hast wohl überlesen, das ich den IE an sich meine KEIN Webbrowser in MEINER Anwendung!
Dann musst du zuerst alle offenen Instanzen ermitteln.
Hier ein Beispiel Codeschnippsel:
Delphi-Quellcode:
var
sws : IShellWindows;
sw : IDispatch;
i : Integer;
wb : IWebBrowser2;
begin
sws := CoShellWindows.Create;
// Schleife über alle offenen IE-Browser
for i := 0
to sws.Count-1
do
begin
sw := sws.Item(i);
wb := sw
as IWebBrowser2;
Memo1.Lines.Add(wb.LocationURL);
if (Copy(wb.LocationURL, 1, 5) = '
http:')
and wb.Visible
then
begin
Memo1.Lines.Add('
========HTML===========');
Memo1.Lines.Add(Document_GetHTML(wb.Document));
end;
end;
end;
Dann musst du prüfen, ob überhaupt
HTML geladen ist.:
wb.LocationURL muss mit http: oder https: beginnen.