盒子论坛 v2.1

//这个是twebbrowser的代码，用TEmbeddedWB也没有问题
procedure TForm1.ExecJS(const aCode: String; const output: Boolean = true);
var
   Doc2: IHTMLDocument2;
   Win2: IHTMLWindow2;
begin
   Doc2 := WebBrowser1.Document as IHTMLDocument2;
   Win2 := Doc2.parentWindow;

   if output then
   begin
      // keep a history queue in the Items
      if cbJS.Items.Count > 10 then
         cbJS.Items.Delete(10);
      cbJS.Items.Insert(0, aCode);

      Memo1.Lines.Add(aCode);
   end;

   try
      Win2.execScript(aCode, 'JavaScript');
   except
      Memo1.Lines.Add('JavaScript caused an exception.');
   end;
end;

//这个你可以改成loadFromFile
function TForm1.RetrieveJQueryFromResource: String;
var
   rs: TResourceStream;
   ss: TStringStream;
begin
   rs := TResourceStream.Create(HInstance, 'JQUERY', RT_RCDATA);
   try
      ss := TStringStream.Create;
      try
         ss.LoadFromStream(rs);

         ss.Position := 0;
         Result := ss.DataString;
      finally
         ss.Free;
      end;
   finally
      rs.Free;
   end;
end;
//页面加载jquery
procedure TForm1.btnInjectJQueryClick(Sender: TObject);
begin
   ExecJS(RetrieveJQueryFromResource, false);
end;
----------------------------------------------
-

作者：

badwood (badwood)	★☆☆☆☆	-
	盒子活跃会员

2017/2/24 14:50:18

3楼：

我可能没说清楚

是用控件访问使用了JQUERY脚本的网站，TWEBBROWSER会报错，TEmbeddedWB不报错，但无效。
----------------------------------------------
-

作者：

yangweng (yangweng)	★☆☆☆☆	-
	普通会员

2017/2/24 17:26:14

4楼：

ie跟jquery的兼容问题，跟控件没有关系的，尽可能安装高版本的吧
----------------------------------------------
-

作者：

badwood (badwood)	★☆☆☆☆	-
	盒子活跃会员

2017/2/24 19:11:09

5楼：

TWEBBROWSER 没法改版本吧。
TEmbeddedWB调用的是系统的IE吧，应该是最新的了，我系统是IE11。
----------------------------------------------
-

作者：

chro (chro)	★☆☆☆☆	-
	普通会员

2017/2/24 21:40:15

6楼：

TEmbeddedWB不知道。
TWEBBROWSER调用MS的activex，该activex默认是IE7，需要特殊设置才能使用更高版本的IE
----------------------------------------------
-

作者：

liang1zhou (Mark zql)	★☆☆☆☆	-
	普通会员

2017/2/25 8:29:03

7楼：

改注册表可以使用任何ie版本的内核
----------------------------------------------
-

信息

登陆以后才能回复