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