1:
2:
3:
4:
5:

WebBrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1); 
if iDoc1 <> nil then 
begin 
  Memo1.Lines.Add(iDoc1.Body.InnerHTML); 
end;					

1:

idHTTP.get('seite.html');					

1:
2:
3:
4:
5:

WebBrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);  
if iDoc1 <> nil then  
begin  
  Memo1.Lines.Add(iDoc1.Body.InnerHTML);  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var iDoc1 : IHTMLDocument2;
begin
WebBrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
  Memo1.Lines.Add(WebBrowser1.OleObject.document.item('mainframe').........); // und an der stelle weiss ich nicht mehr weiter
end;
end;					

1:
2:
3:
4:
5:

WebBrowser1.Document.Frames.item('FrameName').QueryInterface(IHTMLDocument2, iDoc1);   
if iDoc1 <> nil then   
begin   
  Memo1.Lines.Add(iDoc1.Body.InnerHTML);   
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var iDoc1 : IHTMLDocument2;
begin
WebBrowser1.OleObject.document.frames.item('mainframe').QueryInterface(iDoc1);
if iDoc1 <> nil then
begin
  Memo1.Lines.Add(iDoc1.Body.InnerHTML);
end;
end;					

1:
2:
3:
4:
5:

WebBrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);   
if iDoc1 <> nil then   
begin   
  Memo1.Lines.Add(iDoc1.Body.InnerHTML);   
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

uses
  ActiveX;

function TForm1.GetFrame(FrameNo: Integer): IWebbrowser2;
var
  OleContainer: IOleContainer;
  enum: IEnumUnknown;
  unk: IUnknown;
  Fetched: PLongint;
begin
  while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  if Assigned(Webbrowser1.document) then
  begin
    Fetched := nil;
    OleContainer := Webbrowser1.Document as IOleContainer;
    OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
    Enum.Skip(FrameNo);
    Enum.Next(1, Unk, Fetched);
    Result := Unk as IWebbrowser2;
  end 
  else 
    Result := nil;
end;

// Testseite laden
procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('http://www.warebizprogramming.com/tutorials/html/framesEx1.htm');
end;

// Alle Frameseiten in einzelne Dateien speichern
procedure TForm1.Button2Click(Sender: TObject);
var
  IpStream: IPersistStreamInit;
  AStream: TMemoryStream;
  iw: IWebbrowser2;
  i: Integer;
  sl: TStringList;
begin
  for i := 0 to Webbrowser1.OleObject.Document.frames.Length - 1 do
  begin
    iw := GetFrame(i);
    AStream := TMemoryStream.Create;
    try
      IpStream := iw.document as IPersistStreamInit;
      if Succeeded(IpStream.save(TStreamadapter.Create(AStream), True)) then 
      begin
        AStream.Seek(0, 0);
        sl := TStringList.Create;
        sl.LoadFromStream(AStream);
        sl.SaveToFile('c:\frame' + IntToStr(i) + '.txt');
        //  memo1.Lines.LoadFromStream(AStream);
        sl.Free;
      end;
    except
    end;
    AStream.Free;
  end;
end;

end.