无痛使用Delphi Package( 二 ) Package的优点应用程序可以被高度的模

动态载入代码基本上是无痛使用，只要路径配置没有问题，基本上和使用普通单元没有区别
implementationusesUnit2, Unit3;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginshowmessage(TUser.create().showString());varFrom3 := TForm3.create(nil);From3.visible := true;end;动态加载动态加载和静态加载相反，无论是载入还是释放都要自己来处理，看起来好像是动态载入,这种方式个人感觉相当麻烦，虽然本质上和dll的动态加载一样，但是因为在导入的元素中多了类的概念，所以还需要使用反射的方式创建类的对象才能实现类成员的引用
implementationuses rtti, System.StrUtils;{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var// 声明和Package导出列表中一致结构的过程add01: procedure(Msg: String); stdcall;// 声明和Package导出列表中一致结构的函数add02: function(Num1: Integer; Num2: Integer): Integer; stdcall;begin// 载入bpl格式的PackagevarPackageHandle := LoadPackage('Package1.bpl');if PackageHandle <> 0 thenbegin// 载入成功之后获取对应函数、过程的指针@add01 := GetProcAddress(PackageHandle, 'ShowMsg');@add02 := GetProcAddress(PackageHandle, 'add');if @add01 <> nil thenbegin// 调用add01('HelloWorld');showmessage(add02(1, 2).Tostring);end;end;// 对于类我们需要先创建类的对象然后才可以实现类中函数的调用var// 创建运行期上下问对象rc := TRttiContext.create;var// 载入对应单元中的类，注意此处需要写单元名+类名ClassType := rc.FindType('Unit2.TUser');var// 获取元类实例(对象)Instance := ClassType.AsInstance;var// 获取该实例的元信息类型QRClass := Instance.MetaclassType;var// 获取用于创建TUser类型的构造方法CreateMethod := Instance.GetMethod('Create');var// 利用获取到的构造方法对象，创建TUser类对象User := CreateMethod.Invoke(QRClass, []);var// 函数调用rs := ClassType.GetMethod('ShowString').Invoke(User, []);// 显示返回值showmessage(rs.asstring);//卸载包UnloadPackage(PackageHandle);end;从上面动态加载的代码可以看出涉及到反射相关的知识，个人感觉这种方式在使用起来不太方便，当然如果对反射比较熟悉的话那就没问题了
动态载入参考代码我在搜索Package相关内容的使用看到下面这段代码，它也可以实现创建类的对象，只是中间出现的类型的强制转换，个人不是特别推荐，只是记录一下作为笔记参考
function CreateFormByClassName(ClassName: string): integer;varAClass: TPersistentClass;AForm: TCustomForm;beginResult := mrNone;AClass := GetClass(ClassName);if AClass <> nil thenbeginAForm := TComponentClass(AClass).Create(Application) as TCustomForm;Result := AForm.ShowModal;end;官方参考文档官方文档是英文的，我也是翻看+翻译读了很久挑了几篇有用的

(Delphi)

无痛使用Delphi Package( 二 )

推荐阅读

汽车| 越系车来了？越南豪华车现身国内售价130万元

最高法发布建设工程新司法解释加强保护建筑工人权益

儿童生日食谱

陈戌源|期限已到！陈戌源许诺的职业联盟杳无音信，球迷：敢在央视撒谎

营养价值|最好吃的5种坚果，是天然的营养品，大家都喜欢吃吗？

轮回|《大圣归来》：五百年轮回，一切都是定数，我还是我

“9块9”抢电脑、无人机，京东9.9超级秒杀节掀起九月狂欢

佟丽娅|佟丽娅的古装简直是仙女下凡，长这么美还自卑？

高智商孩子的几个特征,婴儿智商高的10大特征这些表现看出高智商-

全新电脑被当废品捡走卖了3块|全新电脑被当废品捡走卖了3块什么情况？民警提醒别乱放！

街拍|街拍：休闲肆意的自在穿搭，百搭又有魅力！

一周岁宝宝大便带血

影视精华之所在|你想穿越回去做什么？，给你一台NBA时光机器

苗妈妈日记|宝宝醒来的反应，令宝妈捧腹大笑，妈妈趁宝宝睡着后为他剃头

博科园@并探索宇宙的许多奥秘和起源，韦伯太空望远镜明年发射！将能揭开

买卖驾驶证积分 4人被拘留

测出你的前世今生前世测试

金毛犬不能吃啥

美团网刚刚，滴滴官方正式辟谣美团并购传闻期间美团股价上涨13.79%

肖战|周杰伦，肖战，杨超越等人被曝大瓜！