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

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博客 ” ，链接：http://blog.itpub.net/166523/viewspace-764471/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-764471/