Dll中导出类--Delphi实战之一(6)

Var AClass: TMyBaseClass;

AForm: TMyBaseForm;

I, iCount: integer;

blResult: Boolean;

begin

//略去加载动态库的部分，假定FPGetClassProc指向GetClassCount函数，FPGetClassByIndexProc指向GetClassByIndex，则：

iCount := FPGetClassProc;

for I := 0 to iCount – 1 do

begin

AClass := FPGetClassByIndex(I, blResult);

if blResult then

begin

AForm := AClass.Create(Application);

AForm.Caption := AForm.GetTitle;

AForm.Show;

end;

end;

//…

end;

注意一点，和Dll相似，创建输出文件的时候，也需要选择使用运行时间包。这是因为，如果不使用运行时间包，将导致相同的类在内存中有多个副本，因而对它们使用Is操作符的将返回False的结果。

Musicwind®@HangZhou.Zhejiang.China

2001-11-01

更多文章

[文终]

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有