Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    v_Obj:TCalculator;

  end;

{静态调用DLL，注意返回类型与DLL中的不同，为抽象类的名称必须与DLL中的一致}

  Function CreateCalcImple:TCalculator;stdcall;External ''''ComDLL.dll'''';

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  v_Obj:=CreateCalcImple;

  Edit3.Text:=FloatToStr(v_Obj.Addition(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text)));

  v_Obj.Free;

end;

end.

升华到理论：

l        D L L中定义的对象只能引出抽象方法。当建立对象时， D L L向应用程序返回虚拟方法的指针表VTable。

l        在定义抽象类的时候，定义的方法为：

Function Addition(Op1,Op2:Double):Double;virtual;abstract;

后面加上abstract（抽象方法表示）的原因是因为只有抽象方法才能被引出。

l        在执行文件中，通过DLL的出口实际只创建了一个接口，但是可以像使用对象一样来调用其方法，这就有点开始尽是于COM了。

有上面几点引出：

1、COM的接口可以看成一个占位符，具体的实现是在接口对应的类中；就像我们定义的抽象类（TCalculator）中的Addition方法，只是一个没有任何意义的描述符，但通过实现类（TCalcImple）中引出后便有了具体的意义；

2、COM接口的访问必须通过其接口类进入后才能够访问。就如我们例子中加入CreateCalcImple方法一样，只有建立这个接口类（Interface）后才可以访问具体的接口。

3、也就是说，一个COM必须具备三个方面的元素：接口定义类、接口实现类、接口创建类。只要具备了这三个方面的元素就可以实现COM。

(待续…)

上一页  [1] [2]