procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
memo1.Clear;
i:=WebBrowser1.oleobject.document.documentelement.document.frames.length;//得到frame的数量。
for j:=0 to i-1 do
begin
memo1.Lines.Add(WebBrowser1.oleobject.document.
documentelement.document.frames.item(j).document.
documentelement.innerhtml);//取得每个Frame中的HTML内容
end;
end;
