Quelltext eines Offenen Internet Explorers auslesen...

[Kamil]

Ich würde sagen es geht um die HTML Daten im IE, oder?
So könntest du vorgehen:
1) Den Code (unit InternetExplorer1), den ich in diesem Forum gepostet habe nehmen
http://www.delphi-groups.de/YaBBSe/i...=17218;start=0
und so anwenden wie dort beschrieben
2) leicht abgeänderte Version von http://www.swissdelphicenter.ch/de/s...e.php?id=1112:

Delphi-Quellcode:

function WB_SaveHTMLCode(WebBrowser: TInternetExplorer1; const FileName: TFileName): Boolean; 
var 
  ps: IPersistStreamInit; 
  fs: TFileStream; 
  sa: IStream; 
begin 
  ps := WebBrowser.DefaultInterface.Document as IPersistStreamInit; 
  fs := TFileStream.Create(FileName, fmCreate); 
  try 
    sa := TStreamAdapter.Create(fs, soReference) as IStream; 
    Result := Succeeded(ps.Save(sa, True)); 
  finally 
    fs.Free; 
  end; 
end; 

function WB_GetHTMLCode(WebBrowser: TInternetExplorer1; ACode: TStrings): Boolean; 
var 
  ps: IPersistStreamInit; 
  ss: TStringStream; 
  sa: IStream; 
  s: string; 
begin 
  ps := WebBrowser.DefaultInterface.Document as IPersistStreamInit; 
  s := ''; 
  ss := TStringStream.Create(s); 
  try 
    sa := TStreamAdapter.Create(ss, soReference) as IStream; 
    Result := Succeeded(ps.Save(sa, True)); 
    if Result then ACode.Add(ss.Datastring); 
  finally 
    ss.Free; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WB_SaveHTMLCode(InternetExplorer11, 'c:\test.txt'); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  WB_GetHTMLCode(InternetExplorer11, Memo1.Lines); 
end;

Ungestestet!