Add error message when PostgreSQL library procedure was not found.

This commit is contained in:
Ansgar Becker
2014-06-15 18:07:25 +00:00
parent f9d3321104
commit 85ec3724e0
2 changed files with 5776 additions and 5771 deletions

View File

File diff suppressed because it is too large Load Diff

View File

@@ -1469,6 +1469,7 @@ begin
Proc := GetProcAddress(LibPqHandle, Name);
if Proc = nil then begin
LibPqHandle := 0;
Log(lcDebug, f_('Library error in %s: Could not find procedure address for "%s"', [LibPqPath, Name]));
raise EDatabaseError.Create(f_('Your %s is out-dated or somehow incompatible to %s. Please use the one from the installer, or just reinstall %s.', [LibPqPath, APPNAME, APPNAME]));
end;
end;