bpl 使用之我见 作者:陈晓兵 lead001@126.com, …
2008-04-09 04:21:15来源:互联网 阅读 ()
bpl 使用之我见
写在前面
在此不再赘述bpl与dll的比较,只介绍bpl的动态调用。如需转载敬请保留原版作者信息,
及实现部分的完整性,
开始---------------------------------------->
实现过程
<第一部分 接口单元>
创建一个接口单元
{$WEAKPACKAGEUNIT}
unit uInterface;
interface
uses
Classes, Forms;
type
TBaseClss = class(TComponent)
function CreateForm:TForm; virtual; stdcall;abstract;
...
end;
implementation
{ TBaseClss }
end.
<第二部分 调用的主程序>
选项设置
Project -> Options -> Packages : Runtime Packages
将Build with Runtime Packages复选框选中;
引用uInterface单元
调用过程
function LoadPacket(Fbpl, FClass: String): Boolean;
var
FForm : TForm;
FPersistentClass: TPersistentClass;
FBaseClss : TBaseClss;
H: HMODULE;
begin
try
try
H := 0;
H := LoadPackage(Fbpl);
FPersistentClass := FindClass(FClass);
if FPersistentClass <> nil then
begin
FBaseClss :=
TBaseClss(TComponentClass(FPersistentClass).Create(Application));
FForm := nil;
FForm := FBaseClss.CreateForm;
FBaseClss.Free;
FBaseClss := nil;
FPersistentClass := nil;
if Assigned(FForm) then
begin
FForm.ShowModal;
FreeAndNil(FForm);
end;
end;
except
Application.MessageBox(''''此功能未安装'''', ''''提示'''', MB_OK
MB_ICONINFORMATION);
end;
finally
if H <> 0 then
begin
UnloadPackage(H);
H := 0;
end;
end;
end;
<第三部分 创建bpl包>
创建包
引用uInterface单元
创建接口类,实现TBaseClss
TTestClass = class(TBaseClss)
function CreateForm:TForm; override;
...
end;
function TTestClass.CreateForm: TForm;
var
Form2: TForm2;
begin
Form2 := TForm2.Create(Application);
if Assigned(Form2) then
Result := Form2
else
Result := nil;
end;
注册类
initialization
RegisterClass(TTestClass);
UnRegisterClass(TBaseClss);
反注册类
finalization
UnRegisterClass(TTestClass);
----------------------------------------结束>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash