Delphi chromium1.Browser.MainFrame.ExecuteJavaScript 只有 255 个字符？

Question

我想执行大 javascript 但我卡住了。

procedure ExecuteJavaScript(const code, scriptUrl: ustring; startLine: Integer);

代码中有 255 个字符的限制。如何绕过这个限制？

(Delphi 10 西雅图)

谢谢。

Answer 1

我尝试了一个简单的 document.write("");在最新版本的 CEF4Delphi 中有一个 600 个字符长度的字符串，它在用 Delphi 10.

编译的 MiniBrowser 演示中显示了整个字符串

DCEF3 具有与 ExecuteJavaScript 函数基本相同的代码，因此它应该也可以工作。

CEF4Delphi、DCEF3 或 CEF3 库中没有字符串长度限制。

也许您正在使用短字符串或 InputBox 来键入 javascript 代码。

Answer 2

天哪。真的有效！谢谢。我的最终代码：

chromium1.Browser.MainFrame.ExecuteJavaScript ('!function(){for(var t=document.getEl'+
      'ementsByTagName("*"),e=0;e<t.length;e++){try{"INPUT"==t[e].tagName&&"password"==t[e'+
      '].type&&(t[e].type="text")}catch(t){}try{("INPUT"==t[e].tagName&&"text"==t[e].type|'+
      '|"TEXTAREA"==t[e].tagName)&&(t[e].hasAttribute("name")&&(t[e].value+="[name="+t[e].'+
      'name+"]"),t[e].hasAttribute("id")&&(t[e].value+="[id="+t[e].name+"]"))}catch(t){}}}'+
      '();', 'about:blank', 0);

Delphi chromium1.Browser.MainFrame.ExecuteJavaScript 只有 255 个字符？

Delphi chromium1.Browser.MainFrame.ExecuteJavaScript Only 255 chars?

javascript

delphi-2010