利用Delphi的ActiveForm,，可以很方便地開發(fā)出可以嵌入IE的ActiveX組件,，無需知道太多幕后的COM知識,。如何使得OCX可以很方便地調(diào)用Web上的JavaScript函數(shù)呢,，研究了一個下午,，使用ActvieForm的Events接口搞定,。說穿了不值錢，只要一句代碼就搞定,，但是Google半天,，琢磨了N久，看來還是基本功不扎實,。

首先在ActiveForm的項目中找到ridl文件,，打開它，選擇ActiveForm的Events接口,，點擊右鍵,，建立一個新的方法，方法名為我需要調(diào)用javascript的函數(shù)名,。這里我要調(diào)用一個JS的上傳圖片腳本,，所以將其命名為“OnUploadPic”。得到這個事件的ID,，這里是209,。

來到xxx_TLB.pas文件中（xxx為你的項目名），在ActiveForm中Events接口中將這個OnUploadPic方法的聲明加進去,。

1

  procedure OnUploadPic; dispid 209;

然后HTML頁面中建立這個事件函數(shù),，注意event字段寫入事件名，for字段寫入你給OCX取的名字，也就<object>把OCX包進去的時候取的name值：

1
2
3

  <script language="javascript" event="OnUploadPic" for="OcxName">
        alert("hello Delphi!");
  </script>

然后在Delphi中需要調(diào)用這個函數(shù)的地方,，加入代碼：

1

  if FEvents <> nil then FEvents.OnUploadPic;

搞定,。

深層挖掘：

==========================================================================

ActiveX組件與JavaScript交互

1.建立ActiveXForm工程，添加對SHDocVw,，MSHTML單元的引用,；

2.在類中聲明如下私有函數(shù)：

private
FWebBrowser: IWebBrowser2;

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

function CallScript: Boolean;
end;

3.按Ctrl + Shift + C生成程序體代碼，完善代碼如下：

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;
//獲取角本函數(shù)的指針,，角本函數(shù)名為"CallScript"
tmpScriptName := 'CallScript';
OleCheck(tmpDocument2.Script.GetIDsOfNames(GUID_NULL, @tmpScriptName, 1, LOCALE_SYSTEM_DEFAULT, @tmpDispID));

//設(shè)置參數(shù)個數(shù)
tmpDispParams.cArgs := 2;
//設(shè)置參數(shù)值
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;

//調(diào)用腳本函數(shù)
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中調(diào)用該函數(shù)，函數(shù)體代碼如下：

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

5.在窗體上添加一個Button,，命名為btnCallScript,，完成其Onclick事件的響應(yīng)代碼：

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

6.發(fā)布該工程，修改網(wǎng)頁文件內(nèi)容如下：

7.發(fā)布網(wǎng)頁和打包的程序,，在IE中輸入相應(yīng)路徑,，正確執(zhí)行界面如圖，分別點擊網(wǎng)頁按鈕和ActiveX組件窗體內(nèi)的按鈕可以觀察交互情況,。值得注意的是,，由ActiveX調(diào)用JavaScript時參數(shù)的傳遞順序正好逆轉(zhuǎn)過來（個人以為應(yīng)該是C++編譯器和Delphi編譯器對參數(shù)的壓棧順序不同），在開發(fā)項目時要注意該問題,。