|
|
@@ -89,12 +89,14 @@ type
|
|
|
FConnectString : string;
|
|
|
FIntegerDateTimes : boolean;
|
|
|
FVerboseErrors : Boolean;
|
|
|
+ protected
|
|
|
+ // Protected so they can be used by descendents.
|
|
|
procedure CheckConnectionStatus(var conn: PPGconn);
|
|
|
procedure CheckResultError(var res: PPGresult; conn:PPGconn; ErrMsg: string);
|
|
|
function TranslateFldType(res : PPGresult; Tuple : integer; out Size : integer; Out ATypeOID : oid) : TFieldType;
|
|
|
procedure ExecuteDirectPG(const Query : String);
|
|
|
Procedure GetExtendedFieldInfo(cursor: TPQCursor; Bindings : TFieldBindings);
|
|
|
- protected
|
|
|
+
|
|
|
procedure ApplyFieldUpdate(C : TSQLCursor; P: TSQLDBParam; F: TField; UseOldValue: Boolean); override;
|
|
|
Function ErrorOnUnknownType : Boolean;
|
|
|
// Add connection to pool.
|
michael