GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon

[venice2]

Zitat:

Ich hab auch schon mal
@_PEM_read_bio_RSA_PUBKEY := GetProcAddress(GetCryptLibHandle, PChar('PEM_read_bio_RSA_PUBKEY'));

definition in 64Bit..

Delphi-Quellcode:

function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; external kernel32 name 'GetProcAddress';
function GetProcAddress(hModule: HMODULE; lpProcName: LPCWSTR): FARPROC;
begin
  if ULONG_PTR(lpProcName) shr 16 = 0 then // IS_INTRESOURCE
    Result := GetProcAddress(hModule, LPCSTR(lpProcName))
  else
    Result := GetProcAddress(hModule, LPCSTR(TMarshal.AsAnsi(lpProcName)));
end;

Aber keine Ahnung ob dir das hilft.

Habe da einiges recherchiert.
HModule <> THandle
Int <> IntPtr wenn die DLL geladen wird.

Viele haben damit ein Problem.
GetProcAddress 64bit