TWebbrowser/IdHTTP kompletten Quelltext auslesen (frames)

[marabu]

Hallo win32,

die Techniken aus GetFrameDoc() übertragen auf dein Problem:

Delphi-Quellcode:

procedure ShowFrames(fc: IHTMLFramesCollection2);
var
  v: OleVariant;
  win: IHTMLWindow2;
  doc: IHTMLDocument2;
  e: IHTMLElement;
  fse: IHTMLFrameSetElement;
  u: IUnknown;
begin
  v := 0;
  while v < fc.length do
  begin
    u := fc.item(v);
    if Succeeded(u.QueryInterface(IHTMLWindow2, win)) then
    begin
      doc := win.Document;
      if Assigned(doc) then
      begin
        if Succeeded(doc.body.QueryInterface(IHTMLFrameSetElement, fse))
          then ShowFrames(doc.frames)
          else ShowMessage(doc.body.parentElement.outerHTML)
      end;
    end;
    v := v + 1;
  end;
end;

Testen kannst du es so:

Delphi-Quellcode:

begin
  with  WebBrowser.Document as IHTMLDocument2 do
    ShowFrames(frames);
end;

Gute Nacht