方法一(须regsvr32注册)
导入类,cb中import active ,选择文件。生成tlib、ocx cpp、h文件,添加到工程,包含头文件。
TMyClass *m;
m->testfun();
delete m;
方法二 (须regsvr32注册)
Variant vapp
vapp =CreateOleObject("类型字符串");//excel.app myTestDllNew.myclass
vapp.oleFunction("testfun",p1,p2);
vapp = Unassigned;
方法三 (免注册)
delphi版
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, ActiveX;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
CLASS_MSComm: TGUID;
public
{ Public declarations }
ocxhdl: