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?

markieren

Delphi-Quellcode:

var
  dllHandle : NativeUint = 0;

function GetDllAddress(AFuncName : string) : pointer;
var
 dllHandle : cardinal;

Fällt dir etwas auf?
Welche Variable wird wohl zum Laden der DLL benutzt als Handle?

Jep, hast du recht. War aber nen copy&paste fehler. Auch ohne die lokale Variable bekomme ich keine ProcAddress zurück
(hab den Beitrag oben editiert)

markieren

Delphi-Quellcode:

const
  wlan_api_dll = 'wlanapi.dll';

function WlanOpenHandle(dwClientVersion: DWORD; pReserved: PVOID;
  pdwNegotiatedVersion: PWord; phClientHandle: PHandle): DWORD; stdcall;
  external wlan_api_dll delayed;

implementation

http://docwiki.embarcadero.com/CodeE...ading_(Delphi)
http://www.delphipraxis.net/171632-d...libraries.html

Wunderbar, das hat Abhilfe geschaffen! Danke!

Ich frage mich trotzdem immernoch warum es wie oben angegeben nicht klappt

Zitat von Relicted:

Ich frage mich trotzdem immernoch warum es wie oben angegeben nicht klappt

markieren

Delphi-Quellcode:

function GetDllAddress(AFuncName : string) : pointer;
begin
  result := nil;

  if dllHandle <> 0 then
  begin
// result := GetProcAddress(dllHandle, PAnsiChar(AFuncName));
    result := GetProcAddress(dllHandle, PChar(AFuncName));
  end;
end;

Einfach mal lesen was der Compiler unten als Warnung rausspuckt:

markieren

Code:

[dcc32 Warning] WlanTest.pas(25): W1044 Suspicious typecast of string to PAnsiChar

Warnungen werden nicht zum Spaß produziert!
So wurde jetzt in deiner Unicodeversion (XE8) die Ansiversion von GetProcAddress verwendet und du übergibst aber nen Zeiger auf einen Unicodestring.

Grund: Die doppelte Variable, wie oben schon wer schrieb.


PAnsiChar ist zwar ein doppelter falscher Cast (Unicode>ANSI>Unicode) und stimmt am Ende wieder. (auch wenn es nicht ganz richtig ist)
Wenn er zusätzlich noch GetProcAddressA verwendet hätte, dann wäre es total falsch.

String, PChar, GetProcAddress
oder AnsiString, PAnsiChar, GetProcAddressA
oder WideString/UnicodeString, PWideChar, GetProcAddressW

Zitat von himitsu:

Grund: Die doppelte Variable, wie oben schon wer schrieb.

Nö, liegt einzig und allein an dem PAnsiChar mit GetProcAddress.
Hast du seinen Quelltextschnipsel mal kompiliert und getestet?
Ich hatte schon seine editierte Version von 13:18 Uhr genommen, hier war das doppelte dllHandle schon raus.

Nein, hab ich nicht.


Und ja, ich kenn den Fehler, wobei das ja nur eine Warnung ist.

String geht rein, wird durch PAnsiChar gejagt
> compiler mecket String > PAnsiChar an
> convertiert aber nicht automatisch (es sei den Delphi hat mal wieder was kaputtoptimiert)

PAnsiChar wird an einen PChar übergeben
> compiler meckert wieder PAnsiChar > PChar
> kann das eh nicht aktomatisch konvertieren

Unicode rein > ANSI irgendwas, aber ohne Konvertierungen > Unicode an API > passt