怎样用webbrowser访问带有框架的网页？(200分)

bamboo_flute · 2004-02-06

我想访问一下网页，这个网页有三个框架，可是用webbrower找不到里的对象。
代码是这样的：

<script language="JavaScript">

</script>
<html><head><title>网络办公系统</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
<script language=JavaScript>
window.self.focus();
</script>
</head>
<frameset name=mm id=mm border=false frameBorder=0 frameSpacing=0 rows="70,10,*,0">
<frame name=top noResize scrolling=no src="top.asp" target="middle">
<frame name=to_TOP src="go_TOP.htm" scrolling=no >
<frame name=middle src="main0.htm" target="bottom">
<frame name=bottom scrolling=no src="bottom.asp">
<noframes>
</noframes>
<frame src="UntitledFrame-2">
</frameset>
</html>
我想访问每指定的框架里的内容，该怎么办？
我这里先谢谢了！

lwjkjk · 2004-02-07

我也遇到这样的问题，盼高手解决，为表示诚意，我加200分

cyberwalker · 2004-02-07

procedure ParseFrameObject(const doc: IHtmldocument2);
var
n: integer;
begin
n:=doc.parentWindow.frames.length;
if n>1 then DoParseFrameObject(doc);
end;

procedure DoParseFrameObject(const doc: IHtmldocument2);
var
Container: IOleContainer;
Enumerator: IEnumUnknown;
Unknown: IUnknown;
Browser: IWebBrowser2;
NewDoc: IHTMLDocument2;
Fetched: Longint;
begin
if(Supports(doc,IOleContainer,Container))and(Container.EnumObjects(OLECONTF_EMBEDDINGS,Enumerator)=S_OK)
then
begin
while Enumerator.Next(1,Unknown,@Fetched)=S_OK do
begin
if(Supports(Unknown,IWebBrowser2,Browser))and(Supports(Browser.document,IHTMLDocument2,NewDoc))then
begin
// ParseDocumentObject(NewDoc);
ParseFrameObject(NewDoc);
end;
end;
end;
end;

bales · 2004-02-18

FMap.OleObject.Document.frames.item(3).document.forms.item(0).document.getElementById('lonfrom').value :=5;

//FMap:TwebBrowser
//lonfrom为网页中text的ID名
//此语句的意思为，将第3个框架的第0个表单中的lonfrom的编辑框赋值为5.

怎样用webbrowser访问带有框架的网页？(200分)

bamboo_flute

Unregistered / Unconfirmed

lwjkjk

Unregistered / Unconfirmed

cyberwalker

Unregistered / Unconfirmed

bales

Unregistered / Unconfirmed

Similar threads