调用com 方法

方法一（须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: