用Tchromium替代webbrowser提交网页表单有关问题

时间:2024-01-21 18:52:51

用Tchromium替代webbrowser提交网页表单有关问题

提交表单时,使用js脚本,然后用 chrm.browser.Frame['ff'].ExecuteJavaScript 提交就可以。

我测试对百度主页提交数据进行搜索,

strTemp := 'document.forms[0].wd.value=http://www.myexception.cn/delphi/"新闻热点";'
 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;