Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 287
  • Last Modified:

Is it possible to instantiate a TFrame from a DLL where the calling EXE is not linked to the frame unit?

I'm interested in writing an application that does 'snap-ins' similar to, say, Microsoft Management Console, or Novell NetWare Administrator. The idea is that there would be a small framework EXE that searches through a directory full of DLLs to find its GUI functionality. Each DLL would implement one (or perhaps several) TFrame-descended class. The EXE would then display the frame on a panel somewhere.

The problem is, even in very simple sample code, if you instantiate a TFrame in a DLL and pass a pointer to it back to the EXE, bad things happen. I suspect the problem is that the VCL linked into the EXE doesn't know about the classes in the DLL, therefore can't display them. Or something. Anyway, it doesn't work.

Steps to reproduce what I'm seeing:

In Delphi 5, create two projects. The first is a DLL. Create a frame within the DLL form and put some random thing on it, like a label that says "this is the frame." Then export a function from the DLL that looks like this:

function CreateFrame: TFrame; safecall;
begin
  result := TFrame1.Create(Application);
end;

Note that this means Forms must be in the uses clause of the DLL main library unit. I've tried it with and without. I've also tried it with and without ShareMem present in the uses clauses.

Then, create a new application, put a button on the main form, and add code to the button that looks like this:

function CreateFrame: TFrame; safecall; external 'dll.dll';

procedure TForm1.Button1Click(Sender: TObject);

var
  Frame: TFrame;

begin
  Frame := CreateFrame;
  Frame.Parent := self;
end;

When I run the project, CreateFrame works correctly (ie, it returns a pointer); but on the Frame.Parent assignment, I get "cannot assign a TFont to a TFont" followed by GPFs, exceptions, etc.

I'll give 200 points to someone who can establish authoritatively that this is impossible - or 1000 points to someone who can make it work. :-)

-Graham
0
ghjm
Asked:
ghjm
  • 3
  • 2
1 Solution
 
EpsylonCommented:
0
 
EpsylonCommented:
It uses forms instead of frames because I used Delphi 4 at that time. But I think it is basically what you are looking for.

If you need assistance, please tell me.
0
 
ghjmAuthor Commented:
In fact, that will do nicely. I thought this question would be a great deal more difficult than it turned out to be. :-)

Post an answer so I can award points.
0
 
ghjmAuthor Commented:
Oh, they've changed the interface so you can accept a comment as an answer. Shows how long it's been since I've been here. :-)
0
 
EpsylonCommented:
Well.. there have been some lengthy threads and terrible headaches because of this issue, before that demo became what it is today.   :o]
0

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now