Subject | IBO 46 in BDS 2006 CBuilder personality (BCB2006) |
---|---|
Author | Gary Benade |
Post date | 2006-02-23T06:26:34Z |
Change to Delphi Win32 personality
Open IBO40_C2006.bdsgroup
for each and every bpl in the group, select Options->Linker->Generate all
c++Builder files
Compile all and install Design components.
Switch to CBuilder personality and compoentns should still be installed
The following changes need to be made
comment out line 44 in IB_Header.hpp
//typedef short short;
change line 3854 to 3593 in IB_Components.hpp (original lines commented out
below)
/* __property Classes::TStrings* SQLSelect = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=1};
__property Classes::TStrings* SQLFrom = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=2};
__property Classes::TStrings* SQLWhere = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=3};
__property Classes::TStrings* SQLGroup = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=4};
__property Classes::TStrings* SQLHaving = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=5};
__property Classes::TStrings* SQLUnion = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=6};
__property Classes::TStrings* SQLPlan = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=7};
__property Classes::TStrings* SQLOrder = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=8};
__property Classes::TStrings* SQLForUpdate = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=9}; */
__property Classes::TStrings* SQLSelect[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLFrom[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLWhere[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLGroup[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLHaving[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLUnion[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLPlan[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLOrder[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLForUpdate[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
Things seem to be working fine, can others please verify.
Regards
Gary Benade
Open IBO40_C2006.bdsgroup
for each and every bpl in the group, select Options->Linker->Generate all
c++Builder files
Compile all and install Design components.
Switch to CBuilder personality and compoentns should still be installed
The following changes need to be made
comment out line 44 in IB_Header.hpp
//typedef short short;
change line 3854 to 3593 in IB_Components.hpp (original lines commented out
below)
/* __property Classes::TStrings* SQLSelect = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=1};
__property Classes::TStrings* SQLFrom = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=2};
__property Classes::TStrings* SQLWhere = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=3};
__property Classes::TStrings* SQLGroup = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=4};
__property Classes::TStrings* SQLHaving = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=5};
__property Classes::TStrings* SQLUnion = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=6};
__property Classes::TStrings* SQLPlan = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=7};
__property Classes::TStrings* SQLOrder = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=8};
__property Classes::TStrings* SQLForUpdate = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=9}; */
__property Classes::TStrings* SQLSelect[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLFrom[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLWhere[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLGroup[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLHaving[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLUnion[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLPlan[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLOrder[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLForUpdate[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
Things seem to be working fine, can others please verify.
Regards
Gary Benade