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-Quelltext
1:
2:
| interface
TInitMethod = procedure (AData: PInitParameter); stdcall; |
DLL Main.pas
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| 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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| 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); end; |
