Menu
▾
▴
instantobjects-cvscommit
|
From: <dav...@us...> - 2009-08-25 20:03:10
|
Revision: 863
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=863&view=rev
Author: davidvtaylor
Date: 2009-08-25 20:03:04 +0000 (Tue, 25 Aug 2009)
Log Message:
-----------
Add Delphi 2007 packages for ZeosDBO broker
Added Paths:
-----------
trunk/Source/Brokers/ZeosDBO/D2007/
trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.res
trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.res
Added: trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.dpk 2009-08-25 20:03:04 UTC (rev 863)
@@ -0,0 +1,39 @@
+package DclIOZeosDBO;
+
+{$R *.res}
+{$R '..\InstantZeosDBO.dcr'}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Design-Time Support (Delphi 2007)'}
+{$LIBSUFFIX '_D11'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOZeosDBO;
+
+contains
+ InstantZeosDBOReg in '..\InstantZeosDBOReg.pas';
+
+end.
+
Property changes on: trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2007/DclIOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.dpk 2009-08-25 20:03:04 UTC (rev 863)
@@ -0,0 +1,40 @@
+package IOZeosDBO;
+
+{$R *.res}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Run-Time Support (Delphi 2007)'}
+{$LIBSUFFIX '_D11'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOCore,
+ ZComponent;
+
+contains
+ InstantZeosDBO in '..\InstantZeosDBO.pas',
+ InstantZeosDBOCatalog in '..\InstantZeosDBOCatalog.pas',
+ InstantZeosDBOConnectionDefEdit in '..\InstantZeosDBOConnectionDefEdit.pas' {InstantZeosDBOConnectionDefEditForm};
+
+end.
Property changes on: trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2007/IOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
|
|
From: <dav...@us...> - 2010-01-03 03:32:24
|
Revision: 886
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=886&view=rev
Author: davidvtaylor
Date: 2010-01-03 03:32:16 +0000 (Sun, 03 Jan 2010)
Log Message:
-----------
* Add typecasts to fix string mismatch warnings with ZeosDBO v7. The Zeos team chose to "Ansify" the library rather than perform a full Unicode port. The typecasts have no effect on previous Delphi versions.
Modified Paths:
--------------
trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas
trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas
Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas
===================================================================
--- trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas 2010-01-03 01:58:02 UTC (rev 885)
+++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas 2010-01-03 03:32:16 UTC (rev 886)
@@ -365,7 +365,7 @@
with DbcConnection.GetMetadata.GetCatalogs do
try
while Next do
- Strings.Add(GetString(1));
+ Strings.Add(string(GetString(1)));
finally
Close;
end;
@@ -1124,7 +1124,7 @@
DbcConnection.QueryInterface(IZMySqlConnection, MySqlConnection);
if Assigned(MySqlConnection) then
MySqlConnection.GetPlainDriver.
- CreateDatabase(MySqlConnection.GetConnectionHandle, PAnsiChar(Database))
+ CreateDatabase(MySqlConnection.GetConnectionHandle, PAnsiChar(AnsiString(Database)))
else
inherited;
finally
Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas
===================================================================
--- trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas 2010-01-03 01:58:02 UTC (rev 885)
+++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas 2010-01-03 03:32:16 UTC (rev 886)
@@ -85,13 +85,13 @@
// Work around for a ZeosDBO behavior with Interbase and Firebird, where
// metadata name with wildcards ('_' or '%') receives a '%' after its name,
// and another drivers where metadata names are searched with LIKE clause
- if SameText(Fields.GetStringByName('TABLE_NAME'), TableMetadata.Name) then
+ if SameText(string(Fields.GetStringByName('TABLE_NAME')), TableMetadata.Name) then
begin
if ColumnTypeToDataType(TZSQLType(Fields.GetShortByName('DATA_TYPE')),
FieldDataType, FieldAlternateDataTypes) then
begin
FieldMetadata := TableMetadata.FieldMetadatas.Add;
- FieldMetadata.Name := Fields.GetStringByName('COLUMN_NAME');
+ FieldMetadata.Name := string(Fields.GetStringByName('COLUMN_NAME'));
FieldMetadata.DataType := FieldDataType;
FieldMetadata.AlternateDataTypes := FieldAlternateDataTypes;
FieldMetadata.Options := [];
@@ -131,20 +131,20 @@
while PrimaryKeys.Next do
// Work around for a ZeosDBO behavior with Interbase and Firebird where
// metadata names are searched with LIKE clause
- if SameText(PrimaryKeys.GetStringByName('TABLE_NAME'), TableMetadata.Name) then
+ if SameText(string(PrimaryKeys.GetStringByName('TABLE_NAME')), TableMetadata.Name) then
begin
- IndexName := PrimaryKeys.GetStringByName('PK_NAME');
+ IndexName := string(PrimaryKeys.GetStringByName('PK_NAME'));
// MySQL driver doesn't assign PK_NAME
if IndexName = '' then
IndexName := 'PRIMARY';
if Assigned(IndexMetadata) and SameText(IndexMetadata.Name, IndexName) then
IndexMetadata.Fields := IndexMetadata.Fields + ';' +
- PrimaryKeys.GetStringByName('COLUMN_NAME')
+ string(PrimaryKeys.GetStringByName('COLUMN_NAME'))
else
begin
IndexMetadata := TableMetadata.IndexMetadatas.Add;
IndexMetadata.Name := IndexName;
- IndexMetadata.Fields := PrimaryKeys.GetStringByName('COLUMN_NAME');
+ IndexMetadata.Fields := string(PrimaryKeys.GetStringByName('COLUMN_NAME'));
IndexMetadata.Options := [ixPrimary, ixUnique];
end;
end;
@@ -157,17 +157,17 @@
IndexInfo.BeforeFirst;
while IndexInfo.Next do
begin
- IndexName := IndexInfo.GetStringByName('INDEX_NAME');
+ IndexName := string(IndexInfo.GetStringByName('INDEX_NAME'));
// Exclude primary keys
if not Assigned(TableMetadata.IndexMetadatas.Find(IndexName)) then
begin
if Assigned(IndexMetadata) and SameText(IndexMetadata.Name, IndexName) then
IndexMetadata.Fields := IndexMetadata.Fields + ';' +
- IndexInfo.GetStringByName('COLUMN_NAME');
+ string(IndexInfo.GetStringByName('COLUMN_NAME'));
begin
IndexMetadata := TableMetadata.IndexMetadatas.Add;
IndexMetadata.Name := IndexName;
- IndexMetadata.Fields := IndexInfo.GetStringByName('COLUMN_NAME');
+ IndexMetadata.Fields := string(IndexInfo.GetStringByName('COLUMN_NAME'));
IndexMetadata.Options := [];
if not IndexInfo.GetBooleanByName('NON_UNIQUE')
{ TODO : This work around must be removed for ZeosDBO versions
@@ -199,10 +199,10 @@
Tables.BeforeFirst;
while Tables.Next do
begin
- if SameText(Tables.GetStringByName('TABLE_TYPE'), 'TABLE') then
+ if SameText(string(Tables.GetStringByName('TABLE_TYPE')), 'TABLE') then
begin
TableMetadata := TableMetadatas.Add;
- TableMetadata.Name := Tables.GetStringByName('TABLE_NAME');
+ TableMetadata.Name := string(Tables.GetStringByName('TABLE_NAME'));
// Call AddIndexMetadatas first, so that AddFieldMetadatas can see which
// indexes are defined to correctly set the foIndexed option.
AddIndexMetadatas(TableMetadata);
|
|
From: <dav...@us...> - 2010-01-03 03:58:56
|
Revision: 889
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=889&view=rev
Author: davidvtaylor
Date: 2010-01-03 03:58:44 +0000 (Sun, 03 Jan 2010)
Log Message:
-----------
+ Add ZeosDBO Broker packages for D2009 and D2010
Added Paths:
-----------
trunk/Source/Brokers/ZeosDBO/D2009/
trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.res
trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.res
trunk/Source/Brokers/ZeosDBO/D2010/
trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.res
trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.dpk
trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.res
Added: trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.dpk 2010-01-03 03:58:44 UTC (rev 889)
@@ -0,0 +1,39 @@
+package DclIOZeosDBO;
+
+{$R *.res}
+{$R '..\InstantZeosDBO.dcr'}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Design-Time Support (Delphi 2009)'}
+{$LIBSUFFIX '_D12'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOZeosDBO;
+
+contains
+ InstantZeosDBOReg in '..\InstantZeosDBOReg.pas';
+
+end.
+
Property changes on: trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2009/DclIOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.dpk 2010-01-03 03:58:44 UTC (rev 889)
@@ -0,0 +1,40 @@
+package IOZeosDBO;
+
+{$R *.res}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Run-Time Support (Delphi 2009)'}
+{$LIBSUFFIX '_D12'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOCore,
+ ZComponent;
+
+contains
+ InstantZeosDBO in '..\InstantZeosDBO.pas',
+ InstantZeosDBOCatalog in '..\InstantZeosDBOCatalog.pas',
+ InstantZeosDBOConnectionDefEdit in '..\InstantZeosDBOConnectionDefEdit.pas' {InstantZeosDBOConnectionDefEditForm};
+
+end.
Property changes on: trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2009/IOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.dpk 2010-01-03 03:58:44 UTC (rev 889)
@@ -0,0 +1,39 @@
+package DclIOZeosDBO;
+
+{$R *.res}
+{$R '..\InstantZeosDBO.dcr'}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Design-Time Support (Delphi 2010)'}
+{$LIBSUFFIX '_D14'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOZeosDBO;
+
+contains
+ InstantZeosDBOReg in '..\InstantZeosDBOReg.pas';
+
+end.
+
Property changes on: trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2010/DclIOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.dpk
===================================================================
--- trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.dpk (rev 0)
+++ trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.dpk 2010-01-03 03:58:44 UTC (rev 889)
@@ -0,0 +1,40 @@
+package IOZeosDBO;
+
+{$R *.res}
+
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'InstantObjects ZeosDBO Run-Time Support (Delphi 2010)'}
+{$LIBSUFFIX '_D14'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ IOCore,
+ ZComponent;
+
+contains
+ InstantZeosDBO in '..\InstantZeosDBO.pas',
+ InstantZeosDBOCatalog in '..\InstantZeosDBOCatalog.pas',
+ InstantZeosDBOConnectionDefEdit in '..\InstantZeosDBOConnectionDefEdit.pas' {InstantZeosDBOConnectionDefEditForm};
+
+end.
Property changes on: trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ZeosDBO/D2010/IOZeosDBO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X