🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.nativeapi
Article #8798

Re: Dynamic package loading

#8798
From: Pang Fu
Date: Thu, 19 Jun 2003 13:32
20 lines
1878 bytes
>    (3) Can some one convert the following Delphi code into BCB (please
make
> sure that BCB code does not complain about invalid type conversion at run
> time on LoadPackage line).

type
  TProc00 = procedure;
var
  PackageModule: HModule;
  Proc00: TProc00;
begin
  PackageModule := LoadPackage('Package1.bpl');
  if PackageModule <> 0 then
  begin    @Proc00 := GetProcAddress( PackageModule, 'ProC00' );
    if @Proc00 <> nil then
      Proc00;

    UnloadPackage(PackageModule);
  end;
end;
Technical Details
Message-ID: <3ef1bb17@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.wirehub.nl!news.kweb.on.ca!newsgroups.borland.com!not-for-mail
References: <3ef1b8d2@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,805caadba3d61bfd
X-Google-Attributes: gid10cc67,public
X-Google-Thread: f8e31,805caadba3d61bfd
X-Google-Attributes: gidf8e31,public
X-Google-Thread: 10db1e,805caadba3d61bfd
X-Google-Attributes: gid10db1e,public
X-Google-Thread: f94dd,805caadba3d61bfd
X-Google-Attributes: gidf94dd,public
X-Google-Thread: 102541,805caadba3d61bfd
X-Google-Attributes: gid102541,public
X-Google-ArrivalTime: 2003-06-19 06:33:25 PST
From: "Pang Fu" <pangfu@hotmail.com>
Newsgroups: borland.public.cppbuilder.nativeapi,borland.public.cppbuilder.oodesign,borland.public.cppbuilder.students,borland.public.delphi.nativeapi,borland.public.delphi.students
References: <3ef1b8d2@newsgroups.borland.com>
Subject: Re: Dynamic package loading
Date: Thu, 19 Jun 2003 23:32:17 +1000
Lines: 24
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: 210.50.176.28
Message-ID: <3ef1bb17@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1056029463 210.50.176.28 (19 Jun 2003 06:31:03 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.wirehub.nl!news.kweb.on.ca!newsgroups.borland.com!not-for-mail