AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Zitat:
Ich arbeite unter 64Bit meistens mit LONG_PTR da bin ich auf der sicheren Seite. Am ende habe ich nur versucht zu ergründen woran das liegen könnte. |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Ersetze doch auch das
Delphi-Quellcode:
mal durch RaiseLastOSError(), dann können wir auch sehen was Windows selbst dazu sagt warum es nicht geht.
raise Exception.Create(..)
Auch: Wir sehen dass du dir eine DLL anschaust, was sie denn exportierst. Aber sind wir uns wirklich sicher dass er auch genau diese DLL einlädt? Ich weiß nicht ob das wasserdicht ist, aber im Zweifelsfall führe ich immer where.exe im .exe-Verzeichnis aus und lasse sie nach der DLL suchen. Ich meine der listet die gefundenen Treffer in der gleichen Reihenfolge auf wie LoadLibrary(..) suchen würde... |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
WHERE sollte nur den %PATH% zum Suchen nuzten, inkl. %PATHEXT%.
(WHERE /R sucht ähnlich wie FOR /R) LoadLibrary macht da bissl was Anderes. Aber Debugger, SysInternals oder GetModuleFileName (mit dem Handle der DLL) helfen. |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Zitat:
Zitat:
|
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
[OT]
Zitat:
Ich glaube dir :-D |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Liste der Anhänge anzeigen (Anzahl: 1)
Hab's gefunden. Danke euch für die Unterstützung. Letztlich liegt der Fehler bei Indy. Kann man das irgendwo melden, in der Hoffnung, dass das gefixt wird? Macht das bei QC Sinn, weil ja Teil von Delphi, oder kann man sowas auch direkt ans Indy-Team melden?
Folgendes Beispielprojekt (für Interessierte auch als Paket im Anhang):
Delphi-Quellcode:
unit main;
interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdSSLOpenSSLHeaders, Vcl.StdCtrls; type TForm2 = class(TForm) MemoStatus: TMemo; ButtonLoadLib: TButton; ButtonLoadLibOwn: TButton; procedure ButtonLoadLibClick(Sender: TObject); procedure ButtonLoadLibOwnClick(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } class var _PEM_read_bio_RSA_PUBKEY: function(bp: PBIO; x: PPRSA; cb: ppem_password_cb; u: Pointer): PRSA cdecl; end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.ButtonLoadLibClick(Sender: TObject); begin MemoStatus.Clear; if IdSSLOpenSSLHeaders.Load then begin MemoStatus.Lines.Add('OpenSSL loaded'); MemoStatus.Lines.Add('Handle: '+GetCryptLibHandle.ToString); if GetCryptLibHandle <> 0 then begin _PEM_read_bio_RSA_PUBKEY := GetProcAddress(GetCryptLibHandle, 'PEM_read_bio_RSA_PUBKEY'); if @_PEM_read_bio_RSA_PUBKEY = nil then MemoStatus.Lines.Add('Function not found') else MemoStatus.Lines.Add('Success! Function found!'); end else MemoStatus.Lines.Add('Crypo handle invalid') end else MemoStatus.Lines.Add('Failed loading OpenSSL'); end; procedure TForm2.ButtonLoadLibOwnClick(Sender: TObject); var crypHandle: HMODULE; begin MemoStatus.Clear; crypHandle:=SafeLoadLibrary('libeay32.dll'); if crypHandle<>0 then begin MemoStatus.Lines.Add('OpenSSL loaded'); MemoStatus.Lines.Add('Handle: '+crypHandle.ToString); _PEM_read_bio_RSA_PUBKEY := GetProcAddress(crypHandle, 'PEM_read_bio_RSA_PUBKEY'); if @_PEM_read_bio_RSA_PUBKEY = nil then MemoStatus.Lines.Add('Function not found') else MemoStatus.Lines.Add('Success! Function found!'); end else MemoStatus.Lines.Add('Failed loading OpenSSL'); end; end. Der erste Aufruf,
Delphi-Quellcode:
ist angelehnt an das, wie es auch in der von mir genutzten Bibliotheke JOSE.Signing.RSA gemacht werden soll. Hier läuft es auch genauso: unter 32-Bit funktioniert es super, unter 64-Bit findet er die Funktion nicht.
ButtonLoadLibClick
Der zweite Button mit dem Aufruf
Delphi-Quellcode:
kümmert sich selbst nochmal um das Laden der Bibliothek. Das Suchen der gewünschten Funktion klappt dann problemlos sowohl unter Win32 und Win64.
ButtonLoadLibClick
Und warum behaupte ich nun, das Indy "schuld" ist? In der Unit IdSSLOpenSSLHeaders wird das Handle auf die libeay32.dll in der globalen Variable hIdCrypto gespeichert und diese ist auch vom Typ HModule. Unter Win32 wird HModule zu "Cardinal", unter Win64 aber zu UInt64. Die Variable ist aber nur im Implementation-Bereich definiert, also können wir nicht von außen auf sie zugreifen. Nach außen verfügbar macht die Unit diese Variable über die oben auch genutzte Funktion
Delphi-Quellcode:
. Diese Funktion liefert aber nicht HModule zurück, sondern ein Integer. Dadurch wird in der Rückgabe also das Handle zerschossen - sieht man ganz gut, wenn man mein Testprogramm ausführt und die beiden Handles vergleicht. Dass das nicht passt, ist offensichtlich, denke ich mal.
GetCryptLibHandle
Ich sag mal so: Aaaaaargh! :wall: ;-) Jemand eine Idee für einen Workaround, ohne dass ich die IdSSLOpenSSLHeaders patchen muss? |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
So wie ich das sehe lag es dann doch an den Datentypen.
So wie ich sagte. Zitat:
|
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Nachtrag: gerade mal nachgesehen: im Indy, das mit Delphi 10.4 mitgeliefert wird, ist das Problem gefixt. Insofern werde ich mir wohl - bis ich mal auf 10.4 aktualisiere - doch eine lokale Kopie von IdSSLOpenSSLHeaders ins Projekt holen und es dort korrigieren, falls keiner eine bessere Idee hat.
@venice2: Genau, warst da auf der richtigen Spur. |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Alternativ einfach die aktuellen Version der Indy-Komponenten nutzen - dort ist der Typ des Rückgabewertes definiert als "TIdLibHandle", der seinerseits ein Thandle" ist, was als "NativeUInt" wiederum prächtig unter Win64 funktioniert.
//Edit - da warst Du schneller. |
AW: GetProcAddress liefert kein Ergebnis unter Win64, unter Win32 schon
Zitat:
Funktioniert mit Indy unter 10.4 gerade getestet. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz