Hallo,
frohes Neues euch allen und eine Frage zu Beginn des neuen Jahres
.
Ausgangssituation:
Ich habe ein Projekt das DLLs benutzt um zusätzlichen Code einzubinden. Nun stehen ja in den DLLs bestimmte Methoden die vom Hauptprogramm aufgerufen werden. Diese Methoden haben bestimmte Signaturen. Diese Signaturen habe ich im Moment im Hauptprogramm durch type TMeineMethode = procedure(blabla); stdcall; definiert. Wenn ich nun was an den
DLL Funktionen ändere, muss ich diese Änderungen auch im Hauptprogramm im type Statement ändern.
Nun dachte ich mir er wäre doch schöner wenn man das an einer Stelle hätte, dort ändert man was, kompiliert
DLL und Anwendung und fertig. Ich hab mir das so gedacht:
1. eine Unit1 in der die Signaturen stehen, also im interface Teil type TMeineMethode = procedure() usw...
2. binde ich Unit1 in das
DLL Projekt ein, erstelle im interface Teil des
DLL Codes eine Variable mit meineMethode: TMeineMethode
3. füge ich die Implementation meiner Methode im implementation Teil des
DLL Codes hinzu
4. weise der Variablen meineMethode den Zeiger meiner implementierten
DLL Methode im initialization teil der
DLL zu
5. exportiere die Variable meineMethode
6. kompiliere
DLL
7. binde ich Unit1 in meine Hauptanwendung ein, erstelle da auch eine Variable mit meineMethode: TMeineMethode
8. lade die
DLL mit LoadLibrary und weise meineMethode den Zeiger der
DLL Methode mit GetProcAddress() zu
9. kompiliere Anwendung
Das geht auch alles wunderbar, GetProcAddress() findet die exportierte Variable wo ja eigentlich der Methodenzeiger der
DLL Funktion drin stehen sollte. Nur wenn dann die Methode aufgerufen wird gibts eine Privileged instruction
exception. Also hab ich die
DLL Methode noch im interface teil angegeben. Dann kommt keine Privileged instruction
exception mehr aber eine Zugriffsverletzung.
Kann mir jemand sagen warum das so ist, bzw ob mein Vorhaben so überhaupt möglich ist?
Vielen Dank.
:edit:
vieleicht zur Verdeutlichung hier noch etwas Code:
Unit1.pas
Delphi-Quellcode:
interface
TInitMethod = procedure (AData: PInitParameter); stdcall;
DLL Main.pas
Delphi-Quellcode:
interface
uses
Unit1.pas
var
Init: TInitMethod;
procedure Library_SetInOutProperty(AProperty: PInOutProperty); stdcall;
implementation
procedure Library_Init(AData: PInitParameter); stdcall;
begin
end;
initialization
Init := @Library_Init;
end.
Hauptanwendung Main.pas
Delphi-Quellcode:
interface
TMeineKlasse = class
private
fSetInOutProperty: TOutputDeviceSetInOutProperty;
public
function Load(): Boolean;
end;
implementation
function TMeineKlasse.Load(): Boolean;
var
lParameter: TInOutProperty;
begin
...
LoadLibrary
...
@fSetInOutProperty := GetProcAddress(..., 'Init');
fSetInOutProperty(@lParameter); // <-- crash
end;