![]() |
Unterfunktionen in DLL
Hallo,
erste Versuche mit DLL's waren erfolgreich, ich kann Funktionen deklarieren und aus einem anderen Programm aufrufen. Jetzt aber kommt ein Problem, welches wahrscheinlich so trivial ist, dass ich es in der Suche nicht gefunden habe, ich möchte innerhalb der DLL Proceduren verwenden, weiß aber nicht wo ich die deklarieren kann, einen implementation - Abschnitt gibt es ja nicht! Also als Beispiel:
Delphi-Quellcode:
führt zu "undeklarierter Bezeichner Unterfunktion1"
function DLLFunktion1
begin (benutzt Unterfunktion 1) end; function DLLFunktion2 begin (benutzt Unterfunktion 1) end; procedure Unterfunktion1 begin ... end; Irgendwo (und da weiß ich nicht wo) muss ich ja über der DLLFunktion1 schon mal Unterfunktion1 deklarieren? Klar könnte ich die Unterfunktion1 oberhalb DLLFunktion1 schreiben, aber irgendwo wird dann immer die Reihenfolge "kneifen"! Ciao Stefan |
AW: Unterfunktionen in DLL
Packe Deine "Unterunktionen" in eine extra Unit, und binde Diese in das DllProjekt ein....
DLL:
Delphi-Quellcode:
Unit:
library mydll;
uses System.SysUtils, System.Classes, dllFuncs in 'dllFuncs.pas'; {$R *.res} procedure dllfunc(const i : integer); stdcall; begin Unterfunktion1(i); end; exports dllfunc; begin end.
Delphi-Quellcode:
unit dllFuncs;
interface procedure Unterfunktion1(const i : integer); implementation procedure Unterfunktion1(const i : integer); begin end; end. |
AW: Unterfunktionen in DLL
Wichtig ist dabei, dass die Prototypen (Deklarationen) im interface-Abschnitt stehen.
|
AW: Unterfunktionen in DLL
Vielen herzlichen Dank!
Da hätte ich eigentlich selbst drauf kommen können! Ciao Stefan |
AW: Unterfunktionen in DLL
Übrigens musst du die DLL-Funktionen auch nicht alle direkt in der .dpr deklarieren. Du kannst die exports-Sektion auch in einer Unit unterbringen.
(Bei wenigen Funktionen ist das egal, aber wenn es zu viele werden, ist es dann übersichtlicher.) |
AW: Unterfunktionen in DLL
Danke für den Tip!
Das hatte ich schon gefunden, was mich ärgert ist, dass man nicht
Delphi-Quellcode:
exports
DLLFunktion1; DLLFunktion2; DLLFunktion3; schreiben kann sondern jedes Einzeln, wo dann die automatische Formatierung dann noch Leerzeilen reinpackt:
Delphi-Quellcode:
exports DLLFunktion1;
exports DLLFunktion2; exports DLLFunktion3; Ciao Stefan |
AW: Unterfunktionen in DLL
Doch, kann man.
Delphi-Quellcode:
exports
DLLFunktion1, // Liste = Komma ;) DLLFunktion2, DLLFunktion3; Zitat:
Ins Interface kommt idealer Weise nur Zeug rein, was "öffentlich" ist. * Die Reihenfolge der Prozeduren Ändern ... die Definition muß immer "irgendwo" vorher/darüber sein, bevor man es verwenden kann.
Delphi-Quellcode:
* implizit als Forward im Interface
procedure Unterfunktion1;
begin ... end; function DLLFunktion1; begin (benutzt Unterfunktion 1) end; function DLLFunktion2; begin (benutzt Unterfunktion 1) end;
Delphi-Quellcode:
* explizit als Forward in der Implementation
interface
procedure Unterfunktion1; implementation function DLLFunktion1; begin (benutzt Unterfunktion 1) end; function DLLFunktion2; begin (benutzt Unterfunktion 1) end; procedure Unterfunktion1; begin ... end;
Delphi-Quellcode:
* oder eben "vorher" in eine andere Unit und da natürlich öffentlich im Interface, wobei "vorher" sich hier auf den jeweiligen USES-Abschnitt bezieht.
procedure Unterfunktion1; forward;
function DLLFunktion1; begin (benutzt Unterfunktion 1) end; function DLLFunktion2; begin (benutzt Unterfunktion 1) end; procedure Unterfunktion1; begin ... end; Zitat:
Was man übersichtlicher hält, mag Geschmackssache sein. * EXPORTS dort, wo die Funktionen sich befinden * oder alle EXPORTS in der DPR (Funktionen in der DPR oder in einer/mehreren Units) |
AW: Unterfunktionen in DLL
Delphi-Quellcode:
danke!
exports
DLLFunktion1, // Liste = Komma ;) DLLFunktion2, DLLFunktion3; Man lernt nie aus :-) Ciao Stefan |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:58 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