Dynamisches Laden von DLL-Funktion schlägt fehl

**Relicted**

Hallo zusammen,

stehe gerade etwas auf dem Schlauch. Vielleicht hat ja jemand eine Idee. Ich muss/möchte eine statische Linkung einer DLL auflösen. Leider klappt das nicht so wie gehofft.
Hier der Original-Code (funktioniert):

zusammenfalten · markieren

Delphi-Quellcode:

			interface 

const

  wlan_api_dll = 'wlanapi.dll';

function WlanOpenHandle(dwClientVersion: DWORD; pReserved: PVOID;

  pdwNegotiatedVersion: PWord; phClientHandle: PHandle): DWORD; stdcall;

implementation

function WlanOpenHandle; external wlan_api_dll name 'WlanOpenHandle';

Meine geänderte Version, welche leider nicht funktioniert. Dll-Handle wird ermittelt, sieht valide aus nur leider wirft das GetProcAddress immer NIL zurück.

zusammenfalten · markieren

Delphi-Quellcode:

			interface 

const

  wlan_api_dll = 'wlanapi.dll';

function WlanOpenHandle(dwClientVersion: DWORD; pReserved: PVOID;

  pdwNegotiatedVersion: PWord; phClientHandle: PHandle): DWORD; stdcall;

implementation

var

  dllHandle : NativeUint = 0;

function GetDllAddress(AFuncName : string) : pointer;

begin

  result := nil;

  if dllHandle <> 0 then

  begin

    result := GetProcAddress(dllHandle, PAnsiChar(AFuncName));

  end;

end;

type

  TWlanOpenHandle = function(dwClientVersion: DWORD; pReserved: PVOID; pdwNegotiatedVersion: PWord; phClientHandle: PHandle): DWORD; stdcall;

function WlanOpenHandle(dwClientVersion: DWORD; pReserved: PVOID;

  pdwNegotiatedVersion: PWord; phClientHandle: PHandle): DWORD; stdcall;

var

  func : TWlanOpenHandle;

begin

  result := 0;

  @func := GetDllAddress('WlanOpenHandle');

  if Assigned(func) then

    result := func(dwClientVersion, pReserved, pdwNegotiatedVersion, phClientHandle);

end;

initialization

  dllHandle := LoadLibrary(wlan_api_dll);

finalization

  if dllHandle <> 0 then FreeLibrary(dllHandle);

Jemand eine Idee?

Dynamisches Laden von DLL-Funktion schlägt fehl

Dynamisches Laden von DLL-Funktion schlägt fehl

Forumregeln