DELPHI使用

uses ComObj;

var PZHPrj: Variant;

PZHPrj := CreateOleObject('PZHPrj.ComDLL');

i:=PZHPrj.InitReader(0);

ASP使用：

<%

Dim obj

Set bj=Server.CreateObject("PZHPrj.ComDLL")

obj.InitReader(0)

Set bj=nothing

%>

JSP使用

var PZHPrj = new ActiveXObject('pEncryptDLL.ComDLL');

str=PZHPrj.Auth("12345678","111111111111"); //函数调用

C#使用

添加到 Refrences中

using PZHPrj;

ComDLL DllFile = new ComDLL();

try

{

int i = int.Parse(DllFile.InitReader(0));

if (i == 0)

{

textBox1.Text = i.ToString();

}

catch (Exception E)

{

MessageBox.Show(E.Message);

}

ITPub博客

用 Delphi 7 创建 ActiveX 组件DLL 在其他语言中调用