LoadLibrary unter Windows 7

[jaenicke]

Hast du vielleicht vergessen den kompletten Pfad anzugeben? Aus Sicherheitsgründen sucht Windows standardmäßig nicht mehr im aktuellen Arbeitsverzeichnis.

Zudem werden Zugriffe auf diverse Verzeichnisse umgeleitet, wenn du kein Manifest benutzt.

[samso]

Vielleicht solltest Du Dir mit "RaiseLastOsError" den Fehlertext holen.

Zitat:

If the function fails, the return value is NULL. To get extended error information, call GetLastError.

Falls die DLL schlicht nicht gefunden wird, könnte es bei W7-64 daran liegen, dass Du sie manuell (mit einer 64-Bit-Anwendung) in das Verzeichnis "System32" kopiert hast und nicht in das Verzeichnis "SysWow64".

[trashcandesign]

Eigentlich liegt die DLL bei mir direkt im Programmverzeichnis.
Auf die DLL greife ich mit LoadLibrary(PAnsiChar(ExtractFilePath(Application. ExeName)+'SCANNDYDll.dll')) zu, somit sollte also der richtige Pfad angegeben sein.

Das mit dem SysWow64 versuche ich gleich mal.

GetLastError liefert 126 zurück.
Soweit ich gelesen habe ist 126 = Das angegebene Modul wurde nicht gefunden.

[trashcandesign]

Auch wenn ich sie ins SysWOW64 Verzeichnis lege ändert sich nichts.
Weder, wenn ich sie direkt aufrufen möchte, noch wenn ich gar keinen Pfad angebe...

[ensaron]

Setz doch mal nen Haltepunkt und schau dir an, was

PAnsiChar(ExtractFilePath(Application. ExeName)+'SCANNDYDll.dll') als Ergebnis liefert.

[trashcandesign]

Gibts dafür noch ne andere Möglichkeit?

Ich entwickle hier unter Windows XP und da funktioniert alles einwandfrei
Unter Win7 kann ich nur ausführen, nicht debuggen...

[Klaus01]

Hallo,

Du kannst Dir ja den Pfad anzeigen (showMessage)lassen oder auch in eine Logdatei schreiben lasen, wenn LoadLibrary mit 0 endet.

Grüße
Klaus

[Luckie]

Was für ein Windows, 32-Bit oder 64-Bit? Was für eine Anwendung, 32-Bit oder 64-Bit? Was für eine DLL, 32-Bit oder 64-Bit? Und: "If the function fails, the return value is NULL. To get extended error information, call GetLastError."

Delphi-Quellcode:

DLLName := PAnsiChar(ExtractFilePath(Application. ExeName)+'SCANNDYDll.dll';
if FileExists(DLLName) then 
begin
  ShowMessage('Mich gibt es');
  DLLHandle := LoadLibary(DLLName);
end else
begin
  ShowMessage('Datei gibt es nicht');
  DLLHandle := 0;
end;

Warum nicht gleich richtig:

Delphi-Quellcode:

if LoadLibrary(...) = 0 then
begin
  ShowMessage(SysErrorMessage(GetLastError);
end
else
begin
  ...;
  ...;
end;

Dann weiß man auch WARUM es nicht funktioniert hat. Sonst fangen wir ja wieder an zu raten.

[ChrisE]

Zitat von Luckie:

Warum nicht gleich richtig:

Delphi-Quellcode:

if LoadLibrary(...) = 0 then
begin
  ShowMessage(SysErrorMessage(GetLastError);
end
else
begin
  ...;
  ...;
end;

Dann weiß man auch WARUM es nicht funktioniert hat. Sonst fangen wir ja wieder an zu raten.

Weil wir diese aussage bereits hatten. GetLastError nach LoadLibrary liefert bereits 126 als Fehler zurück. Die Frage war wieso, den der TE versichert, dass die DLL da ist - dachte ich

Gruß, Chris

[ChrisE]

Zitat von trashcandesign:

Auch wenn ich sie ins SysWOW64 Verzeichnis lege ändert sich nichts.
Weder, wenn ich sie direkt aufrufen möchte, noch wenn ich gar keinen Pfad angebe...

Hmm, dass ist sehr merkwürdig. Es ist aber sicher kein schreibfehler`in dem DLL-Namen?
Kannst du mal folgendes Testen:

Delphi-Quellcode:

DLLName := PAnsiChar(ExtractFilePath(Application. ExeName)+'SCANNDYDll.dll';
if FileExists(DLLName) then 
begin
  ShowMessage('Mich gibt es');
  DLLHandle := LoadLibary(DLLName);
end else
begin
  ShowMessage('Datei gibt es nicht');
  DLLHandle := 0;
end;

Gruß, Chris