{------------------以下是调用包的主程序-----------------------}
unit TestImp;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,PackageUnit, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
var
DMpk:HMODULE;
h:TPersistentClass;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
DMpk:=LoadPackage('test1.bpl');
h := GetClass('TfrmPackage');
frmPackage:=TfrmPackage(TComponentClass(h).Create(Application));//程序执行到这儿就出错,什么内存冲突
frmpackage.ShowModal;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DMpk<>0 then UnLoadPackage(DMpk);
end;end.
unit TestImp;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,PackageUnit, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
var
DMpk:HMODULE;
h:TPersistentClass;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
DMpk:=LoadPackage('test1.bpl');
h := GetClass('TfrmPackage');
frmPackage:=TfrmPackage(TComponentClass(h).Create(Application));//程序执行到这儿就出错,什么内存冲突
frmpackage.ShowModal;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DMpk<>0 then UnLoadPackage(DMpk);
end;end.
解决方案 »
- delphi如何销毁某个控件(如panel)的子控件(如button)
- delphi的报错提示是什么意思?
- 网页填表 文本框 只有ID如何填表 delphi webbrowser
- openpicturedialog1 出错
- ADOQuery 参数传递问题?
- 求delphi6.0开发实务 迟忠先 电子工业出版社 电子书 哪有下载?
- 一个三层的服务器能承受多少用户?SOCKET SERVER能承受多少个客户?
- 一个数据库问题..............大家很常见的问题 up就有分。
- 如何用SQL语句删除SQL SERVER 2000的指定数据库,且不删除.mdf文件?
- 以下删除文件代码是否有错: deletefile(olddir+delform.combobox1.Text+'\'+inttostr(i)+'.txt');
- delphi日期查詢提示''项目在所需要的名称和序数中示被发现''
- 请教如何知道MOUSE点击的是DBGRID的哪一行哪一列???
initialization
RegisterClass(TfrmPackage);finalization
UnregisterClass(TfrmPackage);end.