diff --git a/Packages/PostgresDAC29.dpk b/Packages/PostgresDAC29.dpk new file mode 100644 index 0000000..2931029 --- /dev/null +++ b/Packages/PostgresDAC29.dpk @@ -0,0 +1,55 @@ +package PostgresDAC29; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$RUNONLY} +{$IMPLICITBUILD ON} + +requires + rtl, + dsnap, + dbrtl; + +contains + PSQLTypes in '..\Source\PSQLTypes.pas', + PSQLAccess in '..\Source\PSQLAccess.pas', + PSQLDbTables in '..\Source\PSQLDbTables.pas', + PSQLBatch in '..\Source\PSQLBatch.pas', + PSQLMacroQuery in '..\Source\PSQLMacroQuery.pas', + PSQLMonitor in '..\Source\PSQLMonitor.pas', + PSQLTools in '..\Source\PSQLTools.pas', + PSQLDump in '..\Source\PSQLDump.pas', + PSQLCopy in '..\Source\PSQLCopy.pas', + PSQLDirectQuery in '..\Source\PSQLDirectQuery.pas', + PSQLExtMask in '..\Source\PSQLExtMask.pas', + PSQLFields in '..\Source\PSQLFields.pas', + PSQLNotify in '..\Source\PSQLNotify.pas', + PSQLGeomTypes in '..\Source\PSQLGeomTypes.pas'; + +{$NOINCLUDE PSQLGeomTypes} + +end. + diff --git a/Packages/PostgresDAC29.dproj b/Packages/PostgresDAC29.dproj new file mode 100644 index 0000000..d9a092b --- /dev/null +++ b/Packages/PostgresDAC29.dproj @@ -0,0 +1,123 @@ + + + {57060A94-2E29-401F-A098-0A6D2127CCFF} + PostgresDAC29.dpk + True + Debug + 1 + Package + None + 20.1 + Win32 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + false + false + false + false + false + 00400000 + true + true + All + PostgresDAC29 + true + 1033 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) + + + System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + 1033 + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + true + true + + + + MainSource + + + + + + + + + + + + + + + + + + + + Base + + + Cfg_1 + Base + + + Cfg_2 + Base + + + + Delphi.Personality.12 + Package + + + + PostgresDAC29.dpk + + + + True + True + True + True + True + True + True + + + 12 + + + + diff --git a/Packages/PostgresDAC29.res b/Packages/PostgresDAC29.res new file mode 100644 index 0000000..c50a018 Binary files /dev/null and b/Packages/PostgresDAC29.res differ diff --git a/Packages/dclPostgresDAC29.dpk b/Packages/dclPostgresDAC29.dpk new file mode 100644 index 0000000..a67fe95 --- /dev/null +++ b/Packages/dclPostgresDAC29.dpk @@ -0,0 +1,47 @@ +package dclPostgresDAC29; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS OFF} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO OFF} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE RELEASE} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'PostgreSQL Direct Access Components'} +{$DESIGNONLY} +{$IMPLICITBUILD ON} + +requires + dcldb, + PostgresDAC29; + +contains + PSQLupdsqled in '..\Source\PSQLupdsqled.pas' {PSQLUpdateSQLEditForm}, + PSQLCOMP in '..\Source\PSQLCOMP.pas', + PSQLConnFrm in '..\Source\PSQLConnFrm.pas' {PSQLConnForm}, + PSQLfldlinks in '..\Source\PSQLfldlinks.pas' {PSQLLinkFields}, + PSQLMigrator in '..\Source\PSQLMigrator.pas', + PSQLStoredProcFrm in '..\Source\PSQLStoredProcFrm.pas' {PSQLStoredProcProp}, + PSQLQueryEdit in '..\Source\PSQLQueryEdit.pas' {SQLEditForm}, + psqlAboutFrm in '..\Source\psqlAboutFrm.pas' {PSQLAboutComp}; + +end. + diff --git a/Packages/dclPostgresDAC29.dproj b/Packages/dclPostgresDAC29.dproj new file mode 100644 index 0000000..a262cc5 --- /dev/null +++ b/Packages/dclPostgresDAC29.dproj @@ -0,0 +1,133 @@ + + + {7DB34C22-C5F2-467A-A37D-C3552A59B4BC} + dclPostgresDAC29.dpk + True + Debug + 1 + Package + None + 20.1 + Win32 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + false + false + false + false + false + 00400000 + true + true + All + dclPostgresDAC29 + PostgreSQL Direct Access Components + true + 1033 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + System;Xml;Data;Datasnap;Web;Soap;Winapi;Vcl;$(DCC_Namespace) + + + System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + 1033 + PostgresDAC29;$(DCC_UsePackage) + + + PostgresDAC29;$(DCC_UsePackage) + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + true + true + + + + MainSource + + + + +
PSQLUpdateSQLEditForm
+
+ + +
PSQLConnForm
+
+ +
PSQLLinkFields
+
+ + +
PSQLStoredProcProp
+
+ +
SQLEditForm
+
+ +
PSQLAboutComp
+
+ + Base + + + Cfg_1 + Base + + + Cfg_2 + Base + +
+ + Delphi.Personality.12 + Package + + + + dclPostgresDAC29.dpk + + + + True + False + + + 12 + + + +
diff --git a/Packages/dclPostgresDAC29.res b/Packages/dclPostgresDAC29.res new file mode 100644 index 0000000..2562af4 Binary files /dev/null and b/Packages/dclPostgresDAC29.res differ diff --git a/Source/PSQLAccess.pas b/Source/PSQLAccess.pas index 3d45595..9823429 100644 --- a/Source/PSQLAccess.pas +++ b/Source/PSQLAccess.pas @@ -2,8 +2,6 @@ unit PSQLAccess; -{SVN revision: $Id$} - {$T-} interface diff --git a/Source/PSQLBatch.pas b/Source/PSQLBatch.pas index ae34570..ebd7d6e 100644 --- a/Source/PSQLBatch.pas +++ b/Source/PSQLBatch.pas @@ -2,8 +2,6 @@ interface -{SVN revision: $Id$} - Uses {$IFDEF FPC}LCLIntf,{$ENDIF}{$IFDEF MSWINDOWS}Windows,{$ENDIF} SysUtils, Classes, Db, {$IFDEF DELPHI_6}Variants,{$ENDIF}{StdVCL,} PSQLDbTables, PSQLTypes; diff --git a/Source/PSQLCopy.pas b/Source/PSQLCopy.pas index dffe0ef..f11ee04 100644 --- a/Source/PSQLCopy.pas +++ b/Source/PSQLCopy.pas @@ -2,8 +2,6 @@ unit PSQLCopy; -{SVN revision: $Id$} - interface uses {$IFDEF FPC}LCLIntf,{$ENDIF} SysUtils, Classes, PSQLTypes, diff --git a/Source/PSQLDAC.inc b/Source/PSQLDAC.inc index 59af5ec..4ad9b85 100644 --- a/Source/PSQLDAC.inc +++ b/Source/PSQLDAC.inc @@ -1,5 +1,3 @@ -{SVN revision: $Id$} - {.$DEFINE M_DEBUG}//remove "." to go into M_DEBUG mode //don't do this until you exactly know what you are doing @@ -29,6 +27,33 @@ //--------------------------- // Delphi/Builder versions //--------------------------- +//DELPHI 28 (RX11 Athens} +{$IFDEF VER360} + {$DEFINE FMX_AVAILABLE} + {$DEFINE DELPHI_29} + {$DEFINE DELPHI_28} + {$DEFINE DELPHI_27} + {$DEFINE DELPHI_26} + {$DEFINE DELPHI_25} + {$DEFINE DELPHI_24} + {$DEFINE DELPHI_23} + {$DEFINE DELPHI_22} + {$DEFINE DELPHI_21} + {$DEFINE DELPHI_20} + {$DEFINE DELPHI_19} + {$DEFINE DELPHI_18} + {$DEFINE DELPHI_17} + {$DEFINE DELPHI_16} + {$DEFINE DELPHI_15} + {$DEFINE DELPHI_14} + {$DEFINE DELPHI_12} + {$DEFINE DELPHI_11} + {$DEFINE DELPHI_10} + {$DEFINE DELPHI_9} + {$DEFINE DELPHI_7} + {$DEFINE DELPHI_6} +{$ENDIF} + //DELPHI 28 (RX11 Alexandria} {$IFDEF VER350} {$DEFINE FMX_AVAILABLE} diff --git a/Source/PSQLDbTables.pas b/Source/PSQLDbTables.pas index 31ec986..f607459 100644 --- a/Source/PSQLDbTables.pas +++ b/Source/PSQLDbTables.pas @@ -1,8 +1,6 @@ {$I PSQLDAC.inc} unit PSQLDbTables; -{SVN revision: $Id$} - {$R-,T-,H+,X+} {$C+} interface @@ -5006,7 +5004,6 @@ function TPSQLDataSet.PSExecuteStatement(const ASQL: string; AParams: TParams; var InProvider: Boolean; begin - Result := -1; InProvider := SetDBFlag(dbfProvider, TRUE); try ResultSet := TPSQLQuery.Create(nil); diff --git a/Source/PSQLDirectQuery.pas b/Source/PSQLDirectQuery.pas index 3f4f6d6..0a5bc48 100644 --- a/Source/PSQLDirectQuery.pas +++ b/Source/PSQLDirectQuery.pas @@ -2,8 +2,6 @@ unit PSQLDirectQuery; -{SVN revision: $Id$} - interface uses diff --git a/Source/PSQLDump.pas b/Source/PSQLDump.pas index f87b11e..b4a0331 100644 --- a/Source/PSQLDump.pas +++ b/Source/PSQLDump.pas @@ -1,8 +1,6 @@ {$I PSQLDAC.inc} unit PSQLDump; -{SVN revision: $Id$} - interface Uses Classes, SysUtils, Db, PSQLTypes, Math, PSQLDbTables; diff --git a/Source/PSQLExtMask.pas b/Source/PSQLExtMask.pas index 1d845f1..c132e34 100644 --- a/Source/PSQLExtMask.pas +++ b/Source/PSQLExtMask.pas @@ -2,8 +2,6 @@ unit PSQLExtMask; -{SVN revision: $Id$} - {$T-} interface diff --git a/Source/PSQLMacroQuery.pas b/Source/PSQLMacroQuery.pas index 2e540d1..c226fa1 100644 --- a/Source/PSQLMacroQuery.pas +++ b/Source/PSQLMacroQuery.pas @@ -1,8 +1,6 @@ {$I pSQLDAC.inc} unit PSQLMacroQuery; -{SVN revision: $Id$} - {$P+,W-,R-} interface diff --git a/Source/PSQLMonitor.pas b/Source/PSQLMonitor.pas index d805c5e..97b1508 100644 --- a/Source/PSQLMonitor.pas +++ b/Source/PSQLMonitor.pas @@ -1,8 +1,6 @@ {$I pSQLDAC.inc} unit PSQLMonitor; -{SVN revision: $Id$} - interface uses diff --git a/Source/PSQLNotify.pas b/Source/PSQLNotify.pas index 09d87a6..1a27fbd 100644 --- a/Source/PSQLNotify.pas +++ b/Source/PSQLNotify.pas @@ -1,8 +1,6 @@ {$I PSQLDAC.inc} unit PSQLNotify; -{SVN revision: $Id$} - interface {$DEFINE USE_THREAD_POLLING} //coment this directive to use TTimer instead of TThread diff --git a/Source/PSQLQueryEdit.pas b/Source/PSQLQueryEdit.pas index f4a8f07..4503de5 100644 --- a/Source/PSQLQueryEdit.pas +++ b/Source/PSQLQueryEdit.pas @@ -173,7 +173,6 @@ function EditSQL(var SQL: string; AGetTableNames: TGetTableNamesProc; T: TRTTIType; {$ENDIF} begin - Result := False; with TSQLEditForm.Create(nil) do try {$IFDEF DELPHI_14} diff --git a/Source/PSQLTools.pas b/Source/PSQLTools.pas index 146ca32..183c951 100644 --- a/Source/PSQLTools.pas +++ b/Source/PSQLTools.pas @@ -1,8 +1,6 @@ {$I pSQLDAC.inc} unit PSQLTools; -{SVN revision: $Id$} - interface uses {$IFDEF FPC}LCLIntf,{$ENDIF} SysUtils, Classes, PSQLDbTables, PSQLAccess, PSQLTypes; diff --git a/Source/PSQLTypes.pas b/Source/PSQLTypes.pas index eba45f2..4eb5f8a 100644 --- a/Source/PSQLTypes.pas +++ b/Source/PSQLTypes.pas @@ -1,8 +1,6 @@ {$I pSQLDAC.inc} unit PSQLTypes; -{SVN revision: $Id$} - {$Z+,T-} //taken from MySQLDAC interface