delphi webbrowser中
--------------
<html>
<body>
some html..... <iframe id="iframe_1" name="iframe_1">
some html.......
<iframe id="iframe_2" name="iframe_2" src="srcpage.html"></iframe>
</iframe>
</body>
</html>
---------------
srcpage.html代码
<html>
some html..... <a href="javascript:jscript()" id="lnkhelp" onclick="jscript('CC.compose();')">帮助</a>
<textarea name="T1" id="T1"></textarea>
</html>
------------
srcpage.html同域
访问srcpage.html的源代码和调用srcpahe.html中的javasript和对textarea赋值,请注意的是此srcpage.html在iframe_1的iframe_2中,
另外所有的html代码不能做修改,因为不是自己的网页。
给出正确答案或者正确思路者可以独得1000分(最好为delphi代码),如此贴分不够,开贴给够1000分为止
--------------
<html>
<body>
some html..... <iframe id="iframe_1" name="iframe_1">
some html.......
<iframe id="iframe_2" name="iframe_2" src="srcpage.html"></iframe>
</iframe>
</body>
</html>
---------------
srcpage.html代码
<html>
some html..... <a href="javascript:jscript()" id="lnkhelp" onclick="jscript('CC.compose();')">帮助</a>
<textarea name="T1" id="T1"></textarea>
</html>
------------
srcpage.html同域
访问srcpage.html的源代码和调用srcpahe.html中的javasript和对textarea赋值,请注意的是此srcpage.html在iframe_1的iframe_2中,
另外所有的html代码不能做修改,因为不是自己的网页。
给出正确答案或者正确思路者可以独得1000分(最好为delphi代码),如此贴分不够,开贴给够1000分为止
访问srcpage.html的源代码和调用srcpage.html中的javasript和对textarea赋值,请注意的是此srcpage.html在iframe_1的iframe_2中,
另外所有的html代码不能做修改,因为不是自己的网页。
给出正确答案或者正确思路者可以独得1000分(最好为delphi代码),如此贴分不够,开贴给够1000分为止
http://www.quping.com/main/Article/ShowArticle.asp?ArticleID=178
procedure TForm1.Button1Click(Sender: TObject);
begin
wb.OleObject.document.documentelement.document.frames.item(1).document.all.item('T1').value := '要輸入的內容';
wb.OleObject.document.documentelement.document.frames.item(1).document.all.item('lnkhelp').click;
end;其它的類似如得到源代碼:
memo1.line.text := wb.OleObject.document.documentelement.document.frames.item(1).document.body.innertext;