opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix duplicated application directory prepended on library path

Browse Source
This commit is contained in:
Ansgar Becker
2019-06-19 22:45:14 +02:00
parent a77eedde58
commit 59e3ba4b34
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/dbconnection.pas
View File

@ -2250,6 +2250,7 @@ begin
// Try newer libmariadb version at first, and fall back to libmysql,
// then fall back to dlls somewhere else on the users harddisk
// Win XP needs libmysql.dll
TryLibraryPaths := TStringList.Create;
TryLibraryPaths.Add(ExtractFilePath(Application.ExeName) + 'libmariadb.dll');
TryLibraryPaths.Add(ExtractFilePath(Application.ExeName) + 'libmysql.dll');
@ -2259,12 +2260,12 @@ begin
for TryLibraryPath in TryLibraryPaths do begin
Log(lcDebug, f_('Loading library file %s ...', [TryLibraryPath]));
try
FLib := TMySQLLib.Create(ExtractFilePath(Application.ExeName) + TryLibraryPath);
FLib := TMySQLLib.Create(TryLibraryPath);
Log(lcDebug, FLib.DllFile + ' v' + DecodeApiString(FLib.mysql_get_client_info) + ' loaded.');
Break;
except
// Win XP needs libmysql.dll
Log(lcDebug, f_('Could not load %s', [TryLibraryPath]));
on E:Exception do
Log(lcDebug, E.Message);
end
end;
if not Assigned(FLib) then begin