![]() |
Package - einer Prozedur im Package einen Wert übergeben
Versuche seit kurzer Zeit meine Applikation durch Packages Modular aufzubauen. Habe es allerdings bisher nicht geschafft,
einer Prozedur in einer Unit im Package einen Wert mitzugeben. im PACKAGE
Delphi-Quellcode:
in der Hauptunit, die das Package aufruft
procedure Hallo(i:integer);
begin showmessage(inttostr(i)); end; exports //Hallo(i:integer); [i]// Error: ',' or ';' expected but '(' found...[/i] Hallo; end.
Delphi-Quellcode:
Wie kann ich der Procedur Hallo den Wert übergeben?
unit Unit_main;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls; type THallo = procedure; TForm1 = class(TForm) Panel1: TPanel; SpeedButton1: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private packagemodule:hmodule; Hallo:THallo; procedure PackageLoad; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure tform1.PackageLoad; begin PackageModule := LoadPackage('package1.bpl'); if packagemodule<>0 then try @Hallo:=GetProcAddress(PackageModule,'Hallo'); except ShowMessage('Package not found'); end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin if packagemodule=0 then packageload; //if assigned(Hallo) then Hallo(1); [i]//No parameters expected... ???[/i] if assigned(Hallo) then Hallo; end; procedure TForm1.FormDestroy(Sender: TObject); begin if packagemodule<>0 then unloadpackage(packagemodule); end; end. MfG, sminds. |
Re: Package - einer Prozedur im Package einen Wert übergeben
Ganz einfach: Du schreibst in der Hauptanwendung:
Delphi-Quellcode:
So müsste das klappen...
THallo = procedure;
//Müsste aber sein: THallo = procedure(i:integer); |
Re: Package - einer Prozedur im Package einen Wert übergeben
Zitat:
Grüße, sminds. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:32 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz