关闭

ActiveX组件与JavaScript交互

1320人阅读 评论(0) 收藏 举报
可能大部分人对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编译器对参数的压栈顺序不同),在开发项目时要注意该问题。

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:219177次
    • 积分:2721
    • 等级:
    • 排名:第13705名
    • 原创:26篇
    • 转载:132篇
    • 译文:0篇
    • 评论:32条
    最新评论