用Tchromium替代webbrowser提交网页表单问题
由于IE内核一直存在内存泄漏问题,没有办法,尝试使用谷歌的Tchromium。
参考文章 【用Tchromium替换webbrowser】
http://www.cnblogs.com/Delphi-Farmer/archive/2012/04/20/2459668.html
提交表单时,这位作者说使用js脚本,然后用 chrm.browser.Frame['ff'].ExecuteJavaScript 提交就可以。
我测试对百度主页提交数据进行搜索,
strTemp := 'document.forms[0].wd.value="新闻热点";'
chrm1.Browser.MainFrame.ExecuteJavaScript(strTemp,'about:blank',0);
为什么ExecuteJavaScript这个位置总是报错,高手帮我分析一下吧,不胜感激!!
[解决办法]
试试这个,我有个项目就是用这函数执行JS脚本的。
strTemp := 'document.getElementById(''wd'').value=''新闻热点'';';
InsertScript2Page(strTemp);
//---------------
function TMainForm.InsertScript2Page(sScript:string): Integer;
begin
m_Chromium1.Browser.MainFrame.ExecuteJavaScript(sScript,'',0);
end;