Woran kann das liegen?
Code: Alles auswählen
function TZNativeLibraryLoader.ZLoadLibrary(Location: String): Boolean;
Var bFound: Boolean;
begin
if FLoaded then
Self.FreeNativeLibrary;
FLoaded := False;
Result := False;
{$IFDEF UNIX}
{$IFDEF FPC}
FHandle := LoadLibrary(PAnsiChar(Location));
{$ELSE}
FHandle := HMODULE(dlopen(PAnsiChar(Location), RTLD_GLOBAL));
{$ENDIF}
{$ELSE}
bFound := False;
If FileExists(Location) Then
bFound:= true;
FHandle := LoadLibrary(PChar(Location));
{$ENDIF}
if (FHandle <> INVALID_HANDLE_VALUE) and (FHandle <> 0) then
begin
FLoaded := True;
FCurrentLocation := Location;
Result := True;
end;
end;Ich habe Win7/64 Bit und wollte gerade das neue Zeos mit Lazarus64 testen.
Grüße Markus