从WebBrowser控件中取得指定FrameNo号的Document的内容,如果你不知道iframe号可从WebBrowser1.document的所有tag中循环查找!
Function TfrmMain.GetFrame(web:TWebbrowser;FrameNo:Integer):IWebbrowser2;
var
OleContainer:IOleContainer;
enum:IEnumUnknown;
unk:IUnknown;
Fetched:PLongint;
begin
Result := nil;
while web.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;
if Assigned(web.document) then
begin
Fetched:=nil;
OleContainer:=web.Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS,enum);
Enum.Skip(FrameNo);
Enum.Next(OLECONTF_EMBEDDINGS,Unk,Fetched);
Result:=Unk as IWebbrowser2;
end
else Result:=nil;
end;