Hello all.
I'm using Delphi 7, and I've got a driver in a BPL file that I wish to
load dynamically. I've added the problem code below.
What I do is, locate the file, then run LoadPackage, and then
GetProcAddress, to run the procedure (GetDriver) that returns the driver
object (the procedure creates the proper subclass of the parent driver
class).
However, when I run the code, the driver procedure (ExecF) is
unassigned, and that of course, is not what should be.
The GetDriver is declared globally and implemented in the driver BPL,
and is defined exactly as the ExecF variable below is.
Any ideas what I'm doing wrong here?
P.S. The code I use to run it is based on a demo source I found in
delphi.about.com. I'm pretty much certain that it should work as
advertised. :-)
Thanks,
Assaf.
procedure TfrmPSM.FormCreate(Sender: TObject);
var aPointSensorDrv: TPointSensorDrv;
aPackageList: TStringList;
phm: HModule;
ExecF: procedure (var aPointSensorDrv: TPointSensorDrv);
begin
aPackageList := TStringList.Create;
aPackageList.Add(ExtractFilePath(Application.ExeName) +
'PsWirOneWay.bpl');
phm := LoadPackage(aPackageList.Strings[0]);
if phm <> 0 then // <---------- This works fine
try
@ExecF := GetProcAddress(phm, 'GetDrive');
if Assigned(ExecF) then
//--------------^^^^^
// This returns nil, and Assigned returns false.
begin
ExecF(aPointSensorDrv);
end;
finally
UnloadPackage(phm);
end;
end;
Assaf Stone
Spacelogic ltd.
[EMAIL PROTECTED]
Tel: 972-9-8855565 ext. #315
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
