Fix definition of PostgreSQL Oid from Integer to Cardinal, as it is in postgres_ext.h . Should fix negative Oids in TPGQuery.TableName. See https://www.heidisql.com/forum.php?t=34819

This commit is contained in:
Ansgar Becker
2019-10-27 22:26:15 +01:00
parent b2b416d654
commit ffb6170a4e
2 changed files with 5 additions and 5 deletions

View File

@@ -86,7 +86,7 @@ type
// General purpose editing status flag
TEditingStatus = (esUntouched, esModified, esDeleted, esAddedUntouched, esAddedModified, esAddedDeleted);
TIntStringPairs = TDictionary<Integer, String>;
TOidStringPairs = TDictionary<POid, String>;
TColumnDefaultType = (cdtNothing, cdtText, cdtNull, cdtAutoInc, cdtExpression);
@@ -347,7 +347,7 @@ type
FKeepAliveTimer: TTimer;
FFavorites: TStringList;
FPrefetchResults: TDBQueryList;
FRegClasses: TIntStringPairs;
FRegClasses: TOidStringPairs;
procedure SetActive(Value: Boolean); virtual; abstract;
procedure DoBeforeConnect; virtual;
procedure DoAfterConnect; virtual;
@@ -459,7 +459,7 @@ type
property LockedByThread: TThread read FLockedByThread write SetLockedByThread;
property Datatypes: TDBDataTypeArray read FDatatypes;
property Favorites: TStringList read FFavorites;
property RegClasses: TIntStringPairs read FRegClasses;
property RegClasses: TOidStringPairs read FRegClasses;
function GetLockedTableCount(db: String): Integer;
function IdentifierEquals(Ident1, Ident2: String): Boolean;
published
@@ -1545,7 +1545,7 @@ begin
FKeepAliveTimer := TTimer.Create(Self);
FFavorites := TStringList.Create;
// PG only, cache for 123::regclass queries:
FRegClasses := TIntStringPairs.Create;
FRegClasses := TOidStringPairs.Create;
end;

View File

@@ -366,7 +366,7 @@ type
TPQConnectStatus = (CONNECTION_OK, CONNECTION_BAD, CONNECTION_STARTED, CONNECTION_MADE, CONNECTION_AWAITING_RESPONSE, CONNECTION_AUTH_OK, CONNECTION_SETENV, CONNECTION_SSL_STARTUP, CONNECTION_NEEDED);
PPGconn = Pointer;
PPGresult = Pointer;
POid = Integer;
POid = Cardinal;
// Server variables
TVarScope = (vsGlobal, vsSession, vsBoth);