sdpgsql.hpp

SQLDirect Component Library is a light-weight Borland Database Engine replacement for Borland Delphi

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SDPgSQL.pas' rev: 4.00

#ifndef SDPgSQLHPP
#define SDPgSQLHPP

#pragma delphiheader begin
#pragma option push -w-
#include <SDCommon.hpp>	// Pascal unit
#include <SDConsts.hpp>	// Pascal unit
#include <SyncObjs.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sdpgsql
{
//-- type declarations -------------------------------------------------------
typedef unsigned Oid;

typedef void *TVoid;

typedef void *PPGconn;

typedef int TConnStatusType;

typedef int TPostgresPollingStatusType;

typedef int TExecStatusType;

typedef void *PSSL;

typedef void *PPGresult;

#pragma pack(push, 4)
struct TPGnotify
{
	char szRelName[33];
	int be_pid;
} ;
#pragma pack(pop)

typedef void __cdecl (*TPQnoticeProcessor)(void * arg, char * szMessage);

typedef char TPQBool;

#pragma pack(push, 4)
struct TPQprintOpt
{
	char header;
	char align;
	char standard;
	char html3;
	char expanded;
	char pager;
	char *fieldSep;
	char *tableOpt;
	char *caption;
	char *fieldName[1];
} ;
#pragma pack(pop)

#pragma pack(push, 4)
struct TPQconninfoOption
{
	char *szKeyword;
	char *szEnvVar;
	char *szCompiled;
	char *szVal;
	char *szLabel;
	char *szDispChar;
	int dispsize;
} ;
#pragma pack(pop)

typedef TPQconninfoOption *PPQconninfoOption;

typedef TPGnotify *PPGnotify;

typedef TPQprintOpt *PPQprintOpt;

#pragma pack(push, 4)
struct TPQArgBlock
{
	int len;
	int isint;
	int IntOrPtr;
} ;
#pragma pack(pop)

class DELPHICLASS ESDPgSQLError;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION ESDPgSQLError : public Sdcommon::ESDEngineError 
{
	typedef Sdcommon::ESDEngineError inherited;
	
public:
	#pragma option push -w-inl
	/* ESDEngineError.Create */ inline __fastcall ESDPgSQLError(int AErrorCode, int ANativeError, const 
		AnsiString Msg, int AErrorPos) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg, AErrorPos
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* ESDEngineError.CreateDefPos */ inline __fastcall virtual ESDPgSQLError(int AErrorCode, int ANativeError
		, const AnsiString Msg) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ESDPgSQLError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sdcommon::ESDEngineError(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall ESDPgSQLError(int Ident, Extended Dummy) : Sdcommon::ESDEngineError(
		Ident, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ESDPgSQLError(int Ident, const System::TVarRec * Args
		, const int Args_Size) : Sdcommon::ESDEngineError(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall ESDPgSQLError(const AnsiString Msg, int AHelpContext) : 
		Sdcommon::ESDEngineError(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ESDPgSQLError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sdcommon::ESDEngineError(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall ESDPgSQLError(int Ident, int AHelpContext) : Sdcommon::ESDEngineError(
		Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ESDPgSQLError(int Ident, const System::TVarRec * 
		Args, const int Args_Size, int AHelpContext) : Sdcommon::ESDEngineError(Ident, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~ESDPgSQLError(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 1)
struct TIPgConnInfo
{
	Byte ServerType;
	void *PgConnPtr;
} ;
#pragma pack(pop)

class DELPHICLASS TIPgDatabase;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TIPgDatabase : public Sdcommon::TISqlDatabase 
{
	typedef Sdcommon::TISqlDatabase inherited;
	
private:
	void *FHandle;
	void __fastcall Check(void * pgconn);
	void __fastcall CheckRes(void * pgres);
	void __fastcall AllocHandle(void);
	void __fastcall FreeHandle(void);
	void __fastcall ExecCmd(const AnsiString sStmt, bool CheckRslt);
	void * __fastcall GetPgConnPtr(void);
	
protected:
	virtual void * __fastcall GetHandle(void);
	virtual void __fastcall DoConnect(const AnsiString sRemoteDatabase, const AnsiString sUserName, const 
		AnsiString sPassword);
	virtual void __fastcall DoDisconnect(bool Force);
	virtual void __fastcall DoCommit(void);
	virtual void __fastcall DoRollback(void);
	virtual void __fastcall DoStartTransaction(void);
	virtual void __fastcall SetAutoCommitOption(bool Value);
	virtual void __fastcall SetHandle(void * AHandle);
	
public:
	__fastcall virtual TIPgDatabase(Classes::TStrings* ADbParams);
	__fastcall virtual ~TIPgDatabase(void);
	virtual Sdcommon::TISqlCommand* __fastcall CreateSqlCommand(void);
	virtual int __fastcall GetClientVersion(void);
	virtual int __fastcall GetServerVersion(void);
	virtual AnsiString __fastcall GetVersionString(void);
	virtual Sdcommon::TISqlCommand* __fastcall GetSchemaInfo(Sdcommon::TSDSchemaType ASchemaType, AnsiString 
		AObjectName);
	virtual void __fastcall SetTransIsolation(Sdcommon::TISqlTransIsolation Value);
	virtual bool __fastcall TestConnected(void);
	__property void * PgConnPtr = {read=GetPgConnPtr};
};

#pragma pack(pop)

class DELPHICLASS TIPgCommand;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TIPgCommand : public Sdcommon::TISqlCommand 
{