Entwickler-Ecke :: Thema anzeigen - Unmanaged DLL dynamisch laden & per Index zugreifen

doublecross - Fr 24.05.19 14:33
Titel: Unmanaged DLL dynamisch laden & per Index zugreifen

Hallo,

ich bin gerade damit beschäftigt eine Funktionalität aus einem alten Delphi Programm in C# zu übertragen.
Dabei bin ich über eine knifflige stelle gestolpert.

Es wird eine ZIP Datei geladen und entpackt. In dieser befindet sich unter anderen eine DLL, welche für die weiteren Schritte verwendet werden muss. Von dieser Dll gibt es verschiedene Versionen. In den älteren Varianten der Dll haben die Funktinen einen Namen, in neueren können sie nur per Index aufgerufen werden.

In der Delphi Variante habe ich die folgenden beiden Funktionen, welche abhängig von der DLL Version verwendet werden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Function GetDLLFuncByIndex(aFuncIndex: tCard16): FARPROC;
Var
  Findex : tCard32;
Begin
  {$WARNINGS off}
    Result := nil;
  {$WARNINGS on}
  If (fDLL <> 0) Then
    Begin
      Findex := $00000000 Or aFuncIndex;
      Result := GetProcAddress(fDll, tPtr(Findex));
      If Not Assigned(Result) Then
        raise Exception {...}
    End
  Else
    raise Exception {...}
End;

Function GetDLLFuncByName(aFuncName: tStrStd): FARPROC;
Begin
  {$WARNINGS off}
    Result := nil;
  {$WARNINGS on}
  If (fDLL <> 0) Then
    Begin
      Result := GetProcAddress(fDll, pAnsiChar(aFuncName));
      If Not Assigned(Result) Then
        raise Exception  {...}
    End
  Else
    raise Exception  {...}
End;

Ich tue mich jetzt schwer insbesondere die erste Version.

Ich finde im Netz mehrere Beispiele zum Dynamischen laden, von unmanaged DLLs, welche alle auf der Verwendung der entsprechenden kernel 32 Funktionen basieren:

C#-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

        [DllImport("kernel32.dll")]
        public static extern IntPtr LoadLibrary (string dllToLoad);

        [DllImport("kernel32.dll")]
        public static extern IntPtr GetProcAddress (IntPtr hModule, string procedureName);


        [DllImport("kernel32.dll")]
        public static extern bool FreeLibrary (IntPtr hModule);

Nur wie bekomme ich da den Aufruf einer Funktion per Index hin?

Th69 - Fr 24.05.19 15:54

Lege einfach eine Überladung davon an:

C#-Quelltext

1:
2:

[DllImport("kernel32.dll")]
public static extern IntPtr GetProcAddress(IntPtr hModule, int procedureIndex);

s.a. GetProcAddress [https://docs.microsoft.com/en-us/windows/desktop/api/libloaderapi/nf-libloaderapi-getprocaddress]:

Zitat:

lpProcName

The function or variable name, or the function's ordinal value. If this parameter is an ordinal value, it must be in the low-order word; the high-order word must be zero.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!