ActiveX组件与JavaScript交互

转载 2007年10月06日 21:16:00
可能大部分人对JavaScript调用ActiveX比较熟悉,但在ActiveX中如何调用JavaScript的函数呢?网上看过一篇用C++编写的ActiveX组件调用JavaScript函数的贴子,但似乎没人关心Delphi中如何编写相应功能的代码,前段时间研究了一下,很简单,现分享出来。

1.建立ActiveXForm工程,添加对SHDocVw,MSHTML单元的引用;

2.在类中声明如下私有函数:

  private
    FWebBrowser: IWebBrowser2;

    function FindIEWebBrowser: IWebBrowser2;
    function FindIEWindow(ParentHandle, ChildHandle: HWND): Boolean;

    function CallScript: Boolean;
  end;

3.按Ctrl + Shift + C生成程序体代码,完善代码如下(关于获取组件所在IE窗口的IWebBrowser2接口,在我的另一篇文章里有详细介绍:http://blog.csdn.net/reonlyrun/archive/2006/12/15/1444635.aspx):

function TActiveFormX.FindIEWebBrowser: IWebBrowser2;
var
  tmpShell: IShellWindows;
  tmpIntf: IDispatch;
  tmpIE: IWebBrowser2;
  i, Count: Integer;
begin
  try
    if FWebBrowser = nil then
    begin
      Count := 0;
      repeat
        tmpSHell := CoShellWindows.Create;
        for i := 0 to tmpShell.Count - 1 do
        begin
          tmpIntf := tmpShell.Item(i);
          if tmpIntf = nil then continue;
          tmpIntf.QueryInterface(IID_IWebBrowser2, tmpIE);
          if tmpIE = nil then Continue;
          if (Integer(Handle) = tmpIE.HWND) or FindIEWindow(Integer(tmpIE.HWND), Handle) then
            FWebBrowser := tmpIE;
        end;
        Inc(Count);
        Sleep(50);
        Application.ProcessMessages;
      until (FWebBrowser <> nil) or (Count > 50);
    end;
    Result := FWebBrowser;
  except
  end;
end;

function TActiveFormX.FindIEWindow(ParentHandle,
  ChildHandle: HWND): Boolean;
var
  tmpHandle : HWND;
begin
  tmpHandle := GetParent(ChildHandle);
  if tmpHandle = 0 then
  begin
    Result := False;
    Exit;
  end else
  begin
    if tmpHandle = ParentHandle then
    begin
     Result := True;
     Exit;
    end else
    begin
      Result := FindIEWindow(ParentHandle, tmpHandle);
    end;
  end;
end;

function TActiveFormX.CallScript: Boolean;
var
  tmpDocument2: IHTMLDocument2;
  tmpDispID: Integer;
  tmpScriptName: WideString;
  tmpDispParams: TDispParams;
  tmpResult: Variant;
  tmpParam1Value, tmpParam2Value: WideString;
  tmpExcepInfo: TExcepInfo;
begin
  try
    tmpDocument2 := FindIEWebBrowser.Document as IHTMLDocument2;
    //获取角本函数的指针,角本函数名为"CallScript"
    tmpScriptName := 'CallScript';
    OleCheck(tmpDocument2.Script.GetIDsOfNames(GUID_NULL, @tmpScriptName, 1, LOCALE_SYSTEM_DEFAULT, @tmpDispID));

    //设置参数个数
    tmpDispParams.cArgs := 2;
    //设置参数值
    New(tmpDispParams.rgvarg);
    tmpParam1Value := 'Hello';
    tmpDispParams.rgvarg[0].bstrVal := PWideChar(tmpParam1Value);
    tmpDispParams.rgvarg[0].vt := VT_BSTR;
    tmpParam2Value := 'World';
    tmpDispParams.rgvarg[1].bstrVal := PWideChar(tmpParam2Value);
    tmpDispParams.rgvarg[1].vt := VT_BSTR;
    tmpDispParams.cNamedArgs := 0;

    //调用脚本函数
    OleCheck(tmpDocument2.Script.Invoke(tmpDispID, GUID_NULL, LOCALE_SYSTEM_DEFAULT,
      DISPATCH_METHOD, tmpDispParams, @tmpResult, @tmpExcepInfo, nil));
    ShowMessage(tmpResult);
    Result := true;
  except
    Result := false;
  end;
end;

4.在Type Library中对IActiveFormX添加一个新方法,后面会在JavaScript中调用该函数,函数体代码如下:

function TActiveFormX.CallActiveX(const Param1,
  Param2: WideString): WideString;
begin
  Result := Param1 + ' ' + Param2;
  ShowMessage('ActiveX: ' + Result);
end;

5.在窗体上添加一个Button,命名为btnCallScript,完成其Onclick事件的响应代码:

procedure TActiveFormX.btnCallScriptClick(Sender: TObject);
begin
  CallScript;
end;

6.发布该工程,修改网页文件内容如下:


 

<HTML>
<H1> Delphi 6 ActiveX Test Page </H1><p>
You should see your Delphi 6 forms or controls embedded in the form below.
<HR><center><P>
<script language="javascript">
   
function CallScript(Param1, Param2)
   {
      tmpMsg 
= Param1 + " " + Param2;
      alert(
"JavaScript: " + tmpMsg);
      
return "ActiveX: " + tmpMsg;
   }
   
function CallActiveX(Param1, Param2)
   {
      tmpMsg 
= document.getElementById("ActiveX1").CallActiveX(Param1, Param2);
      alert(
"JavaScript:" + tmpMsg);
   }
</script>
<input id="input1" value="CallActiveX" type="button" onclick="CallActiveX('Hello', 'World')">
<br>
<OBJECT id="ActiveX1"
      classid
="clsid:3CA0A261-4183-4630-A280-6F616196514D"
      codebase
="ActiveFormProj1.cab#version=1,0,0,0"
      width
=690
      
height=450
      
align=center
      
hspace=0
      
vspace=0
>
</OBJECT>
</HTML>

 

7.发布网页和打包的程序,在IE中输入相应路径,正确执行界面如图,分别点击网页按钮和ActiveX组件窗体内的按钮可以观察交互情况。值得注意的是,由ActiveX调用JavaScript时参数的传递顺序正好逆转过来(个人以为应该是C++编译器和Delphi编译器对参数的压栈顺序不同),在开发项目时要注意该问题。

 

相关文章推荐

ActiveX组件与JavaScript交互

ActiveX组件与JavaScript交互 2007-10-24 23:55 1.在COM组件中调用JavaScript函数 // 连接点方式页面javascript脚本 ...
  • msbbc
  • msbbc
  • 2011年11月30日 08:06
  • 835

activex和javascript交互(delphi版本)

利用Delphi的ActiveForm,可以很方便地开发出可以嵌入IE的ActiveX组件,无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢,研究了一个...

高德地图组件在Android的应用以及Android与JavaScript的交互(二)

这篇博客写得很纠结,因为本来快写好了,却在准备发表博客的时候发现两个bug,到处找人请教的过程中又把写了五个小时的博客内容给误删了,所以真可谓好事多磨!可幸的是两个bug被我解决了,所以我打算写出来,...

高德地图组件在Android的应用以及Android与JavaScript的交互(一)

最近在慕课网学习了关于高德地图组件的课程(其实就是一个广告,内容和官网的API完全一样),发现这个JavaScript API比Android API简单方便多了,于是就打算放在Android APP...

Android中的WebView组件与JavaScript交互

WebView和js的交互包含两方面,一是在html中通过js调用安卓的java代码;二是在安卓java代码中调用js。 一、html中通过js调用java代码 js中调用java代码其实就记住一...
  • Akeron
  • Akeron
  • 2017年01月19日 17:28
  • 139

VS 2010 开发 ActiveX 交互篇一

JavaScript 调用 ActiveX 控件中的方法 1. 在 InfoViewer 中添加一方法,用来弹出一个MessageBox public void Alert(str...
  • abccome
  • abccome
  • 2013年03月21日 16:25
  • 462

ActiveX与JS交互

0011.在COM组件中调用JavaScript函数002// 连接点方式页面javascript脚本003"CLSID:B568F111-DFE4-4944-B67F-0728AB2AB30F" i...

如何编写能在Office 2010/2007设计时能正常绘制并能进行交互的ActiveX控件

需求&问题: 最近在写一个产品时需要一个能在Word以及Excel中正常显示并进行交互操作的ActiveX控件,并且该控件必须要能与VSTO写的TaskPanel(TaskPanel由WPF MVV...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ActiveX组件与JavaScript交互
举报原因:
原因补充:

(最多只允许输入30个字)