I do NOT WANT TO USE PACKAGES (BPL) only DLL.!!!!!
I do NOT WANT TO USE PACKAGES (BPL) only DLL.!!!!!
I made an application ,fairly complex over 10 years ago,to show all information
of a dfm file . components,properties and much more including editing and making a pas!! out of a dfm.
I am using alot whene i need to know the properties of a problematic dfm,so i can change its properties.
(The IDE some times reject the dfm!!).
Now to the point. I intend to publish the program. for that i want to make a DLL for programers, JvPlugin?
to publish component in Dll. at a time i was talled it is imposible to do it.I made a small test program+dll.
In the Dll
uses
SysUtils, LblEffct, << this to register
Classes,
DllForm in 'DllForm.pas' {frmDllForm};<< just for testing not needed
function GetClass : TPersistentClass;
begin
result := TLabelEffect;<<<<<<<< send component
end;
------------------------------------
In the main test project i have
function GetMyClass:TPersistentClass;stdcall;external
'Project1dll.dll' name 'GetClass';
procedure TForm1.Button3Click(Sender: TObject);
var
x:TPersistentClass;
y:TClass;
begin
x:= GetMyClass ;
// x.ClassName <<<< i can see the name !! but
// y:=x.ClassParent;
//x.
// RegisterClass(TPersistentClass(TComponentClass(x)));
RegisterClass(TPersistentClass(x)); <<<<< this DOSE NOT WORK ERROR any better idea if posible
y:=FindClass('TLabelEffect');
end;
As a matter of fact i want to get an ARRAY OF COMPONETS and use RegisterClasses.
Any Help?
I made an application ,fairly complex over 10 years ago,to show all information
of a dfm file . components,properties and much more including editing and making a pas!! out of a dfm.
I am using alot whene i need to know the properties of a problematic dfm,so i can change its properties.
(The IDE some times reject the dfm!!).
Now to the point. I intend to publish the program. for that i want to make a DLL for programers, JvPlugin?
to publish component in Dll. at a time i was talled it is imposible to do it.I made a small test program+dll.
In the Dll
uses
SysUtils, LblEffct, << this to register
Classes,
DllForm in 'DllForm.pas' {frmDllForm};<< just for testing not needed
function GetClass : TPersistentClass;
begin
result := TLabelEffect;<<<<<<<< send component
end;
------------------------------------
In the main test project i have
function GetMyClass:TPersistentClass;stdcall;external
'Project1dll.dll' name 'GetClass';
procedure TForm1.Button3Click(Sender: TObject);
var
x:TPersistentClass;
y:TClass;
begin
x:= GetMyClass ;
// x.ClassName <<<< i can see the name !! but
// y:=x.ClassParent;
//x.
// RegisterClass(TPersistentClass(TComponentClass(x)));
RegisterClass(TPersistentClass(x)); <<<<< this DOSE NOT WORK ERROR any better idea if posible
y:=FindClass('TLabelEffect');
end;
As a matter of fact i want to get an ARRAY OF COMPONETS and use RegisterClasses.
Any Help?
Comments
Post a Comment