Menu
▾
▴
instantobjects-cvscommit — Generates a message for every commit made on CVS
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(13) |
Sep
(25) |
Oct
(10) |
Nov
(19) |
Dec
(20) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(206) |
Mar
(43) |
Apr
(25) |
May
(20) |
Jun
(69) |
Jul
(121) |
Aug
(95) |
Sep
(122) |
Oct
(213) |
Nov
(46) |
Dec
(39) |
| 2006 |
Jan
(28) |
Feb
(57) |
Mar
(21) |
Apr
(7) |
May
(11) |
Jun
(2) |
Jul
(8) |
Aug
(13) |
Sep
(2) |
Oct
(2) |
Nov
(20) |
Dec
(16) |
| 2007 |
Jan
(9) |
Feb
(15) |
Mar
|
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
|
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(1) |
Sep
(9) |
Oct
|
Nov
(1) |
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(8) |
Apr
(1) |
May
|
Jun
|
Jul
(11) |
Aug
(57) |
Sep
(2) |
Oct
(6) |
Nov
|
Dec
(7) |
| 2010 |
Jan
(11) |
Feb
(1) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
(1) |
Aug
(2) |
Sep
(27) |
Oct
(3) |
Nov
(7) |
Dec
(1) |
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(8) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
(3) |
Nov
(1) |
Dec
(1) |
| 2013 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
(4) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
|
Feb
|
Mar
(1) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
(3) |
Oct
|
Nov
(4) |
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: <jcm...@us...> - 2006-02-14 19:36:40
|
Revision: 600 Author: jcmoraisjr Date: 2006-02-14 11:35:50 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=600&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.dpk trunk/Source/Brokers/FlashFiler/D5/ioff_D5.dpk Added Paths: ----------- trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.res trunk/Source/Brokers/FlashFiler/D5/ioff_D5.res Modified: trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.dpk =================================================================== --- trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.dpk 2006-02-14 19:32:06 UTC (rev 599) +++ trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.dpk 2006-02-14 19:35:50 UTC (rev 600) @@ -1,8 +1,8 @@ package DclIOff_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantFlashFiler.dcr'} -{$R 'InstantFlashFiler.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/FlashFiler/D5/DclIOff_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/FlashFiler/D5/ioff_D5.dpk =================================================================== --- trunk/Source/Brokers/FlashFiler/D5/ioff_D5.dpk 2006-02-14 19:32:06 UTC (rev 599) +++ trunk/Source/Brokers/FlashFiler/D5/ioff_D5.dpk 2006-02-14 19:35:50 UTC (rev 600) @@ -1,8 +1,7 @@ package IOff_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} -{$R '..\InstantFlashFiler.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/FlashFiler/D5/ioff_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/FlashFiler/D5/ioff_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:34:49
|
Revision: 599 Author: jcmoraisjr Date: 2006-02-14 11:32:06 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=599&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/DBX/D2005/DclIODBX.dpk trunk/Source/Brokers/DBX/D2005/IODBX.dpk trunk/Source/Brokers/DBX/D2006/DclIODBX.dpk trunk/Source/Brokers/DBX/D2006/IODBX.dpk trunk/Source/Brokers/DBX/D6/DclIODBX.dpk trunk/Source/Brokers/DBX/D6/IODBX.dpk trunk/Source/Brokers/DBX/D7/DclIODBX.dpk trunk/Source/Brokers/DBX/D7/IODBX.dpk trunk/Source/Brokers/DBX/K3/DclIODBX.dpk trunk/Source/Brokers/DBX/K3/IODBX.dpk Added Paths: ----------- trunk/Source/Brokers/DBX/D2005/DclIODBX.res trunk/Source/Brokers/DBX/D2005/IODBX.res trunk/Source/Brokers/DBX/D2006/DclIODBX.res trunk/Source/Brokers/DBX/D2006/IODBX.res trunk/Source/Brokers/DBX/D6/DclIODBX.res trunk/Source/Brokers/DBX/D6/IODBX.res trunk/Source/Brokers/DBX/D7/DclIODBX.res trunk/Source/Brokers/DBX/D7/IODBX.res trunk/Source/Brokers/DBX/K3/DclIODBX.res trunk/Source/Brokers/DBX/K3/IODBX.res Modified: trunk/Source/Brokers/DBX/D2005/DclIODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D2005/DclIODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D2005/DclIODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,7 +1,8 @@ package DclIODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$R '..\InstantDBX.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D2005/DclIODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D2005/DclIODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D2005/IODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D2005/IODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D2005/IODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,6 +1,7 @@ package IODBX; {$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D2005/IODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D2005/IODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D2006/DclIODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D2006/DclIODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D2006/DclIODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,7 +1,8 @@ package DclIODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$R '..\InstantDBX.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D2006/DclIODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D2006/DclIODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D2006/IODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D2006/IODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D2006/IODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,5 +1,7 @@ package IODBX; +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D2006/IODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D2006/IODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D6/DclIODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D6/DclIODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D6/DclIODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,8 +1,8 @@ package DclIODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantDBX.dcr'} -{$R '..\InstantDBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D6/DclIODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D6/DclIODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D6/IODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D6/IODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D6/IODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,6 +1,6 @@ package IODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/DBX/D6/IODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D6/IODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D7/DclIODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D7/DclIODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D7/DclIODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,8 +1,8 @@ package DclIODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantDBX.dcr'} -{$R '..\InstantDBX.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/D7/DclIODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D7/DclIODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/D7/IODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/D7/IODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/D7/IODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,6 +1,6 @@ package IODBX; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/DBX/D7/IODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/D7/IODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/K3/DclIODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/K3/DclIODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/K3/DclIODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,7 +1,8 @@ package DclIODBX; -{$I '../../../InstantVersion.inc'} +{$R *.res} {$R '../InstantDBX.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/K3/DclIODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/K3/DclIODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBX/K3/IODBX.dpk =================================================================== --- trunk/Source/Brokers/DBX/K3/IODBX.dpk 2006-02-14 19:28:54 UTC (rev 598) +++ trunk/Source/Brokers/DBX/K3/IODBX.dpk 2006-02-14 19:32:06 UTC (rev 599) @@ -1,6 +1,7 @@ package IODBX; -{$I '../../../InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBX/K3/IODBX.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBX/K3/IODBX.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:30:13
|
Revision: 598 Author: jcmoraisjr Date: 2006-02-14 11:28:54 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=598&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dpk trunk/Source/Brokers/DBISAM/D6/IODBISAM.dpk trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dpk trunk/Source/Brokers/DBISAM/D7/IODBISAM.dpk Added Paths: ----------- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.res trunk/Source/Brokers/DBISAM/D6/IODBISAM.res trunk/Source/Brokers/DBISAM/D7/DclDBISAM.res trunk/Source/Brokers/DBISAM/D7/IODBISAM.res Modified: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dpk =================================================================== --- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dpk 2006-02-14 19:25:11 UTC (rev 597) +++ trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dpk 2006-02-14 19:28:54 UTC (rev 598) @@ -1,8 +1,8 @@ package DclDBISAM; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantDBISAM.dcr'} -{$R '..\InstantDBISAM.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBISAM/D6/IODBISAM.dpk =================================================================== --- trunk/Source/Brokers/DBISAM/D6/IODBISAM.dpk 2006-02-14 19:25:11 UTC (rev 597) +++ trunk/Source/Brokers/DBISAM/D6/IODBISAM.dpk 2006-02-14 19:28:54 UTC (rev 598) @@ -1,6 +1,6 @@ package IODBISAM; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/DBISAM/D6/IODBISAM.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBISAM/D6/IODBISAM.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dpk =================================================================== --- trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dpk 2006-02-14 19:25:11 UTC (rev 597) +++ trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dpk 2006-02-14 19:28:54 UTC (rev 598) @@ -1,8 +1,8 @@ package DclDBISAM; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantDBISAM.dcr'} -{$R '..\InstantDBISAM.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/DBISAM/D7/IODBISAM.dpk =================================================================== --- trunk/Source/Brokers/DBISAM/D7/IODBISAM.dpk 2006-02-14 19:25:11 UTC (rev 597) +++ trunk/Source/Brokers/DBISAM/D7/IODBISAM.dpk 2006-02-14 19:28:54 UTC (rev 598) @@ -1,6 +1,6 @@ package IODBISAM; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/DBISAM/D7/IODBISAM.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/DBISAM/D7/IODBISAM.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:28:10
|
Revision: 597 Author: jcmoraisjr Date: 2006-02-14 11:25:11 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=597&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/BDE/D2005/DclIOBDE.dpk trunk/Source/Brokers/BDE/D2005/IOBDE.dpk trunk/Source/Brokers/BDE/D2006/DclIOBDE.dpk trunk/Source/Brokers/BDE/D2006/IOBDE.dpk trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.dpk trunk/Source/Brokers/BDE/D5/Iobde_D5.dpk trunk/Source/Brokers/BDE/D6/DclIOBDE.dpk trunk/Source/Brokers/BDE/D6/IOBDE.dpk trunk/Source/Brokers/BDE/D7/DclIOBDE.dpk trunk/Source/Brokers/BDE/D7/IOBDE.dpk Added Paths: ----------- trunk/Source/Brokers/BDE/D2005/DclIOBDE.res trunk/Source/Brokers/BDE/D2005/IOBDE.res trunk/Source/Brokers/BDE/D2006/DclIOBDE.res trunk/Source/Brokers/BDE/D2006/IOBDE.res trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.res trunk/Source/Brokers/BDE/D5/Iobde_D5.res trunk/Source/Brokers/BDE/D6/DclIOBDE.res trunk/Source/Brokers/BDE/D6/IOBDE.res trunk/Source/Brokers/BDE/D7/DclIOBDE.res trunk/Source/Brokers/BDE/D7/IOBDE.res Modified: trunk/Source/Brokers/BDE/D2005/DclIOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D2005/DclIOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D2005/DclIOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,8 +1,8 @@ package DclIOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantBDE.dcr'} -{$R '..\InstantBDE.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/BDE/D2005/DclIOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D2005/DclIOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D2005/IOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D2005/IOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D2005/IOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,6 +1,6 @@ package IOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/BDE/D2005/IOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D2005/IOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D2006/DclIOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D2006/DclIOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D2006/DclIOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,8 +1,8 @@ package DclIOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantBDE.dcr'} -{$R '..\InstantBDE.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/BDE/D2006/DclIOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D2006/DclIOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D2006/IOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D2006/IOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D2006/IOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,6 +1,6 @@ package IOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/BDE/D2006/IOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D2006/IOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.dpk =================================================================== --- trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,8 +1,8 @@ package DclIOBDE_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantBDE.dcr'} -{$R '..\InstantBDE.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D5/DclIOBDE_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D5/Iobde_D5.dpk =================================================================== --- trunk/Source/Brokers/BDE/D5/Iobde_D5.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D5/Iobde_D5.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,6 +1,6 @@ package IOBDE_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/BDE/D5/Iobde_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D5/Iobde_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D6/DclIOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D6/DclIOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D6/DclIOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,8 +1,8 @@ package DclIOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantBDE.dcr'} -{$R '..\InstantBDE.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/BDE/D6/DclIOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D6/DclIOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D6/IOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D6/IOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D6/IOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,6 +1,6 @@ package IOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/BDE/D6/IOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D6/IOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D7/DclIOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D7/DclIOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D7/DclIOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,8 +1,8 @@ package DclIOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantBDE.dcr'} -{$R '..\InstantBDE.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/BDE/D7/DclIOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D7/DclIOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/BDE/D7/IOBDE.dpk =================================================================== --- trunk/Source/Brokers/BDE/D7/IOBDE.dpk 2006-02-14 19:23:51 UTC (rev 596) +++ trunk/Source/Brokers/BDE/D7/IOBDE.dpk 2006-02-14 19:25:11 UTC (rev 597) @@ -1,6 +1,6 @@ package IOBDE; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/BDE/D7/IOBDE.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/BDE/D7/IOBDE.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:24:37
|
Revision: 596 Author: jcmoraisjr Date: 2006-02-14 11:23:51 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=596&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/ADS/D5/DclIOADS_D5.dpk trunk/Source/Brokers/ADS/D5/ioads_D5.dpk Added Paths: ----------- trunk/Source/Brokers/ADS/D5/DclIOADS_D5.res trunk/Source/Brokers/ADS/D5/ioads_D5.res Modified: trunk/Source/Brokers/ADS/D5/DclIOADS_D5.dpk =================================================================== --- trunk/Source/Brokers/ADS/D5/DclIOADS_D5.dpk 2006-02-14 19:20:22 UTC (rev 595) +++ trunk/Source/Brokers/ADS/D5/DclIOADS_D5.dpk 2006-02-14 19:23:51 UTC (rev 596) @@ -1,8 +1,8 @@ package DclIOADS_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADS.dcr'} -{$R '..\InstantADS.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADS/D5/DclIOADS_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADS/D5/DclIOADS_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADS/D5/ioads_D5.dpk =================================================================== --- trunk/Source/Brokers/ADS/D5/ioads_D5.dpk 2006-02-14 19:20:22 UTC (rev 595) +++ trunk/Source/Brokers/ADS/D5/ioads_D5.dpk 2006-02-14 19:23:51 UTC (rev 596) @@ -1,6 +1,6 @@ package IOADS_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADS/D5/ioads_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADS/D5/ioads_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:23:14
|
Revision: 595 Author: jcmoraisjr Date: 2006-02-14 11:20:22 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=595&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Brokers/ADO/D2005/DclIOADO.dpk trunk/Source/Brokers/ADO/D2005/IOADO.dpk trunk/Source/Brokers/ADO/D2006/DclIOADO.dpk trunk/Source/Brokers/ADO/D2006/IOADO.dpk trunk/Source/Brokers/ADO/D5/DclIOADO_D5.dpk trunk/Source/Brokers/ADO/D5/IOADO_D5.dpk trunk/Source/Brokers/ADO/D6/DclIOADO.dpk trunk/Source/Brokers/ADO/D6/IOADO.dpk trunk/Source/Brokers/ADO/D7/DclIOADO.dpk trunk/Source/Brokers/ADO/D7/IOADO.dpk Added Paths: ----------- trunk/Source/Brokers/ADO/D2005/DclIOADO.res trunk/Source/Brokers/ADO/D2005/IOADO.res trunk/Source/Brokers/ADO/D2006/DclIOADO.res trunk/Source/Brokers/ADO/D2006/IOADO.res trunk/Source/Brokers/ADO/D5/DclIOADO_D5.res trunk/Source/Brokers/ADO/D5/IOADO_D5.res trunk/Source/Brokers/ADO/D6/DclIOADO.res trunk/Source/Brokers/ADO/D6/IOADO.res trunk/Source/Brokers/ADO/D7/DclIOADO.res trunk/Source/Brokers/ADO/D7/IOADO.res Modified: trunk/Source/Brokers/ADO/D2005/DclIOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D2005/DclIOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D2005/DclIOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,8 +1,8 @@ package DclIOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADO.dcr'} -{$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADO/D2005/DclIOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D2005/DclIOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D2005/IOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D2005/IOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D2005/IOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,6 +1,6 @@ package IOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADO/D2005/IOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D2005/IOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D2006/DclIOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D2006/DclIOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D2006/DclIOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,8 +1,8 @@ package DclIOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADO.dcr'} -{$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADO/D2006/DclIOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D2006/DclIOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D2006/IOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D2006/IOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D2006/IOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,6 +1,6 @@ package IOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADO/D2006/IOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D2006/IOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D5/DclIOADO_D5.dpk =================================================================== --- trunk/Source/Brokers/ADO/D5/DclIOADO_D5.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D5/DclIOADO_D5.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,8 +1,8 @@ package DclIOADO_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADO.dcr'} -{$R '..\InstantADO.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADO/D5/DclIOADO_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D5/DclIOADO_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D5/IOADO_D5.dpk =================================================================== --- trunk/Source/Brokers/ADO/D5/IOADO_D5.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D5/IOADO_D5.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,6 +1,6 @@ package IOADO_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADO/D5/IOADO_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D5/IOADO_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D6/DclIOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D6/DclIOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D6/DclIOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,8 +1,8 @@ package DclIOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADO.dcr'} -{$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADO/D6/DclIOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D6/DclIOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D6/IOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D6/IOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D6/IOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,6 +1,6 @@ package IOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADO/D6/IOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D6/IOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D7/DclIOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D7/DclIOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D7/DclIOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,8 +1,8 @@ package DclIOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} +{$R '..\InstantADO.dcr'} -{$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Brokers/ADO/D7/DclIOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D7/DclIOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Brokers/ADO/D7/IOADO.dpk =================================================================== --- trunk/Source/Brokers/ADO/D7/IOADO.dpk 2006-02-14 19:14:20 UTC (rev 594) +++ trunk/Source/Brokers/ADO/D7/IOADO.dpk 2006-02-14 19:20:22 UTC (rev 595) @@ -1,6 +1,6 @@ package IOADO; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Brokers/ADO/D7/IOADO.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Brokers/ADO/D7/IOADO.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:18:42
|
Revision: 594 Author: jcmoraisjr Date: 2006-02-14 11:14:20 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=594&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.dpk trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.dpk trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.dpk trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.dpk trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.dpk trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.dpk trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.dpk trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.dpk trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.dpk trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.dpk trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.dpk trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.dpk Added Paths: ----------- trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.res trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.res trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.res trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.res trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.res trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.res trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.res trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.res trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.res trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.res trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.res trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.res Modified: trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOIBFbCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOIBFbCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/D2006/IOIBFbCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOIBFbCatalog_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOIBFbCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/D6/IOIBFbCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOIBFbCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/D7/IOIBFbCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.dpk =================================================================== --- trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,7 @@ package IOIBFbCatalog; -{$I '../../../InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/IBFb/K3/IOIBFbCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,7 @@ package IOMSSqlCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/D2005/IOMSSqlCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,7 @@ package IOMSSqlCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/D2006/IOMSSqlCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOMSSqlCatalog_D5; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOMSSqlCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,6 @@ package IOMSSqlCatalog; -{$I '..\..\..\InstantVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.dpk =================================================================== --- trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.dpk 2006-02-14 19:10:26 UTC (rev 593) +++ trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.dpk 2006-02-14 19:14:20 UTC (rev 594) @@ -1,6 +1,7 @@ package IOMSSqlCatalog; -{$I '../../../InstantVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Catalogs/MSSql/K3/IOMSSqlCatalog.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:13:16
|
Revision: 593 Author: jcmoraisjr Date: 2006-02-14 11:10:26 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=593&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Design/D2005/DclIOCore.dpk trunk/Source/Design/D2006/DclIOCore.dpk trunk/Source/Design/D5/DclIOCore_D5.dpk trunk/Source/Design/D6/DclIOCore.dpk trunk/Source/Design/D7/DclIOCore.dpk trunk/Source/Design/K3/DclIOCore.dpk Added Paths: ----------- trunk/Source/Design/D2005/DclIOCore.res trunk/Source/Design/D2006/DclIOCore.res trunk/Source/Design/D5/DclIOCore_D5.res trunk/Source/Design/D6/DclIOCore.res trunk/Source/Design/D7/DclIOCore.res trunk/Source/Design/K3/DclIOCore.res Modified: trunk/Source/Design/D2005/DclIOCore.dpk =================================================================== --- trunk/Source/Design/D2005/DclIOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/D2005/DclIOCore.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,13 +1,13 @@ package DclIOCore; -{$I '..\..\InstantPackageVersion.inc'} - +{$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$R '..\..\Core\InstantDBEvolution.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/D2005/DclIOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/D2005/DclIOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Design/D2006/DclIOCore.dpk =================================================================== --- trunk/Source/Design/D2006/DclIOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/D2006/DclIOCore.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,13 +1,13 @@ package DclIOCore; -{$I '..\..\InstantPackageVersion.inc'} - +{$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$R '..\..\Core\InstantDBEvolution.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/D2006/DclIOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/D2006/DclIOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Design/D5/DclIOCore_D5.dpk =================================================================== --- trunk/Source/Design/D5/DclIOCore_D5.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/D5/DclIOCore_D5.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,13 +1,13 @@ package DclIOCore_D5; -{$I '..\..\InstantPackageVersion.inc'} - +{$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$R '..\..\Core\InstantDBEvolution.dcr'} + {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/D5/DclIOCore_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/D5/DclIOCore_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Design/D6/DclIOCore.dpk =================================================================== --- trunk/Source/Design/D6/DclIOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/D6/DclIOCore.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,13 +1,13 @@ package DclIOCore; -{$I '..\..\InstantPackageVersion.inc'} - +{$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$R '..\..\Core\InstantDBEvolution.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/D6/DclIOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/D6/DclIOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Design/D7/DclIOCore.dpk =================================================================== --- trunk/Source/Design/D7/DclIOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/D7/DclIOCore.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,13 +1,13 @@ package DclIOCore; -{$I '..\..\InstantPackageVersion.inc'} - +{$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$R '..\..\Core\InstantDBEvolution.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/D7/DclIOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/D7/DclIOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Design/K3/DclIOCore.dpk =================================================================== --- trunk/Source/Design/K3/DclIOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) +++ trunk/Source/Design/K3/DclIOCore.dpk 2006-02-14 19:10:26 UTC (rev 593) @@ -1,12 +1,13 @@ package DclIOCore; -{$I '../../InstantPackageVersion.inc'} +{$R *.res} {$R '../../Core/InstantPresentation.dcr'} {$R '../../Core/InstantExplorer.dcr'} {$R '../../Core/InstantPersistence.dcr'} {$R '../../Core/InstantConnectionManager.dcr'} {$R '../../Core/InstantPump.dcr'} {$R '../../Core/InstantDBEvolution.dcr'} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Design/K3/DclIOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Design/K3/DclIOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:09:34
|
Revision: 592 Author: jcmoraisjr Date: 2006-02-14 11:07:35 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=592&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package. Modified Paths: -------------- trunk/Source/Core/D2005/IOCore.dpk trunk/Source/Core/D2006/IOCore.dpk trunk/Source/Core/D6/IOCore.dpk trunk/Source/Core/D7/IOCore.dpk trunk/Source/Core/K3/IOCore.dpk Added Paths: ----------- trunk/Source/Core/D2005/IOCore.res trunk/Source/Core/D2006/IOCore.res trunk/Source/Core/D6/IOCore.res trunk/Source/Core/D7/IOCore.res trunk/Source/Core/K3/IOCore.res Modified: trunk/Source/Core/D2005/IOCore.dpk =================================================================== --- trunk/Source/Core/D2005/IOCore.dpk 2006-02-14 19:04:03 UTC (rev 591) +++ trunk/Source/Core/D2005/IOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) @@ -1,6 +1,6 @@ package IOCore; -{$I '..\..\InstantPackageVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Core/D2005/IOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/D2005/IOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Core/D2006/IOCore.dpk =================================================================== --- trunk/Source/Core/D2006/IOCore.dpk 2006-02-14 19:04:03 UTC (rev 591) +++ trunk/Source/Core/D2006/IOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) @@ -1,6 +1,6 @@ package IOCore; -{$I '..\..\InstantPackageVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Core/D2006/IOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/D2006/IOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Core/D6/IOCore.dpk =================================================================== --- trunk/Source/Core/D6/IOCore.dpk 2006-02-14 19:04:03 UTC (rev 591) +++ trunk/Source/Core/D6/IOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) @@ -1,6 +1,6 @@ package IOCore; -{$I '..\..\InstantPackageVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Core/D6/IOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/D6/IOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Core/D7/IOCore.dpk =================================================================== --- trunk/Source/Core/D7/IOCore.dpk 2006-02-14 19:04:03 UTC (rev 591) +++ trunk/Source/Core/D7/IOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) @@ -1,6 +1,6 @@ package IOCore; -{$I '..\..\InstantPackageVersion.inc'} +{$R *.res} {$ALIGN 8} {$ASSERTIONS ON} Added: trunk/Source/Core/D7/IOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/D7/IOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/Source/Core/K3/IOCore.dpk =================================================================== --- trunk/Source/Core/K3/IOCore.dpk 2006-02-14 19:04:03 UTC (rev 591) +++ trunk/Source/Core/K3/IOCore.dpk 2006-02-14 19:07:35 UTC (rev 592) @@ -1,6 +1,7 @@ package IOCore; -{$I '../../InstantPackageVersion.inc'} +{$R *.res} + {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} Added: trunk/Source/Core/K3/IOCore.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/K3/IOCore.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <jcm...@us...> - 2006-02-14 19:04:45
|
Revision: 591 Author: jcmoraisjr Date: 2006-02-14 11:04:03 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=591&view=rev Log Message: ----------- Changed how packages include resource files: - changed header of the packages; - uploaded one resource file per package Modified Paths: -------------- trunk/Source/Core/D5/IOCore_D5.dpk Added Paths: ----------- trunk/Source/Core/D5/IOCore_D5.res Modified: trunk/Source/Core/D5/IOCore_D5.dpk =================================================================== --- trunk/Source/Core/D5/IOCore_D5.dpk 2006-02-14 14:59:57 UTC (rev 590) +++ trunk/Source/Core/D5/IOCore_D5.dpk 2006-02-14 19:04:03 UTC (rev 591) @@ -1,6 +1,6 @@ package IOCore_D5; -{$I '..\..\InstantPackageVersion.inc'} +{$R *.res} {$ALIGN ON} {$ASSERTIONS ON} Added: trunk/Source/Core/D5/IOCore_D5.res =================================================================== (Binary files differ) Property changes on: trunk/Source/Core/D5/IOCore_D5.res ___________________________________________________________________ Name: svn:mime-type + application/octet-stream |
|
From: <na...@us...> - 2006-02-14 15:00:48
|
Revision: 590 Author: nandod Date: 2006-02-14 06:59:57 -0800 (Tue, 14 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=590&view=rev Log Message: ----------- removed useless files. Removed Paths: ------------- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.cfg trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dof trunk/Source/Brokers/DBISAM/D6/DclDBISAM.res trunk/Source/Brokers/DBISAM/D6/IODBISAM.cfg trunk/Source/Brokers/DBISAM/D6/IODBISAM.dof trunk/Source/Brokers/DBISAM/D6/IODBISAM.res trunk/Source/Brokers/DBISAM/D7/DclDBISAM.cfg trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dof trunk/Source/Brokers/DBISAM/D7/DclDBISAM.res trunk/Source/Brokers/DBISAM/D7/IODBISAM.cfg trunk/Source/Brokers/DBISAM/D7/IODBISAM.dof trunk/Source/Brokers/DBISAM/D7/IODBISAM.res Deleted: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.cfg =================================================================== --- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.cfg 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D6/DclDBISAM.cfg 2006-02-14 14:59:57 UTC (rev 590) @@ -1,36 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J+ --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"c:\d6\Projects\Bpl" --LN"c:\d6\Projects\Bpl" --Z Deleted: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dof =================================================================== --- trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dof 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D6/DclDBISAM.dof 2006-02-14 14:59:57 UTC (rev 590) @@ -1,92 +0,0 @@ -[FileVersion] -Version=6.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=1 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) -[Directories] -OutputDir= -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\D6\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=7 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1033 -CodePage=1252 -[Version Info Keys] -CompanyName=InstantObjects -FileDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) -FileVersion=1.7.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=InstantObjects -ProductVersion=1.7 -Comments= -[Excluded Packages] -C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Deleted: trunk/Source/Brokers/DBISAM/D6/DclDBISAM.res =================================================================== (Binary files differ) Deleted: trunk/Source/Brokers/DBISAM/D6/IODBISAM.cfg =================================================================== --- trunk/Source/Brokers/DBISAM/D6/IODBISAM.cfg 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D6/IODBISAM.cfg 2006-02-14 14:59:57 UTC (rev 590) @@ -1,36 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J+ --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"c:\d6\Projects\Bpl" --LN"c:\d6\Projects\Bpl" --Z Deleted: trunk/Source/Brokers/DBISAM/D6/IODBISAM.dof =================================================================== --- trunk/Source/Brokers/DBISAM/D6/IODBISAM.dof 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D6/IODBISAM.dof 2006-02-14 14:59:57 UTC (rev 590) @@ -1,92 +0,0 @@ -[FileVersion] -Version=6.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=1 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) -[Directories] -OutputDir= -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\D6\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=7 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1033 -CodePage=1252 -[Version Info Keys] -CompanyName=InstantObjects.org -FileDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) -FileVersion=1.7.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=InstantObjects -ProductVersion=1.7 -Comments= -[Excluded Packages] -C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Deleted: trunk/Source/Brokers/DBISAM/D6/IODBISAM.res =================================================================== (Binary files differ) Deleted: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.cfg =================================================================== --- trunk/Source/Brokers/DBISAM/D7/DclDBISAM.cfg 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D7/DclDBISAM.cfg 2006-02-14 14:59:57 UTC (rev 590) @@ -1,36 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J+ --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"c:\d7\Projects\Bpl" --LN"c:\d7\Projects\Bpl" --Z Deleted: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dof =================================================================== --- trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dof 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D7/DclDBISAM.dof 2006-02-14 14:59:57 UTC (rev 590) @@ -1,141 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=1 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=1 -UnsafeCode=1 -UnsafeCast=1 -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription=InstantObjects DBISAM Design-Time Support (Delphi 7) -[Directories] -OutputDir= -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\D6\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=7 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1033 -CodePage=1252 -[Version Info Keys] -CompanyName=InstantObjects -FileDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) -FileVersion=1.7.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=InstantObjects -ProductVersion=1.7 -Comments= -[Excluded Packages] -C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Deleted: trunk/Source/Brokers/DBISAM/D7/DclDBISAM.res =================================================================== (Binary files differ) Deleted: trunk/Source/Brokers/DBISAM/D7/IODBISAM.cfg =================================================================== --- trunk/Source/Brokers/DBISAM/D7/IODBISAM.cfg 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D7/IODBISAM.cfg 2006-02-14 14:59:57 UTC (rev 590) @@ -1,36 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J+ --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"c:\d7\Projects\Bpl" --LN"c:\d7\Projects\Bpl" --Z Deleted: trunk/Source/Brokers/DBISAM/D7/IODBISAM.dof =================================================================== --- trunk/Source/Brokers/DBISAM/D7/IODBISAM.dof 2006-02-13 22:03:48 UTC (rev 589) +++ trunk/Source/Brokers/DBISAM/D7/IODBISAM.dof 2006-02-14 14:59:57 UTC (rev 590) @@ -1,141 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=1 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=1 -UnsafeCode=1 -UnsafeCast=1 -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription=InstantObjects DBISAM Run-Time Support (Delphi 7) -[Directories] -OutputDir= -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\D6\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=7 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1033 -CodePage=1252 -[Version Info Keys] -CompanyName=InstantObjects.org -FileDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) -FileVersion=1.7.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=InstantObjects -ProductVersion=1.7 -Comments= -[Excluded Packages] -C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Deleted: trunk/Source/Brokers/DBISAM/D7/IODBISAM.res =================================================================== (Binary files differ) |
|
From: <sr...@us...> - 2006-02-13 22:04:10
|
Revision: 589 Author: srmitch Date: 2006-02-13 14:03:48 -0800 (Mon, 13 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=589&view=rev Log Message: ----------- Changed last test submitted to emulate the retrieve behavior so that it does not run by default as it crashes GUITestRunner with stack overflow. Left in for future consideration by changing class visibility to public. Modified Paths: -------------- trunk/Source/Tests/TestInstantReferences.pas Modified: trunk/Source/Tests/TestInstantReferences.pas =================================================================== --- trunk/Source/Tests/TestInstantReferences.pas 2006-02-13 17:57:13 UTC (rev 588) +++ trunk/Source/Tests/TestInstantReferences.pas 2006-02-13 22:03:48 UTC (rev 589) @@ -46,6 +46,13 @@ public procedure SetUp; override; procedure TearDown; override; + + // Emulate the retrieve behavior + // Feb 2006 - IO Beta 2 + // Do not run by default as it crashes + // GUITestRunner with stack overflow. + // Left here for future consideration. + procedure TestCircularReferencesRetrieve; published procedure TestAddEmbeddedObject; procedure TestAddExternalObject; @@ -71,8 +78,6 @@ // + -> D -> E // then delete E procedure TestCircularReferences5; - //Emulate the retrive behavior - procedure TestCircularReferencesRetrive; end; TestTInstantEmbReferences = class(TTestCase) @@ -506,9 +511,9 @@ vProject2: TProject; vPerson2: TPerson; begin - FOwner.Name := 'Owner'; + FOwner.Name := 'Owner'; // B - vPerson := TPerson.Create(FConn); + vPerson := TPerson.Create(FConn); // A try AssertNotNull(vPerson); vPerson.Name := 'vPerson'; @@ -518,7 +523,7 @@ AssertEquals('vPerson.Employer.Name A', 'Owner', vPerson.Employer.Name); FOwner.DeleteEmployee(0); - vProject1 := TProject.Create(FConn); + vProject1 := TProject.Create(FConn); // C try AssertNotNull(vProject1); vProject1.Name := 'vProject1'; @@ -528,11 +533,11 @@ vProject1.Free; end; - vProject2 := TProject.Create(FConn); + vProject2 := TProject.Create(FConn); // D try AssertNotNull(vProject2); vProject2.Name := 'vProject2'; - vPerson2 := TPerson.Create(FConn); + vPerson2 := TPerson.Create(FConn); // E try AssertNotNull(vPerson2); vPerson2.Name := 'vPerson2'; @@ -585,7 +590,7 @@ end; end; -procedure TestTInstantReferences_Leak.TestCircularReferencesRetrive; +procedure TestTInstantReferences_Leak.TestCircularReferencesRetrieve; var vPerson1: TPerson; vPerson2: TPerson; @@ -613,15 +618,15 @@ vPerson2 := TPerson.Create(FConn); //D try - AssertNotNull(vPerson1); - vPerson2.Name := 'vPerson1'; + AssertNotNull(vPerson2); + vPerson2.Name := 'vPerson2'; //A -> B -> C -> A // | // +-> D vPerson2.EmployBy(FOwner); AssertNotNull(vPerson2.Employer); AssertEquals('vPerson2.Employer.Name A', 'Owner', vPerson2.Employer.Name); - //Decrement the RefCount to emulate the Retrive constructor + //Decrement the RefCount to emulate the Retrieve constructor FOwner.Release; vPerson1.Release; finally |
|
From: <fas...@us...> - 2006-02-13 17:57:40
|
Revision: 588 Author: fastbike2 Date: 2006-02-13 09:57:13 -0800 (Mon, 13 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=588&view=rev Log Message: ----------- Fix for Bug 1375131: Evolving database with part attributes causes "Class Not Registered" error when object is retrieved. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-13 15:56:16 UTC (rev 587) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-13 17:57:13 UTC (rev 588) @@ -14403,6 +14403,8 @@ procedure ReadPartAttribute; var Stream: TInstantStringStream; + LPartClassName: string; + LPartId: string; begin if AttributeMetadata.StorageKind = skExternal then begin @@ -14411,13 +14413,23 @@ // Must clear Value first to avoid leak for Refresh operation // as OldValue = NewValue. Value := nil; - Value := InstantFindClass(ReadStringField(DataSet, AFieldName + InstantClassFieldName)).Retrieve( - ReadStringField(DataSet, AFieldName + InstantIdFieldName), False, False, AObject.Connector); + LPartClassName := ReadStringField(DataSet, AFieldName + + InstantClassFieldName); + LPartId := ReadStringField(DataSet, AFieldName + + InstantIdFieldName); + // LPartClassName and LPartId will be empty if the attribute was + // added to a class with existing instances in the database. + if (LPartClassName = '') and (LPartId = '') then + (Attribute as TInstantPart).Reset + else + Value := InstantFindClass(LPartClassName).Retrieve(LPartId, + False, False, AObject.Connector); end; end else begin - Stream := TInstantStringStream.Create(ReadBlobField(DataSet, AFieldName)); + Stream := TInstantStringStream.Create(ReadBlobField(DataSet, + AFieldName)); try if Stream.Size = 0 then (Attribute as TInstantPart).Reset |
|
From: <Dav...@us...> - 2006-02-13 15:56:31
|
Revision: 587 Author: DavidVTaylor Date: 2006-02-13 07:56:16 -0800 (Mon, 13 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=587&view=rev Log Message: ----------- Fix for bug #1423177 - Memory leak handling exceptions. EInstantError exception wrapping mechanism incorrectly used AcquireExceptionObject and ReleaseExceptionObject functions. Bug impacted only Delphi 6 and later versions. Modified Paths: -------------- trunk/Source/Core/InstantClasses.pas Modified: trunk/Source/Core/InstantClasses.pas =================================================================== --- trunk/Source/Core/InstantClasses.pas 2006-02-13 10:43:58 UTC (rev 586) +++ trunk/Source/Core/InstantClasses.pas 2006-02-13 15:56:16 UTC (rev 587) @@ -599,20 +599,15 @@ destructor EInstantError.Destroy; begin - {$IFDEF D6+} - ReleaseExceptionObject; - {$ELSE} - FOriginalException.Free; - {$ENDIF} + FreeAndNil(FOriginalException); inherited; -end; +end; procedure EInstantError.Initialize(E: TObject); begin {$IFDEF D6+} - FOriginalException := AcquireExceptionObject; - if FOriginalException <> E then - FOriginalException := nil; + if ((ExceptObject <> nil) and (ExceptObject = E)) then + FOriginalException := AcquireExceptionObject; {$ELSE} if Assigned(E) and (RaiseList <> nil) and (PRaiseFrame(RaiseList)^.ExceptObject = E) then @@ -1373,7 +1368,7 @@ Esc := Format(EscStr, [Format('#%d', [Ord(C)])]); WriteString(Esc); end; -*) +*) end; end; @@ -1728,7 +1723,7 @@ end; Reader.ReadListEnd; end; -*) +*) vaIdent: Producer.WriteEscapedData(Reader.ReadIdent); vaFalse: |
|
From: <car...@us...> - 2006-02-13 10:44:17
|
Revision: 586 Author: carlobar Date: 2006-02-13 02:43:58 -0800 (Mon, 13 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=586&view=rev Log Message: ----------- InstantExplorer memory leak resolved (bug n. 1423344) Modified Paths: -------------- trunk/Source/Core/InstantExplorer.pas Modified: trunk/Source/Core/InstantExplorer.pas =================================================================== --- trunk/Source/Core/InstantExplorer.pas 2006-02-13 07:25:37 UTC (rev 585) +++ trunk/Source/Core/InstantExplorer.pas 2006-02-13 10:43:58 UTC (rev 586) @@ -145,6 +145,7 @@ procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); procedure TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode); + procedure TreeViewNodeDeletion(Sender: TObject; Node: TTreeNode); protected procedure ChangeNode(Node: TTreeNode); virtual; function CreateContentEditor(AOwner: TComponent; @@ -396,26 +397,6 @@ SaveOnChange: TTVChangedEvent; ChildCount: Integer; - procedure FreeTreeViewNodeData(ATreeNodes: TTreeNodes); - var - Obj: TObject; - begin - with ATreeNodes do - begin - Node := GetFirstNode; - while Node <> nil do - begin - // Don't test 'Assigned(Node.Data)' because value - // of 'Node.Data' could be -1 ('NotLoaded') - if Integer(Node.Data) > 0 then - begin - Obj := TObject(Node.Data); - FreeAndNil(Obj); - end; - Node := Node.GetNext; - end; - end; - end; begin ItemIndex := 0; with TreeView do @@ -424,8 +405,6 @@ OnChange := nil; Items.BeginUpdate; try - if Assigned(FRootObject) then - FreeTreeViewNodeData(Items); if Assigned(Selected) then ItemIndex := Selected.AbsoluteIndex; @@ -689,6 +668,7 @@ {$IFDEF MSWINDOWS} Result.ShowRoot := ShowRoot; {$ENDIF} + Result.OnDeletion := TreeViewNodeDeletion; end; destructor TInstantExplorer.Destroy; @@ -849,6 +829,19 @@ LoadChildren); end; +procedure TInstantExplorer.TreeViewNodeDeletion(Sender: TObject; Node: TTreeNode); +var + Obj: TObject; +begin + // Don't test 'Assigned(Node.Data)' because value + // of 'Node.Data' could be -1 ('NotLoaded') + if Integer(Node.Data) > 0 then + begin + Obj := TObject(Node.Data); + FreeAndNil(Obj); + end; +end; + function TInstantExplorer.NodeIsLoaded(Node: TTreeNode): Boolean; begin if Node.HasChildren then |
|
From: <sr...@us...> - 2006-02-13 07:25:54
|
Revision: 585 Author: srmitch Date: 2006-02-12 23:25:37 -0800 (Sun, 12 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=585&view=rev Log Message: ----------- Fix for SF BT #1426929 bug report. For an application compiled in D2006, adding entries into a new record in a DbGrid with an attached Selector results in an application crash (stack overflow) when trying to tab from the second column. Workaround comprises the addition of a semaphore variable to avoid recursion. Changes to InstantPresentation.pas: TInstantCustomExposer = class(TDataSet) private ... FContentModifiedList: TList; + FInSetFieldData: Boolean; FMemoList: TStrings; ... end; procedure TInstantCustomExposer.SetFieldData(Field: TField; Buffer: Pointer); begin if Assigned(Buffer) then Move(Buffer^, CurrentBuffer[GetFieldOffset(Field)], Field.DataSize) else FillChar(CurrentBuffer[GetFieldOffset(Field)], Field.DataSize, 0); - if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then + if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) and + not FInSetFieldData then begin + FInSetFieldData := True; + try PostField(Field); DataEvent(deFieldChange, Longint(Field)); + finally + FInSetFieldData := False; + end; end; end; Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-13 07:09:19 UTC (rev 584) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-13 07:25:37 UTC (rev 585) @@ -218,6 +218,7 @@ FAfterPostField: TInstantFieldEvent; FBeforePostField: TInstantFieldEvent; FContentModifiedList: TList; + FInSetFieldData: Boolean; FMemoList: TStrings; FOnCompare: TInstantCompareObjectsEvent; FOnCreateObject: TInstantCreateObjectEvent; @@ -2011,8 +2012,7 @@ Result := Accessor.CreateObject; end; -procedure TInstantCustomExposer.DataEvent(Event: TDataEvent; - Info: Integer); +procedure TInstantCustomExposer.DataEvent(Event: TDataEvent; Info: Longint); var I: Integer; DataSet: TDataSet; @@ -3742,10 +3742,16 @@ Move(Buffer^, CurrentBuffer[GetFieldOffset(Field)], Field.DataSize) else FillChar(CurrentBuffer[GetFieldOffset(Field)], Field.DataSize, 0); - if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then + if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) and + not FInSetFieldData then begin - PostField(Field); - DataEvent(deFieldChange, Longint(Field)); + FInSetFieldData := True; + try + PostField(Field); + DataEvent(deFieldChange, Longint(Field)); + finally + FInSetFieldData := False; + end; end; end; |
|
From: <na...@us...> - 2006-02-13 07:10:20
|
Revision: 584 Author: nandod Date: 2006-02-12 23:09:19 -0800 (Sun, 12 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=584&view=rev Log Message: ----------- unsupported column types no longer stop the build/evolution process. Modified Paths: -------------- trunk/Source/Brokers/BDE/InstantBDECatalog.pas trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas trunk/Source/Core/InstantConsts.pas trunk/Source/Core/InstantCustomDBEvolverFormUnit.pas trunk/Source/Core/InstantDBBuild.pas trunk/Source/Core/InstantDBEvolution.pas trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Brokers/BDE/InstantBDECatalog.pas =================================================================== --- trunk/Source/Brokers/BDE/InstantBDECatalog.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Brokers/BDE/InstantBDECatalog.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -23,7 +23,7 @@ * Portions created by the Initial Developer are Copyright (C) 2005 * the Initial Developer. All Rights Reserved. * - * Contributor(s): + * Contributor(s): Nando Dessena * * ***** END LICENSE BLOCK ***** *) @@ -48,7 +48,8 @@ procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata); procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); - function ColumnTypeToDataType(const ColumnType: TFieldType): TInstantDataType; + function ColumnTypeToDataType(const ColumnType: TFieldType; + out DataType: TInstantDataType): Boolean; public procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas); override; @@ -65,6 +66,7 @@ vTable: TTable; FieldMetadata: TInstantFieldMetadata; i: Integer; + FieldDataType: TInstantDataType; begin vTable := TTable.Create(nil); try @@ -73,17 +75,24 @@ vTable.FieldDefs.Update; for i := 0 to Pred(vTable.FieldDefs.Count) do begin - FieldMetadata := TableMetadata.FieldMetadatas.Add; - FieldMetadata.Name := Trim(vTable.FieldDefs[i].Name); - FieldMetadata.DataType := ColumnTypeToDataType(vTable.FieldDefs[i].DataType); - FieldMetadata.Options := []; - if vTable.FieldDefs[i].Required then - FieldMetadata.Options := FieldMetadata.Options + [foRequired]; - if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then - FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - { TODO : support ExternalTableName? } - if FieldMetadata.DataType in [dtString, dtMemo] then - FieldMetadata.Size := vTable.FieldDefs[i].Size; + if ColumnTypeToDataType(vTable.FieldDefs[i].DataType, FieldDataType) then + begin + FieldMetadata := TableMetadata.FieldMetadatas.Add; + FieldMetadata.Name := vTable.FieldDefs[i].Name; + FieldMetadata.DataType := FieldDataType; + FieldMetadata.Options := []; + if vTable.FieldDefs[i].Required then + FieldMetadata.Options := FieldMetadata.Options + [foRequired]; + if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then + FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; + { TODO : support ExternalTableName? } + if FieldMetadata.DataType in [dtString, dtMemo] then + FieldMetadata.Size := vTable.FieldDefs[i].Size; + end + else + DoWarning(Format(SUnsupportedColumnSkipped, [ + TableMetadata.Name, vTable.FieldDefs[i].Name, + GetEnumName(TypeInfo(TFieldType), Ord(vTable.FieldDefs[i].DataType))])); end; finally vTable.Free; @@ -109,10 +118,10 @@ begin IndexMetadata := TableMetadata.IndexMetadatas.Add; if ixPrimary in vTable.IndexDefs[i].Options then - IndexMetadata.Name := Trim(vTable.IndexDefs[i].Name) + IndexMetadata.Name := vTable.IndexDefs[i].Name else IndexMetadata.Name := ChangeFileExt(vTable.TableName, '') - + Trim(vTable.IndexDefs[i].Name); + + vTable.IndexDefs[i].Name; IndexMetadata.Fields := vTable.IndexDefs[i].Fields; IndexMetadata.Options := vTable.IndexDefs[i].Options; end; @@ -136,7 +145,7 @@ Session.GetTableNames(vDatabaseName, '*.*', true, false, vTables); for i := 0 to Pred(vTables.Count) do begin - vTableName := ExtractFileName(Trim(vTables.Strings[i])); + vTableName := ExtractFileName(vTables.Strings[i]); TableMetadata := TableMetadatas.Add; TableMetadata.Name := vTableName; // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what @@ -150,26 +159,26 @@ end; end; -function TInstantBDECatalog.ColumnTypeToDataType(const ColumnType: TFieldType): - TInstantDataType; +function TInstantBDECatalog.ColumnTypeToDataType(const ColumnType: TFieldType; + out DataType: TInstantDataType): Boolean; begin + Result := True; case ColumnType of - ftString: Result := dtString; + ftString: DataType := dtString; ftSmallint, - ftInteger: Result := dtInteger; - ftBoolean: Result := dtBoolean; - ftFloat: Result := dtFloat; - ftCurrency: Result := dtCurrency; + ftInteger: DataType := dtInteger; + ftBoolean: DataType := dtBoolean; + ftFloat: DataType := dtFloat; + ftCurrency: DataType := dtCurrency; ftDate, ftTime, - ftDateTime: Result := dtDateTime; - ftAutoInc: Result := dtInteger; + ftDateTime: DataType := dtDateTime; + ftAutoInc: DataType := dtInteger; ftBlob, - ftGraphic: Result := dtBlob; - ftMemo: Result := dtMemo; + ftGraphic: DataType := dtBlob; + ftMemo: DataType := dtMemo; else - raise Exception.CreateFmt(SUnsupportedColumnType, - [GetEnumName(TypeInfo(TFieldType), Ord(ColumnType))]); + Result := False; end; end; Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas =================================================================== --- trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -1148,7 +1148,7 @@ if not Assigned(FOldTableMetadata) then begin //Force to read the table from database - FScheme := Broker.ReadDatabaseScheme; + FScheme := Broker.ReadDatabaseScheme(nil); FieldMetadata := nil; case CommandType of Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas =================================================================== --- trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -49,7 +49,8 @@ procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); function ColumnTypeToDataType(const ColumnType: TZSQLType; - out AlternateDataTypes: TInstantDataTypes): TInstantDataType; + out DataType: TInstantDataType; + out AlternateDataTypes: TInstantDataTypes): Boolean; function GetBroker: TInstantZeosDBOBroker; function GetConnector: TInstantZeosDBOConnector; public @@ -70,7 +71,8 @@ var Fields: IZResultSet; FieldMetadata: TInstantFieldMetadata; - AlternateDatatypes: TInstantDataTypes; + FieldDataType: TInstantDataType; + FieldAlternateDataTypes: TInstantDataTypes; begin with Connector.Connection do Fields := DbcConnection.GetMetadata.GetColumns(Catalog, '', @@ -79,24 +81,30 @@ Fields.BeforeFirst; while Fields.Next do begin - FieldMetadata := TableMetadata.FieldMetadatas.Add; - FieldMetadata.Name := Fields.GetStringByName('COLUMN_NAME'); - FieldMetadata.DataType := - ColumnTypeToDataType(TZSQLType(Fields.GetShortByName('DATA_TYPE')), - AlternateDataTypes); - FieldMetadata.AlternateDataTypes := AlternateDataTypes; - FieldMetadata.Options := []; - if not Fields.GetBooleanByName('IS_NULLABLE') then - FieldMetadata.Options := FieldMetadata.Options + [foRequired]; - if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then - FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - // work around bug in GetColumns for all drivers where - // CHAR_OCTET_LENGTH is not assigned - if (FieldMetadata.DataType in [dtString, dtMemo]) and - (Fields.GetIntByName('CHAR_OCTET_LENGTH') > 0) then - FieldMetadata.Size := Fields.GetIntByName('CHAR_OCTET_LENGTH') + if ColumnTypeToDataType(TZSQLType(Fields.GetShortByName('DATA_TYPE')), + FieldDataType, FieldAlternateDataTypes) then + begin + FieldMetadata := TableMetadata.FieldMetadatas.Add; + FieldMetadata.Name := Fields.GetStringByName('COLUMN_NAME'); + FieldMetadata.DataType := FieldDataType; + FieldMetadata.AlternateDataTypes := FieldAlternateDataTypes; + FieldMetadata.Options := []; + if not Fields.GetBooleanByName('IS_NULLABLE') then + FieldMetadata.Options := FieldMetadata.Options + [foRequired]; + if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then + FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; + // work around bug in GetColumns for all drivers where + // CHAR_OCTET_LENGTH is not assigned + if (FieldMetadata.DataType in [dtString, dtMemo]) and + (Fields.GetIntByName('CHAR_OCTET_LENGTH') > 0) then + FieldMetadata.Size := Fields.GetIntByName('CHAR_OCTET_LENGTH') + else + FieldMetadata.Size := Fields.GetIntByName('COLUMN_SIZE'); + end else - FieldMetadata.Size := Fields.GetIntByName('COLUMN_SIZE'); + DoWarning(Format(SUnsupportedColumnSkipped, [ + TableMetadata.Name, Fields.GetStringByName('COLUMN_NAME'), + GetEnumName(TypeInfo(TZSQLType), Fields.GetShortByName('DATA_TYPE'))])); end; end; @@ -191,39 +199,40 @@ end; end; -function TInstantZeosDBOCatalog.ColumnTypeToDataType(const ColumnType: - TZSQLType; out AlternateDataTypes: TInstantDataTypes): TInstantDataType; +function TInstantZeosDBOCatalog.ColumnTypeToDataType(const ColumnType: TZSQLType; + out DataType: TInstantDataType; + out AlternateDataTypes: TInstantDataTypes): Boolean; begin + Result := True; AlternateDataTypes := []; case ColumnType of stString, - stUnicodeString: Result := dtString; - stBoolean: Result := dtBoolean; + stUnicodeString: DataType := dtString; + stBoolean: DataType := dtBoolean; stShort: begin - Result := dtBoolean; + DataType := dtBoolean; Include(AlternateDataTypes, dtInteger); end; stByte, stInteger, - stLong: Result := dtInteger; + stLong: DataType := dtInteger; stFloat, stDouble: begin - Result := dtFloat; + DataType := dtFloat; Include(AlternateDataTypes, dtCurrency); end; - stBigDecimal: Result := dtCurrency; + stBigDecimal: DataType := dtCurrency; stDate, stTime, - stTimeStamp: Result := dtDateTime; + stTimeStamp: DataType := dtDateTime; stBytes, - stBinaryStream: Result := dtBlob; + stBinaryStream: DataType := dtBlob; stAsciiStream, - stUnicodeStream: Result := dtMemo; + stUnicodeStream: DataType := dtMemo; else - raise EInstantError.CreateFmt(SUnsupportedColumnType, - [GetEnumName(TypeInfo(TZSQLType), Ord(ColumnType))]); + Result := False; end; end; Modified: trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas =================================================================== --- trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -49,7 +49,8 @@ procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); function ColumnTypeToDataType(const ColumnType: string; - const ColumnSubType, FieldScale: Integer): TInstantDataType; + const ColumnSubType, FieldScale: Integer; + out DataType: TInstantDataType): Boolean; function GetSelectFieldsSQL(const ATableName: string): string; function GetSelectIndexesSQL(const ATableName: string): string; function GetSelectIndexFieldsSQL(const AIndexName: string): string; @@ -90,7 +91,7 @@ try while not IndexFields.Eof do begin - IndexFieldList.Add(Trim(IndexFields.FieldByName('COLUMN_NAME').AsString)); + IndexFieldList.Add(IndexFields.FieldByName('COLUMN_NAME').AsString); IndexFields.Next; end; finally @@ -114,7 +115,7 @@ while not Indexes.Eof do begin IndexMetadata := TableMetadata.IndexMetadatas.Add; - IndexMetadata.Name := Trim(Indexes.FieldByName('INDEX_NAME').AsString); + IndexMetadata.Name := Indexes.FieldByName('INDEX_NAME').AsString; IndexMetadata.Fields := GetIndexFields(IndexMetadata.Name); IndexMetadata.Options := []; @@ -141,6 +142,7 @@ var Fields: TDataSet; FieldMetadata: TInstantFieldMetadata; + FieldDataType: TInstantDataType; begin Fields := Broker.AcquireDataSet(GetSelectFieldsSQL(TableMetadata.Name)); try @@ -148,18 +150,25 @@ try while not Fields.Eof do begin - FieldMetadata := TableMetadata.FieldMetadatas.Add; - FieldMetadata.Name := Trim(Fields.FieldByName('COLUMN_NAME').AsString); - FieldMetadata.DataType := ColumnTypeToDataType( - Trim(Fields.FieldByName('COLUMN_TYPENAME').AsString), + if ColumnTypeToDataType( + Fields.FieldByName('COLUMN_TYPENAME').AsString, Fields.FieldByName('COLUMN_SUBTYPE').AsInteger, - Fields.FieldByName('COLUMN_SCALE').AsInteger); - FieldMetadata.Options := []; - if Fields.FieldByName('COLUMN_NULLABLE').AsInteger <> 1 then - FieldMetadata.Options := FieldMetadata.Options + [foRequired]; - if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then - FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger; + Fields.FieldByName('COLUMN_SCALE').AsInteger, FieldDataType) then + begin + FieldMetadata := TableMetadata.FieldMetadatas.Add; + FieldMetadata.Name := Fields.FieldByName('COLUMN_NAME').AsString; + FieldMetadata.DataType := FieldDataType; + FieldMetadata.Options := []; + if Fields.FieldByName('COLUMN_NULLABLE').AsInteger <> 1 then + FieldMetadata.Options := FieldMetadata.Options + [foRequired]; + if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then + FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; + FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger; + end + else + DoWarning(Format(SUnsupportedColumnSkipped, [ + TableMetadata.Name, Fields.FieldByName('COLUMN_NAME').AsString, + Fields.FieldByName('COLUMN_TYPENAME').AsString])); Fields.Next; end; finally @@ -183,7 +192,7 @@ while not Tables.Eof do begin TableMetadata := TableMetadatas.Add; - TableMetadata.Name := Trim(Tables.FieldByName('TABLE_NAME').AsString); + TableMetadata.Name := Tables.FieldByName('TABLE_NAME').AsString; // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what // indexes are defined to correctly set the foIndexed option. AddIndexMetadatas(TableMetadata); @@ -199,26 +208,28 @@ end; function TInstantMSSqlCatalog.ColumnTypeToDataType(const ColumnType: string; - const ColumnSubType, FieldScale: Integer): TInstantDataType; + const ColumnSubType, FieldScale: Integer; + out DataType: TInstantDataType): Boolean; begin + Result := True; if SameText(ColumnType, 'int') then - Result := dtInteger + DataType := dtInteger else if SameText(ColumnType, 'float') then - Result := dtFloat + DataType := dtFloat else if SameText(ColumnType, 'money') then - Result := dtCurrency + DataType := dtCurrency else if SameText(ColumnType, 'bit') then - Result := dtBoolean + DataType := dtBoolean else if SameText(ColumnType, 'varchar') then - Result := dtString + DataType := dtString else if SameText(ColumnType, 'text') then - Result := dtMemo + DataType := dtMemo else if SameText(ColumnType, 'datetime') then - Result := dtDateTime + DataType := dtDateTime else if SameText(ColumnType, 'image') then - Result := dtBlob + DataType := dtBlob else - raise Exception.CreateFmt(SUnsupportedColumnType, [ColumnType]); + Result := False; end; function TInstantMSSqlCatalog.GetSelectFieldsSQL( @@ -304,7 +315,7 @@ 'SELECT ' + ' name AS TABLE_NAME ' + 'FROM sysobjects ' + - 'WHERE type = ''U'' ' + + 'WHERE type = ''U'' and OBJECTPROPERTY(id, N''IsMSShipped'') <> 1' + 'ORDER BY name'; end; Modified: trunk/Source/Core/InstantConsts.pas =================================================================== --- trunk/Source/Core/InstantConsts.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Core/InstantConsts.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -180,7 +180,7 @@ SUnexpectedToken = 'Unexpected token ''%s''. Expected token ''%s'''; SUnknownAttributeClass = 'Unknown attribute class for attribute %s(''%s'')'; SUnspecifiedCommand = 'Command is not specified'; - SUnsupportedColumnType = 'ColumnType %s not supported'; + SUnsupportedColumnSkipped = 'Skipped column %s.%s. Unsupported type %s.'; SUnsupportedDataType = 'Unsupported datatype: %s'; SUnsupportedGraphicClass = 'Unsupported graphic class'; SUnsupportedGraphicStream = 'Unsupported graphic stream format'; Modified: trunk/Source/Core/InstantCustomDBEvolverFormUnit.pas =================================================================== --- trunk/Source/Core/InstantCustomDBEvolverFormUnit.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Core/InstantCustomDBEvolverFormUnit.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -104,6 +104,7 @@ var RaiseError: Boolean); virtual; procedure CustomDBEvolverBeforeCommandSequenceExecute(Sender: TObject); virtual; procedure CustomDBEvolverAfterCommandSequenceExecute(Sender: TObject); virtual; + procedure CustomDBEvolverWarning(const Sender: TObject; const AWarningText: string); virtual; procedure BeforeBuildCommandSequence; virtual; public // Assign a connector before calling the Execute method, otherwise the @@ -222,6 +223,7 @@ OldScreenCursor := Screen.Cursor; Screen.Cursor := crHourglass; try + EvolutionLogMemo.Lines.Clear; BeforeBuildCommandSequence; GetCustomDBEvolver.BuildCommandSequence; SequenceToScreen; @@ -323,6 +325,7 @@ GetCustomDBEvolver.BeforeCommandSequenceExecute := CustomDBEvolverBeforeCommandSequenceExecute; GetCustomDBEvolver.AfterCommandSequenceExecute := CustomDBEvolverAfterCommandSequenceExecute; GetCustomDBEvolver.OnCommandExecuteError := CustomDBEvolverCommandExecuteError; + GetCustomDBEvolver.OnWarning := CustomDBEvolverWarning; end; procedure TInstantCustomDBEvolverForm.BeforeBuildCommandSequence; @@ -334,4 +337,10 @@ Close; end; +procedure TInstantCustomDBEvolverForm.CustomDBEvolverWarning( + const Sender: TObject; const AWarningText: string); +begin + Log('Warning: ' + AWarningText); +end; + end. Modified: trunk/Source/Core/InstantDBBuild.pas =================================================================== --- trunk/Source/Core/InstantDBBuild.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Core/InstantDBBuild.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -58,6 +58,7 @@ private FConnector: TInstantConnector; FCommandSequence: TInstantDBBuildCommandSequence; + FOnWarning: TInstantWarningEvent; function GetAfterCommandExecute: TInstantDBBuildCommandNotifyEvent; function GetAfterCommandSequenceExecute: TNotifyEvent; function GetBeforeCommandExecute: TInstantDBBuildCommandNotifyEvent; @@ -71,6 +72,7 @@ function GetCommandExecuteError: TInstantDBBuildCommandErrorEvent; procedure SetCommandExecuteError( const Value: TInstantDBBuildCommandErrorEvent); + procedure DoWarning(const WarningText: string); protected function GetConnector: TInstantConnector; virtual; procedure InternalBuildCommandSequence; virtual; abstract; @@ -95,6 +97,8 @@ // data definition, not a very commonly available feature). property OnCommandExecuteError: TInstantDBBuildCommandErrorEvent read GetCommandExecuteError write SetCommandExecuteError; + procedure SourceSchemeWarningHandler(const Sender: TObject; + const AWarningText: string); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -112,6 +116,7 @@ // Reference to a Connector that points to the target database for // evolution. Default is InstantDefaultConnector. property Connector: TInstantConnector read GetConnector write SetConnector; + property OnWarning: TInstantWarningEvent read FOnWarning write FOnWarning; end; // Base class for database builders and evolvers. Abstract. @@ -483,6 +488,18 @@ end; end; +procedure TInstantCustomDBBuilder.SourceSchemeWarningHandler( + const Sender: TObject; const AWarningText: string); +begin + DoWarning(AWarningText); +end; + +procedure TInstantCustomDBBuilder.DoWarning(const WarningText: string); +begin + if Assigned(FOnWarning) then + FOnWarning(Self, WarningText); +end; + { TInstantCustomDBEvolver } function TInstantCustomDBEvolver.GetTargetModel: TInstantModel; @@ -636,7 +653,7 @@ procedure TInstantDBBuilder.InternalBuildCommandSequence; begin CommandSequence.Clear; - CommandSequence.SourceScheme := Connector.Broker.ReadDatabaseScheme; + CommandSequence.SourceScheme := Connector.Broker.ReadDatabaseScheme(SourceSchemeWarningHandler); CommandSequence.TargetScheme := Connector.CreateScheme(TargetModel); GenerateCommandSequence(CommandSequence); end; Modified: trunk/Source/Core/InstantDBEvolution.pas =================================================================== --- trunk/Source/Core/InstantDBEvolution.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Core/InstantDBEvolution.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -64,7 +64,7 @@ procedure TInstantDBEvolver.InternalBuildCommandSequence; begin CommandSequence.Clear; - CommandSequence.SourceScheme := Connector.Broker.ReadDatabaseScheme; + CommandSequence.SourceScheme := Connector.Broker.ReadDatabaseScheme(SourceSchemeWarningHandler); CommandSequence.TargetScheme := Connector.CreateScheme(TargetModel); GenerateSchemeDiff(CommandSequence); end; Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-05 16:40:22 UTC (rev 583) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-13 07:09:19 UTC (rev 584) @@ -53,6 +53,9 @@ Classes, Contnrs, SysUtils, DB, InstantClasses, InstantCommand, InstantConsts; type + TInstantWarningEvent = procedure (const Sender: TObject; + const AWarningText: string) of object; + TInstantMetadatas = class; TInstantMetadata = class(TInstantCollectionItem) @@ -407,8 +410,10 @@ TInstantCatalog = class private FScheme: TInstantScheme; + FOnWarning: TInstantWarningEvent; protected function GetFeatures: TInstantCatalogFeatures; virtual; + procedure DoWarning(const WarningText: string); public // Creates an instance and binds it to the specified TInstantScheme object. constructor Create(const AScheme: TInstantScheme); @@ -423,6 +428,10 @@ // says that the catalog support everything; derived classes might not // support all features. property Features: TInstantCatalogFeatures read GetFeatures; + // Triggered when the catalog has something to report about its activity, + // typically during InitTableMetadatas, which is not a fatal error. + property OnWarning: TInstantWarningEvent + read FOnWarning write FOnWarning; end; // A TInstantCatalog that gathers its info from a TInstantModel. @@ -444,6 +453,7 @@ TInstantScheme = class(TInstantStreamable) private + FOnWarning: TInstantWarningEvent; FCatalog: TInstantCatalog; FTableMetadataCollection: TInstantTableMetadatas; FBlobStreamFormat: TInstantStreamFormat; @@ -453,7 +463,10 @@ function GetTableMetadatas(Index: Integer): TInstantTableMetadata; function GetTableMetadataCount: Integer; procedure SetCatalog(const Value: TInstantCatalog); + procedure CatalogWarningEventHandler(const Sender: TObject; + const AWarningText: string); protected + procedure DoWarning(const AWarningText: string); function AttributeTypeToDataType( AttributeType: TInstantAttributeType): TInstantDataType; virtual; property TableMetadataCollection: TInstantTableMetadatas read GetTableMetadataCollection; @@ -467,6 +480,9 @@ property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; property IdDataType: TInstantDataType read FIdDataType write FIdDataType default dtString; property IdSize: Integer read FIdSize write FIdSize default InstantDefaultFieldSize; + // Triggered when the scheme has something to report about its activity, + // typically during database building/evolution, which is not a fatal error. + property OnWarning: TInstantWarningEvent read FOnWarning write FOnWarning; end; TInstantAttributeMap = class(TInstantNamedList) @@ -1737,8 +1753,9 @@ // database scheme (which may differ from the model-derived scheme). // If the broker doesn't have a catalog, calling this method will raise // an exception. Call IsCatalogSupported if you need to know in advance - // whether you can safely call ReadDatabaseSchema or not. - function ReadDatabaseScheme: TInstantScheme; virtual; + // whether you can safely call ReadDatabaseScheme or not. + function ReadDatabaseScheme( + const AWarningEventHandler: TInstantWarningEvent): TInstantScheme; virtual; // Returns True if the broker supports creating a valid catalog. If this // method returns False, it means that calling CreateCatalog will yield nil, // and calling ReadDatabaseSchema will raise an exception. @@ -4107,6 +4124,12 @@ Result := InstantAttributeTypeToDataType(AttributeType, BlobStreamFormat); end; +procedure TInstantScheme.CatalogWarningEventHandler(const Sender: TObject; + const AWarningText: string); +begin + DoWarning(AWarningText); +end; + constructor TInstantScheme.Create; begin inherited Create; @@ -4122,6 +4145,12 @@ inherited; end; +procedure TInstantScheme.DoWarning(const AWarningText: string); +begin + if Assigned(FOnWarning) then + FOnWarning(Self, AWarningText); +end; + function TInstantScheme.FindTableMetadata( const AName: string): TInstantTableMetadata; begin @@ -4151,7 +4180,10 @@ FreeAndNil(FCatalog); FCatalog := Value; if Assigned(FCatalog) then + begin + FCatalog.OnWarning := CatalogWarningEventHandler; FCatalog.InitTableMetadatas(TableMetadataCollection); + end; end; { TInstantAttributeMap } @@ -10219,10 +10251,12 @@ Result := TInstantQuery.Create(Connector); end; -function TInstantBroker.ReadDatabaseScheme: TInstantScheme; +function TInstantBroker.ReadDatabaseScheme( + const AWarningEventHandler: TInstantWarningEvent): TInstantScheme; begin Result := TInstantScheme.Create; try + Result.OnWarning := AWarningEventHandler; Result.Catalog := CreateCatalog(Result); if Result.Catalog = nil then raise Exception.CreateFmt(SUndefinedCatalog, [ClassName]); @@ -15500,6 +15534,12 @@ FScheme := AScheme; end; +procedure TInstantCatalog.DoWarning(const WarningText: string); +begin + if Assigned(FOnWarning) then + FOnWarning(Self, WarningText); +end; + function TInstantCatalog.GetFeatures: TInstantCatalogFeatures; begin Result := [cfReadTableInfo, cfReadColumnInfo, cfReadIndexInfo]; |
|
From: <jcm...@us...> - 2006-02-05 16:40:41
|
Revision: 583 Author: jcmoraisjr Date: 2006-02-05 08:40:22 -0800 (Sun, 05 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=583&view=rev Log Message: ----------- Fixed leakages with part and parts attributes in circular reference check effort. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-05 14:41:54 UTC (rev 582) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-05 16:40:22 UTC (rev 583) @@ -8236,26 +8236,33 @@ procedure TInstantObject.FreeCircularReferences; - function IsInsideCircularReference(const AItem: TInstantComplex): - Boolean; + function IsInsideCircularReference(const AItem: TInstantComplex): Boolean; var + ItemOwner: TInstantObject; CurrentItem: TInstantComplex; I: Integer; begin - Result := AItem.Owner = Self; - if not Result and Assigned(AItem.Owner.FRefBy) then - for I := 0 to Pred(AItem.Owner.FRefBy.Count) do - if AItem.Owner.FRefBy[I] is TInstantComplex then + Result := Assigned(AItem); + if not Result then + Exit; + ItemOwner := AItem.Owner; + Result := (ItemOwner = Self) or + IsInsideCircularReference(ItemOwner.OwnerAttribute); + if not Result and Assigned(ItemOwner.FRefBy) then + begin + for I := 0 to Pred(ItemOwner.FRefBy.Count) do + if ItemOwner.FRefBy[I] is TInstantComplex then begin - CurrentItem := TInstantComplex(AItem.Owner.FRefBy[I]); + CurrentItem := TInstantComplex(ItemOwner.FRefBy[I]); if CurrentItem.AttributeType in [atReference, atReferences] then begin - Result := (AItem.Owner.RefCount = AItem.Owner.FRefBy.Count) and - IsInsideCircularReference(CurrentItem); + Result := (ItemOwner.RefCount = ItemOwner.FRefBy.Count) and + IsInsideCircularReference(CurrentItem); if Result then Exit; end; end; + end; end; var |
|
From: <jcm...@us...> - 2006-02-05 14:42:27
|
Revision: 582 Author: jcmoraisjr Date: 2006-02-05 06:41:54 -0800 (Sun, 05 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=582&view=rev Log Message: ----------- Fixed bug # 1410138 where in some situations a Selector raises an exception because database component name wasn't uploaded from stream. Modified Paths: -------------- trunk/Source/Core/InstantPresentation.pas Modified: trunk/Source/Core/InstantPresentation.pas =================================================================== --- trunk/Source/Core/InstantPresentation.pas 2006-02-05 14:25:24 UTC (rev 581) +++ trunk/Source/Core/InstantPresentation.pas 2006-02-05 14:41:54 UTC (rev 582) @@ -4303,7 +4303,8 @@ else FQuery := Connector.CreateQuery; FQuery.MaxCount := MaxCount; - FQuery.Command := Command.Text; + if not (csReading in ComponentState) then + FQuery.Command := Command.Text; end; Result := FQuery; end; |
|
From: <jcm...@us...> - 2006-02-05 14:25:43
|
Revision: 581 Author: jcmoraisjr Date: 2006-02-05 06:25:24 -0800 (Sun, 05 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=581&view=rev Log Message: ----------- Fixed leakage using TInstantObject instance via interface pointer. Bug # 1424540 Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-05 14:07:57 UTC (rev 580) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-05 14:25:24 UTC (rev 581) @@ -8900,7 +8900,14 @@ function TInstantObject._Release: Integer; begin - Result := Release; + FreeCircularReferences; + Result := DoRelease; + if FRefCount = 1 then + try + Finit; + finally + inherited FreeInstance; + end; end; { TInstantConnectionDef } |
|
From: <jcm...@us...> - 2006-02-05 14:08:28
|
Revision: 580 Author: jcmoraisjr Date: 2006-02-05 06:07:57 -0800 (Sun, 05 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=580&view=rev Log Message: ----------- Inserted fields for user name, password, sql role, character set and db library name for UIB broker. (FR # 1424520) Modified Paths: -------------- trunk/Source/Brokers/UIB/InstantUIB.pas trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas Modified: trunk/Source/Brokers/UIB/InstantUIB.pas =================================================================== --- trunk/Source/Brokers/UIB/InstantUIB.pas 2006-02-05 13:12:11 UTC (rev 579) +++ trunk/Source/Brokers/UIB/InstantUIB.pas 2006-02-05 14:07:57 UTC (rev 580) @@ -49,8 +49,10 @@ type TInstantUIBConnectionDef = class(TInstantRelationalConnectionDef) private + FCharacterSet: TCharacterSet; + FConnectionString: string; + FLibraryName: string; FLoginPrompt: Boolean; - FConnectionString: string; FOptions: TInstantUIBOptions; FParams: string; protected @@ -62,7 +64,9 @@ constructor Create(Collection: TCollection); override; function Edit: Boolean; override; published + property CharacterSet: TCharacterSet read FCharacterSet write FCharacterSet default csNONE; property ConnectionString: string read FConnectionString write FConnectionString; + property LibraryName: string read FLibraryName write FLibraryName; property LoginPrompt: Boolean read FLoginPrompt write FLoginPrompt default True; property Options: TInstantUIBOptions read FOptions write FOptions; property Params: string read FParams write FParams; @@ -164,6 +168,8 @@ constructor TInstantUIBConnectionDef.Create(Collection: TCollection); begin inherited; + FCharacterSet := csNONE; + FLibraryName := 'gds32.dll'; FLoginPrompt := True; FOptions := DefaultInstantUIBOptions; end; @@ -173,6 +179,8 @@ begin Result := TJvUIBDataBase.Create(AOwner); try + Result.CharacterSet := CharacterSet; + Result.LibraryName := LibraryName; Result.Params.Text := Params; Result.DatabaseName := ConnectionString; Result.SQLDialect := 3; Modified: trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm =================================================================== --- trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm 2006-02-05 13:12:11 UTC (rev 579) +++ trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm 2006-02-05 14:07:57 UTC (rev 580) @@ -1,9 +1,9 @@ object InstantUIBConnectionDefEditForm: TInstantUIBConnectionDefEditForm - Left = 320 - Top = 199 + Left = 324 + Top = 202 BorderStyle = bsDialog Caption = 'UIB Connection' - ClientHeight = 336 + ClientHeight = 373 ClientWidth = 362 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -18,7 +18,7 @@ TextHeight = 13 object BottomBevel: TBevel Left = 0 - Top = 299 + Top = 336 Width = 362 Height = 2 Align = alBottom @@ -28,60 +28,100 @@ Left = 0 Top = 0 Width = 362 - Height = 299 + Height = 336 Align = alClient BevelOuter = bvNone TabOrder = 0 object ConnectionStringLabel: TLabel Left = 16 - Top = 12 + Top = 16 Width = 84 Height = 13 Caption = '&Connection String' FocusControl = ConnectionStringEdit end - object StreamFormatLabel: TLabel + object UserNameLabel: TLabel Left = 16 - Top = 248 - Width = 53 + Top = 80 + Width = 51 Height = 13 - Caption = 'Blob &format' - FocusControl = StreamFormatComboBox + Caption = 'User &name' + FocusControl = UserNameEdit end + object PasswordLabel: TLabel + Left = 16 + Top = 120 + Width = 46 + Height = 13 + Caption = 'Pass&word' + FocusControl = PasswordEdit + end + object SQLRoleLabel: TLabel + Left = 16 + Top = 160 + Width = 46 + Height = 13 + Caption = 'S&QL Role' + FocusControl = SQLRoleEdit + end + object CharacterSetLabel: TLabel + Left = 16 + Top = 200 + Width = 63 + Height = 13 + Caption = 'C&haracter set' + FocusControl = CharacterSetComboBox + end + object LibraryNameLabel: TLabel + Left = 16 + Top = 240 + Width = 60 + Height = 13 + Caption = 'Li&brary name' + FocusControl = LibraryNameComboBox + end object ParamsLabel: TLabel - Left = 16 - Top = 76 + Left = 136 + Top = 80 Width = 95 Height = 13 Caption = 'Connection &Settings' FocusControl = ParamsEditor end + object StreamFormatLabel: TLabel + Left = 16 + Top = 280 + Width = 53 + Height = 13 + Caption = 'Blob &format' + FocusControl = StreamFormatComboBox + end object Label1: TLabel Left = 136 - Top = 248 + Top = 280 Width = 62 Height = 13 - Caption = 'Id Data Type' + Caption = 'Id &Data Type' FocusControl = IdDataTypeComboBox end object Label2: TLabel Left = 256 - Top = 248 + Top = 280 Width = 32 Height = 13 - Caption = 'Id Size' + Caption = 'Id Si&ze' FocusControl = IdDataTypeComboBox end object ConnectionStringEdit: TEdit Left = 16 - Top = 28 + Top = 32 Width = 305 Height = 21 TabOrder = 0 end object ConnectionStringButton: TButton Left = 321 - Top = 28 + Top = 32 Width = 21 Height = 21 Caption = '...' @@ -90,57 +130,103 @@ end object StreamFormatComboBox: TComboBox Left = 16 - Top = 264 + Top = 296 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 Sorted = True - TabOrder = 5 + TabOrder = 10 end object UseDelimitedIdentsCheckBox: TCheckBox Left = 16 - Top = 54 + Top = 56 Width = 150 Height = 17 Caption = '&Use delimited identifiers' TabOrder = 2 end object ParamsEditor: TMemo - Left = 17 + Left = 136 Top = 96 - Width = 328 - Height = 149 - TabOrder = 4 + Width = 209 + Height = 181 + TabOrder = 9 end object IdDataTypeComboBox: TComboBox Left = 136 - Top = 264 + Top = 296 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 - TabOrder = 6 + TabOrder = 11 end object IdSizeEdit: TEdit Left = 256 - Top = 264 + Top = 296 Width = 89 Height = 21 - TabOrder = 7 + TabOrder = 12 end object LoginPromptCheckBox: TCheckBox Left = 196 - Top = 54 + Top = 56 Width = 150 Height = 17 Caption = '&Login Prompt' TabOrder = 3 end + object UserNameEdit: TEdit + Left = 16 + Top = 96 + Width = 113 + Height = 21 + TabOrder = 4 + OnChange = UserNameEditChange + end + object PasswordEdit: TEdit + Left = 16 + Top = 136 + Width = 113 + Height = 21 + TabOrder = 5 + OnChange = PasswordEditChange + end + object SQLRoleEdit: TEdit + Left = 16 + Top = 176 + Width = 113 + Height = 21 + TabOrder = 6 + OnChange = SQLRoleEditChange + end + object CharacterSetComboBox: TComboBox + Left = 16 + Top = 216 + Width = 113 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 7 + OnChange = CharacterSetComboBoxChange + end + object LibraryNameComboBox: TComboBox + Left = 16 + Top = 256 + Width = 113 + Height = 21 + ItemHeight = 13 + TabOrder = 8 + OnChange = SQLRoleEditChange + Items.Strings = ( + 'gds32.dll' + 'fbclient.dll') + end end object BottomPanel: TPanel Left = 0 - Top = 301 + Top = 338 Width = 362 Height = 35 Align = alBottom Modified: trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas =================================================================== --- trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas 2006-02-05 13:12:11 UTC (rev 579) +++ trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas 2006-02-05 14:07:57 UTC (rev 580) @@ -16,12 +16,12 @@ * for the specific language governing rights and limitations under the * License. * - * The Original Code is: Andrea Petrelli + * The Original Code is: InstantObjects UIB Support * * The Initial Developer of the Original Code is: Andrea Petrelli * * Contributor(s): - * Nando Dessena + * Nando Dessena, Joao Morais * * ***** END LICENSE BLOCK ***** *) @@ -59,9 +59,24 @@ IdSizeEdit: TEdit; Label2: TLabel; LoginPromptCheckBox: TCheckBox; + UserNameLabel: TLabel; + PasswordLabel: TLabel; + SQLRoleLabel: TLabel; + CharacterSetLabel: TLabel; + UserNameEdit: TEdit; + PasswordEdit: TEdit; + SQLRoleEdit: TEdit; + CharacterSetComboBox: TComboBox; + LibraryNameLabel: TLabel; + LibraryNameComboBox: TComboBox; procedure ConnectionStringButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); + procedure UserNameEditChange(Sender: TObject); + procedure PasswordEditChange(Sender: TObject); + procedure SQLRoleEditChange(Sender: TObject); + procedure CharacterSetComboBoxChange(Sender: TObject); private + procedure AssignCharacterSetItems(AItems: TStrings); function GetIsValid: Boolean; procedure UpdateControls; public @@ -75,10 +90,19 @@ {$R *.DFM} uses - InstantPersistence, InstantClasses, InstantConsts; + InstantPersistence, InstantClasses, InstantConsts, jvuiblib; { TInstantUIBConnectionDefEditForm } +procedure TInstantUIBConnectionDefEditForm.AssignCharacterSetItems( + AItems: TStrings); +var + I: TCharacterSet; +begin + for I := low(TCharacterSet) to high(TCharacterSet) do + AItems.Add(CharacterSetStr[I]); +end; + procedure TInstantUIBConnectionDefEditForm.ConnectionStringButtonClick( Sender: TObject); begin @@ -99,6 +123,7 @@ begin AssignInstantStreamFormat(StreamFormatComboBox.Items); AssignInstantDataTypeStrings(IdDataTypeComboBox.Items); + AssignCharacterSetItems(CharacterSetComboBox.Items); IdDataTypeComboBox.ItemIndex := Ord(dtString); IdSizeEdit.Text := IntToStr(InstantDefaultFieldSize); UpdateControls; @@ -119,6 +144,11 @@ UseDelimitedIdentsCheckBox.Checked := UIBUseDelimitedIdents in Options; LoginPromptCheckBox.Checked := LoginPrompt; ParamsEditor.Lines.Text := ConnectionDef.Params; + UserNameEdit.Text := ParamsEditor.Lines.Values['user_name']; + PasswordEdit.Text := ParamsEditor.Lines.Values['password']; + SQLRoleEdit.Text := ParamsEditor.Lines.Values['sql_role_name']; + CharacterSetComboBox.ItemIndex := Ord(CharacterSet); + LibraryNameComboBox.Text := LibraryName; IdDataTypeComboBox.ItemIndex := Ord(IdDataType); IdSizeEdit.Text := IntToStr(IdSize); end; @@ -137,6 +167,8 @@ Options := Options + [UIBUseDelimitedIdents]; LoginPrompt := LoginPromptCheckBox.Checked; ConnectionDef.Params := ParamsEditor.Lines.Text; + CharacterSet := TCharacterSet(CharacterSetComboBox.ItemIndex); + LibraryName := LibraryNameComboBox.Text; IdDataType := TInstantDataType(IdDataTypeComboBox.ItemIndex); IdSize := StrToInt(IdSizeEdit.Text); end; @@ -146,4 +178,28 @@ begin end; +procedure TInstantUIBConnectionDefEditForm.UserNameEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['user_name'] := UserNameEdit.Text; +end; + +procedure TInstantUIBConnectionDefEditForm.PasswordEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['password'] := PasswordEdit.Text; +end; + +procedure TInstantUIBConnectionDefEditForm.SQLRoleEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['sql_role_name'] := SQLRoleEdit.Text; +end; + +procedure TInstantUIBConnectionDefEditForm.CharacterSetComboBoxChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['lc_ctype'] := CharacterSetComboBox.Text; +end; + end. |
|
From: <jcm...@us...> - 2006-02-05 13:12:37
|
Revision: 579 Author: jcmoraisjr Date: 2006-02-05 05:12:11 -0800 (Sun, 05 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=579&view=rev Log Message: ----------- Inserted fields to enter user name, password, sql role and character set name to IBX's ConnectionDef form. InternalCreateDatabase uses current character set to create physical database. (FR # 1424512) Modified Paths: -------------- trunk/Source/Brokers/IBX/InstantIBX.pas trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas Modified: trunk/Source/Brokers/IBX/InstantIBX.pas =================================================================== --- trunk/Source/Brokers/IBX/InstantIBX.pas 2006-02-03 21:49:42 UTC (rev 578) +++ trunk/Source/Brokers/IBX/InstantIBX.pas 2006-02-05 13:12:11 UTC (rev 579) @@ -288,14 +288,21 @@ end; procedure TInstantIBXConnector.InternalCreateDatabase; +const + CreateDatabaseParam = + 'USER ''%s'' PASSWORD ''%s'' PAGE_SIZE 4096 DEFAULT CHARACTER SET %s'; var OldConnectionParams: string; + CharacterSetName: string; begin inherited; OldConnectionParams := Connection.Params.Text; + CharacterSetName := Connection.Params.Values['lc_ctype']; + if CharacterSetName = '' then + CharacterSetName := 'none'; with Connection.Params do - Text := Format('USER ''%s'' PASSWORD ''%s'' PAGE_SIZE 4096', - [Values['user_name'], Values['password']]); + Text := Format(CreateDatabaseParam, + [Values['user_name'], Values['password'], CharacterSetName]); try try Connection.CreateDatabase; Modified: trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm =================================================================== --- trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm 2006-02-03 21:49:42 UTC (rev 578) +++ trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm 2006-02-05 13:12:11 UTC (rev 579) @@ -3,7 +3,7 @@ Top = 238 BorderStyle = bsDialog Caption = 'IBX Connection' - ClientHeight = 339 + ClientHeight = 334 ClientWidth = 362 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -18,7 +18,7 @@ TextHeight = 13 object BottomBevel: TBevel Left = 0 - Top = 302 + Top = 297 Width = 362 Height = 2 Align = alBottom @@ -28,60 +28,92 @@ Left = 0 Top = 0 Width = 362 - Height = 302 + Height = 297 Align = alClient BevelOuter = bvNone TabOrder = 0 object ConnectionStringLabel: TLabel Left = 16 - Top = 12 + Top = 16 Width = 84 Height = 13 Caption = '&Connection String' FocusControl = ConnectionStringEdit end - object StreamFormatLabel: TLabel + object UserNameLabel: TLabel Left = 16 - Top = 248 - Width = 53 + Top = 80 + Width = 51 Height = 13 - Caption = 'Blob &format' - FocusControl = StreamFormatComboBox + Caption = 'User &name' + FocusControl = UserNameEdit end + object PasswordLabel: TLabel + Left = 16 + Top = 120 + Width = 46 + Height = 13 + Caption = 'Pass&word' + FocusControl = PasswordEdit + end + object SQLRoleLabel: TLabel + Left = 16 + Top = 160 + Width = 46 + Height = 13 + Caption = 'S&QL Role' + FocusControl = SQLRoleEdit + end + object CharacterSetLabel: TLabel + Left = 16 + Top = 200 + Width = 63 + Height = 13 + Caption = 'C&haracter set' + FocusControl = CharacterSetComboBox + end object ParamsLabel: TLabel - Left = 16 - Top = 76 + Left = 136 + Top = 80 Width = 95 Height = 13 Caption = 'Connection &Settings' FocusControl = ParamsEditor end + object StreamFormatLabel: TLabel + Left = 16 + Top = 240 + Width = 53 + Height = 13 + Caption = 'Blob &format' + FocusControl = StreamFormatComboBox + end object IdDataTypeLabel: TLabel Left = 136 - Top = 248 + Top = 240 Width = 62 Height = 13 - Caption = 'Id Data Type' + Caption = 'Id &Data Type' FocusControl = IdDataTypeComboBox end object IdSizeLabel: TLabel Left = 256 - Top = 248 + Top = 240 Width = 32 Height = 13 - Caption = 'Id Size' + Caption = 'Id Si&ze' FocusControl = IdDataTypeComboBox end object ConnectionStringEdit: TEdit Left = 16 - Top = 28 + Top = 32 Width = 301 Height = 21 TabOrder = 0 end object ConnectionStringButton: TButton Left = 321 - Top = 28 + Top = 32 Width = 21 Height = 21 Caption = '...' @@ -90,17 +122,17 @@ end object StreamFormatComboBox: TComboBox Left = 16 - Top = 264 + Top = 256 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 Sorted = True - TabOrder = 5 + TabOrder = 9 end object UseDelimitedIdentsCheckBox: TCheckBox Left = 16 - Top = 54 + Top = 56 Width = 150 Height = 17 Caption = '&Use delimited identifiers' @@ -108,39 +140,98 @@ end object LoginPromptCheckBox: TCheckBox Left = 196 - Top = 54 + Top = 56 Width = 150 Height = 17 Caption = '&Login Prompt' TabOrder = 3 end object ParamsEditor: TMemo - Left = 17 + Left = 136 Top = 96 - Width = 328 - Height = 149 - TabOrder = 4 + Width = 209 + Height = 141 + TabOrder = 8 end object IdDataTypeComboBox: TComboBox Left = 136 - Top = 264 + Top = 256 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 - TabOrder = 6 + TabOrder = 10 end object IdSizeEdit: TEdit Left = 256 - Top = 264 + Top = 256 Width = 89 Height = 21 + TabOrder = 11 + end + object UserNameEdit: TEdit + Left = 16 + Top = 96 + Width = 113 + Height = 21 + TabOrder = 4 + OnChange = UserNameEditChange + end + object PasswordEdit: TEdit + Left = 16 + Top = 136 + Width = 113 + Height = 21 + TabOrder = 5 + OnChange = PasswordEditChange + end + object SQLRoleEdit: TEdit + Left = 16 + Top = 176 + Width = 113 + Height = 21 + TabOrder = 6 + OnChange = SQLRoleEditChange + end + object CharacterSetComboBox: TComboBox + Left = 16 + Top = 216 + Width = 113 + Height = 21 + ItemHeight = 13 TabOrder = 7 + OnChange = CharacterSetComboBoxChange + Items.Strings = ( + 'None' + 'ASCII' + 'BIG_5' + 'CYRL' + 'DOS437' + 'DOS850' + 'DOS852' + 'DOS857' + 'DOS860' + 'DOS861' + 'DOS863' + 'DOS865' + 'EUCJ_0208' + 'GB_2312' + 'ISO8859_1' + 'KSC_5601' + 'NEXT' + 'OCTETS' + 'SJIS_0208' + 'UNICODE_FSS' + 'WIN1250' + 'WIN1251' + 'WIN1252' + 'WIN1253' + 'WIN1254') end end object BottomPanel: TPanel Left = 0 - Top = 304 + Top = 299 Width = 362 Height = 35 Align = alBottom Modified: trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas =================================================================== --- trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas 2006-02-03 21:49:42 UTC (rev 578) +++ trunk/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas 2006-02-05 13:12:11 UTC (rev 579) @@ -62,8 +62,20 @@ IdDataTypeLabel: TLabel; IdSizeEdit: TEdit; IdSizeLabel: TLabel; + UserNameLabel: TLabel; + UserNameEdit: TEdit; + PasswordLabel: TLabel; + PasswordEdit: TEdit; + SQLRoleLabel: TLabel; + SQLRoleEdit: TEdit; + CharacterSetLabel: TLabel; + CharacterSetComboBox: TComboBox; procedure ConnectionStringButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); + procedure UserNameEditChange(Sender: TObject); + procedure PasswordEditChange(Sender: TObject); + procedure SQLRoleEditChange(Sender: TObject); + procedure CharacterSetComboBoxChange(Sender: TObject); private function GetIsValid: Boolean; public @@ -122,6 +134,10 @@ ParamsEditor.Lines.Text := ConnectionDef.Params; IdDataTypeComboBox.ItemIndex := Ord(IdDataType); IdSizeEdit.Text := IntToStr(IdSize); + UserNameEdit.Text := ParamsEditor.Lines.Values['user_name']; + PasswordEdit.Text := ParamsEditor.Lines.Values['password']; + SQLRoleEdit.Text := ParamsEditor.Lines.Values['sql_role_name']; + CharacterSetComboBox.Text := ParamsEditor.Lines.Values['lc_ctype']; end; end; @@ -142,5 +158,28 @@ end; end; +procedure TInstantIBXConnectionDefEditForm.UserNameEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['user_name'] := UserNameEdit.Text; +end; + +procedure TInstantIBXConnectionDefEditForm.PasswordEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['password'] := PasswordEdit.Text; +end; + +procedure TInstantIBXConnectionDefEditForm.SQLRoleEditChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['sql_role_name'] := SQLRoleEdit.Text; +end; + +procedure TInstantIBXConnectionDefEditForm.CharacterSetComboBoxChange( + Sender: TObject); +begin + ParamsEditor.Lines.Values['lc_ctype'] := CharacterSetComboBox.Text; +end; + end. - |
|
From: <the...@us...> - 2006-02-03 21:49:56
|
Revision: 578 Author: the_kique Date: 2006-02-03 13:49:42 -0800 (Fri, 03 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=578&view=rev Log Message: ----------- Test case to demostrate the infinite loop in FreeCircularReferences Modified Paths: -------------- trunk/Source/Tests/TestInstantReferences.pas Modified: trunk/Source/Tests/TestInstantReferences.pas =================================================================== --- trunk/Source/Tests/TestInstantReferences.pas 2006-02-03 04:14:57 UTC (rev 577) +++ trunk/Source/Tests/TestInstantReferences.pas 2006-02-03 21:49:42 UTC (rev 578) @@ -71,6 +71,8 @@ // + -> D -> E // then delete E procedure TestCircularReferences5; + //Emulate the retrive behavior + procedure TestCircularReferencesRetrive; end; TestTInstantEmbReferences = class(TTestCase) @@ -574,7 +576,7 @@ 1, vPerson.Employer.Projects[1].Manager.RefCount); AssertEquals('vPerson.Employer.Projects[1].Manager.ReferencedBy.Count 1', 1, vPerson.Employer.Projects[1].Manager.ReferencedBy.Count); - + vPerson.Employer.Projects[1].Manager := nil; AssertEquals('vPerson.Employer.ProjectCount 1', 2, vPerson.Employer.ProjectCount); @@ -583,6 +585,58 @@ end; end; +procedure TestTInstantReferences_Leak.TestCircularReferencesRetrive; +var + vPerson1: TPerson; + vPerson2: TPerson; + vProject1: TProject; +begin + FOwner.Name := 'Owner'; + + vPerson1 := TPerson.Create(FConn); //A + try + AssertNotNull(vPerson1); + vPerson1.Name := 'vPerson1'; + //A -> B + vPerson1.EmployBy(FOwner); + + AssertNotNull(vPerson1.Employer); + AssertEquals('vPerson1.Employer.Name A', 'Owner', vPerson1.Employer.Name); + + vProject1 := TProject.Create(FConn); //C + try + AssertNotNull(vProject1); + vProject1.Name := 'vProject1'; + //A -> B -> C -> A + vProject1.Manager := vPerson1; + FOwner.AddProject(vProject1); + + vPerson2 := TPerson.Create(FConn); //D + try + AssertNotNull(vPerson1); + vPerson2.Name := 'vPerson1'; + //A -> B -> C -> A + // | + // +-> D + vPerson2.EmployBy(FOwner); + AssertNotNull(vPerson2.Employer); + AssertEquals('vPerson2.Employer.Name A', 'Owner', vPerson2.Employer.Name); + //Decrement the RefCount to emulate the Retrive constructor + FOwner.Release; + vPerson1.Release; + finally + //This cause an infinite loop and close the test application + vPerson2.Free; + end; + finally + vProject1.Free; + end; + + finally + vPerson1.Free; + end; +end; + function TestTInstantEmbReferences.RefsEmbeddedCompare(Holder, Obj1, Obj2: TInstantObject): Integer; var |
|
From: <fas...@us...> - 2006-02-03 04:15:23
|
Revision: 577 Author: fastbike2 Date: 2006-02-02 20:14:57 -0800 (Thu, 02 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=577&view=rev Log Message: ----------- Added new public property RefItems to TInstantReferences. This is an indexed property that returns the TInstantObjectReference from the internal list, allowing you to get a list of referenced object IDs without retrieving them. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-03 03:10:51 UTC (rev 576) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-03 04:14:57 UTC (rev 577) @@ -1084,6 +1084,7 @@ function GetObjectReferenceList: TInstantObjectReferenceList; property ObjectReferenceList: TInstantObjectReferenceList read GetObjectReferenceList; + function GetRefItems(Index: Integer): TInstantObjectReference; protected class function AttributeType: TInstantAttributeType; override; function GetAllowOwned: Boolean; override; @@ -1113,6 +1114,7 @@ procedure SaveReferencesToStream(AStream: TStream); property AllowOwned write SetAllowOwned; property Connector write FConnector; + property RefItems[Index: Integer]: TInstantObjectReference read GetRefItems; end; TInstantObjectState = class(TPersistent) @@ -7180,6 +7182,11 @@ Result := FObjectReferenceList; end; +function TInstantReferences.GetRefItems(Index: Integer): TInstantObjectReference; +begin + Result := ObjectReferenceList.RefItems[Index]; +end; + function TInstantReferences.InternalAdd(AObject: TInstantObject): Integer; begin Result := ObjectReferenceList.Add(AObject); |
|
From: <fas...@us...> - 2006-02-03 03:11:15
|
Revision: 576 Author: fastbike2 Date: 2006-02-02 19:10:51 -0800 (Thu, 02 Feb 2006) ViewCVS: http://svn.sourceforge.net/instantobjects?rev=576&view=rev Log Message: ----------- Bug 1385748 "Nested calls to Store cause Stack Overflow" Added flag to prevent recursive calls to Store. Modified Paths: -------------- trunk/Source/Core/InstantPersistence.pas Modified: trunk/Source/Core/InstantPersistence.pas =================================================================== --- trunk/Source/Core/InstantPersistence.pas 2006-02-03 02:47:44 UTC (rev 575) +++ trunk/Source/Core/InstantPersistence.pas 2006-02-03 03:10:51 UTC (rev 576) @@ -1151,6 +1151,7 @@ FChangesDisabledCount: Integer; FConnector: TInstantConnector; FId: string; + FInUpdate: Boolean; FObjectStore: TInstantObjectStore; FOwner: TInstantObject; FOwnerAttribute: TInstantComplex; @@ -9993,27 +9994,32 @@ if not (Assigned(AObject) and AObject.Metadata.IsStored) then Exit; CheckBroker(Broker); + AObject.FInUpdate := True; try - if Broker.StoreObject(AObject, ConflictAction) then - begin - if AObject.IsPersistent then + try + if Broker.StoreObject(AObject, ConflictAction) then begin - MustAdd := AObject.Id <> AObject.PersistentId; + if AObject.IsPersistent then + begin + MustAdd := AObject.Id <> AObject.PersistentId; + if MustAdd then + RemoveFromCache(AObject); + end else + MustAdd := True; + AObject.SetPersistentId(AObject.Id); if MustAdd then - RemoveFromCache(AObject); - end else - MustAdd := True; - AObject.SetPersistentId(AObject.Id); - if MustAdd then - AddToCache(AObject); + AddToCache(AObject); + end; + except + on E: Exception do + if (E is EInstantError) or (E is EAbort) then + raise + else + raise EInstantError.CreateFmt(SErrorStoringObject, + [AObject.ClassName, AObject.Id, E.Message], E); end; - except - on E: Exception do - if (E is EInstantError) or (E is EAbort) then - raise - else - raise EInstantError.CreateFmt(SErrorStoringObject, - [AObject.ClassName, AObject.Id, E.Message], E); + finally + AObject.FInUpdate := False; end; end; @@ -14233,6 +14239,8 @@ for ii := 0 to Pred(ReferencesAttribute.Count) do begin ReferenceObject := ReferencesAttribute.Items[ii]; + if ReferenceObject.FInUpdate then // prevent recursion + Continue; ReferenceObject.CheckId; ReferenceObject.ObjectStore.StoreObject(ReferenceObject, caIgnore); |
