|
bsp; Label1: TLabel;
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]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
