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: <dav...@us...> - 2011-09-17 04:45:51
|
Revision: 944
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=944&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:45:43 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
+ Add standard Broker packages for Delphi XE2 (Win32 platform)
Added Paths:
-----------
trunk/Source/Brokers/ADO/DXE2/
trunk/Source/Brokers/ADO/DXE2/DclIOADO.dpk
trunk/Source/Brokers/ADO/DXE2/DclIOADO.dproj
trunk/Source/Brokers/ADO/DXE2/DclIOADO.res
trunk/Source/Brokers/ADO/DXE2/DclIOADO_Icon.ico
trunk/Source/Brokers/ADO/DXE2/IOADO.dpk
trunk/Source/Brokers/ADO/DXE2/IOADO.dproj
trunk/Source/Brokers/ADO/DXE2/IOADO.res
trunk/Source/Brokers/ADO/DXE2/IOADO_Icon.ico
trunk/Source/Brokers/BDE/DXE2/
trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dpk
trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dproj
trunk/Source/Brokers/BDE/DXE2/DclIOBDE.res
trunk/Source/Brokers/BDE/DXE2/DclIOBDE_Icon.ico
trunk/Source/Brokers/BDE/DXE2/IOBDE.dpk
trunk/Source/Brokers/BDE/DXE2/IOBDE.dproj
trunk/Source/Brokers/BDE/DXE2/IOBDE.res
trunk/Source/Brokers/BDE/DXE2/IOBDE_Icon.ico
trunk/Source/Brokers/DBX/DXE2/
trunk/Source/Brokers/DBX/DXE2/DclIODBX.dpk
trunk/Source/Brokers/DBX/DXE2/DclIODBX.dproj
trunk/Source/Brokers/DBX/DXE2/DclIODBX.res
trunk/Source/Brokers/DBX/DXE2/DclIODBX_Icon.ico
trunk/Source/Brokers/DBX/DXE2/IODBX.dpk
trunk/Source/Brokers/DBX/DXE2/IODBX.dproj
trunk/Source/Brokers/DBX/DXE2/IODBX.res
trunk/Source/Brokers/DBX/DXE2/IODBX_Icon.ico
trunk/Source/Brokers/IBX/DXE2/
trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dpk
trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dproj
trunk/Source/Brokers/IBX/DXE2/DclIOIBX.res
trunk/Source/Brokers/IBX/DXE2/DclIOIBX_Icon.ico
trunk/Source/Brokers/IBX/DXE2/IOIBX.dpk
trunk/Source/Brokers/IBX/DXE2/IOIBX.dproj
trunk/Source/Brokers/IBX/DXE2/IOIBX.res
trunk/Source/Brokers/IBX/DXE2/IOIBX_Icon.ico
trunk/Source/Brokers/XML/DXE2/
trunk/Source/Brokers/XML/DXE2/DclIOXML.dpk
trunk/Source/Brokers/XML/DXE2/DclIOXML.dproj
trunk/Source/Brokers/XML/DXE2/DclIOXML.res
trunk/Source/Brokers/XML/DXE2/DclIOXML_Icon.ico
trunk/Source/Brokers/XML/DXE2/IOXML.dpk
trunk/Source/Brokers/XML/DXE2/IOXML.dproj
trunk/Source/Brokers/XML/DXE2/IOXML.res
trunk/Source/Brokers/XML/DXE2/IOXML_Icon.ico
Added: trunk/Source/Brokers/ADO/DXE2/DclIOADO.dpk
===================================================================
--- trunk/Source/Brokers/ADO/DXE2/DclIOADO.dpk (rev 0)
+++ trunk/Source/Brokers/ADO/DXE2/DclIOADO.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,41 @@
+package DclIOADO;
+
+{$R *.res}
+{$R '..\InstantADO.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects ADO Design-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ IOADO;
+
+contains
+ InstantADOReg in '..\InstantADOReg.pas';
+
+end.
Property changes on: trunk/Source/Brokers/ADO/DXE2/DclIOADO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ADO/DXE2/DclIOADO.dproj
===================================================================
--- trunk/Source/Brokers/ADO/DXE2/DclIOADO.dproj (rev 0)
+++ trunk/Source/Brokers/ADO/DXE2/DclIOADO.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,144 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{25086FF7-139E-40BB-9278-EDE3F344302B}</ProjectGuid>
+ <MainSource>DclIOADO.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>None</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DesignOnlyPackage>true</DesignOnlyPackage>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects ADO Design-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+ <DCC_RangeChecking>true</DCC_RangeChecking>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <DCC_F>false</DCC_F>
+ <GenPackage>true</GenPackage>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_E>false</DCC_E>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>DclIOADO_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <Icon_MainIcon>DclIOADO_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <DCC_UsePackage>IOADO;$(DCC_UsePackage)</DCC_UsePackage>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="..\InstantADO.dcr"/>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="IOADO.dcp"/>
+ <DCCReference Include="..\InstantADOReg.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">DclIOADO.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="OSX32">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/ADO/DXE2/DclIOADO.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ADO/DXE2/DclIOADO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ADO/DXE2/DclIOADO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ADO/DXE2/DclIOADO_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ADO/DXE2/DclIOADO_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/ADO/DXE2/IOADO.dpk
===================================================================
--- trunk/Source/Brokers/ADO/DXE2/IOADO.dpk (rev 0)
+++ trunk/Source/Brokers/ADO/DXE2/IOADO.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,47 @@
+package IOADO;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects ADO Run-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ vcl,
+ vcldb,
+ adortl,
+ IOCore,
+ IOMSSqlCatalog;
+
+contains
+ InstantADOX in '..\InstantADOX.pas',
+ InstantADOJRO in '..\InstantADOJRO.pas',
+ InstantADOTools in '..\InstantADOTools.pas',
+ InstantADOConnectionDefEdit in '..\InstantADOConnectionDefEdit.pas' {InstantADOConnectionDefEditForm},
+ InstantADO in '..\InstantADO.pas';
+
+end.
Property changes on: trunk/Source/Brokers/ADO/DXE2/IOADO.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ADO/DXE2/IOADO.dproj
===================================================================
--- trunk/Source/Brokers/ADO/DXE2/IOADO.dproj (rev 0)
+++ trunk/Source/Brokers/ADO/DXE2/IOADO.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,148 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{A15C8D03-E537-4203-982B-A812DB31354A}</ProjectGuid>
+ <MainSource>IOADO.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DllSuffix>_D16</DllSuffix>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_Description>InstantObjects ADO Run-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_WriteableConstants>true</DCC_WriteableConstants>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;Data.Win;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOADO_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOADO_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="adortl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IOMSSqlCatalog.dcp"/>
+ <DCCReference Include="..\InstantADOX.pas"/>
+ <DCCReference Include="..\InstantADOJRO.pas"/>
+ <DCCReference Include="..\InstantADOTools.pas"/>
+ <DCCReference Include="..\InstantADOConnectionDefEdit.pas">
+ <Form>InstantADOConnectionDefEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantADO.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOADO.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/ADO/DXE2/IOADO.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/ADO/DXE2/IOADO.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ADO/DXE2/IOADO.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/ADO/DXE2/IOADO_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/ADO/DXE2/IOADO_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dpk
===================================================================
--- trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dpk (rev 0)
+++ trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,44 @@
+package DclIOBDE;
+
+{$R *.res}
+{$R '..\InstantBDE.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects BDE Design-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ vcl,
+ vcldb,
+ bdertl,
+ IOCore,
+ IOBDE;
+
+contains
+ InstantBDEReg in '..\InstantBDEReg.pas';
+
+end.
Property changes on: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dproj
===================================================================
--- trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dproj (rev 0)
+++ trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,145 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{9E226AEF-6EE8-445D-A0C4-59B39B5B77CD}</ProjectGuid>
+ <MainSource>DclIOBDE.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DesignOnlyPackage>true</DesignOnlyPackage>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects BDE Design-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>DclIOBDE_Icon.ico</Icon_MainIcon>
+ <DCC_UsePackage>vcl;vcldb;$(DCC_UsePackage)</DCC_UsePackage>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <Icon_MainIcon>DclIOBDE_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <DCC_UsePackage>vcl;bdertl;vcldb;IOCore;IOBDE;$(DCC_UsePackage)</DCC_UsePackage>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="..\InstantBDE.dcr"/>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="bdertl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IOBDE.dcp"/>
+ <DCCReference Include="..\InstantBDEReg.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">DclIOBDE.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/BDE/DXE2/DclIOBDE.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/BDE/DXE2/DclIOBDE_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/BDE/DXE2/DclIOBDE_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/BDE/DXE2/IOBDE.dpk
===================================================================
--- trunk/Source/Brokers/BDE/DXE2/IOBDE.dpk (rev 0)
+++ trunk/Source/Brokers/BDE/DXE2/IOBDE.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,44 @@
+package IOBDE;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects BDE Run-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ vcl,
+ vcldb,
+ bdertl,
+ IOCore;
+
+contains
+ InstantBDECatalog in '..\InstantBDECatalog.pas',
+ InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm},
+ InstantBDE in '..\InstantBDE.pas';
+
+end.
Property changes on: trunk/Source/Brokers/BDE/DXE2/IOBDE.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/BDE/DXE2/IOBDE.dproj
===================================================================
--- trunk/Source/Brokers/BDE/DXE2/IOBDE.dproj (rev 0)
+++ trunk/Source/Brokers/BDE/DXE2/IOBDE.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,145 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{BC7A03A0-6158-49B0-A344-E150F5E9AC94}</ProjectGuid>
+ <MainSource>IOBDE.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Bde;Winapi;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects BDE Run-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOBDE_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOBDE_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="bdertl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="..\InstantBDECatalog.pas"/>
+ <DCCReference Include="..\InstantBDEConnectionDefEdit.pas">
+ <Form>InstantBDEConnectionDefEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantBDE.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOBDE.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/BDE/DXE2/IOBDE.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/BDE/DXE2/IOBDE.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/BDE/DXE2/IOBDE.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/BDE/DXE2/IOBDE_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/BDE/DXE2/IOBDE_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/DBX/DXE2/DclIODBX.dpk
===================================================================
--- trunk/Source/Brokers/DBX/DXE2/DclIODBX.dpk (rev 0)
+++ trunk/Source/Brokers/DBX/DXE2/DclIODBX.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,45 @@
+package DclIODBX;
+
+{$R *.res}
+{$R '..\InstantDBX.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects dbExpress Design-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ vcl,
+ dbrtl,
+ dbexpress,
+ IOCore,
+ IODBX;
+
+contains
+ InstantDBXReg in '..\InstantDBXReg.pas';
+
+end.
Property changes on: trunk/Source/Brokers/DBX/DXE2/DclIODBX.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/DBX/DXE2/DclIODBX.dproj
===================================================================
--- trunk/Source/Brokers/DBX/DXE2/DclIODBX.dproj (rev 0)
+++ trunk/Source/Brokers/DBX/DXE2/DclIODBX.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,147 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{842285A6-913E-48EA-828B-CC991BAB45A2}</ProjectGuid>
+ <MainSource>DclIODBX.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_UsePackage>rtl;dbrtl;dbexpress;$(DCC_UsePackage)</DCC_UsePackage>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DesignOnlyPackage>true</DesignOnlyPackage>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects dbExpress Design-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <DCC_UsePackage>vcl;$(DCC_UsePackage)</DCC_UsePackage>
+ <Icon_MainIcon>DclIODBX_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <DCC_UsePackage>vcl;IOCore;IODBX;$(DCC_UsePackage)</DCC_UsePackage>
+ <Icon_MainIcon>DclIODBX_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="..\InstantDBX.dcr"/>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="dbrtl.dcp"/>
+ <DCCReference Include="dbexpress.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IODBX.dcp"/>
+ <DCCReference Include="..\InstantDBXReg.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">DclIODBX.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/DBX/DXE2/DclIODBX.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/DBX/DXE2/DclIODBX.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/DBX/DXE2/DclIODBX.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/DBX/DXE2/DclIODBX_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/DBX/DXE2/DclIODBX_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/DBX/DXE2/IODBX.dpk
===================================================================
--- trunk/Source/Brokers/DBX/DXE2/IODBX.dpk (rev 0)
+++ trunk/Source/Brokers/DBX/DXE2/IODBX.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,47 @@
+package IODBX;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects dbExpress Run-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ vcl,
+ dbrtl,
+ dbexpress,
+ IOCore,
+ IOIBFbCatalog,
+ IOMSSqlCatalog,
+ IOMySQLCatalog;
+
+contains
+ InstantDBXConnectionDefEdit in '..\InstantDBXConnectionDefEdit.pas' {InstantDBXConnectionDefEditForm},
+ InstantDBX in '..\InstantDBX.pas';
+
+end.
Property changes on: trunk/Source/Brokers/DBX/DXE2/IODBX.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/DBX/DXE2/IODBX.dproj
===================================================================
--- trunk/Source/Brokers/DBX/DXE2/IODBX.dproj (rev 0)
+++ trunk/Source/Brokers/DBX/DXE2/IODBX.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,147 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{6826D1DF-E0FF-43C6-BE04-D34587C58280}</ProjectGuid>
+ <MainSource>IODBX.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DCC_Description>InstantObjects dbExpress Run-Time Support (Delphi XE2)</DCC_Description>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <GenPackage>true</GenPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_S>false</DCC_S>
+ <GenDll>true</GenDll>
+ <DCC_K>false</DCC_K>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <DCC_E>false</DCC_E>
+ <DCC_F>false</DCC_F>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IODBX_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IODBX_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="dbrtl.dcp"/>
+ <DCCReference Include="dbexpress.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IOIBFbCatalog.dcp"/>
+ <DCCReference Include="IOMSSqlCatalog.dcp"/>
+ <DCCReference Include="IOMySQLCatalog.dcp"/>
+ <DCCReference Include="..\InstantDBXConnectionDefEdit.pas">
+ <Form>InstantDBXConnectionDefEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantDBX.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IODBX.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Brokers/DBX/DXE2/IODBX.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/DBX/DXE2/IODBX.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/DBX/DXE2/IODBX.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Brokers/DBX/DXE2/IODBX_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/DBX/DXE2/IODBX_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dpk
===================================================================
--- trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dpk (rev 0)
+++ trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dpk 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,44 @@
+package DclIOIBX;
+
+{$R *.res}
+{$R '..\InstantIBX.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects IBX Design-Time Support (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ vcl,
+ vcldb,
+ ibxpress,
+ IOCore,
+ IOIBX;
+
+contains
+ InstantIBXReg in '..\InstantIBXReg.pas';
+
+end.
Property changes on: trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dproj
===================================================================
--- trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dproj (rev 0)
+++ trunk/Source/Brokers/IBX/DXE2/DclIOIBX.dproj 2011-09-17 04:45:43 UTC (rev 944)
@@ -0,0 +1,145 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{04708EEE-5D69-4308-8BED-42B0C0B84A8F}</ProjectGuid>
+ <MainSource>DclIOIBX.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;Leg...
[truncated message content] |
|
From: <dav...@us...> - 2011-09-17 04:45:19
|
Revision: 943
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=943&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:45:12 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
+ Add Catalog packages for Delphi XE2 (Win32 platform)
Added Paths:
-----------
trunk/Source/Catalogs/IBFb/DXE2/
trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dpk
trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dproj
trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.res
trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog_Icon.ico
trunk/Source/Catalogs/MSSql/DXE2/
trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dpk
trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dproj
trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.res
trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog_Icon.ico
trunk/Source/Catalogs/MySQL/DXE2/
trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dpk
trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dproj
trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.res
trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog_Icon.ico
Added: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dpk
===================================================================
--- trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dpk (rev 0)
+++ trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dpk 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,40 @@
+package IOIBFbCatalog;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects Catalog for InterBase and Firebird (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ IOCore;
+
+contains
+ InstantIBFbCatalog in '..\InstantIBFbCatalog.pas';
+
+end.
Property changes on: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dproj
===================================================================
--- trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dproj (rev 0)
+++ trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dproj 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,140 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{8F975D2A-74E9-46FA-8665-2FFE658AE6CF}</ProjectGuid>
+ <MainSource>IOIBFbCatalog.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>None</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects Catalog for InterBase and Firebird (Delphi XE2)</DCC_Description>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOIBFbCatalog_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOIBFbCatalog_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="..\InstantIBFbCatalog.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOIBFbCatalog.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="OSX32">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/IBFb/DXE2/IOIBFbCatalog_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dpk
===================================================================
--- trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dpk (rev 0)
+++ trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dpk 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,40 @@
+package IOMSSqlCatalog;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects Catalog for MS-Sql (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ IOCore;
+
+contains
+ InstantMSSqlCatalog in '..\InstantMSSqlCatalog.pas';
+
+end.
Property changes on: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dproj
===================================================================
--- trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dproj (rev 0)
+++ trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dproj 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,140 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{D79EB136-1196-4C33-842B-FCD304B70B90}</ProjectGuid>
+ <MainSource>IOMSSqlCatalog.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>None</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects Catalog for MS-Sql (Delphi XE2)</DCC_Description>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOMSSqlCatalog_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOMSSqlCatalog_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="..\InstantMSSqlCatalog.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOMSSqlCatalog.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="OSX32">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/MSSql/DXE2/IOMSSqlCatalog_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dpk
===================================================================
--- trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dpk (rev 0)
+++ trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dpk 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,40 @@
+package IOMySQLCatalog;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects Catalog for MySQL (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ IOCore;
+
+contains
+ InstantMySQLCatalog in '..\InstantMySQLCatalog.pas';
+
+end.
Property changes on: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dproj
===================================================================
--- trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dproj (rev 0)
+++ trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dproj 2011-09-17 04:45:12 UTC (rev 943)
@@ -0,0 +1,140 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{FA68923A-B9AB-4354-A220-A68A7F55E6D7}</ProjectGuid>
+ <MainSource>IOMySQLCatalog.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>None</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects Catalog for MySQL (Delphi XE2)</DCC_Description>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOMySQLCatalog_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOMySQLCatalog_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="..\InstantMySQLCatalog.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOMySQLCatalog.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="OSX32">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Catalogs/MySQL/DXE2/IOMySQLCatalog_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
|
|
From: <dav...@us...> - 2011-09-17 04:45:00
|
Revision: 942
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=942&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:44:53 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
* Add Core and Design packages for Delphi XE2 (Win32 platform)
Added Paths:
-----------
trunk/Source/Core/DXE2/
trunk/Source/Core/DXE2/IOCore.dpk
trunk/Source/Core/DXE2/IOCore.dproj
trunk/Source/Core/DXE2/IOCore.res
trunk/Source/Core/DXE2/IOCore_Icon.ico
trunk/Source/Design/DXE2/
trunk/Source/Design/DXE2/DclIOCore.dpk
trunk/Source/Design/DXE2/DclIOCore.dproj
trunk/Source/Design/DXE2/DclIOCore.res
trunk/Source/Design/DXE2/DclIOCore_Icon.ico
Added: trunk/Source/Core/DXE2/IOCore.dpk
===================================================================
--- trunk/Source/Core/DXE2/IOCore.dpk (rev 0)
+++ trunk/Source/Core/DXE2/IOCore.dpk 2011-09-17 04:44:53 UTC (rev 942)
@@ -0,0 +1,67 @@
+package IOCore;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects Run-Time Package (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ vcl,
+ vcldb,
+ rtl;
+
+contains
+ InstantUtils in '..\InstantUtils.pas',
+ InstantClasses in '..\InstantClasses.pas',
+ InstantConsts in '..\InstantConsts.pas',
+ InstantRtti in '..\InstantRtti.pas',
+ InstantCommand in '..\InstantCommand.pas',
+ InstantPersistence in '..\InstantPersistence.pas',
+ InstantExplorer in '..\InstantExplorer.pas',
+ InstantDesignHook in '..\InstantDesignHook.pas',
+ InstantCode in '..\InstantCode.pas',
+ InstantTextFiler in '..\InstantTextFiler.pas',
+ InstantPresentation in '..\InstantPresentation.pas',
+ InstantAccessors in '..\InstantAccessors.pas',
+ InstantConnectionManagerFormUnit in '..\InstantConnectionManagerFormUnit.pas' {InstantConnectionManagerForm},
+ InstantConnectionManager in '..\InstantConnectionManager.pas',
+ InstantImageUtils in '..\InstantImageUtils.pas',
+ InstantPump in '..\InstantPump.pas',
+ InstantDBBuild in '..\InstantDBBuild.pas',
+ InstantDBEvolution in '..\InstantDBEvolution.pas',
+ InstantCustomDBEvolverFormUnit in '..\InstantCustomDBEvolverFormUnit.pas' {InstantCustomDBEvolverForm},
+ InstantDBEvolverFormUnit in '..\InstantDBEvolverFormUnit.pas' {InstantDBEvolverForm},
+ InstantDBBuilderFormUnit in '..\InstantDBBuilderFormUnit.pas' {InstantDBBuilderForm},
+ InstantTypes in '..\InstantTypes.pas',
+ InstantBrokers in '..\InstantBrokers.pas',
+ InstantMetadata in '..\InstantMetadata.pas',
+ InstantStandardValidators in '..\InstantStandardValidators.pas',
+ InstantValidation in '..\InstantValidation.pas',
+ InstantRttiAttributes in '..\InstantRttiAttributes.pas';
+
+end.
Property changes on: trunk/Source/Core/DXE2/IOCore.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Core/DXE2/IOCore.dproj
===================================================================
--- trunk/Source/Core/DXE2/IOCore.dproj (rev 0)
+++ trunk/Source/Core/DXE2/IOCore.dproj 2011-09-17 04:44:53 UTC (rev 942)
@@ -0,0 +1,174 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{384B52A2-C030-4B99-AB9E-71D475D78BB8}</ProjectGuid>
+ <MainSource>IOCore.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects Run-Time Package (Delphi XE2)</DCC_Description>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>IOCore_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>IOCore_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="..\InstantUtils.pas"/>
+ <DCCReference Include="..\InstantClasses.pas"/>
+ <DCCReference Include="..\InstantConsts.pas"/>
+ <DCCReference Include="..\InstantRtti.pas"/>
+ <DCCReference Include="..\InstantCommand.pas"/>
+ <DCCReference Include="..\InstantPersistence.pas"/>
+ <DCCReference Include="..\InstantExplorer.pas"/>
+ <DCCReference Include="..\InstantDesignHook.pas"/>
+ <DCCReference Include="..\InstantCode.pas"/>
+ <DCCReference Include="..\InstantTextFiler.pas"/>
+ <DCCReference Include="..\InstantPresentation.pas"/>
+ <DCCReference Include="..\InstantAccessors.pas"/>
+ <DCCReference Include="..\InstantConnectionManagerFormUnit.pas">
+ <Form>InstantConnectionManagerForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantConnectionManager.pas"/>
+ <DCCReference Include="..\InstantImageUtils.pas"/>
+ <DCCReference Include="..\InstantPump.pas"/>
+ <DCCReference Include="..\InstantDBBuild.pas"/>
+ <DCCReference Include="..\InstantDBEvolution.pas"/>
+ <DCCReference Include="..\InstantCustomDBEvolverFormUnit.pas">
+ <Form>InstantCustomDBEvolverForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantDBEvolverFormUnit.pas">
+ <Form>InstantDBEvolverForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantDBBuilderFormUnit.pas">
+ <Form>InstantDBBuilderForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantTypes.pas"/>
+ <DCCReference Include="..\InstantBrokers.pas"/>
+ <DCCReference Include="..\InstantMetadata.pas"/>
+ <DCCReference Include="..\InstantStandardValidators.pas"/>
+ <DCCReference Include="..\InstantValidation.pas"/>
+ <DCCReference Include="..\InstantRttiAttributes.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOCore.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Core/DXE2/IOCore.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Core/DXE2/IOCore.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Core/DXE2/IOCore.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Core/DXE2/IOCore_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Core/DXE2/IOCore_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
Added: trunk/Source/Design/DXE2/DclIOCore.dpk
===================================================================
--- trunk/Source/Design/DXE2/DclIOCore.dpk (rev 0)
+++ trunk/Source/Design/DXE2/DclIOCore.dpk 2011-09-17 04:44:53 UTC (rev 942)
@@ -0,0 +1,68 @@
+package DclIOCore;
+
+{$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'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS ON}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'InstantObjects Design-Time Package (Delphi XE2)'}
+{$LIBSUFFIX '_D16'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+ designide,
+ vcldb,
+ rtl,
+ vcl,
+ dbrtl,
+ IOCore;
+
+contains
+ InstantWizard in '..\InstantWizard.pas',
+ InstantClassEditor in '..\InstantClassEditor.pas' {InstantClassEditorForm: TIOBaseForm},
+ InstantCommandEditor in '..\InstantCommandEditor.pas' {InstantCommandEditorForm},
+ InstantDesignResources in '..\InstantDesignResources.pas' {InstantDesignResourceModule: TDataModule},
+ InstantDesignTools in '..\InstantDesignTools.pas',
+ InstantDesignUtils in '..\InstantDesignUtils.pas',
+ InstantDialog in '..\InstantDialog.pas' {InstantDialogForm},
+ InstantDualList in '..\InstantDualList.pas' {InstantDualListForm},
+ InstantEdit in '..\InstantEdit.pas' {InstantEditForm},
+ InstantModelExpert in '..\InstantModelExpert.pas',
+ InstantModelExplorer in '..\InstantModelExplorer.pas' {InstantModelExplorerForm},
+ InstantModelImport in '..\InstantModelImport.pas' {InstantModelImportForm},
+ InstantOTA in '..\InstantOTA.pas',
+ InstantReg in '..\InstantReg.pas',
+ InstantUnitSelect in '..\InstantUnitSelect.pas' {InstantUnitSelectForm},
+ InstantAttributeEditor in '..\InstantAttributeEditor.pas' {InstantAttributeEditorForm},
+ InstantAbout in '..\InstantAbout.pas' {InstantAboutForm},
+ InstantAttributeView in '..\InstantAttributeView.pas' {InstantAttributeViewFrame: TFrame};
+
+end.
+
Property changes on: trunk/Source/Design/DXE2/DclIOCore.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Source/Design/DXE2/DclIOCore.dproj
===================================================================
--- trunk/Source/Design/DXE2/DclIOCore.dproj (rev 0)
+++ trunk/Source/Design/DXE2/DclIOCore.dproj 2011-09-17 04:44:53 UTC (rev 942)
@@ -0,0 +1,196 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{C573F984-7F86-4505-A31B-4EF4D14A0112}</ProjectGuid>
+ <MainSource>DclIOCore.dpk</MainSource>
+ <Base>True</Base>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_UsePackage>rtl;dbrtl;$(DCC_UsePackage)</DCC_UsePackage>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <DesignOnlyPackage>true</DesignOnlyPackage>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DllSuffix>_D16</DllSuffix>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace>
+ <DCC_Description>InstantObjects Design-Time Package (Delphi XE2)</DCC_Description>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <DCC_UsePackage>vcl;vcldb;$(DCC_UsePackage)</DCC_UsePackage>
+ <Icon_MainIcon>DclIOCore_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <DCC_UsePackage>vcl;vcldb;IOCore;$(DCC_UsePackage)</DCC_UsePackage>
+ <Icon_MainIcon>DclIOCore_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ <DCC_Optimize>false</DCC_Optimize>
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="$(MainSource)">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="..\..\Core\InstantPresentation.dcr"/>
+ <DCCReference Include="..\..\Core\InstantExplorer.dcr"/>
+ <DCCReference Include="..\..\Core\InstantPersistence.dcr"/>
+ <DCCReference Include="..\..\Core\InstantConnectionManager.dcr"/>
+ <DCCReference Include="..\..\Core\InstantPump.dcr"/>
+ <DCCReference Include="..\..\Core\InstantDBEvolution.dcr"/>
+ <DCCReference Include="designide.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="rtl.dcp"/>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="dbrtl.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="..\InstantWizard.pas"/>
+ <DCCReference Include="..\InstantClassEditor.pas">
+ <Form>InstantClassEditorForm</Form>
+ <DesignClass>TIOBaseForm</DesignClass>
+ </DCCReference>
+ <DCCReference Include="..\InstantCommandEditor.pas">
+ <Form>InstantCommandEditorForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantDesignResources.pas">
+ <Form>InstantDesignResourceModule</Form>
+ <DesignClass>TDataModule</DesignClass>
+ </DCCReference>
+ <DCCReference Include="..\InstantDesignTools.pas"/>
+ <DCCReference Include="..\InstantDesignUtils.pas"/>
+ <DCCReference Include="..\InstantDialog.pas">
+ <Form>InstantDialogForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantDualList.pas">
+ <Form>InstantDualListForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantEdit.pas">
+ <Form>InstantEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantModelExpert.pas"/>
+ <DCCReference Include="..\InstantModelExplorer.pas">
+ <Form>InstantModelExplorerForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantModelImport.pas">
+ <Form>InstantModelImportForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantOTA.pas"/>
+ <DCCReference Include="..\InstantReg.pas"/>
+ <DCCReference Include="..\InstantUnitSelect.pas">
+ <Form>InstantUnitSelectForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantAttributeEditor.pas">
+ <Form>InstantAttributeEditorForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantAbout.pas">
+ <Form>InstantAboutForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantAttributeView.pas">
+ <Form>InstantAttributeViewFrame</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">DclIOCore.dpk</Source>
+ </Source>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1033</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Source/Design/DXE2/DclIOCore.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Design/DXE2/DclIOCore.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Design/DXE2/DclIOCore.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Source/Design/DXE2/DclIOCore_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Design/DXE2/DclIOCore_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
|
|
From: <dav...@us...> - 2011-09-17 04:25:44
|
Revision: 941
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=941&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:25:37 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
* Change the TDateSet.DataEvent Info parameter type from Longint to NativeInt for DXE2 or later
Modified Paths:
--------------
trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas 2011-09-17 04:18:35 UTC (rev 940)
+++ trunk/Source/Core/InstantPresentation.pas 2011-09-17 04:25:37 UTC (rev 941)
@@ -410,7 +410,11 @@
function CreateAccessor: TInstantAccessor; virtual;
procedure CreateFields; override;
function CreateNestedDataSet(DataSetField: TDataSetField): TDataSet; override;
+ {$IFDEF D16+}
+ procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;
+ {$ELSE}
procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+ {$ENDIF}
procedure DestroyAccessor;
procedure DoAfterDelete; override;
procedure DoAfterPostField(Field: TField); virtual;
@@ -581,7 +585,11 @@
FOnMasterDisable: TNotifyEvent;
protected
procedure ActiveChanged; override;
+ {$IFDEF D16+}
+ procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;
+ {$ELSE}
procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+ {$ENDIF}
procedure DoMasterChange;
procedure DoMasterDisable;
function GetDetailDataSet: TDataSet; override;
@@ -610,7 +618,11 @@
procedure SyncWithParent(Field: TDataSetField);
protected
procedure SetSubject(Value: TObject); virtual;
+ {$IFDEF D16+}
+ procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;
+ {$ELSE}
procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+ {$ENDIF}
function GetSubject: TObject; override;
procedure MasterChanged(Sender: TObject);
procedure SetDataSetField(const Value: TDataSetField); override;
@@ -2550,7 +2562,8 @@
Result := Accessor.CreateObject;
end;
-procedure TInstantCustomExposer.DataEvent(Event: TDataEvent; Info: Longint);
+procedure TInstantCustomExposer.DataEvent(Event: TDataEvent;
+ Info: {$IFDEF D16+}NativeInt{$ELSE}Longint{$ENDIF});
var
I: Integer;
DataSet: TDataSet;
@@ -4385,7 +4398,8 @@
FDetailExposer := ADetailExposer;
end;
-procedure TInstantExposerLink.DataEvent(Event: TDataEvent; Info: Integer);
+procedure TInstantExposerLink.DataEvent(Event: TDataEvent;
+ Info: {$IFDEF D16+}NativeInt{$ELSE}Longint{$ENDIF});
begin
inherited;
if not DetailExposer.Active and (Event = deRecordChange) then
@@ -4445,7 +4459,7 @@
{ TInstantExposer }
procedure TInstantExposer.DataEvent(Event: TDataEvent;
- Info: Integer);
+ Info: {$IFDEF D16+}NativeInt{$ELSE}Longint{$ENDIF});
begin
case Event of
deParentScroll:
|
|
From: <dav...@us...> - 2011-09-17 04:18:41
|
Revision: 940
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=940&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:18:35 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
+ Add compiler version defines for Delphi XE2
Modified Paths:
--------------
trunk/Source/InstantDefines.inc
Modified: trunk/Source/InstantDefines.inc
===================================================================
--- trunk/Source/InstantDefines.inc 2010-12-26 17:25:31 UTC (rev 939)
+++ trunk/Source/InstantDefines.inc 2011-09-17 04:18:35 UTC (rev 940)
@@ -88,6 +88,24 @@
{$DEFINE D15+}
{$ENDIF}
+{$IFDEF VER230}
+ {$DEFINE D5+}
+ {$DEFINE D6+}
+ {$DEFINE D7+}
+ {$DEFINE D9+}
+ {$DEFINE D10+}
+ {$DEFINE D11}
+ {$DEFINE D11+}
+ {$DEFINE D12}
+ {$DEFINE D12+}
+ {$DEFINE D14}
+ {$DEFINE D14+}
+ {$DEFINE D15}
+ {$DEFINE D15+}
+ {$DEFINE D16}
+ {$DEFINE D16+}
+{$ENDIF}
+
{$IFDEF FPC}
{$DEFINE D5+}
{$DEFINE D6+}
|
|
From: <na...@us...> - 2010-12-26 17:25:38
|
Revision: 939
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=939&view=rev
Author: nandod
Date: 2010-12-26 17:25:31 +0000 (Sun, 26 Dec 2010)
Log Message:
-----------
* Burst load modes: fix for a bug that would prevent retrieving a list made of only one object with some brokers (some datasets have Eof = True even when the buffer is pointing to valid record data and there's only one record).
Modified Paths:
--------------
trunk/Source/Core/InstantBrokers.pas
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-11-16 21:51:58 UTC (rev 938)
+++ trunk/Source/Core/InstantBrokers.pas 2010-12-26 17:25:31 UTC (rev 939)
@@ -1,4 +1,4 @@
- (*
+(*
* InstantObjects
* Broker and Connector Classes
*)
@@ -449,7 +449,6 @@
const AMap: TInstantAttributeMap);
procedure RetrieveMapFromDataSet(const AObject: TInstantObject;
const AObjectId: string; const AMap: TInstantAttributeMap;
- ConflictAction: TInstantConflictAction; AInfo: PInstantOperationInfo;
const ADataSet: TDataSet);
protected
procedure AddAttributeParam(Attribute: TInstantAttribute;
@@ -3421,7 +3420,9 @@
if Assigned(AObjectData) and (AObjectData is TInstantDataSetObjectData)
and TInstantDataSetObjectData(AObjectData).Locate(AObjectId) then
begin
- RetrieveMapFromDataSet(AObject, AObjectId, Map, ConflictAction, AInfo,
+ AInfo.Success := True;
+ AInfo.Conflict := not AInfo.Success;
+ RetrieveMapFromDataSet(AObject, AObjectId, Map,
TInstantDataSetObjectData(AObjectData).DataSet);
end
else
@@ -3432,8 +3433,12 @@
LDataSet := Broker.AcquireDataSet(SelectSQL, LParams);
try
LDataSet.Open;
- RetrieveMapFromDataSet(AObject, AObjectId, Map, ConflictAction,
- AInfo, LDataSet);
+ AInfo.Success := not LDataSet.Eof;
+ AInfo.Conflict := not AInfo.Success;
+ if AInfo.Success then
+ RetrieveMapFromDataSet(AObject, AObjectId, Map, LDataSet)
+ else
+ ResetAttributes(AObject, Map);
finally
Broker.ReleaseDataSet(LDataSet);
end;
@@ -3925,29 +3930,16 @@
Params.Delete(Param.Index);
end;
-procedure TInstantSQLResolver.RetrieveMapFromDataSet(const AObject: TInstantObject;
- const AObjectId: string; const AMap: TInstantAttributeMap;
- ConflictAction: TInstantConflictAction; AInfo: PInstantOperationInfo;
- const ADataSet: TDataSet);
-var
- LInfo: TInstantOperationInfo;
+procedure TInstantSQLResolver.RetrieveMapFromDataSet(
+ const AObject: TInstantObject; const AObjectId: string;
+ const AMap: TInstantAttributeMap; const ADataSet: TDataSet);
begin
Assert(Assigned(AObject));
Assert(Assigned(ADataSet));
- if not Assigned(AInfo) then
- AInfo := @LInfo;
-
- AInfo.Success := not ADataSet.Eof;
- AInfo.Conflict := not AInfo.Success;
- if AInfo.Success then
- begin
- if AMap.IsRootMap then
- Broker.SetObjectUpdateCount(AObject, ADataSet.FieldByName(InstantUpdateCountFieldName).AsInteger);
- ReadAttributes(AObject, AObjectId, AMap, ADataSet);
- end
- else
- ResetAttributes(AObject, AMap);
+ if AMap.IsRootMap then
+ Broker.SetObjectUpdateCount(AObject, ADataSet.FieldByName(InstantUpdateCountFieldName).AsInteger);
+ ReadAttributes(AObject, AObjectId, AMap, ADataSet);
end;
function TInstantSQLResolver.TranslateError(AObject: TInstantObject;
|
|
From: <na...@us...> - 2010-11-16 21:52:04
|
Revision: 938
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=938&view=rev
Author: nandod
Date: 2010-11-16 21:51:58 +0000 (Tue, 16 Nov 2010)
Log Message:
-----------
* Fixed a burst load mode related regression that caused errors when writing to the database with the statement cache enabled.
Modified Paths:
--------------
trunk/Source/Core/InstantBrokers.pas
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-11-16 21:50:22 UTC (rev 937)
+++ trunk/Source/Core/InstantBrokers.pas 2010-11-16 21:51:58 UTC (rev 938)
@@ -1478,10 +1478,7 @@
end;
end
else
- begin
AssignDataSetParams(Result, AParams);
- Result.Open;
- end;
end;
end;
if not Assigned(Result) then
|
|
From: <na...@us...> - 2010-11-16 21:50:31
|
Revision: 937
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=937&view=rev
Author: nandod
Date: 2010-11-16 21:50:22 +0000 (Tue, 16 Nov 2010)
Log Message:
-----------
* Primer: Allow to compare results of tests with or without statement cache on the same connection.
Modified Paths:
--------------
trunk/Demos/PrimerCross/PerformanceView.pas
Modified: trunk/Demos/PrimerCross/PerformanceView.pas
===================================================================
--- trunk/Demos/PrimerCross/PerformanceView.pas 2010-11-13 10:05:12 UTC (rev 936)
+++ trunk/Demos/PrimerCross/PerformanceView.pas 2010-11-16 21:50:22 UTC (rev 937)
@@ -516,7 +516,7 @@
Count := StrToInt(Trim(ObjectsEdit.text));
Execute(TestRetrieveCheckBox.Checked, TestQueryCheckBox.Checked, TestDisposeCheckBox.Checked);
AResult := ExtractResult;
- AResult.Name := ConnectionName;
+ AResult.Name := ConnectionName + ' (Cache: ' + Trim(CacheSizeEdit.Text) + ')';
AResult.IsChecked := True;
TestResults.AddResult(AResult);
ShowTestResults;
|
|
From: <na...@us...> - 2010-11-13 10:05:18
|
Revision: 936
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=936&view=rev
Author: nandod
Date: 2010-11-13 10:05:12 +0000 (Sat, 13 Nov 2010)
Log Message:
-----------
* Fixed "unassigned connector" error with full burst mode and no default connector.
Modified Paths:
--------------
trunk/Source/Core/InstantBrokers.pas
trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-11-13 09:57:14 UTC (rev 935)
+++ trunk/Source/Core/InstantBrokers.pas 2010-11-13 10:05:12 UTC (rev 936)
@@ -6042,7 +6042,7 @@
else
LObjRef.ReferenceObject(LClassField.AsString, LIdField.AsString);
if ActualLoadMode = lmFullBurst then
- LObjRef.RetrieveObjectFromObjectData;
+ LObjRef.RetrieveObjectFromObjectData(Connector);
except
LObjRef.Free;
raise;
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas 2010-11-13 09:57:14 UTC (rev 935)
+++ trunk/Source/Core/InstantPersistence.pas 2010-11-13 10:05:12 UTC (rev 936)
@@ -141,8 +141,8 @@
const AObjectData: TInstantAbstractObjectData = nil); overload;
procedure ReferenceObject(const AObjectClass: TInstantObjectClass;
const AObjectId: string; const AObjectData: TInstantAbstractObjectData = nil); overload;
- // Retrieves the referenced object from internal data object, if available.
- procedure RetrieveObjectFromObjectData;
+ // Retrieves the referenced object from the internal data object, if available.
+ procedure RetrieveObjectFromObjectData(const AConnector: TInstantConnector);
procedure WriteAsObject(Writer: TInstantWriter); virtual;
property Instance: TInstantObject read GetInstance write SetInstance;
property ObjectClass: TInstantObjectClass read GetObjectClass;
@@ -1178,7 +1178,7 @@
function InternalGetObjectReferenceId(Index: Integer) : string; virtual;
procedure SetActualLoadMode(const AValue: TInstantLoadMode);
public
- constructor Create(AConnector: TInstantConnector); virtual;
+ constructor Create(AConnector: TInstantConnector); reintroduce; virtual;
function AddObject(AObject: TObject): Integer;
procedure ApplyChanges;
procedure Close;
@@ -2255,13 +2255,14 @@
ReferenceObject(AObjectClass.ClassName, AObjectId, AObjectData);
end;
-procedure TInstantObjectReference.RetrieveObjectFromObjectData;
+procedure TInstantObjectReference.RetrieveObjectFromObjectData(
+ const AConnector: TInstantConnector);
var
LObject: TInstantObject;
begin
Assert(Assigned(FObjectData));
- LObject := ObjectClass.Retrieve(ObjectId, False, False, nil, FObjectData);
+ LObject := ObjectClass.Retrieve(ObjectId, False, False, AConnector, FObjectData);
DoAssignInstance(LObject, True);
if Assigned(FInstance) then
FInstance.Release
|
|
From: <na...@us...> - 2010-11-13 09:57:20
|
Revision: 935
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=935&view=rev
Author: nandod
Date: 2010-11-13 09:57:14 +0000 (Sat, 13 Nov 2010)
Log Message:
-----------
* Burst mode fixes. Bad interactions with the statement cache fixed.
Modified Paths:
--------------
trunk/Source/Core/InstantBrokers.pas
trunk/Source/Core/InstantClasses.pas
trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-11-13 09:56:04 UTC (rev 934)
+++ trunk/Source/Core/InstantBrokers.pas 2010-11-13 09:57:14 UTC (rev 935)
@@ -1,4 +1,4 @@
-(*
+ (*
* InstantObjects
* Broker and Connector Classes
*)
@@ -624,11 +624,14 @@
// An item in the statement cache.
TInstantStatement = class
private
- FStatementImplementation: TComponent;
+ FStatementDataSet: TDataSet;
+ FDataSetRefCount: Integer;
public
- constructor Create(const AStatementImplementation: TComponent);
+ constructor Create(const AStatementDataSet: TDataSet);
destructor Destroy; override;
- property StatementImplementation: TComponent read FStatementImplementation;
+ property StatementDataSet: TDataSet read FStatementDataSet;
+ function AddDataSetRef: Integer;
+ function ReleaseDataSetRef: Integer;
end;
// Caches objects that implement command statements in releational brokers.
@@ -650,10 +653,11 @@
property Capacity: Integer read FCapacity write SetCapacity;
destructor Destroy; override;
function GetStatement(const StatementText: string): TInstantStatement;
+ function IndexOfStatementDataSet(const StatementDataSet: TDataSet): Integer;
+ function GetStatementByIndex(const AIndex: Integer): TInstantStatement;
function AddStatement(const StatementText: string;
- const StatementImplementation: TComponent): Integer;
+ const StatementDataSet: TDataSet): Integer;
function RemoveStatement(const StatementText: string): Boolean;
- function HasStatementImplementation(const StatementImplementation: TComponent): Boolean;
end;
// A TInstantCatalog that gathers its info from an existing database (through
@@ -1006,6 +1010,9 @@
FDataSet: TDataSet;
FRecNo: Integer;
FIdField: TField;
+ protected
+ procedure Notification(AComponent: TComponent; Operation: TOperation);
+ override;
public
constructor CreateAndInit(const ADataSet: TDataSet);
property DataSet: TDataSet read FDataSet;
@@ -1044,6 +1051,8 @@
procedure SetParams(Value: TParams); override;
function ObjectFetched(Index: Integer): Boolean; override;
procedure SetStatement(const Value: string); override;
+ procedure Notification(AComponent: TComponent; Operation: TOperation);
+ override;
property ObjectReferenceCount: Integer read GetObjectReferenceCount;
property ObjectReferenceList: TInstantObjectReferenceList read
GetObjectReferenceList;
@@ -1454,8 +1463,25 @@
CachedStatement := StatementCache.GetStatement(AStatement);
if Assigned(CachedStatement) then
begin
- Result := TDataSet(CachedStatement.StatementImplementation);
- AssignDataSetParams(Result, AParams);
+ Result := TDataSet(CachedStatement.StatementDataSet);
+ // The dataset might be already open to serve a burst mode retrieval,
+ // in which case we can reuse it unless it's parametric.
+ if Result.Active then
+ begin
+ if AParams.Count = 0 then
+ Result.First
+ else
+ begin
+ Result.Close;
+ AssignDataSetParams(Result, AParams);
+ Result.Open;
+ end;
+ end
+ else
+ begin
+ AssignDataSetParams(Result, AParams);
+ Result.Open;
+ end;
end;
end;
if not Assigned(Result) then
@@ -1565,11 +1591,22 @@
end;
procedure TInstantSQLBroker.ReleaseDataSet(const ADataSet: TDataSet);
+var
+ I: Integer;
+ LStatement: TInstantStatement;
begin
- if Assigned(FStatementCache) and FStatementCache.HasStatementImplementation(ADataSet) then
- ADataSet.Close
- else
- ADataSet.Free;
+ if Assigned(FStatementCache) then
+ begin
+ I := FStatementCache.IndexOfStatementDataSet(ADataSet);
+ if I >= 0 then
+ begin
+ LStatement := FStatementCache.GetStatementByIndex(I);
+ if LStatement.ReleaseDataSetRef <= 0 then
+ ADataSet.Close;
+ Exit;
+ end;
+ end;
+ ADataSet.Free;
end;
{ TInstantRelationalConnector }
@@ -4378,18 +4415,31 @@
{ TInstantStatement }
-constructor TInstantStatement.Create(const AStatementImplementation: TComponent);
+function TInstantStatement.AddDataSetRef: Integer;
begin
+ Inc(FDataSetRefCount);
+ Result := FDataSetRefCount;
+end;
+
+constructor TInstantStatement.Create(const AStatementDataSet: TDataSet);
+begin
inherited Create;
- FStatementImplementation := AStatementImplementation;
+ FStatementDataSet := AStatementDataSet;
+ FDataSetRefCount := 1;
end;
destructor TInstantStatement.Destroy;
begin
- FStatementImplementation.Free;
+ FStatementDataSet.Free;
inherited;
end;
+function TInstantStatement.ReleaseDataSetRef: Integer;
+begin
+ Dec(FDataSetRefCount);
+ Result := FDataSetRefCount;
+end;
+
{ TInstantStatementCache }
constructor TInstantStatementCache.Create(AOwner: TComponent);
@@ -4409,16 +4459,16 @@
end;
function TInstantStatementCache.AddStatement(const StatementText: string;
- const StatementImplementation: TComponent): Integer;
+ const StatementDataSet: TDataSet): Integer;
var
StatementObject: TInstantStatement;
begin
- if Assigned(StatementImplementation) then
+ if Assigned(StatementDataSet) then
begin
Shrink;
- StatementObject := TInstantStatement.Create(StatementImplementation);
+ StatementObject := TInstantStatement.Create(StatementDataSet);
Result := FStatements.AddObject(StatementText, StatementObject);
- StatementImplementation.FreeNotification(Self);
+ StatementDataSet.FreeNotification(Self);
end
else
Result := -1;
@@ -4448,22 +4498,31 @@
begin
Index := FStatements.IndexOf(StatementText);
if Index >= 0 then
- Result := TInstantStatement(FStatements.Objects[Index])
+ begin
+ Result := TInstantStatement(FStatements.Objects[Index]);
+ Result.AddDataSetRef;
+ end
else
Result := nil;
end;
-function TInstantStatementCache.HasStatementImplementation(
- const StatementImplementation: TComponent): Boolean;
+function TInstantStatementCache.GetStatementByIndex(
+ const AIndex: Integer): TInstantStatement;
+begin
+ Result := TinstantStatement(FStatements.Objects[AIndex]);
+end;
+
+function TInstantStatementCache.IndexOfStatementDataSet(
+ const StatementDataSet: TDataSet): Integer;
var
I: Integer;
begin
- Result := False;
+ Result := -1;
for I := 0 to FStatements.Count - 1 do
begin
- if TinstantStatement(FStatements.Objects[I]).StatementImplementation = StatementImplementation then
+ if TinstantStatement(FStatements.Objects[I]).StatementDataSet = StatementDataSet then
begin
- Result := True;
+ Result := I;
Break;
end;
end;
@@ -4476,7 +4535,7 @@
inherited;
if Operation = opRemove then
for I := FStatements.Count - 1 downto 0 do
- if TInstantStatement(FStatements.Objects[I]).StatementImplementation = AComponent then
+ if TInstantStatement(FStatements.Objects[I]).StatementDataSet = AComponent then
DeleteStatement(I);
end;
@@ -6055,6 +6114,7 @@
FDataSet := AcquireDataSet(Statement, ParamsObject);
if Assigned(FDataSet) then
try
+ FDataSet.FreeNotification(Self);
if not FDataSet.Active then
FDataSet.Open;
InitObjectReferences;
@@ -6078,6 +6138,14 @@
Result := ObjectReferenceList.Remove(AObject as TInstantObject);
end;
+procedure TInstantSQLQuery.Notification(AComponent: TComponent;
+ Operation: TOperation);
+begin
+ inherited;
+ if (Operation = opRemove) and (AComponent = FDataSet) then
+ FDataSet := nil;
+end;
+
function TInstantSQLQuery.ObjectFetched(Index: Integer): Boolean;
begin
Result := ObjectReferenceList.RefItems[Index].HasInstance;
@@ -6772,7 +6840,8 @@
constructor TInstantDataSetObjectData.CreateAndInit(const ADataSet: TDataSet);
begin
Assert(Assigned(ADataSet));
- Create;
+ Create(nil);
+ ADataSet.FreeNotification(Self);
FDataSet := ADataSet;
FRecNo := ADataSet.RecNo;
FIdField := ADataSet.FieldByName(InstantIdFieldName);
@@ -6780,8 +6849,21 @@
function TInstantDataSetObjectData.Locate(const AObjectId: string): Boolean;
begin
- FDataSet.RecNo := FRecNo;
- Result := FIdField.AsString = AObjectId;
+ if not Assigned(FDataSet) or not FDataSet.Active then
+ Result := False
+ else
+ begin
+ FDataSet.RecNo := FRecNo;
+ Result := FIdField.AsString = AObjectId;
+ end;
end;
+procedure TInstantDataSetObjectData.Notification(AComponent: TComponent;
+ Operation: TOperation);
+begin
+ inherited;
+ if (Operation = opRemove) and (AComponent = FDataSet) then
+ FDataSet := nil;
+end;
+
end.
Modified: trunk/Source/Core/InstantClasses.pas
===================================================================
--- trunk/Source/Core/InstantClasses.pas 2010-11-13 09:56:04 UTC (rev 934)
+++ trunk/Source/Core/InstantClasses.pas 2010-11-13 09:57:14 UTC (rev 935)
@@ -399,7 +399,7 @@
TInstantAbstractObjectClass = class of TInstantAbstractObject;
- TInstantAbstractObjectData = class(TInstantStreamable);
+ TInstantAbstractObjectData = class(TComponent);
TInstantAbstractObject = class(TInstantStreamable)
private
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas 2010-11-13 09:56:04 UTC (rev 934)
+++ trunk/Source/Core/InstantPersistence.pas 2010-11-13 09:57:14 UTC (rev 935)
@@ -1144,7 +1144,7 @@
procedure InternalExecute; override;
end;
- TInstantQuery = class(TPersistent)
+ TInstantQuery = class(TComponent)
private
FCommand: string;
FConnector: TInstantConnector;
@@ -7704,7 +7704,7 @@
constructor TInstantQuery.Create(AConnector: TInstantConnector);
begin
- inherited Create;
+ inherited Create(nil);
FConnector := AConnector;
end;
|
|
From: <na...@us...> - 2010-11-13 09:56:11
|
Revision: 934
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=934&view=rev
Author: nandod
Date: 2010-11-13 09:56:04 +0000 (Sat, 13 Nov 2010)
Log Message:
-----------
* Restored missing versioninfo flag.
Modified Paths:
--------------
trunk/Source/Core/DXE/IOCore.dproj
trunk/Source/Core/DXE/IOCore.res
Modified: trunk/Source/Core/DXE/IOCore.dproj
===================================================================
--- trunk/Source/Core/DXE/IOCore.dproj 2010-11-13 09:53:11 UTC (rev 933)
+++ trunk/Source/Core/DXE/IOCore.dproj 2010-11-13 09:56:04 UTC (rev 934)
@@ -46,6 +46,7 @@
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
@@ -115,7 +116,7 @@
<Source Name="MainSource">IOCore.dpk</Source>
</Source>
<VersionInfo>
- <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
@@ -141,6 +142,9 @@
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"/>
</VersionInfoKeys>
+ <Parameters>
+ <Parameters Name="HostApplication">C:\Program Files (x86)\Embarcadero\RAD Studio\8.0\bin\bds.exe</Parameters>
+ </Parameters>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
Modified: trunk/Source/Core/DXE/IOCore.res
===================================================================
(Binary files differ)
|
|
From: <na...@us...> - 2010-11-13 09:53:17
|
Revision: 933
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=933&view=rev
Author: nandod
Date: 2010-11-13 09:53:11 +0000 (Sat, 13 Nov 2010)
Log Message:
-----------
+ DBX units in PrimerCross demo.
+ Missing PrimerCross DXE model file.
Modified Paths:
--------------
trunk/Demos/PrimerCross/Main.pas
Added Paths:
-----------
trunk/Demos/PrimerCross/Primer_DXE.mdr
Modified: trunk/Demos/PrimerCross/Main.pas
===================================================================
--- trunk/Demos/PrimerCross/Main.pas 2010-11-04 16:23:29 UTC (rev 932)
+++ trunk/Demos/PrimerCross/Main.pas 2010-11-13 09:53:11 UTC (rev 933)
@@ -148,7 +148,12 @@
InstantDBX,
{$ENDIF}
InstantADO, InstantBDE, InstantIBX,
-{$ENDIF}
+ {$IFDEF D14+}
+ // These are required for DBExpress to load the drivers in newer
+ // versions of Delphi. If you get a compilation error it means you
+ // don't have an Enterprise version of Delphi - just remove them.
+ DBXFirebird, DBXInterBase, DBXDB2, DBXMSSql, DBXOracle,
+ {$ENDIF}{$ENDIF}
{$IFDEF LINUX}
InstantDBX,
{$ENDIF}
Added: trunk/Demos/PrimerCross/Primer_DXE.mdr
===================================================================
(Binary files differ)
Property changes on: trunk/Demos/PrimerCross/Primer_DXE.mdr
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
|
|
From: <na...@us...> - 2010-11-04 16:23:36
|
Revision: 932
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=932&view=rev
Author: nandod
Date: 2010-11-04 16:23:29 +0000 (Thu, 04 Nov 2010)
Log Message:
-----------
* Removed too heavy borders from one of InstantExplorer's panels.
Modified Paths:
--------------
trunk/Source/Core/InstantExplorer.pas
Modified: trunk/Source/Core/InstantExplorer.pas
===================================================================
--- trunk/Source/Core/InstantExplorer.pas 2010-10-11 14:08:09 UTC (rev 931)
+++ trunk/Source/Core/InstantExplorer.pas 2010-11-04 16:23:29 UTC (rev 932)
@@ -561,7 +561,7 @@
with FDetailPanel do
begin
Parent := Self;
- BorderStyle := bsSingle;
+ BorderStyle := bsNone;
Height := Self.Height div 2;
Align := alClient;
end;
|
|
From: <na...@us...> - 2010-10-11 14:08:15
|
Revision: 931
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=931&view=rev
Author: nandod
Date: 2010-10-11 14:08:09 +0000 (Mon, 11 Oct 2010)
Log Message:
-----------
+ OnBeforeDispose event.
Modified Paths:
--------------
trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas 2010-10-04 13:23:21 UTC (rev 930)
+++ trunk/Source/Core/InstantPersistence.pas 2010-10-11 14:08:09 UTC (rev 931)
@@ -785,6 +785,7 @@
FOnBeforeContentChange: TInstantContentChangeEvent;
FOnChange: TInstantNotifyEvent;
FOnError: TInstantErrorEvent;
+ FOnBeforeDispose: TInstantNotifyEvent;
procedure ClearOwnerContext;
procedure CreateAttributes;
procedure DestroyAttributes;
@@ -972,6 +973,8 @@
property RefBy[Index: Integer]: TInstantComplex read GetRefBy;
property RefByCount: Integer read GetRefByCount;
property UpdateCount: Integer read GetUpdateCount;
+ property OnBeforeDispose: TInstantNotifyEvent
+ read FOnBeforeDispose write FOnBeforeDispose;
property OnAfterContentChange: TInstantContentChangeEvent
read FOnAfterContentChange write FOnAfterContentChange;
property OnAttributeChanged: TInstantAttributeChangeEvent
@@ -5978,6 +5981,8 @@
procedure TInstantObject.DoBeforeDispose;
begin
BeforeDispose;
+ if Assigned(FOnBeforeDispose) then
+ FOnBeforeDispose(Self);
end;
procedure TInstantObject.DoBeforeRefresh;
|
|
From: <na...@us...> - 2010-10-04 13:23:28
|
Revision: 930
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=930&view=rev
Author: nandod
Date: 2010-10-04 13:23:21 +0000 (Mon, 04 Oct 2010)
Log Message:
-----------
+ Support for class-level RTTI attributes in model files (meaning they are now ignored by the parser instead of raising Invalid class typecast exceptions).
Modified Paths:
--------------
trunk/Source/Core/InstantCode.pas
Modified: trunk/Source/Core/InstantCode.pas
===================================================================
--- trunk/Source/Core/InstantCode.pas 2010-10-01 17:57:28 UTC (rev 929)
+++ trunk/Source/Core/InstantCode.pas 2010-10-04 13:23:21 UTC (rev 930)
@@ -495,12 +495,18 @@
TInstantCodeContainerMethodFlag = (mfIndex, mfValue, mfResult);
TInstantCodeContainerMethodFlags = set of TInstantCodeContainerMethodFlag;
- TInstantCodeRttiAttribute = class(TInstantCodeMember)
+ TInstantCodeMemberRttiAttribute = class(TInstantCodeMember)
protected
class function InternalAtInstance(Reader: TInstantCodeReader; out Name: string): Boolean; override;
procedure InternalRead(Reader: TInstantCodeReader); override;
end;
+ TInstantCodeClassRttiAttribute = class(TInstantCodeType)
+ protected
+ class function InternalAtInstance(Reader: TInstantCodeReader; out Name: string): Boolean; override;
+ procedure InternalRead(Reader: TInstantCodeReader); override;
+ end;
+
TInstantCodeAttributeTailor = class(TObject)
private
FAddMethod: TInstantCodeMethod;
@@ -2865,14 +2871,14 @@
TInstantCodeField.AtInstance(Reader) or
TInstantCodeMethod.AtInstance(Reader) or
TInstantCodeProperty.AtInstance(Reader) or
- TInstantCodeRttiAttribute.AtInstance(Reader);
+ TInstantCodeMemberRttiAttribute.AtInstance(Reader);
end;
procedure TInstantCodeMembers.InternalRead(Reader: TInstantCodeReader);
begin
ReadObjects(Reader,
[TInstantCodeField, TInstantCodeMethod, TInstantCodeProperty,
- TInstantCodeRttiAttribute]);
+ TInstantCodeMemberRttiAttribute]);
end;
procedure TInstantCodeMembers.InternalWrite(Writer: TInstantCodeWriter);
@@ -3294,10 +3300,8 @@
FTypeLink.Name := Value;
end;
-{ TInstantCodeRttiAttribute }
-
-class function TInstantCodeRttiAttribute.InternalAtInstance(
- Reader: TInstantCodeReader; out Name: string): Boolean;
+function _RttiAttributeAtInstance(Reader: TInstantCodeReader;
+ out Name: string): Boolean;
begin
Result := Reader.ReadChar = '[';
if Result then
@@ -3306,13 +3310,11 @@
Name := '';
end;
-procedure TInstantCodeRttiAttribute.InternalRead(Reader: TInstantCodeReader);
+procedure _RttiAttributeRead(Reader: TInstantCodeReader);
var
BracketCount: Integer;
C: Char;
begin
- inherited;
-
BracketCount := 0;
repeat
C := Reader.ReadChar;
@@ -3323,6 +3325,33 @@
until BracketCount = 0;
end;
+{ TInstantCodeMemberRttiAttribute }
+
+class function TInstantCodeMemberRttiAttribute.InternalAtInstance(
+ Reader: TInstantCodeReader; out Name: string): Boolean;
+begin
+ Result := _RttiAttributeAtInstance(Reader, Name);
+end;
+
+procedure TInstantCodeMemberRttiAttribute.InternalRead(Reader: TInstantCodeReader);
+begin
+ _RttiAttributeRead(Reader);
+end;
+
+{ TInstantCodeClassRttiAttribute }
+
+class function TInstantCodeClassRttiAttribute.InternalAtInstance(
+ Reader: TInstantCodeReader; out Name: string): Boolean;
+begin
+ Result := _RttiAttributeAtInstance(Reader, Name);
+end;
+
+procedure TInstantCodeClassRttiAttribute.InternalRead(
+ Reader: TInstantCodeReader);
+begin
+ _RttiAttributeRead(Reader);
+end;
+
{ TInstantCodeAttributeTailor }
procedure TInstantCodeAttributeTailor.AddCountProp;
@@ -5795,7 +5824,7 @@
ReadObjects(Reader, [TInstantCodeRecord, TInstantCodeClassRef,
TInstantCodeClassForward, TInstantCodeClass, TInstantCodeInterface,
TInstantCodeDispInterface, TInstantCodeEnum, TInstantCodeSet,
- TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeRttiAttribute,
+ TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeClassRttiAttribute,
TInstantCodeUnknownType]);
end;
|
|
From: <na...@us...> - 2010-10-01 17:57:35
|
Revision: 929
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=929&view=rev
Author: nandod
Date: 2010-10-01 17:57:28 +0000 (Fri, 01 Oct 2010)
Log Message:
-----------
* Implemented some missing or incomplete Assign methods - allows merging of models (see TInstantModel.MergeFromResFile).
Modified Paths:
--------------
trunk/Source/Core/InstantMetadata.pas
Modified: trunk/Source/Core/InstantMetadata.pas
===================================================================
--- trunk/Source/Core/InstantMetadata.pas 2010-09-19 10:23:17 UTC (rev 928)
+++ trunk/Source/Core/InstantMetadata.pas 2010-10-01 17:57:28 UTC (rev 929)
@@ -567,6 +567,7 @@
procedure Clear;
function Find(const AName: string): TInstantAttributeMetadata;
procedure Remove(Item: TInstantAttributeMetadata);
+ procedure Assign(Source: TPersistent); override;
property Items[Index: Integer]: TInstantAttributeMetadata read GetItems
write SetItems; default;
function Owner: TInstantClassMetadata;
@@ -619,15 +620,19 @@
{ TInstantClassMetadata }
procedure TInstantClassMetadata.Assign(Source: TPersistent);
+var
+ LSource: TInstantClassMetadata;
begin
inherited;
if Source is TInstantClassMetadata then
- with TInstantClassMetadata(Source) do
- begin
- Self.FDefaultContainerName := FDefaultContainerName;
- Self.FStorageName := FStorageName;
- Self.FPersistence := FPersistence;
- end;
+ begin
+ LSource := TInstantClassMetadata(Source);
+ FDefaultContainerName := LSource.DefaultContainerName;
+ FStorageName := LSource.StorageName;
+ FPersistence := LSource.Persistence;
+ FParentName := LSource.ParentName;
+ AttributeMetadatas.Assign(LSource.AttributeMetadatas);
+ end;
end;
procedure TInstantClassMetadata.BuildAttributeMap(Map: TInstantAttributeMap;
@@ -1408,12 +1413,18 @@
LModel.LoadFromResFile(FileName);
for I := 0 to LModel.ClassMetadatas.Count - 1 do
begin
- LClassMetadata := ClassMetadatas.Add;
- try
- LClassMetadata.Assign(LModel.ClassMetadatas[I]);
- except
- FreeAndNil(LClassMetadata);
- raise;
+ LClassMetadata := ClassMetadatas.Find(LModel.ClassMetadatas[I].Name);
+ if Assigned(LClassMetadata) then
+ LClassMetadata.Assign(LModel.ClassMetadatas[I])
+ else
+ begin
+ LClassMetadata := ClassMetadatas.Add;
+ try
+ LClassMetadata.Assign(LModel.ClassMetadatas[I]);
+ except
+ FreeAndNil(LClassMetadata);
+ raise;
+ end;
end;
end;
finally
@@ -1704,26 +1715,28 @@
{ TInstantAttributeMetadata }
procedure TInstantAttributeMetadata.Assign(Source: TPersistent);
+var
+ LSource: TInstantAttributeMetadata;
begin
inherited;
if Source is TInstantAttributeMetadata then
- with TInstantAttributeMetadata(Source) do
- begin
- Self.FAttributeType := FAttributeType;
- Self.FDefaultValue := FDefaultValue;
- Self.FDisplayWidth := FDisplayWidth;
- Self.FEditMask := FEditMask;
- Self.FIsIndexed := FIsIndexed;
- Self.FIsRequired := FIsRequired;
- Self.FUseNull := FUseNull;
- Self.FObjectClassName := FObjectClassName;
- Self.FSize := FSize;
- Self.FStorageName := FStorageName;
- Self.FStorageKind := FStorageKind;
- Self.FExternalStorageName := FExternalStorageName;
- Self.FValidCharsString := FValidCharsString;
- Self.FEnumName := FEnumName;
- end;
+ begin
+ LSource := TInstantAttributeMetadata(Source);
+ FAttributeType := LSource.AttributeType;
+ FDefaultValue := LSource.DefaultValue;
+ FDisplayWidth := LSource.DisplayWidth;
+ FEditMask := LSource.EditMask;
+ FIsIndexed := LSource.IsIndexed;
+ FIsRequired := LSource.IsRequired;
+ FUseNull := LSource.UseNull;
+ FObjectClassName := LSource.ObjectClassName;
+ FSize := LSource.Size;
+ FStorageName := LSource.StorageName;
+ FStorageKind := LSource.StorageKind;
+ FExternalStorageName := LSource.ExternalStorageName;
+ FValidCharsString := LSource.ValidCharsString;
+ FEnumName := LSource.EnumName;
+ end;
end;
procedure TInstantAttributeMetadata.CheckAttributeClass(AClass:
@@ -1991,6 +2004,30 @@
Changed;
end;
+procedure TInstantAttributeMetadatas.Assign(Source: TPersistent);
+var
+ LSource: TInstantAttributeMetadatas;
+ I: Integer;
+ LAttribMetadata: TInstantAttributeMetadata;
+begin
+ inherited;
+ if Source is TInstantAttributeMetadatas then
+ begin
+ LSource := TInstantAttributeMetadatas(Source);
+ Clear;
+ for I := 0 to LSource.Count - 1 do
+ begin
+ LAttribMetadata := Add;
+ try
+ LAttribMetadata.Assign(LSource[I]);
+ except
+ FreeAndNil(LAttribMetadata);
+ raise;
+ end;
+ end;
+ end;
+end;
+
procedure TInstantAttributeMetadatas.Changed;
begin
if Owner <> nil then
|
|
From: <na...@us...> - 2010-09-19 10:23:24
|
Revision: 928
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=928&view=rev
Author: nandod
Date: 2010-09-19 10:23:17 +0000 (Sun, 19 Sep 2010)
Log Message:
-----------
+ lmPartialBurst mode.
* Fixed a bug that would leak memory if a broker's StatementCacheCapacity was changed from 0 to non-zero after one or more queries had been open.
* Code cleanup and assorted small optimizations.
Modified Paths:
--------------
trunk/Demos/PrimerCross/QueryView.dfm
trunk/Demos/PrimerCross/QueryView.pas
trunk/Demos/PrimerCross/RandomData.pas
trunk/Docs/Burst_Load_Modes.txt
trunk/Source/Core/InstantBrokers.pas
trunk/Source/Core/InstantPersistence.pas
trunk/Source/Core/InstantTypes.pas
Property Changed:
----------------
trunk/Demos/PrimerCross/
Property changes on: trunk/Demos/PrimerCross
___________________________________________________________________
Modified: svn:ignore
- *.dcu
*.~*
*.ddp
*.exe
__history
*.identcache
*.local
*.dsk
*.MB
XMLDB
PrimerExternal_D2009.xml
+ *.dcu
*.~*
*.ddp
*.exe
__history
*.identcache
*.local
*.dsk
*.MB
XMLDB
PrimerExternal_D2009.xml
Profiling
Modified: trunk/Demos/PrimerCross/QueryView.dfm
===================================================================
--- trunk/Demos/PrimerCross/QueryView.dfm 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Demos/PrimerCross/QueryView.dfm 2010-09-19 10:23:17 UTC (rev 928)
@@ -105,17 +105,27 @@
Text = 'Keys First'
Items.Strings = (
'Keys First'
+ 'Partial Burst'
'Full Burst')
end
object FetchAllCheckBox: TCheckBox
Left = 95
- Top = 124
- Width = 58
+ Top = 116
+ Width = 64
Height = 17
Alignment = taLeftJustify
Caption = 'Fetch All'
TabOrder = 2
end
+ object StatementCacheCheckBox: TCheckBox
+ Left = 95
+ Top = 131
+ Width = 64
+ Height = 17
+ Alignment = taLeftJustify
+ Caption = 'S. Cache'
+ TabOrder = 6
+ end
end
object ResultPageControl: TPageControl
Left = 0
@@ -180,7 +190,6 @@
end
end
object TestSelector: TInstantSelector
- AfterScroll = TestSelectorAfterScroll
AfterClose = TestSelectorAfterClose
Left = 32
Top = 192
Modified: trunk/Demos/PrimerCross/QueryView.pas
===================================================================
--- trunk/Demos/PrimerCross/QueryView.pas 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Demos/PrimerCross/QueryView.pas 2010-09-19 10:23:17 UTC (rev 928)
@@ -45,6 +45,7 @@
StatsTabSheet: TTabSheet;
StatsMemo: TMemo;
FetchAllCheckBox: TCheckBox;
+ StatementCacheCheckBox: TCheckBox;
procedure ExecuteActionExecute(Sender: TObject);
procedure ExampleComboBoxClick(Sender: TObject);
procedure TestSelectorAfterScroll(DataSet: TDataSet);
@@ -129,13 +130,25 @@
{$ENDIF}
with TestSelector do
begin
+ if Connector.Broker is TInstantSQLBroker then
+ begin
+ if StatementCacheCheckBox.Checked then
+ TInstantSQLBroker(Connector.Broker).StatementCacheCapacity := -1
+ else
+ TInstantSQLBroker(Connector.Broker).StatementCacheCapacity := 0;
+ end;
Close;
TestSelector.MaxCount := StrToInt(Trim(MaxCountEdit.Text));
Command.Text := CommandEdit.Text;
- Open;
- if FetchAllCheckBox.Checked then
- while not Eof do
- Next;
+ DisableControls;
+ try
+ Open;
+ if FetchAllCheckBox.Checked then
+ while not Eof do
+ Next;
+ finally
+ EnableControls;
+ end;
ResultPageControl.ActivePage := ResultTabSheet;
end;
finally
Modified: trunk/Demos/PrimerCross/RandomData.pas
===================================================================
--- trunk/Demos/PrimerCross/RandomData.pas 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Demos/PrimerCross/RandomData.pas 2010-09-19 10:23:17 UTC (rev 928)
@@ -24,7 +24,7 @@
implementation
uses
- SysUtils;
+ SysUtils, InstantUtils;
const
Letters = ['a'..'z'];
@@ -113,14 +113,14 @@
begin
repeat
Result := RandomLetter;
- until Result in Consonants;
+ until InstantCharInSet(Result, Consonants);
end;
function RandomVowel: Char;
begin
repeat
Result := RandomLetter;
- until Result in Vowels;
+ until InstantCharInSet(Result, Vowels);
end;
function RandomName: string;
@@ -232,7 +232,7 @@
RandomStr(StreetBeginnings) +
RandomStr(StreetEndings) + ' ' +
RandomStr(StreetTypes) + ' ' +
- IntToStr((Random(499) + 1) div (Random(9) + 1) + 1) + ' ' + '\x80 \xE0\xF2\xE8 aa';
+ IntToStr((Random(499) + 1) div (Random(9) + 1) + 1);
end;
function RandomCity: string;
Modified: trunk/Docs/Burst_Load_Modes.txt
===================================================================
--- trunk/Docs/Burst_Load_Modes.txt 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Docs/Burst_Load_Modes.txt 2010-09-19 10:23:17 UTC (rev 928)
@@ -1,11 +1,13 @@
-Burst Load Mode
-Nando Dessena, 14/09/2010
+Burst Load Modes
+Nando Dessena, 19/09/2010
-What is it
-----------
-Burst Load Mode is an alternative way of retrieving objects in InstantObjects' SQL brokers. This new mode can be selected on a case by case basis by setting the new RequestedLoadMode property of an InstantSelector or InstantQuery to the value lmFullBurst.
+What is burst load
+------------------
+Burst Load Modes are alternative ways of retrieving objects in InstantObjects' SQL brokers. These new modes can be selected on a case by case basis by setting the new RequestedLoadMode property of an InstantSelector or InstantQuery to the value lmPartialBurst or lmFullBurst. The value lmKeysFirst means the standard, historical load mode.
+
+
What does it do
---------------
@@ -14,60 +16,59 @@
2) Fetch all records (up to MaxCount).
3) For each record accessed, materialize the object. This implies executing one or more select statements to get all object data (main object query), containers and references (accessory queries). External storage implies more queries. The main query joins all the tables for the given class and ancestors.
-Burst Load Mode causes these changes:
+Full Burst mode causes these changes:
1) The primary query retrieves all object data, and not just the primary keys.
-2) All objects are materialized (up to MaxCount) from the obtained data set; this causes the execution of all accessory and external queries that in the standard case are executed at point 3, minus the main query, which is not needed anymore.
+2) lmFullBurst: All objects are materialized (up to MaxCount) from the obtained data set; this causes the execution of all accessory and external queries that in the standard case are executed at point 3, minus the main query, which is not needed anymore. lmPartialBurst: objects are materialized on demand, like in the standard mode, but using data retrieved by the primary query, like in the full burst mode.
-This means that Burst Load Mode is much quicker when retrieving a dataset, whereas standard mode is best at getting the first records.
+Partial Burst mode works this way:
+1) Like Full Burst mode 1).
+2) Like standard mode 2).
+3) Like standard mode 3), but using data retrieved by the primary query and kept around.
-When it is used
----------------
+This means that Full Burst mode is much quicker when retrieving a whole dataset, whereas standard mode is best at getting the first records. Partial Burst mode gives the best of both worlds, as it is almost as quick as Full Burst when fetching an entire dataset, and slightly quicker than standard mode at getting the first records.
-Burst Load Mode is well suited for all cases in which objects are selected (typically through an IQL command with a WHERE clause) to be processed. If the entire dataset is going to be fetched and all records visited anyway, then it's much quicker to do it in Burst Load Mode.
-The standard way is more of the "lazy load" kind, and as such it is more suited for when a list of objects is displayed for browsing, typically in a DBGrid, and not all objects are needed but just one or a few are selected to work with. In this case displaying the first records in the grid is much quicker in standard mode.
+When to use burst load
+----------------------
+Full Burst mode is well suited for all cases in which objects are selected (typically through an IQL command with a WHERE clause) to be processed. If the entire dataset is going to be fetched and all records visited anyway, then it's much quicker to do it in Full Burst mode.
+
+The standard mode is more of the "lazy load" kind, and as such it is more suited for when a list of objects is displayed for browsing, typically in a DBGrid, and not all objects are needed but just one or a few are selected to work with. In this case displaying the first records in the grid is much quicker in standard mode.
+
+Partial Burst Mode should cover both cases above, and as such is the preferred mode. The only glitch about Partial Burst mode is that it keeps the database connection open for longer than Full Burst mode. If that is a concern, then Full Burst mode should be used instead.
+
+
Performance notes
-----------------
-Here are some quick benchmarks done with the example queries of PrimerExternal. Operations timed include Open and Last (to ensure full fetching) on a selector. Datasets are small (a couple dozen records). The database is a local Firebird server and the compiler is Delphi 2010. All caches were flushed at each iteration. Three iterations for each test. Times in seconds.
+Here are some quick benchmarks done with one of the example queries of PrimerExternal and a dataset with a couple thousand records.
+The database is a local Firebird server and the compiler is Delphi XE. All caches were flushed at each iteration. Three iterations for each test (average value reported). Times in seconds.
-SELECT * FROM TCompany
+select * from TCompany
-Burst Standard
-2.1 3.5
-2.0 3.7
-2.4 3.7
-
-SELECT * FROM TPerson
+No fetch, just open an InstantSelector and fetch some 20 objects for the DBGrid.
-Burst Standard
-4.8 6.7
-4.6 7.0
-4.7 6.8
+KF PB FB
+0,9 0,8 36,1
-A further test that fetches and materializes many more objects (in the thousands) shows where the gains are in Burst Load Mode. In this test all records are visited and materialized upon opening the selector (Open; while not Eof do Next;):
+Fetch all records and materialize all objects (while not Eof do Next).
-SELECT * FROM TCompany
+KF PB FB
+65,5 45,4 45,4
-Burst Standard
-54.7 104.0
+Same as above, but with statement cache enabled.
-Without the fetches, that is just opening the selector and letting some 20 materialized objects populate the DBGrid, the results are:
+KF PB FB
+38,6 28,9 29,5
-SELECT * FROM TCompany
+This confirms that using Full Burst mode when not appropriate can hurt performance, which suggests to keep it disabled by default and only enable it on request. On the other hand, Partial Burst mode appears suitable for most cases.
-Burst Standard
-35.0 1.2
-
-This tells us that using burst mode when not appropriate can hurt performance, which suggests to keep it disabled by default and only enable it on request (property BurstLoad: Boolean default False).
-
Caveats and future improvements
-------------------------------
-- Currently Burst Load Mode is not supported for IQL commands using the ANY keywords. Doing so will require some significant refactorings and was postponed.
+- Currently Burst Load modes are not supported for IQL commands using the ANY keyword. Doing so will require some significant refactorings and was postponed. The system will silently fall back to a supported mode, if the requested mode is not supported by the actual query. You can tell by inspecting the value of the ActualLoadMode property.
- External atPart and all atReference attributes still need separate queries. It is difficult but not impossible to get them in the first query as well, thus reducing fetch time even more.
-- A mixture of standard and Burst Load Mode looks interesting, and the work done on Burst Load Mode makes it easier to implement it. This mixture would be a standard mode in which one or more specified attributes are fetched as well as the primary keys in the main query. This would allow to display a list of objects in a DBGrid, or other multi-record control, without materializing them, as quickly as whendoing direct SQL queries. Thought should be given to design details such as when where and how to specify the attributes that should be loaded together with the primary key. The value lmPartialBurst is reserved for this.
+- A mixture of standard and Burst modes looks interesting, and the work done on Burst modes makes it easier to implement it. This mixture would be a standard mode in which one or more specified attributes are fetched as well as the primary keys in the main query. This would allow to display a list of objects in a DBGrid, or other multi-record control, without materializing them, as quickly as when doing direct SQL queries. Thought should be given to design details such as when where and how to specify the attributes that should be loaded together with the primary key, and an attribute-level mechanism to signal incomplete vs complete data would probably be needed.
\ No newline at end of file
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Source/Core/InstantBrokers.pas 2010-09-19 10:23:17 UTC (rev 928)
@@ -109,7 +109,7 @@
Map: TInstantAttributeMap; ConflictAction: TInstantConflictAction;
Info: PInstantOperationInfo);
function GetStatementCache: TInstantStatementCache;
- procedure SetStatementCacheCapacity(const Value: Integer);
+ procedure SetStatementCacheCapacity(const AValue: Integer);
protected
property StatementCache: TInstantStatementCache read GetStatementCache;
function EnsureResolver(Map: TInstantAttributeMap): TInstantCustomResolver;
@@ -535,14 +535,14 @@
procedure InternalClearAttributeLinkRecords; virtual;
procedure InternalDisposeDeletedAttributeObjects(
Attribute: TInstantContainer); virtual;
- procedure InternalReadAttributeObjects(Attribute: TInstantContainer;
+ procedure InternalReadAttributeObjects(Attribute: TInstantContainer;
const AObjectId: string); virtual;
public
constructor Create(AResolver: TInstantCustomResolver);
procedure StoreAttributeObjects(Attribute: TInstantContainer);
procedure ClearAttributeLinkRecords;
procedure DisposeDeletedAttributeObjects(Attribute: TInstantContainer);
- procedure ReadAttributeObjects(Attribute: TInstantContainer;
+ procedure ReadAttributeObjects(Attribute: TInstantContainer;
const AObjectId: string);
property Broker: TInstantCustomRelationalBroker read GetBroker;
property Resolver: TInstantCustomResolver read GetResolver;
@@ -621,6 +621,7 @@
property Resolver: TInstantSQLResolver read GetResolver;
end;
+ // An item in the statement cache.
TInstantStatement = class
private
FStatementImplementation: TComponent;
@@ -630,6 +631,9 @@
property StatementImplementation: TComponent read FStatementImplementation;
end;
+ // Caches objects that implement command statements in releational brokers.
+ // Most commonly, they are TDataSet descendants that implement SQL queries.
+ // brokers cache them to save on prepare/compilation time.
TInstantStatementCache = class(TComponent)
private
FStatements: TStringList;
@@ -649,6 +653,7 @@
function AddStatement(const StatementText: string;
const StatementImplementation: TComponent): Integer;
function RemoveStatement(const StatementText: string): Boolean;
+ function HasStatementImplementation(const StatementImplementation: TComponent): Boolean;
end;
// A TInstantCatalog that gathers its info from an existing database (through
@@ -993,21 +998,36 @@
// Backward compatibility
TInstantRelationalQuery = TInstantNavigationalQuery;
+ // Holds object data in the current record of a dataset specified upon
+ // creation. May hold data for several objects, locating the correct
+ // record each time it copies data to an object.
+ TInstantDataSetObjectData = class(TInstantAbstractObjectData)
+ private
+ FDataSet: TDataSet;
+ FRecNo: Integer;
+ FIdField: TField;
+ public
+ constructor CreateAndInit(const ADataSet: TDataSet);
+ property DataSet: TDataSet read FDataSet;
+ function Locate(const AObjectId: string): Boolean;
+ end;
+
TInstantSQLQuery = class(TInstantCustomRelationalQuery)
private
FObjectReferenceList: TInstantObjectReferenceList;
FParamsObject: TParams;
FStatement: string;
+ FDataSet: TDataSet;
procedure DestroyObjectReferenceList;
function GetObjectReferenceCount: Integer;
function GetObjectReferenceList: TInstantObjectReferenceList;
function GetParamsObject: TParams;
- procedure InitObjectReferences(const ADataSet: TDataSet);
+ procedure InitObjectReferences;
protected
function GetActive: Boolean; override;
function AcquireDataSet(const AStatement: string; AParams: TParams):
TDataSet; virtual;
- procedure ReleaseDataSet(const DataSet: TDataSet);
+ procedure ReleaseDataSet;
function GetParams: TParams; override;
function GetStatement: string; override;
function InternalAddObject(AObject: TObject): Integer; override;
@@ -1049,16 +1069,6 @@
default True;
end;
- // Holds object data in the current record of a dataset specified upon
- // creation. Used in burst load mode.
- TInstantDataSetObjectData = class(TInstantAbstractObjectData)
- private
- FDataSet: TDataSet;
- public
- constructor CreateAndInit(const ADataSet: TDataSet);
- property DataSet: TDataSet read FDataSet;
- end;
-
var
InstantLogProc: procedure (const AString: string) of object;
@@ -1317,13 +1327,16 @@
EnsureResolver(Map).RetrieveMap(AObject, AObjectId, Map, ConflictAction, Info, FObjectData);
end;
-procedure TInstantCustomRelationalBroker.SetStatementCacheCapacity(const Value: Integer);
+procedure TInstantCustomRelationalBroker.SetStatementCacheCapacity(const AValue: Integer);
begin
- FStatementCacheCapacity := Value;
- if FStatementCacheCapacity = 0 then
- FreeAndNil(FStatementCache)
- else if Assigned(FStatementCache) then
- FStatementCache.Capacity := FStatementCacheCapacity;
+ if FStatementCacheCapacity <> AValue then
+ begin
+ FStatementCacheCapacity := AValue;
+ if FStatementCacheCapacity = 0 then
+ FreeAndNil(FStatementCache)
+ else if Assigned(FStatementCache) then
+ FStatementCache.Capacity := FStatementCacheCapacity;
+ end;
end;
procedure TInstantCustomRelationalBroker.StoreMap(AObject: TInstantObject;
@@ -1553,7 +1566,7 @@
procedure TInstantSQLBroker.ReleaseDataSet(const ADataSet: TDataSet);
begin
- if FStatementCacheCapacity <> 0 then
+ if Assigned(FStatementCache) and FStatementCache.HasStatementImplementation(ADataSet) then
ADataSet.Close
else
ADataSet.Free;
@@ -1980,7 +1993,6 @@
procedure TInstantNavigationalResolver.ClearPart(Attribute: TInstantPart);
begin
if Attribute.Metadata.StorageKind = skExternal then
-// Attribute.Value.ObjectStore.DisposeObject(Attribute.Value, caIgnore);
DisposeObject(Attribute.Value, caIgnore);
end;
@@ -1992,7 +2004,6 @@
if Attribute.Metadata.StorageKind = skExternal then
begin
for I := 0 to Pred(Attribute.Count) do
-// Attribute.Items[I].ObjectStore.DisposeObject(Attribute.Items[I], caIgnore);
DisposeObject(Attribute.Items[I], caIgnore);
LinkDatasetResolver :=
GetLinkDatasetResolver(Attribute.Metadata.ExternalStorageName);
@@ -3063,7 +3074,7 @@
Assert(Assigned(AStream));
// Look in TInstantCustomResolver.CreateEmbeddedObjectOutputStream
- // to see the stream type. Change there need to be propagated here.
+ // to see the stream type. Changes there need to be propagated here.
if AConnector.BlobStreamFormat = sfBinary then
begin
LParam := AddParam(AParams, AParamName, ftBlob);
@@ -3274,7 +3285,6 @@
as TInstantObject;
try
if Assigned(PartObject) then
-// PartObject.ObjectStore.DisposeObject(PartObject, caIgnore);
DisposeObject(PartObject, caIgnore);
finally
PartObject.Free;
@@ -3325,8 +3335,6 @@
Attribute := TInstantContainer(AObject.AttributeByName(
AttributeMetadata.Name));
for j := 0 to Pred(Attribute.Count) do
-// Attribute.Items[j].ObjectStore.DisposeObject(
-// Attribute.Items[j], caIgnore);
DisposeObject(Attribute.Items[j], caIgnore);
end;
DeleteAllExternalLinks(i);
@@ -3376,9 +3384,12 @@
LParams: TParams;
begin
// This resolver supports retrieving data from TInstantDataSetObjectData.
- if Assigned(AObjectData) and (AObjectData is TInstantDataSetObjectData) then
+ if Assigned(AObjectData) and (AObjectData is TInstantDataSetObjectData)
+ and TInstantDataSetObjectData(AObjectData).Locate(AObjectId) then
+ begin
RetrieveMapFromDataSet(AObject, AObjectId, Map, ConflictAction, AInfo,
- TInstantDataSetObjectData(AObjectData).DataSet)
+ TInstantDataSetObjectData(AObjectData).DataSet);
+ end
else
begin
LParams := TParams.Create;
@@ -3476,7 +3487,6 @@
AObject.Connector) as TInstantObject;
try
if Assigned(PartObject) then
-// PartObject.ObjectStore.DisposeObject(PartObject, caIgnore);
DisposeObject(PartObject, caIgnore);
finally
PartObject.Free;
@@ -3495,7 +3505,6 @@
// Store object
PartObject := PartAttribute.Value;
PartObject.CheckId;
-// PartObject.ObjectStore.StoreObject(PartObject, caIgnore);
StoreObject(PartObject, caIgnore);
end;
end;
@@ -3513,7 +3522,6 @@
for I := 0 to Pred(Map.Count) do
begin
AttributeMetadata := Map[I];
-// if AttributeMetadata.AttributeType = atParts then
if AttributeMetadata.AttributeType in [atParts, atReferences] then
begin
Attribute := TInstantContainer(AObject.AttributeByName(
@@ -4080,7 +4088,6 @@
procedure TInstantNavigationalLinkResolver.InternalDisposeDeletedAttributeObjects(
Attribute: TInstantContainer);
var
-// I: Integer;
Obj: TInstantObject;
AttributeMetadata: TInstantAttributeMetadata;
ObjDisposed: Boolean;
@@ -4096,43 +4103,14 @@
AttributeMetadata := Attribute.Metadata;
while not Eof do
begin
-// PartDeleted := True;
-// for I := 0 to Pred(Attribute.Count) do
-// begin
-// if InstantSameText(Attribute.Fields[I].Id, ADataSet.Fields[4].AsString,
-// True) then
-// begin
-// PartDeleted := False;
-// Break;
-// end;
-// end;
-// if PartDeleted then
-// begin
-// PartObject := AttributeMetadata.ObjectClass.Retrieve(
-// ADataSet.Fields[4].AsString, False, False, Attribute.Connector);
-// try
-// if Assigned(PartObject) then
-// begin
-// PartObject.ObjectStore.DisposeObject(PartObject, caIgnore);
-// ADataSet.Delete;
-// end;
-// finally
-// PartObject.Free;
-// end;
-// if not PartDeleted then
-// ADataSet.Next;
-// end;
-
ObjDisposed := False;
Obj := AttributeMetadata.ObjectClass.Retrieve(
- FieldByName(InstantChildIdFieldName).AsString,
-// DataSet.Fields[4].AsString,
- False, False, Attribute.Connector) as TInstantObject;
+ FieldByName(InstantChildIdFieldName).AsString,
+ False, False, Attribute.Connector) as TInstantObject;
try
if Assigned(Obj) and
- (Attribute.IndexOf(Obj) = -1) then
+ (Attribute.IndexOf(Obj) = -1) then
begin
-// Obj.ObjectStore.DisposeObject(Obj, caIgnore);
Resolver.DisposeObject(Obj, caIgnore);
Delete;
ObjDisposed := True;
@@ -4153,6 +4131,7 @@
Attribute: TInstantContainer; const AObjectId: string);
var
WasOpen: Boolean;
+ LChildClassField, LChildIdField: TField;
begin
WasOpen := Dataset.Active;
@@ -4162,13 +4141,11 @@
// Attribute.Owner.Id can be '', so do not use here.
SetDatasetParentRange(Attribute.Owner.Classname, AObjectId);
First;
+ LChildClassField := FieldByName(InstantChildClassFieldName);
+ LChildIdField := FieldByName(InstantChildIdFieldName);
while not Eof do
begin
- Attribute.AddReference(
- FieldByName(InstantChildClassFieldName).AsString,
- FieldByName(InstantChildIdFieldName).AsString);
-// DataSet.Fields[3].AsString,
-// DataSet.Fields[4].AsString);
+ Attribute.AddReference(LChildClassField.AsString, LChildIdField.AsString);
Next;
end;
finally
@@ -4197,7 +4174,6 @@
Obj.CheckId;
Append;
try
-// FieldByName(InstantIdFieldName).AsString := Obj.GenerateId;
FieldByName(InstantIdFieldName).AsString :=
Attribute.Connector.GenerateId;
FieldByName(InstantParentClassFieldName).AsString :=
@@ -4206,19 +4182,10 @@
FieldByName(InstantChildClassFieldName).AsString := Obj.ClassName;
FieldByName(InstantChildIdFieldName).AsString := Obj.Id;
FieldByName(InstantSequenceNoFieldName).AsInteger := Succ(I);
-//// DataSet.Fields[0].AsString := Obj.GenerateId;
-// DataSet.Fields[0].AsString := Obj.Id;
-// DataSet.Fields[1].AsString :=
-// Attribute.Owner.ClassName;
-// DataSet.Fields[2].AsString := Attribute.Owner.Id;
-// DataSet.Fields[3].AsString := Obj.ClassName;
-// DataSet.Fields[4].AsString := Obj.Id;
-// DataSet.Fields[5].AsInteger := Succ(I);
Post;
except
Cancel;
end;
-// Obj.ObjectStore.StoreObject(Obj, caIgnore);
Resolver.StoreObject(Obj, caIgnore);
end;
finally
@@ -4312,13 +4279,11 @@
while not DataSet.Eof do
begin
Obj := InstantFindClass(DataSet.FieldByName(InstantChildClassFieldName).AsString).Retrieve(
-// DataSet.Fields[1].AsString, False, False, AObject.Connector);
DataSet.FieldByName(InstantChildIdFieldName).AsString,
False, False, Attribute.Connector) as TInstantObject;
try
if Assigned(Obj) and
(Attribute.IndexOf(Obj) = -1) then
-// Obj.ObjectStore.DisposeObject(Obj, caIgnore);
Resolver.DisposeObject(Obj, caIgnore);
finally
Obj.Free;
@@ -4336,28 +4301,29 @@
end;
end;
-procedure TInstantSQLLinkResolver.InternalReadAttributeObjects(Attribute:
- TInstantContainer; const AObjectId: string);
+procedure TInstantSQLLinkResolver.InternalReadAttributeObjects(
+ Attribute: TInstantContainer; const AObjectId: string);
var
Statement: string;
Params: TParams;
- Dataset: TDataset;
+ Dataset: TDataSet;
+ LChildClassField, LChildIdField: TField;
begin
Params := TParams.Create;
try
Statement := Format(Resolver.SelectExternalSQL, [TableName]);
Resolver.AddIdParam(Params, InstantParentIdFieldName, AObjectId);
Resolver.AddStringParam(Params, InstantParentClassFieldName,
- AttributeOwner.ClassName);
+ AttributeOwner.ClassName);
DataSet := Broker.AcquireDataSet(Statement, Params);
try
DataSet.Open;
try
+ LChildClassField := DataSet.FieldByName(InstantChildClassFieldName);
+ LChildIdField := DataSet.FieldByName(InstantChildIdFieldName);
while not DataSet.Eof do
begin
- Attribute.AddReference(
- DataSet.FieldByName(InstantChildClassFieldName).AsString,
- DataSet.FieldByName(InstantChildIdFieldName).AsString);
+ Attribute.AddReference(LChildClassField.AsString, LChildIdField.AsString);
DataSet.Next;
end;
finally
@@ -4385,7 +4351,6 @@
// Store object
Obj := Attribute.Items[I];
Obj.CheckId;
-// Obj.ObjectStore.StoreObject(Obj, caIgnore);
Resolver.StoreObject(Obj, caIgnore);
// Insert link
@@ -4393,7 +4358,6 @@
try
Statement := Format(Resolver.InsertExternalSQL,
[TableName]);
-// Resolver.AddIdParam(Params, InstantIdFieldName, AttributeOwner.GenerateId);
Resolver.AddIdParam(Params, InstantIdFieldName,
Attribute.Connector.GenerateId);
Resolver.AddStringParam(Params, InstantParentClassFieldName,
@@ -4489,6 +4453,22 @@
Result := nil;
end;
+function TInstantStatementCache.HasStatementImplementation(
+ const StatementImplementation: TComponent): Boolean;
+var
+ I: Integer;
+begin
+ Result := False;
+ for I := 0 to FStatements.Count - 1 do
+ begin
+ if TinstantStatement(FStatements.Objects[I]).StatementImplementation = StatementImplementation then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
procedure TInstantStatementCache.Notification(AComponent: TComponent; Operation: TOperation);
var
I: Integer;
@@ -5564,7 +5544,7 @@
// Mind that LContext.ActualBurstLoadMode might be different than
// Self.RequestedBurstLoadMode.
- if LContext.ActualLoadMode = lmFullBurst then
+ if IsBurstLoadMode(LContext.ActualLoadMode) then
begin
// Use the Id just to get the table path needed to add the updatecount
// field. We could use anything we know is in the main table.
@@ -5922,13 +5902,6 @@
end;
end;
-destructor TInstantSQLQuery.Destroy;
-begin
- DestroyObjectReferenceList;
- FParamsObject.Free;
- inherited;
-end;
-
{ TInstantSQLQuery }
function TInstantSQLQuery.AcquireDataSet(const AStatement: string;
@@ -5938,6 +5911,14 @@
AParams);
end;
+destructor TInstantSQLQuery.Destroy;
+begin
+ DestroyObjectReferenceList;
+ ReleaseDataSet;
+ FParamsObject.Free;
+ inherited;
+end;
+
procedure TInstantSQLQuery.DestroyObjectReferenceList;
begin
FreeAndNil(FObjectReferenceList);
@@ -5978,50 +5959,45 @@
Result := FStatement;
end;
-procedure TInstantSQLQuery.InitObjectReferences(const ADataSet: TDataSet);
-
- function IsBurstLoadModeDataSet(const ADataSet: TDataSet): Boolean;
- begin
- // A trick to check if the dataset that came from the broker is actually
- // a burst load mode dataset. Requesting burst load mode does not guarantee
- // to get it, as not all IQL query types support it yet.
- Result := Assigned(ADataSet.FindField(InstantUpdateCountFieldName));
- end;
-
+procedure TInstantSQLQuery.InitObjectReferences;
var
LObjRef: TInstantObjectReference;
- LObjData: TInstantDataSetObjectData;
+ LClassField, LIdField: TField;
begin
- LObjData := nil;
- if Assigned(ADataSet) then
+ Assert(Assigned(Connector));
+
+ if Assigned(FDataSet) then
begin
- ADataSet.DisableControls;
try
- if IsBurstLoadModeDataSet(ADataSet) then
- LObjData := TInstantDataSetObjectData.CreateAndInit(ADataSet);
+ FDataSet.DisableControls;
try
- while not ADataSet.Eof do
+ LClassField := FDataSet.FieldByName(InstantClassFieldName);
+ LIdField := FDataSet.FieldByName(InstantIdFieldName);
+ while not FDataSet.Eof do
begin
LObjRef := ObjectReferenceList.Add;
try
- LObjRef.ReferenceObject(
- ADataSet.FieldByName(InstantClassFieldName).AsString,
- ADataSet.FieldByName(InstantIdFieldName).AsString);
- if Assigned(LObjData) then
- LObjRef.RetrieveObjectFromObjectData(LObjData);
+ if IsBurstLoadMode(ActualLoadMode) then
+ LObjRef.ReferenceObject(LClassField.AsString, LIdField.AsString,
+ TInstantDataSetObjectData.CreateAndInit(FDataSet))
+ else
+ LObjRef.ReferenceObject(LClassField.AsString, LIdField.AsString);
+ if ActualLoadMode = lmFullBurst then
+ LObjRef.RetrieveObjectFromObjectData;
except
LObjRef.Free;
raise;
end;
if (MaxCount > 0) and (ObjectReferenceList.Count = MaxCount) then
Break;
- ADataSet.Next;
+ FDataSet.Next;
end;
finally
- FreeAndNil(LObjData);
+ FDataSet.EnableControls;
end;
finally
- ADataSet.EnableControls;
+ if ActualLoadMode = lmFullBurst then
+ ReleaseDataSet;
end;
end;
end;
@@ -6034,6 +6010,7 @@
procedure TInstantSQLQuery.InternalClose;
begin
DestroyObjectReferenceList;
+ ReleaseDataSet;
inherited;
end;
@@ -6072,18 +6049,18 @@
end;
procedure TInstantSQLQuery.InternalOpen;
-var
- DataSet: TDataSet;
begin
inherited;
- DataSet := AcquireDataSet(Statement, ParamsObject);
- if Assigned(DataSet) then
+ ReleaseDataSet;
+ FDataSet := AcquireDataSet(Statement, ParamsObject);
+ if Assigned(FDataSet) then
try
- if not DataSet.Active then
- DataSet.Open;
- InitObjectReferences(DataSet);
- finally
- ReleaseDataSet(DataSet);
+ if not FDataSet.Active then
+ FDataSet.Open;
+ InitObjectReferences;
+ except
+ ReleaseDataSet;
+ raise;
end;
end;
@@ -6106,9 +6083,13 @@
Result := ObjectReferenceList.RefItems[Index].HasInstance;
end;
-procedure TInstantSQLQuery.ReleaseDataSet(const DataSet: TDataSet);
+procedure TInstantSQLQuery.ReleaseDataSet;
begin
- (Connector.Broker as TInstantSQLBroker).ReleaseDataSet(DataSet);
+ if Assigned(FDataSet) and Assigned(Connector) and Assigned(Connector.Broker) then
+ begin
+ (Connector.Broker as TInstantSQLBroker).ReleaseDataSet(FDataSet);
+ FDataSet := nil;
+ end;
end;
procedure TInstantSQLQuery.SetParams(Value: TParams);
@@ -6446,7 +6427,7 @@
LTablePath := ObjectClassMetadata.TableName;
end;
AddTablePath(LTablePath);
- if ActualLoadMode = lmFullBurst then
+ if IsBurstLoadMode(ActualLoadMode) then
begin
// Standard mode only adds the main table when needed, and not always.
// A possible optimization would be to add it only if it does actually
@@ -6482,7 +6463,7 @@
AddCriteria(Format('%s <> 0',
[QualifyPath(ConcatPath(Specifier.Text, InstantIdFieldName))]));
end;
- if ActualLoadMode = lmFullBurst then
+ if IsBurstLoadMode(ActualLoadMode) then
begin
LClassMeta := ObjectClassMetadata.Parent;
while Assigned(LClassMeta) do
@@ -6793,6 +6774,14 @@
Assert(Assigned(ADataSet));
Create;
FDataSet := ADataSet;
+ FRecNo := ADataSet.RecNo;
+ FIdField := ADataSet.FieldByName(InstantIdFieldName);
end;
+function TInstantDataSetObjectData.Locate(const AObjectId: string): Boolean;
+begin
+ FDataSet.RecNo := FRecNo;
+ Result := FIdField.AsString = AObjectId;
+end;
+
end.
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Source/Core/InstantPersistence.pas 2010-09-19 10:23:17 UTC (rev 928)
@@ -105,6 +105,7 @@
FObjectId: string;
FOwner: TInstantComplex;
FOwnsInstance: Boolean;
+ FObjectData: TInstantAbstractObjectData;
procedure ClearReference;
procedure DoAssignInstance(AInstance: TInstantObject; AOwnsInstance: Boolean);
function GetInstance: TInstantObject;
@@ -136,13 +137,12 @@
function IsBroken: Boolean;
procedure ReadAsObject(Reader: TInstantReader); virtual;
procedure Reset;
- procedure ReferenceObject(const AObjectClassName,
- AObjectId: string); overload;
- procedure ReferenceObject(AObjectClass: TInstantObjectClass;
- const AObjectId: string); overload;
- // Retrieves the referenced object from the specified data object.
- // Used in burst load mode to get the data already fetched in a dataset.
- procedure RetrieveObjectFromObjectData(const AObjectData: TInstantAbstractObjectData);
+ procedure ReferenceObject(const AObjectClassName, AObjectId: string;
+ const AObjectData: TInstantAbstractObjectData = nil); overload;
+ procedure ReferenceObject(const AObjectClass: TInstantObjectClass;
+ const AObjectId: string; const AObjectData: TInstantAbstractObjectData = nil); overload;
+ // Retrieves the referenced object from internal data object, if available.
+ procedure RetrieveObjectFromObjectData;
procedure WriteAsObject(Writer: TInstantWriter); virtual;
property Instance: TInstantObject read GetInstance write SetInstance;
property ObjectClass: TInstantObjectClass read GetObjectClass;
@@ -2036,15 +2036,18 @@
{ TInstantObjectReference }
procedure TInstantObjectReference.Assign(Source: TPersistent);
+var
+ LSource: TInstantObjectReference;
begin
inherited;
if Source is TInstantObjectReference then
- with TInstantObjectReference(Source) do
- begin
- Self.FObjectClassName := FObjectClassName;
- Self.FObjectId := FObjectId;
- Self.Instance := Instance;
- end;
+ begin
+ LSource := TInstantObjectReference(Source);
+ FObjectClassName := LSource.FObjectClassName;
+ FObjectId := LSource.FObjectId;
+ Instance := LSource.Instance;
+ FObjectData := LSource.FObjectData;
+ end;
end;
procedure TInstantObjectReference.AssignInstance(AInstance: TInstantObject);
@@ -2056,6 +2059,7 @@
begin
FObjectClassName := '';
FObjectId := '';
+ FreeAndNil(FObjectData);
end;
constructor TInstantObjectReference.Clone(Source: TInstantObjectReference;
@@ -2091,7 +2095,7 @@
InstantCheckConnector(Connector);
if HasReference then
begin
- Obj := ObjectClass.Retrieve(ObjectId, False, False, Connector);
+ Obj := ObjectClass.Retrieve(ObjectId, False, False, Connector, FObjectData);
DoAssignInstance(Obj, AOwnsInstance);
end;
if Assigned(FInstance) then
@@ -2104,6 +2108,7 @@
destructor TInstantObjectReference.Destroy;
begin
+ FreeAndNil(FObjectData);
DestroyInstance;
inherited;
end;
@@ -2224,27 +2229,36 @@
Reader.ReadStr;
FObjectClassName := Reader.ReadStr;
FObjectId := Reader.ReadStr;
+ FObjectData := nil;
end;
procedure TInstantObjectReference.ReferenceObject(const AObjectClassName,
- AObjectId: string);
+ AObjectId: string; const AObjectData: TInstantAbstractObjectData = nil);
begin
if not Equals(AObjectClassName, AObjectId) then
begin
+ FreeAndNil(FObjectData);
DestroyInstance;
FObjectClassName := AObjectClassName;
FObjectId := AObjectId;
+ FObjectData := AObjectData;
end;
end;
-procedure TInstantObjectReference.RetrieveObjectFromObjectData(
- const AObjectData: TInstantAbstractObjectData);
+procedure TInstantObjectReference.ReferenceObject(
+ const AObjectClass: TInstantObjectClass; const AObjectId: string;
+ const AObjectData: TInstantAbstractObjectData = nil);
+begin
+ ReferenceObject(AObjectClass.ClassName, AObjectId, AObjectData);
+end;
+
+procedure TInstantObjectReference.RetrieveObjectFromObjectData;
var
LObject: TInstantObject;
begin
- Assert(Assigned(AObjectData));
+ Assert(Assigned(FObjectData));
- LObject := ObjectClass.Retrieve(ObjectId, False, False, nil, AObjectData);
+ LObject := ObjectClass.Retrieve(ObjectId, False, False, nil, FObjectData);
DoAssignInstance(LObject, True);
if Assigned(FInstance) then
FInstance.Release
@@ -2252,12 +2266,6 @@
Integer(FInstance) := -1;
end;
-procedure TInstantObjectReference.ReferenceObject(
- AObjectClass: TInstantObjectClass; const AObjectId: string);
-begin
- ReferenceObject(AObjectClass.ClassName, AObjectId);
-end;
-
procedure TInstantObjectReference.Reset;
begin
DestroyInstance;
@@ -7567,6 +7575,7 @@
Result := Assigned(AObject) and AObject.Metadata.IsStored;
if not Result then
Exit;
+
CheckBroker(Broker);
try
AObject.DisableChanges;
Modified: trunk/Source/Core/InstantTypes.pas
===================================================================
--- trunk/Source/Core/InstantTypes.pas 2010-09-18 08:36:12 UTC (rev 927)
+++ trunk/Source/Core/InstantTypes.pas 2010-09-19 10:23:17 UTC (rev 928)
@@ -104,17 +104,25 @@
// working with a SQL broker. See documentation for implication of using the
// different modes.
TInstantLoadMode = (
- // Loads primary keys first, everything else on demand.
+ // Loads primary keys first, materializes objects on demand by loading
+ // all object data from the database.
lmKeysFirst,
- // Loads selected attributes first - not yet implemented.
- // Falls back to lmKeysFirst.
- //lmPartialBurst,
+ // Loads all simple attributes first, materializes objects on demand using
+ // loaded data from simple attributes and accessing the database for the
+ // rest.
+ lmPartialBurst,
// Loads all simple attributes and internal containers in the first pass.
- // In the future this might trigger loading of external atPart attributes
- // as well.
+ // Materializes all objects when the cursor is open.
lmFullBurst
);
+function IsBurstLoadMode(const ALoadMode: TInstantLoadMode): Boolean; {$IFDEF D10+}inline;{$ENDIF}
+
implementation
+function IsBurstLoadMode(const ALoadMode: TInstantLoadMode): Boolean; {$IFDEF D10+}inline;{$ENDIF}
+begin
+ Result := ALoadMode in [lmPartialBurst, lmFullBurst];
+end;
+
end.
|
|
From: <na...@us...> - 2010-09-18 08:36:18
|
Revision: 927
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=927&view=rev
Author: nandod
Date: 2010-09-18 08:36:12 +0000 (Sat, 18 Sep 2010)
Log Message:
-----------
+ Parser support for class-level custom RTTI attributes.
Modified Paths:
--------------
trunk/Source/Core/InstantCode.pas
Property Changed:
----------------
trunk/Source/Core/DXE/
Property changes on: trunk/Source/Core/DXE
___________________________________________________________________
Modified: svn:ignore
- *.dcu
*.local
*.identcache
+ *.dcu
*.local
*.identcache
__history
Modified: trunk/Source/Core/InstantCode.pas
===================================================================
--- trunk/Source/Core/InstantCode.pas 2010-09-18 08:07:06 UTC (rev 926)
+++ trunk/Source/Core/InstantCode.pas 2010-09-18 08:36:12 UTC (rev 927)
@@ -3301,7 +3301,8 @@
begin
Result := Reader.ReadChar = '[';
if Result then
- Name := Reader.ReadToken else
+ Name := Reader.ReadToken
+ else
Name := '';
end;
@@ -3315,8 +3316,10 @@
BracketCount := 0;
repeat
C := Reader.ReadChar;
- if C = '[' then Inc(BracketCount) else
- if C = ']' then Dec(BracketCount);
+ if C = '[' then
+ Inc(BracketCount)
+ else if C = ']' then
+ Dec(BracketCount);
until BracketCount = 0;
end;
@@ -5792,7 +5795,8 @@
ReadObjects(Reader, [TInstantCodeRecord, TInstantCodeClassRef,
TInstantCodeClassForward, TInstantCodeClass, TInstantCodeInterface,
TInstantCodeDispInterface, TInstantCodeEnum, TInstantCodeSet,
- TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeUnknownType]);
+ TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeRttiAttribute,
+ TInstantCodeUnknownType]);
end;
{ TInstantCodeVars }
|
|
From: <na...@us...> - 2010-09-18 08:07:13
|
Revision: 926
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=926&view=rev
Author: nandod
Date: 2010-09-18 08:07:06 +0000 (Sat, 18 Sep 2010)
Log Message:
-----------
* UIB broker update for D2010 from Marcos E. Yanes.
Modified Paths:
--------------
trunk/Source/Brokers/UIB/InstantUIB.pas
trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm
trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas
Added Paths:
-----------
trunk/Source/Brokers/UIB/D2010/
trunk/Source/Brokers/UIB/D2010/DclIOUIB.dpk
trunk/Source/Brokers/UIB/D2010/DclIOUIB.dproj
trunk/Source/Brokers/UIB/D2010/IOUIB.dpk
trunk/Source/Brokers/UIB/D2010/IOUIB.dproj
trunk/Source/Brokers/UIB/D2010/IOUIB.res
Property Changed:
----------------
trunk/Source/Brokers/UIB/
Property changes on: trunk/Source/Brokers/UIB
___________________________________________________________________
Modified: svn:ignore
- *.dcu
+ *.dcu
__history
Property changes on: trunk/Source/Brokers/UIB/D2010
___________________________________________________________________
Added: svn:ignore
+ *.local
*.identcache
Added: trunk/Source/Brokers/UIB/D2010/DclIOUIB.dpk
===================================================================
--- trunk/Source/Brokers/UIB/D2010/DclIOUIB.dpk (rev 0)
+++ trunk/Source/Brokers/UIB/D2010/DclIOUIB.dpk 2010-09-18 08:07:06 UTC (rev 926)
@@ -0,0 +1,40 @@
+package DclIOUIB;
+
+{$R *.res}
+{$R '..\InstantUIB.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 UIB Design-Time Support (Delphi 2010)'}
+{$LIBSUFFIX '_D14'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+ vcl,
+ vcldb,
+ IOCore,
+ IOUIB;
+
+contains
+ InstantUIBReg in '..\InstantUIBReg.pas';
+
+end.
Property changes on: trunk/Source/Brokers/UIB/D2010/DclIOUIB.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/UIB/D2010/DclIOUIB.dproj
===================================================================
--- trunk/Source/Brokers/UIB/D2010/DclIOUIB.dproj (rev 0)
+++ trunk/Source/Brokers/UIB/D2010/DclIOUIB.dproj 2010-09-18 08:07:06 UTC (rev 926)
@@ -0,0 +1,115 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{D1DE4743-7AD6-4FC8-AF51-4420127DA195}</ProjectGuid>
+ <MainSource>DclIOUIB.dpk</MainSource>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <ProjectVersion>12.0</ProjectVersion>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_DependencyCheckOutputName>..\..\..\..\..\..\7.0\Bpl\DclIOUIB_D14.bpl</DCC_DependencyCheckOutputName>
+ <DllSuffix>_D14</DllSuffix>
+ <DesignOnlyPackage>true</DesignOnlyPackage>
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DCC_Description>InstantObjects UIB Design-Time Support (Delphi 2010)</DCC_Description>
+ <DCC_Platform>x86</DCC_Platform>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <GenPackage>true</GenPackage>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="DclIOUIB.dpk">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="..\InstantUIB.dcr"/>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IOUIB.dcp"/>
+ <DCCReference Include="..\InstantUIBReg.pas"/>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">DclIOUIB.dpk</Source>
+ </Source>
+ <Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">2</VersionInfo>
+ <VersionInfo Name="MinorVer">1</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">True</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1040</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">www.instantobjects.org</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">InstantObjects</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName">InstantObjects</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ </Project>
Property changes on: trunk/Source/Brokers/UIB/D2010/DclIOUIB.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/UIB/D2010/IOUIB.dpk
===================================================================
--- trunk/Source/Brokers/UIB/D2010/IOUIB.dpk (rev 0)
+++ trunk/Source/Brokers/UIB/D2010/IOUIB.dpk 2010-09-18 08:07:06 UTC (rev 926)
@@ -0,0 +1,42 @@
+package IOUIB;
+
+{$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 UIB Run-Time Support (Delphi 2010)'}
+{$LIBSUFFIX '_D14'}
+{$RUNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+ vcl,
+ vcldb,
+ ibxpress,
+ IOCore,
+ IOIBFbCatalog,
+ UIBD14Win32R;
+
+contains
+ InstantUIBConnectionDefEdit in '..\InstantUIBConnectionDefEdit.pas' {InstantUIBConnectionDefEditForm},
+ InstantUIB in '..\InstantUIB.pas';
+
+end.
Property changes on: trunk/Source/Brokers/UIB/D2010/IOUIB.dpk
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/UIB/D2010/IOUIB.dproj
===================================================================
--- trunk/Source/Brokers/UIB/D2010/IOUIB.dproj (rev 0)
+++ trunk/Source/Brokers/UIB/D2010/IOUIB.dproj 2010-09-18 08:07:06 UTC (rev 926)
@@ -0,0 +1,121 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{09490061-D1E0-4A09-ADC5-4D5E3621E954}</ProjectGuid>
+ <MainSource>IOUIB.dpk</MainSource>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <ProjectVersion>12.0</ProjectVersion>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_DependencyCheckOutputName>..\..\..\..\..\..\..\..\Public\Documents\RAD Studio\7.0\Bpl\IOUIB_D14.bpl</DCC_DependencyCheckOutputName>
+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+ <DesignOnlyPackage>false</DesignOnlyPackage>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <DCC_TypedAtParameter>true</DCC_TypedAtParameter>
+ <DCC_Description>InstantObjects UIB Run-Time Support (Delphi 2010)</DCC_Description>
+ <DCC_Platform>x86</DCC_Platform>
+ <DllSuffix>_D14</DllSuffix>
+ <DCC_N>false</DCC_N>
+ <DCC_K>false</DCC_K>
+ <GenDll>true</GenDll>
+ <DCC_S>false</DCC_S>
+ <GenPackage>true</GenPackage>
+ <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+ <DCC_F>false</DCC_F>
+ <DCC_E>false</DCC_E>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="IOUIB.dpk">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="vcl.dcp"/>
+ <DCCReference Include="vcldb.dcp"/>
+ <DCCReference Include="ibxpress.dcp"/>
+ <DCCReference Include="IOCore.dcp"/>
+ <DCCReference Include="IOIBFbCatalog.dcp"/>
+ <DCCReference Include="UIBD14Win32R.dcp"/>
+ <DCCReference Include="..\InstantUIBConnectionDefEdit.pas">
+ <Form>InstantUIBConnectionDefEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="..\InstantUIB.pas"/>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>Package</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">IOUIB.dpk</Source>
+ </Source>
+ <Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">2</VersionInfo>
+ <VersionInfo Name="MinorVer">1</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">True</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1040</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">www.instantobjects.org</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">InstantObjects</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName">InstantObjects</VersionInfoKeys>
+ <VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ </Delphi.Personality>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ </Project>
Property changes on: trunk/Source/Brokers/UIB/D2010/IOUIB.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Source/Brokers/UIB/D2010/IOUIB.res
===================================================================
(Binary files differ)
Property changes on: trunk/Source/Brokers/UIB/D2010/IOUIB.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Modified: trunk/Source/Brokers/UIB/InstantUIB.pas
===================================================================
--- trunk/Source/Brokers/UIB/InstantUIB.pas 2010-09-18 07:09:11 UTC (rev 925)
+++ trunk/Source/Brokers/UIB/InstantUIB.pas 2010-09-18 08:07:06 UTC (rev 926)
@@ -21,7 +21,7 @@
* The Initial Developer of the Original Code is: Andrea Petrelli
*
* Contributor(s):
- * Carlo Barazzetta, Nando Dessena, Joao Morais
+ * Carlo Barazzetta, Nando Dessena, Joao Morais, Marcos E. Yanes
*
* ***** END LICENSE BLOCK ***** *)
@@ -36,7 +36,7 @@
interface
uses
- Classes, Db, jvuib, jvuibdataset, jvuiblib, SysUtils,
+ Classes, Db, uib, uibdataset, uiblib, SysUtils,
InstantPersistence, InstantBrokers, InstantClasses,
InstantCommand, InstantMetadata, InstantTypes;
@@ -57,7 +57,7 @@
FOptions: TInstantUIBOptions;
FParams: string;
protected
- function CreateDataBase(AOwner: TComponent): TJvUIBDataBase;
+ function CreateDataBase(AOwner: TComponent): TUIBDataBase;
procedure InitConnector(Connector: TInstantConnector); override;
public
class function ConnectionTypeName: string; override;
@@ -75,13 +75,13 @@
TInstantUIBConnector = class(TInstantRelationalConnector)
private
- FDataBase: TJvUIBDataBase;
- FTransaction: TJvUIBTransaction;
+ FDataBase: TUIBDataBase;
+ FTransaction: TUIBTransaction;
FOptions: TInstantUIBOptions;
FLoginPrompt: Boolean;
- function GetDataBase: TJvUIBDataBase;
- function GetTransaction: TJvUIBTransaction;
- procedure SetDataBase(const Value: TJvUIBDataBase);
+ function GetDataBase: TUIBDataBase;
+ function GetTransaction: TUIBTransaction;
+ procedure SetDataBase(const Value: TUIBDataBase);
procedure DataBaseLogin;
protected
procedure CheckDataBase;
@@ -100,10 +100,10 @@
destructor Destroy; override;
class function ConnectionDefClass: TInstantConnectionDefClass; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
- property Transaction: TJvUIBTransaction read GetTransaction;
+ property Transaction: TUIBTransaction read GetTransaction;
function HasDataBase: Boolean;
published
- property DataBase: TJvUIBDataBase read GetDataBase write SetDataBase;
+ property DataBase: TUIBDataBase read GetDataBase write SetDataBase;
property LoginPrompt: Boolean read FLoginPrompt write FLoginPrompt;
property Options: TInstantUIBOptions read FOptions write FOptions default DefaultInstantUIBOptions;
end;
@@ -176,9 +176,9 @@
end;
function TInstantUIBConnectionDef.CreateDataBase(
- AOwner: TComponent): TJvUIBDataBase;
+ AOwner: TComponent): TUIBDataBase;
begin
- Result := TJvUIBDataBase.Create(AOwner);
+ Result := TUIBDataBase.Create(AOwner);
try
Result.CharacterSet := CharacterSet;
Result.LibraryName := LibraryName;
@@ -206,7 +206,7 @@
procedure TInstantUIBConnectionDef.InitConnector(Connector: TInstantConnector);
var
- DataBase: TJvUIBDataBase;
+ DataBase: TUIBDataBase;
begin
inherited;
DataBase := CreateDatabase(Connector);
@@ -245,19 +245,19 @@
inherited;
end;
-function TInstantUIBConnector.GetDataBase: TJvUIBDataBase;
+function TInstantUIBConnector.GetDataBase: TUIBDataBase;
begin
if not (csDesigning in ComponentState) then
CheckDataBase;
Result := FDataBase;
end;
-function TInstantUIBConnector.GetTransaction: TJvUIBTransaction;
+function TInstantUIBConnector.GetTransaction: TUIBTransaction;
begin
if not Assigned(FTransaction) then
begin
CheckDataBase;
- FTransaction := TJvUIBTransaction.Create(nil);
+ FTransaction := TUIBTransaction.Create(nil);
try
FTransaction.DataBase := FDatabase;
FTransaction.AutoStart := True;
@@ -301,7 +301,7 @@
Transaction.StartTransaction;
end;
-procedure TInstantUIBConnector.SetDataBase(const Value: TJvUIBDataBase);
+procedure TInstantUIBConnector.SetDataBase(const Value: TUIBDataBase);
begin
if Value <> FDataBase then
begin
@@ -320,7 +320,7 @@
if DataBase.Connected then
raise EInstantError.Create(SDatabaseOpen);
try
- DataBase.CreateDatabase(4096);
+ DataBase.CreateDatabase(csUTF8, 8192);
finally
Disconnect;
end;
@@ -409,7 +409,7 @@
TargetParams: TSQLParams;
begin
//don't call inherited!
- TargetParams := TJvUIBDataset(DataSet).Params;
+ TargetParams := TUIBDataset(DataSet).Params;
for I := 0 to Pred(AParams.Count) do
begin
SourceParam := AParams[I];
@@ -420,7 +420,7 @@
else
begin
case SourceParam.DataType of
- ftString:
+ ftString, ftWideString:
TargetParams.ByNameAsString[SourceParam.Name] := SourceParam.AsString;
ftInteger:
TargetParams.ByNameAsInteger[SourceParam.Name] := SourceParam.AsInteger;
@@ -435,7 +435,7 @@
ftBlob, ftMemo:
begin
BlobContent := SourceParam.AsString;
- TJvUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
+ TUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
end;
else
raise Exception.Create('Parameter data type not supported: ' +
@@ -456,7 +456,8 @@
'TIMESTAMP',
'BLOB',
'DATE',
- 'TIME');
+ 'TIME',
+ 'INTEGER');
function TInstantUIBBroker.DataTypeToColumnType(
DataType: TInstantDataType; Size: Integer): string;
@@ -469,9 +470,9 @@
function TInstantUIBBroker.CreateDataSet(const AStatement: string;
AParams: TParams): TDataSet;
var
- Query: TJvUIBDataSet;
+ Query: TUIBDataset;
begin
- Query := TJvUIBDataSet.Create(nil);
+ Query := TUIBDataset.Create(nil);
try
Query.Database := Connector.DataBase;
Query.FetchBlobs := True;
@@ -503,9 +504,9 @@
function TInstantUIBBroker.Execute(const AStatement: string;
AParams: TParams): Integer;
var
- DataSet: TJvUIBDataSet;
+ DataSet: TUIBDataset;
begin
- DataSet := AcquireDataSet(AStatement, AParams) as TJvUIBDataSet;
+ DataSet := AcquireDataSet(AStatement, AParams) as TUIBDataset;
try
DataSet.Execute;
Result := DataSet.RowsAffected;
Modified: trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm
===================================================================
--- trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm 2010-09-18 07:09:11 UTC (rev 925)
+++ trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm 2010-09-18 08:07:06 UTC (rev 926)
@@ -134,7 +134,6 @@
Width = 113
Height = 21
Style = csDropDownList
- ItemHeight = 13
Sorted = True
TabOrder = 10
end
@@ -159,7 +158,6 @@
Width = 113
Height = 21
Style = csDropDownList
- ItemHeight = 13
TabOrder = 11
end
object IdSizeEdit: TEdit
@@ -207,7 +205,6 @@
Width = 113
Height = 21
Style = csDropDownList
- ItemHeight = 13
TabOrder = 7
OnChange = CharacterSetComboBoxChange
end
@@ -216,7 +213,6 @@
Top = 256
Width = 113
Height = 21
- ItemHeight = 13
TabOrder = 8
OnChange = SQLRoleEditChange
Items.Strings = (
Modified: trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas
===================================================================
--- trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas 2010-09-18 07:09:11 UTC (rev 925)
+++ trunk/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas 2010-09-18 08:07:06 UTC (rev 926)
@@ -21,7 +21,7 @@
* The Initial Developer of the Original Code is: Andrea Petrelli
*
* Contributor(s):
- * Nando Dessena, Joao Morais
+ * Nando Dessena, Joao Morais, Marcos E. Yanes
*
* ***** END LICENSE BLOCK ***** *)
@@ -90,7 +90,7 @@
{$R *.DFM}
uses
- InstantPersistence, InstantClasses, InstantConsts, jvuiblib;
+ InstantPersistence, InstantClasses, InstantConsts, uiblib;
{ TInstantUIBConnectionDefEditForm }
@@ -100,7 +100,7 @@
I: TCharacterSet;
begin
for I := low(TCharacterSet) to high(TCharacterSet) do
- AItems.Add(CharacterSetStr[I]);
+ AItems.Add(string(CharacterSetStr[I]));
end;
procedure TInstantUIBConnectionDefEditForm.ConnectionStringButtonClick(
|
|
From: <na...@us...> - 2010-09-18 07:09:19
|
Revision: 925
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=925&view=rev
Author: nandod
Date: 2010-09-18 07:09:11 +0000 (Sat, 18 Sep 2010)
Log Message:
-----------
* A first website update in preparation for 3.0.
Modified Paths:
--------------
trunk/WebSite/index.html
trunk/WebSite/news.html
trunk/WebSite/styles/io_styles.css
Added Paths:
-----------
trunk/WebSite/_notes/
trunk/WebSite/_notes/dwsync.xml
trunk/WebSite/images/feed-icon-14x14.png
trunk/WebSite/images/feed-icon-28x28.png
Removed Paths:
-------------
trunk/WebSite/images/tdwin32_turbologo_150.gif
trunk/WebSite/images/tdwin32_turbologo_150.jpg
Added: trunk/WebSite/_notes/dwsync.xml
===================================================================
--- trunk/WebSite/_notes/dwsync.xml (rev 0)
+++ trunk/WebSite/_notes/dwsync.xml 2010-09-18 07:09:11 UTC (rev 925)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<dwsync>
+<file name="index.html" server="frs.sourceforge.net//home/groups/i/in/instantobjects/htdocs/" local="129292666146936497" remote="128955909320000000" />
+<file name="news.html" server="frs.sourceforge.net//home/groups/i/in/instantobjects/htdocs/" local="129292632305880900" remote="128111620400000000" />
+</dwsync>
\ No newline at end of file
Property changes on: trunk/WebSite/_notes/dwsync.xml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/WebSite/images/feed-icon-14x14.png
===================================================================
(Binary files differ)
Property changes on: trunk/WebSite/images/feed-icon-14x14.png
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/WebSite/images/feed-icon-28x28.png
===================================================================
(Binary files differ)
Property changes on: trunk/WebSite/images/feed-icon-28x28.png
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Deleted: trunk/WebSite/images/tdwin32_turbologo_150.gif
===================================================================
(Binary files differ)
Deleted: trunk/WebSite/images/tdwin32_turbologo_150.jpg
===================================================================
(Binary files differ)
Modified: trunk/WebSite/index.html
===================================================================
--- trunk/WebSite/index.html 2010-09-17 19:08:32 UTC (rev 924)
+++ trunk/WebSite/index.html 2010-09-18 07:09:11 UTC (rev 925)
@@ -28,71 +28,83 @@
</div>
<!-- InstanceBeginEditable name="pageContent" -->
-<div id="content">
- <div id="projectBorder">
- <div id="projectContent">
- <div id="breadCrumb"> News: <a href="news.html">InstantObjects 2.0 Final Release...</a></div>
- <div class="story">
- <h3>Project Overview </h3>
- <p> InstantObjects™ is an integrated framework for developing object-oriented business solutions in Borland Delphi™. The framework provides the foundation for the development process as well as the engine that powers the final application.</p>
-
- <p>InstantObjects™ offers: </p>
- <ul>
- <li>Model realization in the Delphi IDE via integrated two-way tool.</li>
- <li>Object persistence in the most common relational databases.</li>
- <li>Object presentation via standard data-aware controls.</li>
- </ul>
- </div>
- <div class="story" id="projectStatus">
- <h3>Project Status</h3>
- <p> The project and its SVN source repository are hosted by <a href="sf_jump.htm">SourceForge</a>.</p>
- <p>Right now we are collecting feature requests to lay out a development road map. All InstantObjects users are invited to join us in the newsgroups and contribute. </p>
- </div>
- <div class="story" id="documentation">
- <h3>Documentation</h3>
- <ul>
- <li>You can examine the <a href="diagrams.html">Diagrams created by David Moorhouse</a>.</li>
- <li>More documentation is in the <a href="http://svn.sourceforge.net/viewvc/instantobjects/">SVN repository</a> at SourceForge</li>
- </ul>
- </div>
- <div class="story" id="newsgroups">
- <h3>Newsgroups</h3>
- <p>A newsgroup for InstantObjects is hosted on an NNTP server along with other newsgroup areas (in English and Italian) managed by Marco Cant\xF9.</p>
- <p>This is the list of areas (please post in the most appropriate one):</p>
- <ul>
- <li>instantobjects.org.general: General discussions and information.</li>
- <li>instantobjects.org.support: Ask for help when using IO.</li>
- <li>instantobjects.org.development: Contribute to IO development.</li>
- <li>instantobjects.org.repository: Binary attachments.</li>
- </ul>
- <p>Please follow the standard netiquette, avoid posting large attachments (unless really needed) and post zipped code only in the repository area. Messages seen as inappropriate might be removed. Please use your own full name when posting.</p>
- <p>Access info: news server is <span class="hilite">news.instantobjects.org</span>, but you need a username and password. You can obtain these by signing up to Marco Cant\xF9's <a href="http://www.marcocantu.com/home/newsgroup.htm">newsgroup</a>.</p>
- <p>As an alternative you can browse the newsgroups online at <span class="hilite">delphi.newswhat.com</span>.</p>
- </div>
- </div>
- <!--end projectContent -->
- </div>
- <!--end projectBorder -->
-
-</div>
-<!--end content -->
-<div id="navBar">
- <div id="sectionLinks">
- <ul>
- <li><a href="#projectStatus">Project Status </a></li>
- <li><a href="#documentation">Documentation</a></li>
- <li><a href="#newsgroups">Newsgroups</a></li>
- </ul>
+<div id="main">
+ <div id="content">
+ <div id="projectBorder">
+ <div id="projectContent">
+ <div id="breadCrumb"> News: <a href="news.html">Web Site Updated. More news to come</a></div>
+ <div class="story">
+ <h3>Project Overview </h3>
+ <p> InstantObjects is an integrated framework for developing object-oriented business solutions in Delphi™. The framework provides the foundation for the development process as well as the engine that powers the final application.</p>
+
+ <p>InstantObjects offers:</p>
+ <ul>
+ <li>Model realization in the Delphi IDE via integrated two-way tools.</li>
+ <li>Object persistence in the most common relational databases or flat XML-based files.</li>
+ <li>Object presentation via standard data-aware controls.</li>
+ </ul>
+ </div>
+ <div class="story" id="projectStatus">
+ <h3>Project Status</h3>
+ <p> The project and its SVN source repository are hosted by <a href="sf_jump.htm">SourceForge</a>. You can keep up to date with the project development by subscribing to the<a href="https://sourceforge.net/export/rss2_keepsake.php?group_id=94747"> RSS feed. <img src="images/feed-icon-14x14.png" width="14" height="14" alt="Subscribe to RSS feed" /></a> or going to the <a href="https://sourceforge.net/apps/mediawiki/instantobjects/index.php?title=Main_Page" target="_blank">InstantObjects Development Wiki</a>.</p>
+ <p>The project has been progressing slowly but steadily since its first release as open source. Currently, the team is preparing to release version 3.0.</p>
+ <p>All InstantObjects users are invited to join us in the newsgroups and contribute. </p>
+ </div>
+ <div class="story" id="documentation">
+ <h3>Documentation and resources</h3>
+ <ul>
+ <li>You can examine the <a href="diagrams.html">Diagrams created by David Moorhouse</a>.</li>
+ <li>There is also a <a href="classdiagram/overview.html">hyperlinked set of pages and diagrams</a> extracted from the source code (to be updated).</li>
+ <li>More documentation is in the <a href="http://svn.sourceforge.net/viewvc/instantobjects/">SVN repository</a> at SourceForge.</li>
+ </ul>
+ </div>
+ <div class="story" id="newsgroups">
+ <h3>Newsgroups</h3>
+ <p>A newsgroup for InstantObjects is hosted on an NNTP server along with other newsgroup areas (in English and Italian) managed by Marco Cant\xF9.</p>
+ <p>This is the list of areas (please post in the most appropriate one):</p>
+ <ul>
+ <li>instantobjects.org.general: General discussions and information.</li>
+ <li>instantobjects.org.support: Ask for help when using IO.</li>
+ <li>instantobjects.org.development: Contribute to IO development.</li>
+ <li>instantobjects.org.repository: Binary attachments.</li>
+ </ul>
+ <p>Please follow the standard netiquette, avoid posting large attachments (unless really needed) and post zipped code only in the repository area. Messages seen as inappropriate might be removed. Please use your own full name when posting.</p>
+ <p>Access info: news server is <span class="hilite">news.instantobjects.org</span>, but you need a username and password. You can obtain these by signing up to Marco Cant\xF9's <a href="http://www.marcocantu.com/home/newsgroup.htm">newsgroup</a>.</p>
+ <p>As an alternative you can browse the newsgroups online at <span class="hilite">delphi.newswhat.com</span>.</p>
+ </div>
+ </div>
+ <!--end projectContent -->
+ </div>
+ <!--end projectBorder -->
+
</div>
- <div class="relatedLinks">
- <h3>Broker Related Links</h3>
- <ul>
- <li><a href="http://www.nexusdb.com.au/">- NexusDb</a></li>
- <li><a href="http://www.progdigy.com/modules.php?name=UIB">- Unified InterBase (UIB)</a></li>
- <li><a href="http://zeos.firmos.at/">- ZeosDBO</a></li>
- </ul>
+ <!--end content -->
+ <div class="navBar">
+ <div class="section">
+ <ul>
+ <li><a href="#projectStatus">Project Status </a></li>
+ <li><a href="#documentation">Documentation</a></li>
+ <li><a href="#newsgroups">Newsgroups</a></li>
+ </ul>
+ </div>
+ <div class="relatedLinks">
+ <h3>Broker-related Links</h3>
+ <ul>
+ <li><a href="http://www.firebirdsql.org/" target="_blank">- Firebird</a></li>
+ <li><a href="http://www.nexusdb.com/" target="_blank">- NexusDB</a></li>
+ <li><a href="http://www.progdigy.com/?page_id=5" target="_blank">- Unified Interbase (UIB)</a></li>
+ <li><a href="http://zeos.firmos.at/" target="_blank">- Zeos DBO</a></li>
+ </ul>
+ </div>
</div>
- <div id="advert"><img src="images/tdwin32_turbologo_150.gif" width="150" height="80" /></div>
+ <div class="navBar">
+ <div class="section">
+ <h3>Live Feed <a href="https://sourceforge.net/export/rss2_keepsake.php?group_id=94747"><img src="images/feed-icon-14x14.png" width="14" height="14" alt="Subscribe to RSS feed" /></a></h3>
+ <div class="feed">
+ <script language="JavaScript" src="http://convert.rss-to-javascript.com/?src=https://sourceforge.net/export/rss2_keepsake.php?group_id=94747&desc=0&desc_max=0&chan=0&simple_chan=0&font=&fgcolor=&bgcolor=&date=0&target=_blank&num=10&target=_blank&use_lists=1&font_size=" ></script><noscript>Your browser does not support JavaScript. <a title='InstantObjects Live Feed' href=http://convert.rss-to-javascript.com/?src=https://sourceforge.net/export/rss2_keepsake.php?group_id=94747&desc=0&desc_max=0&chan=0&simple_chan=0&font=&fgcolor=&bgcolor=&date=0&target=_blank&num=10&target=_blank&use_lists=1&font_size=&as_html=1 >Click to read the latest news</a>.</noscript><a href=http://www.rss-to-javascript.com target=_blank title='RSS-to-JavaScript.com: Free RSS to JavaScript Converter'><img src=http://www.rss-to-javascript.com/images/rss-to-jss-small.gif alt='RSS to JavaScript' border=0></a>
+ </div>
+ </div>
+ </div>
</div>
<!--end navbar -->
<!-- InstanceEndEditable -->
Modified: trunk/WebSite/news.html
===================================================================
--- trunk/WebSite/news.html 2010-09-17 19:08:32 UTC (rev 924)
+++ trunk/WebSite/news.html 2010-09-18 07:09:11 UTC (rev 925)
@@ -31,6 +31,24 @@
<div id="main">
<div class="feature">
<div id="contentHdr">
+ <h3 id="feature">Web Site updated - More news to come.</h3>
+ </div>
+ <div id="contentBody">
+ <p>Despite the web site not being updated and new versions not being released for quite a while, work has been going on as usual in the project. People that have been downloading and using the source code from <a href="http://svn.sourceforge.net/viewvc/instantobjects/" target="_blank">our SVN repository</a> know that.</p>
+We will be trying to keep the site more up to date with development, release more often, and get more information and documentation out, as we believe that InstantObjects is one of the best kept secret jems in the Delphi component landscape.
+<p>If you are interested in keeping up to date with InstantObjects development, you now have several options:</p>
+ <ul>
+ <li>Subscribe to the <a href="https://sourceforge.net/export/rss2_keepsake.php?group_id=94747" target="_blank">InstantObjects RSS feed</a>, which reports all news, announcements, code change summaries.</li>
+ <li>Have a look at the <a href="https://sourceforge.net/apps/mediawiki/instantobjects/index.php?title=Main_Page" target="_blank">InstantObjects Development Wiki</a>, which will be periodically updated with feature proposals and development roadmaps.</li>
+ <li>Subscribe to the <a href="index.html#newsgroups">InstantObjects development newsgroup</a>, where development-related discussions take place.</li>
+ <li>More resources to come, including the InstantObjects blog and snapshot releases (or daily builds).</li>
+ </ul>
+<p>InstantObject has added full <a href="https://sourceforge.net/apps/mediawiki/instantobjects/index.php?title=Unicode_support" target="_blank">Unicode support</a> for Delphi 2009 and up, the long awaited <a href="https://sourceforge.net/apps/mediawiki/instantobjects/index.php?title=Burst_loading" target="_blank">burst load mode</a>, lots of enhancements to various brokers, new brokers, support for Delphi 2010 and Delphi XE, lots of bug fixes and optimizations.</p>
+ <p>Currently the team is preparing to release version 3.0.</p>
+ </div>
+ </div>
+ <div class="feature">
+ <div id="contentHdr">
<h3 id="feature">InstantObjects 2.0 Final Release - August 5, 2006</h3>
</div>
<div id="contentBody">
Modified: trunk/WebSite/styles/io_styles.css
===================================================================
--- trunk/WebSite/styles/io_styles.css 2010-09-17 19:08:32 UTC (rev 924)
+++ trunk/WebSite/styles/io_styles.css 2010-09-18 07:09:11 UTC (rev 925)
@@ -87,20 +87,21 @@
background-repeat: repeat-x;
}
-#navBar{
+.navBar{
margin: 0 79% 0 0;
background-color: #eeeeee;
border: 1px solid #005eb2;
/* hack to fix IE6/Win's peekaboo bug */
height: 1%;
+ margin-bottom: 20px;
}
#content{
float:right;
width: 75%;
margin: 0;
- padding: 0 3% 0 0;
+ padding: 0 2% 0 0;
height: 1%;
}
@@ -227,7 +228,7 @@
#contentHdr {
background-color: #005eb2;
- background-image: url(../images/color_grad_pic2.gif);
+ background-image: url(../images/color_grad_pic2.gif);
background-repeat: repeat-x;
}
@@ -269,6 +270,7 @@
clear: both;
padding: 10px 0px 0px 10px;
font-size: 80%;
+ border-bottom: 1px solid #B1B1B1;
}
.story p{
@@ -298,18 +300,18 @@
/*********** #navBar link styles ***********/
-#navBar ul a:link, #navBar ul a:visited {display: block;}
-#navBar ul {
+.navBar ul a:link, .navBar ul a:visited {display: block;}
+.navBar ul {
margin: 0;
padding: 0;
list-style: none;
}
/* hack to fix IE/Win's broken rendering of block-level anchors in lists */
-#navBar li {border-bottom: 1px solid #EEE;}
+.navBar li {border-bottom: 1px solid #EEE;}
/* fix for browsers that don't need the hack */
-html>body #navBar li {
+html>body .navBar li {
border-bottom: none;
padding: 0px;
/* border-top: none; */
@@ -318,39 +320,37 @@
/*********** #sectionLinks styles ***********/
-#sectionLinks{
+.section{
position: relative;
margin: 0px;
- padding: 0px;
+ padding: 2px 0px 2px 10px;
border-bottom: 1px solid #cccccc;
font-size: 80%;
}
-#sectionLinks h3{
- padding: 10px 0px 2px 10px;
-}
-
-#sectionLinks a:link{
- padding: 2px 0px 2px 10px;
+.section a:link{
border-top: 1px solid #cccccc;
- width: 100%;
- voice-family: "\"}\"";
- voice-family:inherit;
- width: auto;
}
-#sectionLinks a:visited{
+.section a:visited{
border-top: 1px solid #cccccc;
padding: 2px 0px 2px 10px;
}
-#sectionLinks a:hover{
+.section a:hover{
border-top: 1px solid #cccccc;
- background-color: #dddddd;
- padding: 2px 0px 2px 10px;
+ /*background-color: #dddddd;
+ padding: 2px 0px 2px 10px;*/
}
+.section .feed{
+ font-size: 80%;
+}
+.section h3{
+ font-size: 90%;
+}
+
/*********** .relatedLinks styles ***********/
.relatedLinks{
|
|
From: <na...@us...> - 2010-09-17 17:39:37
|
Revision: 923
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=923&view=rev
Author: nandod
Date: 2010-09-17 17:39:31 +0000 (Fri, 17 Sep 2010)
Log Message:
-----------
* Fixes for burst load mode.
Modified Paths:
--------------
trunk/Source/Core/InstantBrokers.pas
Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas 2010-09-17 07:45:58 UTC (rev 922)
+++ trunk/Source/Core/InstantBrokers.pas 2010-09-17 17:39:31 UTC (rev 923)
@@ -5240,7 +5240,8 @@
const AObject: TInstantIQLObject;
out ASubQuery: TInstantIQLSubquery): Boolean;
begin
- if AObject is TInstantIQLSubquery then begin
+ if AObject is TInstantIQLSubquery then
+ begin
Result := True;
ASubQuery := TInstantIQLSubquery(AObject);
end
@@ -5276,7 +5277,8 @@
S := StringReplace(Str, '%%', #1, [rfReplaceAll]);
S := StringReplace(S, '%', WildCard, [rfReplaceAll]);
Result := StringReplace(S, #1, '%', [rfReplaceAll]);
- end else
+ end
+ else
Result := Str;
end;
@@ -5514,7 +5516,7 @@
begin
// External part and reference attribute are treated akin:
// select Class and Id fields.
- if Assigned(AContext.PathToTarget(LAttrMeta.FieldName, LTablePath, LFieldName)) then
+ if Assigned(AContext.PathToTarget(LAttrMeta.Name, LTablePath, LFieldName)) then
Writer.WriteString(Format(', %s, %s', [
AContext.Qualify(LTablePath, LFieldName + InstantClassFieldName),
AContext.Qualify(LTablePath, LFieldName + InstantIdFieldName)]));
@@ -5524,7 +5526,7 @@
// No fields needed for external containers.
else
// Select all other fields.
- Writer.WriteString(Format(', %s', [AContext.QualifyPath(LAttrMeta.FieldName)]));
+ Writer.WriteString(Format(', %s', [AContext.QualifyPath(LAttrMeta.Name)]));
end;
end;
end;
@@ -6454,7 +6456,8 @@
LClassMeta := ObjectClassMetadata.Parent;
while Assigned(LClassMeta) do
begin
- AddTablePath(LClassMeta.TableName);
+ if LClassMeta.IsStored then
+ AddTablePath(LClassMeta.TableName);
LClassMeta := LClassMeta.Parent;
end;
end;
@@ -6484,11 +6487,14 @@
LClassMeta := ObjectClassMetadata.Parent;
while Assigned(LClassMeta) do
begin
- LTableName := LClassMeta.TableName;
- if LTableName <> TableName then
+ if LClassMeta.IsStored then
begin
- AddJoin(TableName, InstantClassFieldName, LTableName, InstantClassFieldName);
- AddJoin(TableName, InstantIdFieldName, LTableName, InstantIdFieldName);
+ LTableName := LClassMeta.TableName;
+ if (LTableName <> TableName) and LClassMeta.IsStored then
+ begin
+ AddJoin(TableName, InstantClassFieldName, LTableName, InstantClassFieldName);
+ AddJoin(TableName, InstantIdFieldName, LTableName, InstantIdFieldName);
+ end;
end;
LClassMeta := LClassMeta.Parent;
end;
|
|
From: <na...@us...> - 2010-09-17 07:46:08
|
Revision: 922
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=922&view=rev
Author: nandod
Date: 2010-09-17 07:45:58 +0000 (Fri, 17 Sep 2010)
Log Message:
-----------
* Database evolution: changed VARCHAR to VARCHAR2 for Oracle through DBX.
+ Support for Oracle and SQLServer Devart DBX drivers.
Modified Paths:
--------------
trunk/Source/Brokers/DBX/InstantDBX.pas
Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas 2010-09-17 07:34:46 UTC (rev 921)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas 2010-09-17 07:45:58 UTC (rev 922)
@@ -172,7 +172,7 @@
function GetDBMSName: string; override;
end;
- { Firebird through the native D2010 driver }
+ { Firebird through the native D2010+ driver }
TInstantDBXFirebirdBroker = class(TInstantDBXInterBaseFirebirdBroker)
protected
@@ -209,7 +209,7 @@
class function TranslatorClass: TInstantRelationalTranslatorClass; override;
end;
- { Oracle }
+ { Oracle through the native driver }
TInstantDBXOracleBroker = class(TInstantDBXBroker)
protected
@@ -219,6 +219,14 @@
function GetSQLQuote: Char; override;
end;
+ { Oracle through the Devart dbX driver }
+
+ TInstantDBXDevartOracleBroker = class(TInstantDBXOracleBroker)
+ protected
+ procedure AssignParam(SourceParam, TargetParam: TParam); override;
+ function ColumnTypeByDataType(DataType: TInstantDataType): string; override;
+ end;
+
{ IBM DB2 }
TInstantDBXDB2Broker = class(TInstantDBXBroker)
@@ -328,10 +336,14 @@
Result := TInstantDBXMySQLBroker.Create(Self)
else if SameText(Connection.DriverName, 'FirebirdUIB') then
Result := TInstantDBXFirebirdUIBBroker.Create(Self)
- else if SameText(Connection.DriverName, 'FIREBIRD') then
- Result := TInstantDBXFirebirdBroker.Create(Self)
else if SameText(Connection.DriverName, 'DevartInterbase') then
Result := TInstantDBXDevartInterbaseBroker.Create(Self)
+ else if SameText(Connection.DriverName, 'DevartOracle') then
+ Result := TInstantDBXDevartOracleBroker.Create(Self)
+ else if SameText(Connection.DriverName, 'DevartSQLServer') then
+ Result := TInstantDBXMSSQLBroker.Create(Self)
+ else if SameText(Connection.DriverName, 'Firebird') then
+ Result := TInstantDBXFirebirdBroker.Create(Self)
else
raise Exception.CreateFmt('dbExpress driver "%s" not supported',
[Connection.DriverName]);
@@ -787,7 +799,7 @@
'FLOAT',
'DECIMAL(14,4)',
'NUMBER(1)',
- 'VARCHAR',
+ 'VARCHAR2',
'CLOB',
'DATE',
'BLOB',
@@ -808,6 +820,42 @@
Result := '''';
end;
+{ TInstantDBXDevartOracleBroker }
+
+procedure TInstantDBXDevartOracleBroker.AssignParam(SourceParam,
+ TargetParam: TParam);
+begin
+ { TODO : This may vary depending on DBX driver parameters. }
+ case SourceParam.DataType of
+ ftInteger:
+ TargetParam.AsInteger := SourceParam.AsInteger;
+ ftCurrency:
+ TargetParam.AsBCD := SourceParam.AsCurrency;
+ else
+ inherited;
+ end;
+end;
+
+function TInstantDBXDevartOracleBroker.ColumnTypeByDataType(
+ DataType: TInstantDataType): string;
+const
+ { TODO : This may vary depending on DBX driver parameters. }
+ Types: array[TInstantDataType] of string = (
+ 'INTEGER',
+ 'NUMBER',
+ 'DECIMAL(14,4)',
+ 'NUMBER(1)',
+ 'VARCHAR',
+ 'CLOB',
+ 'DATE',
+ 'BLOB',
+ 'DATE',
+ 'DATE',
+ 'INTEGER');
+begin
+ Result := Types[DataType];
+end;
+
{ TInstantDBXDB2Broker }
function TInstantDBXDB2Broker.ColumnTypeByDataType(
|
|
From: <na...@us...> - 2010-09-17 07:34:53
|
Revision: 921
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=921&view=rev
Author: nandod
Date: 2010-09-17 07:34:46 +0000 (Fri, 17 Sep 2010)
Log Message:
-----------
* Fixed a few typos related to burst load mode.
* Renamed IO_CIRCULAR_REFERENCE_CHECK to IO_NO_CIRCULAR_REFERENCE_CHECK and inverted the logic in the code. Required to allow
applications to disable the check without keeping a different copy of InstantDefines.inc.
Modified Paths:
--------------
trunk/Source/Core/InstantPersistence.pas
trunk/Source/InstantDefines.inc
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas 2010-09-17 07:20:12 UTC (rev 920)
+++ trunk/Source/Core/InstantPersistence.pas 2010-09-17 07:34:46 UTC (rev 921)
@@ -812,7 +812,7 @@
procedure DoStore(ConflictAction: TInstantConflictAction);
procedure DoUnchange;
function FindDefaultContainer: TInstantContainer;
-{$IFDEF IO_CIRCULAR_REFERENCE_CHECK}
+{$IFNDEF IO_NO_CIRCULAR_REFERENCE_CHECK}
procedure FreeCircularReferences;
{$ENDIF}
function GetClassId: string;
@@ -1148,7 +1148,6 @@
FMaxCount: Integer;
FRequestedLoadMode: TInstantLoadMode;
FActualLoadMode: TInstantLoadMode;
- FLoadMode: TInstantLoadMode;
function GetConnector: TInstantConnector;
function GetObjectCount: Integer;
function GetObjects(Index: Integer): TObject;
@@ -1198,8 +1197,8 @@
property ObjectCount: Integer read GetObjectCount;
property Objects[Index: Integer]: TObject read GetObjects;
property Params: TParams read GetParams write SetParams;
- property RequestedLoadMode: TInstantLoadMode read FLoadMode write FLoadMode
- default lmKeysFirst;
+ property RequestedLoadMode: TInstantLoadMode
+ read FRequestedLoadMode write FRequestedLoadMode default lmKeysFirst;
property ActualLoadMode: TInstantLoadMode read FActualLoadMode;
end;
@@ -6213,7 +6212,7 @@
DestroyInternalFields;
end;
-{$IFDEF IO_CIRCULAR_REFERENCE_CHECK}
+{$IFNDEF IO_NO_CIRCULAR_REFERENCE_CHECK}
procedure TInstantObject.FreeCircularReferences;
var
CheckedObjects: TObjectList;
@@ -6295,7 +6294,7 @@
procedure TInstantObject.FreeInstance;
begin
-{$IFDEF IO_CIRCULAR_REFERENCE_CHECK}
+{$IFNDEF IO_NO_CIRCULAR_REFERENCE_CHECK}
FreeCircularReferences;
{$ENDIF}
DoRelease;
@@ -6779,7 +6778,7 @@
if Assigned(Instance) then
begin
inherited FreeInstance;
- Self := Instance as TInstantObject;
+ Self := Instance;
AddRef;
if ARefresh then
Refresh;
@@ -6948,7 +6947,7 @@
function TInstantObject._Release: Integer;
begin
-{$IFDEF IO_CIRCULAR_REFERENCE_CHECK}
+{$IFNDEF IO_NO_CIRCULAR_REFERENCE_CHECK}
FreeCircularReferences;
{$ENDIF}
Result := DoRelease;
Modified: trunk/Source/InstantDefines.inc
===================================================================
--- trunk/Source/InstantDefines.inc 2010-09-17 07:20:12 UTC (rev 920)
+++ trunk/Source/InstantDefines.inc 2010-09-17 07:34:46 UTC (rev 921)
@@ -195,18 +195,18 @@
are any objects that circularly refer to it, which should be destroyed as
well. If you are sure that your object model doesn't allow circular
references (as is the case with many object models, especially simple ones),
- you can undefine this symbol to gain a little speed in programs that create
+ you can define this symbol to gain a little speed in programs that create
and destroy large quantities of objects.
WARNING: If you disable the check, then every time your program frees an
object with circular references, it will leak memory. You might not notice it
- unless you are using memory leak detection tools such as FastMM.
+ unless you are using a memory leak detection tool such as FastMM.
So please make sure your model doesn't allow any circular reference
- before turning this setting off.
+ before enabling this define.
- Also, do it only if you actually need the speed gain, which is needed only
- in special cases.
+ Also, do it only if you actually need the speed gain, which is not significant
+ in most cases.
}
-{$DEFINE IO_CIRCULAR_REFERENCE_CHECK}
+{.$DEFINE IO_NO_CIRCULAR_REFERENCE_CHECK}
|
|
From: <na...@us...> - 2010-09-17 07:20:20
|
Revision: 920
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=920&view=rev
Author: nandod
Date: 2010-09-17 07:20:12 +0000 (Fri, 17 Sep 2010)
Log Message:
-----------
+ Primer for D2007, D2010, DXE.
+ Missing manifest files for Primer.
* Small changes.
Modified Paths:
--------------
trunk/Demos/PrimerCross/Primer.xml
Added Paths:
-----------
trunk/Demos/PrimerCross/Primer.exe.manifest
trunk/Demos/PrimerCross/Primer_D2007.dpr
trunk/Demos/PrimerCross/Primer_D2007.dproj
trunk/Demos/PrimerCross/Primer_D2007.exe.manifest
trunk/Demos/PrimerCross/Primer_D2007.res
trunk/Demos/PrimerCross/Primer_D2007.xml
trunk/Demos/PrimerCross/Primer_D2009.exe.manifest
trunk/Demos/PrimerCross/Primer_D2010.dpr
trunk/Demos/PrimerCross/Primer_D2010.dproj
trunk/Demos/PrimerCross/Primer_D2010.mdr
trunk/Demos/PrimerCross/Primer_D2010.res
trunk/Demos/PrimerCross/Primer_D2010.xml
trunk/Demos/PrimerCross/Primer_DXE.dpr
trunk/Demos/PrimerCross/Primer_DXE.dproj
trunk/Demos/PrimerCross/Primer_DXE.res
trunk/Demos/PrimerCross/Primer_DXE.xml
Removed Paths:
-------------
trunk/Demos/PrimerCross/Primer.mpb
trunk/Demos/PrimerCross/Primer.tst
Added: trunk/Demos/PrimerCross/Primer.exe.manifest
===================================================================
--- trunk/Demos/PrimerCross/Primer.exe.manifest (rev 0)
+++ trunk/Demos/PrimerCross/Primer.exe.manifest 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+ <assemblyIdentity
+ type="win32"
+ name="Primer Demo"
+ version="1.0.0.0"
+ processorArchitecture="*"/>
+ <dependency>
+ <dependentAssembly>
+ <assemblyIdentity
+ type="win32"
+ name="Microsoft.Windows.Common-Controls"
+ version="6.0.0.0"
+ publicKeyToken="6595b64144ccf1df"
+ language="*"
+ processorArchitecture="*"/>
+ </dependentAssembly>
+ </dependency>
+</assembly>
Property changes on: trunk/Demos/PrimerCross/Primer.exe.manifest
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Deleted: trunk/Demos/PrimerCross/Primer.mpb
===================================================================
(Binary files differ)
Deleted: trunk/Demos/PrimerCross/Primer.tst
===================================================================
(Binary files differ)
Modified: trunk/Demos/PrimerCross/Primer.xml
===================================================================
--- trunk/Demos/PrimerCross/Primer.xml 2010-09-16 10:47:14 UTC (rev 919)
+++ trunk/Demos/PrimerCross/Primer.xml 2010-09-17 07:20:12 UTC (rev 920)
@@ -20,4 +20,9 @@
<Params>User_Name=SYSDBA
Password=masterkey</Params>
</TInstantIBXConnectionDef>
+ <TInstantXMLConnectionDef>
+ <Name>XmlDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <RootFolder>.\XmlDB</RootFolder>
+ </TInstantXMLConnectionDef>
</TInstantConnectionDefs>
Added: trunk/Demos/PrimerCross/Primer_D2007.dpr
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2007.dpr (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2007.dpr 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,80 @@
+(*
+ * InstantObjects
+ * Primer Demo - with "internal storage" of Part and Parts
+ * Model.pas unit is located in Model folder
+ *
+ *)
+
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is: Seleqt InstantObjects
+ *
+ * The Initial Developer of the Original Code is: Seleqt
+ *
+ * Portions created by the Initial Developer are Copyright (C) 2001-2003
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ * Carlo Barazzetta, Nando Dessena
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+program Primer_D2007;
+
+{$IFDEF LINUX}
+{$I '../../Source/InstantDefines.inc'}
+{$ELSE}
+{$I '..\..\Source\InstantDefines.inc'}
+{$ENDIF}
+
+
+uses
+ Forms,
+ Main in 'Main.pas' {MainForm},
+ Model in 'Model\Model.pas',
+ ContactView in 'ContactView.pas' {ContactViewForm: TFrame},
+ BasicView in 'BasicView.pas' {BasicViewForm: TFrame},
+ BasicEdit in 'BasicEdit.pas' {BasicEditForm},
+ ContactEdit in 'ContactEdit.pas' {ContactEditForm},
+ PersonEdit in 'PersonEdit.pas' {PersonEditForm},
+ CompanyEdit in 'CompanyEdit.pas' {CompanyEditForm},
+ DemoData in 'DemoData.pas',
+ ContactFilterEdit in 'ContactFilterEdit.pas' {ContactFilterEditForm},
+ MainData in 'MainData.pas' {MainDataModule: TDataModule},
+ ContactBrowse in 'ContactBrowse.pas' {ContactBrowseForm},
+ CompanyBrowse in 'CompanyBrowse.pas' {CompanyBrowseForm},
+ PerformanceView in 'PerformanceView.pas' {PerformanceViewForm: TFrame},
+ Welcome in 'Welcome.pas' {WelcomeForm},
+ PersonBrowse in 'PersonBrowse.pas' {PersonBrowseForm},
+ BasicBrowse in 'BasicBrowse.pas' {BasicBrowseForm},
+ CountryBrowse in 'CountryBrowse.pas' {CountryBrowseForm},
+ DemoDataRequest in 'DemoDataRequest.pas' {DemoDataRequestForm},
+ ContactSort in 'ContactSort.pas' {ContactSortForm},
+ CategoryBrowse in 'CategoryBrowse.pas' {CategoryBrowseForm},
+ HelpView in 'HelpView.pas' {HelpViewForm: TFrame},
+ QueryView in 'QueryView.pas' {QueryViewForm: TFrame},
+ RandomData in 'RandomData.pas',
+ Stopwatch in 'Stopwatch.pas',
+ Utility in 'Utility.pas';
+
+{$R *.res}
+{$R *.mdr} {Model}
+
+begin
+ Application.Initialize;
+ Application.Title := 'InstantObjects Primer Demo (Delphi 2007 version)';
+ Application.CreateForm(TMainForm, MainForm);
+ Application.CreateForm(TMainDataModule, MainDataModule);
+ Application.Run;
+end.
Property changes on: trunk/Demos/PrimerCross/Primer_D2007.dpr
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2007.dproj
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2007.dproj (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2007.dproj 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{d197a2d4-31b9-43b1-8070-3f804d86e53f}</ProjectGuid>
+ <MainSource>Primer_D2007.dpr</MainSource>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <DCC_DependencyCheckOutputName>Primer_D2007.exe</DCC_DependencyCheckOutputName>
+ </PropertyGroup>
+ <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+ <Version>7.0</Version>
+ <DCC_DebugInformation>False</DCC_DebugInformation>
+ <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE</DCC_Define>
+ <DCC_UnitSearchPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_UnitSearchPath>
+ <DCC_ResourcePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_ResourcePath>
+ <DCC_ObjPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_ObjPath>
+ <DCC_IncludePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_IncludePath>
+ </PropertyGroup>
+ <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+ <Version>7.0</Version>
+ <DCC_Define>DEBUG;IO_STATEMENT_LOGGING</DCC_Define>
+ <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;C:\Users\Carlo\DOWNLO~1\JVCL33~1\jcl\lib\d11\debug;..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_UnitSearchPath>
+ <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;C:\Users\Carlo\DOWNLO~1\JVCL33~1\jcl\lib\d11\debug;..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_ResourcePath>
+ <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;C:\Users\Carlo\DOWNLO~1\JVCL33~1\jcl\lib\d11\debug;..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_ObjPath>
+ <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;C:\Users\Carlo\DOWNLO~1\JVCL33~1\jcl\lib\d11\debug;..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql</DCC_IncludePath>
+ </PropertyGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality</Borland.Personality>
+ <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+ <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1030</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">InstantObjects.org</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Primer Demo</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">MPL public license</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Primer_D2007.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+ </ProjectExtensions>
+ <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+ <ItemGroup>
+ <DelphiCompile Include="Primer_D2007.dpr">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="BasicBrowse.pas">
+ <Form>BasicBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="BasicEdit.pas">
+ <Form>BasicEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="BasicView.pas">
+ <Form>BasicViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="CategoryBrowse.pas">
+ <Form>CategoryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyBrowse.pas">
+ <Form>CompanyBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyEdit.pas">
+ <Form>CompanyEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactBrowse.pas">
+ <Form>ContactBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactEdit.pas">
+ <Form>ContactEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactFilterEdit.pas">
+ <Form>ContactFilterEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactSort.pas">
+ <Form>ContactSortForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactView.pas">
+ <Form>ContactViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="CountryBrowse.pas">
+ <Form>CountryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="DemoData.pas" />
+ <DCCReference Include="DemoDataRequest.pas">
+ <Form>DemoDataRequestForm</Form>
+ </DCCReference>
+ <DCCReference Include="HelpView.pas">
+ <Form>HelpViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="Main.pas">
+ <Form>MainForm</Form>
+ </DCCReference>
+ <DCCReference Include="MainData.pas">
+ <Form>MainDataModule</Form>
+ <DesignClass>TDataModule</DesignClass>
+ </DCCReference>
+ <DCCReference Include="Model\Model.pas" />
+ <DCCReference Include="PerformanceView.pas">
+ <Form>PerformanceViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="PersonBrowse.pas">
+ <Form>PersonBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="PersonEdit.pas">
+ <Form>PersonEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="QueryView.pas">
+ <Form>QueryViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="RandomData.pas" />
+ <DCCReference Include="Stopwatch.pas" />
+ <DCCReference Include="Utility.pas" />
+ <DCCReference Include="Welcome.pas">
+ <Form>WelcomeForm</Form>
+ </DCCReference>
+ </ItemGroup>
+</Project>
\ No newline at end of file
Property changes on: trunk/Demos/PrimerCross/Primer_D2007.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2007.exe.manifest
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2007.exe.manifest (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2007.exe.manifest 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+ <assemblyIdentity
+ type="win32"
+ name="Primer Demo"
+ version="1.0.0.0"
+ processorArchitecture="*"/>
+ <dependency>
+ <dependentAssembly>
+ <assemblyIdentity
+ type="win32"
+ name="Microsoft.Windows.Common-Controls"
+ version="6.0.0.0"
+ publicKeyToken="6595b64144ccf1df"
+ language="*"
+ processorArchitecture="*"/>
+ </dependentAssembly>
+ </dependency>
+</assembly>
Property changes on: trunk/Demos/PrimerCross/Primer_D2007.exe.manifest
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2007.res
===================================================================
(Binary files differ)
Property changes on: trunk/Demos/PrimerCross/Primer_D2007.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Demos/PrimerCross/Primer_D2007.xml
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2007.xml (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2007.xml 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,29 @@
+<TInstantConnectionDefs>
+ <TInstantBDEConnectionDef>
+ <Name>ParadoxDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <DriverName>STANDARD</DriverName>
+ <Parameters>PATH=.\ParadoxDB
+DEFAULT DRIVER=PARADOX
+ENABLE BCD=TRUE
+</Parameters>
+ </TInstantBDEConnectionDef>
+ <TInstantIBXConnectionDef>
+ <Name>FirebirdDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <ConnectionString>.\FirebirdDB\PRIMERDB.FDB</ConnectionString>
+ <Options></Options>
+ <Params>user_name=SYSDBA
+password=masterkey
+lc_ctype=ISO8859_1</Params>
+ </TInstantIBXConnectionDef>
+ <TInstantXMLConnectionDef>
+ <Name>XmlDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <RootFolder>.\XmlDB</RootFolder>
+ </TInstantXMLConnectionDef>
+</TInstantConnectionDefs>
Property changes on: trunk/Demos/PrimerCross/Primer_D2007.xml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2009.exe.manifest
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2009.exe.manifest (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2009.exe.manifest 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+ <assemblyIdentity
+ type="win32"
+ name="Primer Demo"
+ version="1.0.0.0"
+ processorArchitecture="*"/>
+ <dependency>
+ <dependentAssembly>
+ <assemblyIdentity
+ type="win32"
+ name="Microsoft.Windows.Common-Controls"
+ version="6.0.0.0"
+ publicKeyToken="6595b64144ccf1df"
+ language="*"
+ processorArchitecture="*"/>
+ </dependentAssembly>
+ </dependency>
+</assembly>
Property changes on: trunk/Demos/PrimerCross/Primer_D2009.exe.manifest
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2010.dpr
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2010.dpr (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2010.dpr 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,80 @@
+(*
+ * InstantObjects
+ * Primer Demo - with "internal storage" of Part and Parts
+ * Model.pas unit is located in Model folder
+ *
+ *)
+
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is: Seleqt InstantObjects
+ *
+ * The Initial Developer of the Original Code is: Seleqt
+ *
+ * Portions created by the Initial Developer are Copyright (C) 2001-2003
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ * Carlo Barazzetta, Nando Dessena
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+program Primer_D2010;
+
+{$IFDEF LINUX}
+{$I '../../Source/InstantDefines.inc'}
+{$ELSE}
+{$I '..\..\Source\InstantDefines.inc'}
+{$ENDIF}
+
+
+uses
+ Forms,
+ Main in 'Main.pas' {MainForm},
+ Model in 'Model\Model.pas',
+ ContactView in 'ContactView.pas' {ContactViewForm: TFrame},
+ BasicView in 'BasicView.pas' {BasicViewForm: TFrame},
+ BasicEdit in 'BasicEdit.pas' {BasicEditForm},
+ ContactEdit in 'ContactEdit.pas' {ContactEditForm},
+ PersonEdit in 'PersonEdit.pas' {PersonEditForm},
+ CompanyEdit in 'CompanyEdit.pas' {CompanyEditForm},
+ DemoData in 'DemoData.pas',
+ ContactFilterEdit in 'ContactFilterEdit.pas' {ContactFilterEditForm},
+ MainData in 'MainData.pas' {MainDataModule: TDataModule},
+ ContactBrowse in 'ContactBrowse.pas' {ContactBrowseForm},
+ CompanyBrowse in 'CompanyBrowse.pas' {CompanyBrowseForm},
+ PerformanceView in 'PerformanceView.pas' {PerformanceViewForm: TFrame},
+ Welcome in 'Welcome.pas' {WelcomeForm},
+ PersonBrowse in 'PersonBrowse.pas' {PersonBrowseForm},
+ BasicBrowse in 'BasicBrowse.pas' {BasicBrowseForm},
+ CountryBrowse in 'CountryBrowse.pas' {CountryBrowseForm},
+ DemoDataRequest in 'DemoDataRequest.pas' {DemoDataRequestForm},
+ ContactSort in 'ContactSort.pas' {ContactSortForm},
+ CategoryBrowse in 'CategoryBrowse.pas' {CategoryBrowseForm},
+ HelpView in 'HelpView.pas' {HelpViewForm: TFrame},
+ QueryView in 'QueryView.pas' {QueryViewForm: TFrame},
+ RandomData in 'RandomData.pas',
+ Stopwatch in 'Stopwatch.pas',
+ Utility in 'Utility.pas';
+
+{$R *.res}
+{$R *.mdr} {Model}
+
+begin
+ Application.Initialize;
+ Application.Title := 'InstantObjects Primer Demo (Delphi 2010 version)';
+ Application.CreateForm(TMainForm, MainForm);
+ Application.CreateForm(TMainDataModule, MainDataModule);
+ Application.Run;
+end.
Property changes on: trunk/Demos/PrimerCross/Primer_D2010.dpr
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2010.dproj
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2010.dproj (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2010.dproj 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,189 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{d197a2d4-31b9-43b1-8070-3f804d86e53f}</ProjectGuid>
+ <MainSource>Primer_D2010.dpr</MainSource>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <DCC_DependencyCheckOutputName>Primer.exe</DCC_DependencyCheckOutputName>
+ <ProjectVersion>12.0</ProjectVersion>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_UnitSearchPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+ <DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;bdertl;vclimg;vclactnband;adortl;vcldbx;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;vclie;xmlrtl;inet;dsnap;inetdb;IndySystem;IndyCore;IndyProtocols;DbxClientDriver;inetdbxpress;inetdbbde;DataSnapServer;dbxcds;DBXInterBaseDriver;DBXMySQLDriver;DBXFirebirdDriver;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;vclib;ibxpress;intrawebdb_100_140;Intraweb_100_140;dsnapcon;vclribbon;VclSmp;soaprtl;TeeUI;TeeDB;Tee;vcltouch;webdsnap;websnap;rbRIDE1114;rbIDE1114;rbRAP1114;rbRCL1114;dclRBADO1114;rbADO1114;rbDB1114;rbDAD1114;dclRBBDE1114;rbDBDE1114;rbBDE1114;dclRBDBE1114;rbDBE1114;dclRBE1114;rbCIDE1114;dclRBIBE1114;rbIBE1114;rbUSERDesign1114;rbUSER1114;dbpland2010;ActionBandExtensionsD2010;UniSynEdit_R2010;wPDF3_D2010;WPViewPDF_D2010;IOCore;Jcl;JclVcl;JvCoreD14R;JvSystemD14R;JvStdCtrlsD14R;JvAppFrmD14R;JvBandsD14R;JvDBD14R;JvDlgsD14R;JvBDED14R;JvCmpD14R;JvCryptD14R;JvCtrlsD14R;JvCustomD14R;JvDockingD14R;JvDotNetCtrlsD14R;JvEDID14R;JvGlobusD14R;JvHMID14R;JvInterpreterD14R;JvJansD14R;JvManagedThreadsD14R;JvMMD14R;JvNetD14R;JvPageCompsD14R;JvPluginD14R;JvPrintPreviewD14R;JvRuntimeDesignD14R;JvTimeFrameworkD14R;JvValidatorsD14R;JvWizardD14R;JvXPCtrlsD14R;rbDIDE1114;IOIBX;IOXML;IODBX;IOBDE;IOADO;ISRtl5;ISVcl5;ISOpenOffice5;ISFLib5</DCC_UsePackage>
+ <DCC_DependencyCheckOutputName>Primer_D2010.exe</DCC_DependencyCheckOutputName>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <Version>7.0</Version>
+ <DCC_DebugInformation>False</DCC_DebugInformation>
+ <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ <DCC_ResourcePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_IncludePath)</DCC_IncludePath>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
+ <Version>7.0</Version>
+ <DCC_Define>DEBUG;IO_STATEMENT_LOGGING;$(DCC_Define)</DCC_Define>
+ <DCC_ResourcePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_IncludePath)</DCC_IncludePath>
+ </PropertyGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">2</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1030</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">InstantObjects.org</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">Primer Demo</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright">MPL public license</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">2.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ <Source>
+ <Source Name="MainSource">Primer_D2010.dpr</Source>
+ </Source>
+ <Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\RBuilder\Lib\dclRBC1114.bpl">ReportBuilder TeeChart 8 Components</Excluded_Packages>
+ </Excluded_Packages>
+ </Delphi.Personality>
+ <ModelSupport>False</ModelSupport>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <ItemGroup>
+ <DelphiCompile Include="Primer_D2010.dpr">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="Main.pas">
+ <Form>MainForm</Form>
+ </DCCReference>
+ <DCCReference Include="Model\Model.pas"/>
+ <DCCReference Include="ContactView.pas">
+ <Form>ContactViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="BasicView.pas">
+ <Form>BasicViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="BasicEdit.pas">
+ <Form>BasicEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactEdit.pas">
+ <Form>ContactEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="PersonEdit.pas">
+ <Form>PersonEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyEdit.pas">
+ <Form>CompanyEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="DemoData.pas"/>
+ <DCCReference Include="ContactFilterEdit.pas">
+ <Form>ContactFilterEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="MainData.pas">
+ <Form>MainDataModule</Form>
+ <DesignClass>TDataModule</DesignClass>
+ </DCCReference>
+ <DCCReference Include="ContactBrowse.pas">
+ <Form>ContactBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyBrowse.pas">
+ <Form>CompanyBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="PerformanceView.pas">
+ <Form>PerformanceViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="Welcome.pas">
+ <Form>WelcomeForm</Form>
+ </DCCReference>
+ <DCCReference Include="PersonBrowse.pas">
+ <Form>PersonBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="BasicBrowse.pas">
+ <Form>BasicBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CountryBrowse.pas">
+ <Form>CountryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="DemoDataRequest.pas">
+ <Form>DemoDataRequestForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactSort.pas">
+ <Form>ContactSortForm</Form>
+ </DCCReference>
+ <DCCReference Include="CategoryBrowse.pas">
+ <Form>CategoryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="HelpView.pas">
+ <Form>HelpViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="QueryView.pas">
+ <Form>QueryViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="RandomData.pas"/>
+ <DCCReference Include="Stopwatch.pas"/>
+ <DCCReference Include="Utility.pas"/>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ </Project>
Property changes on: trunk/Demos/PrimerCross/Primer_D2010.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_D2010.mdr
===================================================================
(Binary files differ)
Property changes on: trunk/Demos/PrimerCross/Primer_D2010.mdr
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Demos/PrimerCross/Primer_D2010.res
===================================================================
(Binary files differ)
Property changes on: trunk/Demos/PrimerCross/Primer_D2010.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Demos/PrimerCross/Primer_D2010.xml
===================================================================
--- trunk/Demos/PrimerCross/Primer_D2010.xml (rev 0)
+++ trunk/Demos/PrimerCross/Primer_D2010.xml 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,39 @@
+<TInstantConnectionDefs>
+ <TInstantBDEConnectionDef>
+ <Name>ParadoxDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <DriverName>STANDARD</DriverName>
+ <Parameters>PATH=.\ParadoxDB
+DEFAULT DRIVER=PARADOX
+ENABLE BCD=TRUE
+</Parameters>
+ </TInstantBDEConnectionDef>
+ <TInstantDBXConnectionDef>
+ <Name>FirebirdDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <ConnectionName>PrimerCrossISO</ConnectionName>
+ <DriverName>Firebird</DriverName>
+ <GetDriverFunc>getSQLDriverINTERBASE</GetDriverFunc>
+ <LibraryName>dbxfb.dll</LibraryName>
+ <Params>drivername=Firebird
+Database=.\FirebirdDB\PRIMERDB.FDB
+User_Name=SYSDBA
+Password=masterkey
+blobsize=-1
+localecode=0000
+devartinterbase transisolation=ReadCommited
+productname=Interbase
+ServerCharSet=ISO8859_1
+</Params>
+ <VendorLib>fbclient.dll</VendorLib>
+ </TInstantDBXConnectionDef>
+ <TInstantXMLConnectionDef>
+ <Name>XmlDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <RootFolder>.\XmlDB</RootFolder>
+ </TInstantXMLConnectionDef>
+</TInstantConnectionDefs>
Property changes on: trunk/Demos/PrimerCross/Primer_D2010.xml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_DXE.dpr
===================================================================
--- trunk/Demos/PrimerCross/Primer_DXE.dpr (rev 0)
+++ trunk/Demos/PrimerCross/Primer_DXE.dpr 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,80 @@
+(*
+ * InstantObjects
+ * Primer Demo - with "internal storage" of Part and Parts
+ * Model.pas unit is located in Model folder
+ *
+ *)
+
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is: Seleqt InstantObjects
+ *
+ * The Initial Developer of the Original Code is: Seleqt
+ *
+ * Portions created by the Initial Developer are Copyright (C) 2001-2003
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ * Carlo Barazzetta, Nando Dessena
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+program Primer_DXE;
+
+{$IFDEF LINUX}
+{$I '../../Source/InstantDefines.inc'}
+{$ELSE}
+{$I '..\..\Source\InstantDefines.inc'}
+{$ENDIF}
+
+
+uses
+ Forms,
+ Main in 'Main.pas' {MainForm},
+ Model in 'Model\Model.pas',
+ ContactView in 'ContactView.pas' {ContactViewForm: TFrame},
+ BasicView in 'BasicView.pas' {BasicViewForm: TFrame},
+ BasicEdit in 'BasicEdit.pas' {BasicEditForm},
+ ContactEdit in 'ContactEdit.pas' {ContactEditForm},
+ PersonEdit in 'PersonEdit.pas' {PersonEditForm},
+ CompanyEdit in 'CompanyEdit.pas' {CompanyEditForm},
+ DemoData in 'DemoData.pas',
+ ContactFilterEdit in 'ContactFilterEdit.pas' {ContactFilterEditForm},
+ MainData in 'MainData.pas' {MainDataModule: TDataModule},
+ ContactBrowse in 'ContactBrowse.pas' {ContactBrowseForm},
+ CompanyBrowse in 'CompanyBrowse.pas' {CompanyBrowseForm},
+ PerformanceView in 'PerformanceView.pas' {PerformanceViewForm: TFrame},
+ Welcome in 'Welcome.pas' {WelcomeForm},
+ PersonBrowse in 'PersonBrowse.pas' {PersonBrowseForm},
+ BasicBrowse in 'BasicBrowse.pas' {BasicBrowseForm},
+ CountryBrowse in 'CountryBrowse.pas' {CountryBrowseForm},
+ DemoDataRequest in 'DemoDataRequest.pas' {DemoDataRequestForm},
+ ContactSort in 'ContactSort.pas' {ContactSortForm},
+ CategoryBrowse in 'CategoryBrowse.pas' {CategoryBrowseForm},
+ HelpView in 'HelpView.pas' {HelpViewForm: TFrame},
+ QueryView in 'QueryView.pas' {QueryViewForm: TFrame},
+ RandomData in 'RandomData.pas',
+ Stopwatch in 'Stopwatch.pas',
+ Utility in 'Utility.pas';
+
+{$R *.res}
+{$R *.mdr} {Model}
+
+begin
+ Application.Initialize;
+ Application.Title := 'InstantObjects Primer Demo (Delphi XE version)';
+ Application.CreateForm(TMainForm, MainForm);
+ Application.CreateForm(TMainDataModule, MainDataModule);
+ Application.Run;
+end.
Property changes on: trunk/Demos/PrimerCross/Primer_DXE.dpr
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_DXE.dproj
===================================================================
--- trunk/Demos/PrimerCross/Primer_DXE.dproj (rev 0)
+++ trunk/Demos/PrimerCross/Primer_DXE.dproj 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,193 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{d197a2d4-31b9-43b1-8070-3f804d86e53f}</ProjectGuid>
+ <MainSource>Primer_DXE.dpr</MainSource>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <DCC_DependencyCheckOutputName>Primer.exe</DCC_DependencyCheckOutputName>
+ <ProjectVersion>12.2</ProjectVersion>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <Base>True</Base>
+ <Platform>Win32</Platform>
+ <AppType>Application</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <DCC_UnitSearchPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+ <DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;bdertl;vclimg;vclactnband;adortl;vcldbx;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;vclie;xmlrtl;inet;dsnap;inetdb;IndySystem;IndyCore;IndyProtocols;DbxClientDriver;inetdbxpress;inetdbbde;DataSnapServer;dbxcds;DBXInterBaseDriver;DBXMySQLDriver;DBXFirebirdDriver;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;vclib;ibxpress;intrawebdb_100_140;Intraweb_100_140;dsnapcon;vclribbon;VclSmp;soaprtl;TeeUI;TeeDB;Tee;vcltouch;webdsnap;websnap;rbRIDE1114;rbIDE1114;rbRAP1114;rbRCL1114;dclRBADO1114;rbADO1114;rbDB1114;rbDAD1114;dclRBBDE1114;rbDBDE1114;rbBDE1114;dclRBDBE1114;rbDBE1114;dclRBE1114;rbCIDE1114;dclRBIBE1114;rbIBE1114;rbUSERDesign1114;rbUSER1114;ActionBandExtensionsD2010;UniSynEdit_R2010;wPDF3_D2010;WPViewPDF_D2010;IOCore;Jcl;JclVcl;JvCoreD14R;JvSystemD14R;JvStdCtrlsD14R;JvAppFrmD14R;JvBandsD14R;JvDBD14R;JvDlgsD14R;JvBDED14R;JvCmpD14R;JvCryptD14R;JvCtrlsD14R;JvCustomD14R;JvDockingD14R;JvDotNetCtrlsD14R;JvEDID14R;JvGlobusD14R;JvHMID14R;JvInterpreterD14R;JvJansD14R;JvManagedThreadsD14R;JvMMD14R;JvNetD14R;JvPageCompsD14R;JvPluginD14R;JvPrintPreviewD14R;JvRuntimeDesignD14R;JvTimeFrameworkD14R;JvValidatorsD14R;JvWizardD14R;JvXPCtrlsD14R;rbDIDE1114;IOIBX;IOXML;IODBX;IOBDE;IOADO;ISRtl5;ISVcl5;ISOpenOffice5;ISFLib5</DCC_UsePackage>
+ <DCC_DependencyCheckOutputName>Primer_DXE.exe</DCC_DependencyCheckOutputName>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <Version>7.0</Version>
+ <DCC_DebugInformation>False</DCC_DebugInformation>
+ <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ <DCC_ResourcePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_IncludePath)</DCC_IncludePath>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
+ <Version>7.0</Version>
+ <DCC_Define>DEBUG;IO_STATEMENT_LOGGING;$(DCC_Define)</DCC_Define>
+ <DCC_ResourcePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;$(DCC_IncludePath)</DCC_IncludePath>
+ </PropertyGroup>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Parameters/>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">2</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">1030</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName">InstantObjects.org</VersionInfoKeys>
+ <VersionInfoKeys Name="FileDescription">Primer Demo</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright">MPL public license</VersionInfoKeys>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">2.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ <Source>
+ <Source Name="MainSource">Primer_DXE.dpr</Source>
+ </Source>
+ <Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\RBuilder\Lib\dclRBC1114.bpl">ReportBuilder TeeChart 8 Components</Excluded_Packages>
+ </Excluded_Packages>
+ </Delphi.Personality>
+ <ModelSupport>False</ModelSupport>
+ <Platforms>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <ItemGroup>
+ <DelphiCompile Include="Primer_DXE.dpr">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="Main.pas">
+ <Form>MainForm</Form>
+ </DCCReference>
+ <DCCReference Include="Model\Model.pas"/>
+ <DCCReference Include="ContactView.pas">
+ <Form>ContactViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="BasicView.pas">
+ <Form>BasicViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="BasicEdit.pas">
+ <Form>BasicEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactEdit.pas">
+ <Form>ContactEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="PersonEdit.pas">
+ <Form>PersonEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyEdit.pas">
+ <Form>CompanyEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="DemoData.pas"/>
+ <DCCReference Include="ContactFilterEdit.pas">
+ <Form>ContactFilterEditForm</Form>
+ </DCCReference>
+ <DCCReference Include="MainData.pas">
+ <Form>MainDataModule</Form>
+ <DesignClass>TDataModule</DesignClass>
+ </DCCReference>
+ <DCCReference Include="ContactBrowse.pas">
+ <Form>ContactBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CompanyBrowse.pas">
+ <Form>CompanyBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="PerformanceView.pas">
+ <Form>PerformanceViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="Welcome.pas">
+ <Form>WelcomeForm</Form>
+ </DCCReference>
+ <DCCReference Include="PersonBrowse.pas">
+ <Form>PersonBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="BasicBrowse.pas">
+ <Form>BasicBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="CountryBrowse.pas">
+ <Form>CountryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="DemoDataRequest.pas">
+ <Form>DemoDataRequestForm</Form>
+ </DCCReference>
+ <DCCReference Include="ContactSort.pas">
+ <Form>ContactSortForm</Form>
+ </DCCReference>
+ <DCCReference Include="CategoryBrowse.pas">
+ <Form>CategoryBrowseForm</Form>
+ </DCCReference>
+ <DCCReference Include="HelpView.pas">
+ <Form>HelpViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="QueryView.pas">
+ <Form>QueryViewForm</Form>
+ <DesignClass>TFrame</DesignClass>
+ </DCCReference>
+ <DCCReference Include="RandomData.pas"/>
+ <DCCReference Include="Stopwatch.pas"/>
+ <DCCReference Include="Utility.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Demos/PrimerCross/Primer_DXE.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Demos/PrimerCross/Primer_DXE.res
===================================================================
(Binary files differ)
Property changes on: trunk/Demos/PrimerCross/Primer_DXE.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Demos/PrimerCross/Primer_DXE.xml
===================================================================
--- trunk/Demos/PrimerCross/Primer_DXE.xml (rev 0)
+++ trunk/Demos/PrimerCross/Primer_DXE.xml 2010-09-17 07:20:12 UTC (rev 920)
@@ -0,0 +1,39 @@
+<TInstantConnectionDefs>
+ <TInstantBDEConnectionDef>
+ <Name>ParadoxDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <DriverName>STANDARD</DriverName>
+ <Parameters>PATH=.\ParadoxDB
+DEFAULT DRIVER=PARADOX
+ENABLE BCD=TRUE
+</Parameters>
+ </TInstantBDEConnectionDef>
+ <TInstantDBXConnectionDef>
+ <Name>FirebirdDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <BlobStreamFormat>sfXML</BlobStreamFormat>
+ <LoginPrompt>FALSE</LoginPrompt>
+ <ConnectionName>PrimerCrossISO</ConnectionName>
+ <DriverName>Firebird</DriverName>
+ <GetDriverFunc>getSQLDriverINTERBASE</GetDriverFunc>
+ <LibraryName>dbxfb.dll</LibraryName>
+ <Params>drivername=Firebird
+Database=.\FirebirdDB\PRIMERDB.FDB
+User_Name=SYSDBA
+Password=masterkey
+blobsize=-1
+localecode=0000
+devartinterbase transisolation=ReadCommited
+productname=Interbase
+ServerCharSet=ISO8859_1
+</Params>
+ <VendorLib>fbclient.dll</VendorLib>
+ </TInstantDBXConnectionDef>
+ <TInstantXMLConnectionDef>
+ <Name>XmlDB</Name>
+ <IsBuilt>TRUE</IsBuilt>
+ <RootFolder>.\XmlDB</RootFolder>
+ </TInstantXMLConnectionDef>
+</TInstantConnectionDefs>
Property changes on: trunk/Demos/PrimerCross/Primer_DXE.xml
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
|
|
From: <na...@us...> - 2010-09-16 10:47:21
|
Revision: 919
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=919&view=rev
Author: nandod
Date: 2010-09-16 10:47:14 +0000 (Thu, 16 Sep 2010)
Log Message:
-----------
* Test suite changed due to Burst Load Mode changes.
+ Missing Delphi XE test project files.
Modified Paths:
--------------
trunk/Tests/InstantMock.pas
Added Paths:
-----------
trunk/Tests/TestIO_DXE.dpr
trunk/Tests/TestIO_DXE.dproj
trunk/Tests/TestIO_DXE.mdr
trunk/Tests/TestIO_DXE.mdrt
trunk/Tests/TestIO_DXE.mdx
trunk/Tests/TestIO_DXE.mdxt
trunk/Tests/TestIO_DXE.res
Removed Paths:
-------------
trunk/Tests/TestIO_D2011.dpr
trunk/Tests/TestIO_D2011.res
Modified: trunk/Tests/InstantMock.pas
===================================================================
--- trunk/Tests/InstantMock.pas 2010-09-16 10:28:36 UTC (rev 918)
+++ trunk/Tests/InstantMock.pas 2010-09-16 10:47:14 UTC (rev 919)
@@ -24,7 +24,7 @@
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
- * Steven Mitchell
+ * Steven Mitchell, Nando Dessena
*
* ***** END LICENSE BLOCK ***** *)
@@ -36,7 +36,7 @@
uses
SysUtils, Classes, DB, InstantPersistence, InstantBrokers, InstantMetadata,
- InstantTypes, UbMockObject;
+ InstantTypes, InstantClasses, UbMockObject;
type
TInstantBrokerClass = class of TInstantBroker;
@@ -78,7 +78,8 @@
ConflictAction: TInstantConflictAction): Boolean; override;
function InternalRetrieveObject(AObject: TInstantObject;
const AObjectId: string;
- ConflictAction: TInstantConflictAction): Boolean; override;
+ ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean; override;
function InternalStoreObject(AObject: TInstantObject;
ConflictAction: TInstantConflictAction): Boolean; override;
public
@@ -97,7 +98,8 @@
ConflictAction: TInstantConflictAction): Boolean; override;
function InternalRetrieveObject(AObject: TInstantObject;
const AObjectId: String;
- ConflictAction: TInstantConflictAction): Boolean; override;
+ ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean; override;
function InternalStoreObject(AObject: TInstantObject;
ConflictAction: TInstantConflictAction): Boolean; override;
public
@@ -144,7 +146,8 @@
function InternalDisposeObject(AObject: TInstantObject; ConflictAction:
TInstantConflictAction): Boolean; override;
function InternalRetrieveObject(AObject: TInstantObject; const AObjectId:
- String; ConflictAction: TInstantConflictAction): Boolean; override;
+ String; ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean; override;
function InternalStoreObject(AObject: TInstantObject; ConflictAction:
TInstantConflictAction): Boolean; override;
public
@@ -288,7 +291,8 @@
function TInstantMockBroker.InternalRetrieveObject(AObject: TInstantObject;
const AObjectId: string;
- ConflictAction: TInstantConflictAction): Boolean;
+ ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean;
begin
Result := True;
FMock.AddExpectation('InternalRetrieveObject ' + AObjectId);
@@ -355,7 +359,8 @@
function TInstantMockCRBroker.InternalRetrieveObject(
AObject: TInstantObject; const AObjectId: String;
- ConflictAction: TInstantConflictAction): Boolean;
+ ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean;
begin
Result := True;
MockManager.AddExpectation('InternalRetrieveObject ' + CaToStr(ConflictAction) + ' ' + AObjectId);
@@ -507,7 +512,8 @@
end;
function TInstantMockSQLBroker.InternalRetrieveObject(AObject: TInstantObject;
- const AObjectId: String; ConflictAction: TInstantConflictAction): Boolean;
+ const AObjectId: String; ConflictAction: TInstantConflictAction;
+ const AObjectData: TInstantAbstractObjectData = nil): Boolean;
begin
Result := True;
MockManager.AddExpectation('InternalRetrieveObject ' + CaToStr(ConflictAction) + ' ' + AObjectId);
Deleted: trunk/Tests/TestIO_D2011.dpr
===================================================================
--- trunk/Tests/TestIO_D2011.dpr 2010-09-16 10:28:36 UTC (rev 918)
+++ trunk/Tests/TestIO_D2011.dpr 2010-09-16 10:47:14 UTC (rev 919)
@@ -1,68 +0,0 @@
-program TestIO_D2011;
-
-{$I '..\Source\InstantDefines.inc'}
-
-{$IFDEF FPC}
-{$mode objfpc}{$H+}
-{$ENDIF}
-
-uses
- Forms,
- guitestrunner,
- fpcunit,
- testregistry,
- testutils,
- testreport,
- InstantPersistence,
- InstantMock in 'InstantMock.pas',
- TestMockConnector in 'TestMockConnector.pas',
- TestMockBroker in 'TestMockBroker.pas',
- TestModel in 'TestModel.pas',
- TestInstantMetadata in 'TestInstantMetadata.pas',
- TestInstantFieldMetadata in 'TestInstantFieldMetadata.pas',
- TestInstantClassMetadata in 'TestInstantClassMetadata.pas',
- TestInstantAttributeMetadata in 'TestInstantAttributeMetadata.pas',
- TestInstantIndexMetadata in 'TestInstantIndexMetadata.pas',
- TestInstantTableMetadata in 'TestInstantTableMetadata.pas',
- TestInstantScheme in 'TestInstantScheme.pas',
- TestInstantClasses in 'TestInstantClasses.pas',
- TestInstantRtti in 'TestInstantRtti.pas',
- TestMinimalModel in 'TestMinimalModel.pas',
- TestInstantAttributeMap in 'TestInstantAttributeMap.pas',
- TestInstantAttribute in 'TestInstantAttribute.pas',
- TestInstantNumeric in 'TestInstantNumeric.pas',
- TestInstantInteger in 'TestInstantInteger.pas',
- TestInstantString in 'TestInstantString.pas',
- TestInstantDateTime in 'TestInstantDateTime.pas',
- TestInstantDate in 'TestInstantDate.pas',
- TestInstantTime in 'TestInstantTime.pas',
- TestInstantBoolean in 'TestInstantBoolean.pas',
- TestInstantFloat in 'TestInstantFloat.pas',
- TestInstantCurrency in 'TestInstantCurrency.pas',
- TestInstantBlob in 'TestInstantBlob.pas',
- TestInstantComplex in 'TestInstantComplex.pas',
- TestInstantPart in 'TestInstantPart.pas',
- TestInstantReference in 'TestInstantReference.pas',
- TestInstantObject in 'TestInstantObject.pas',
- TestInstantObjectState in 'TestInstantObjectState.pas',
- TestInstantCache in 'TestInstantCache.pas',
- TestInstantObjectStore in 'TestInstantObjectStore.pas',
- TestInstantParts in 'TestInstantParts.pas',
- TestInstantReferences in 'TestInstantReferences.pas',
- TestInstantCircularReferences in 'TestInstantCircularReferences.pas',
- TestInstantObjectReference in 'TestInstantObjectReference.pas',
- MinimalModel in 'MinimalModel.pas',
- TestXMLBroker in 'TestXMLBroker.pas',
- TestInstantCode in 'TestInstantCode.pas';
-
-{$R *.res}
-{$R *.mdr} {TestModel}
-
-begin
- Application.Initialize;
- InstantModel.ClassMetadatas.Clear;
- Application.CreateForm(TGUITestRunner, TestRunner);
- //Application.CreateForm(TTestRunner, TestRunner);
- Application.Run;
-end.
-
Deleted: trunk/Tests/TestIO_D2011.res
===================================================================
(Binary files differ)
Copied: trunk/Tests/TestIO_DXE.dpr (from rev 918, trunk/Tests/TestIO_D2011.dpr)
===================================================================
--- trunk/Tests/TestIO_DXE.dpr (rev 0)
+++ trunk/Tests/TestIO_DXE.dpr 2010-09-16 10:47:14 UTC (rev 919)
@@ -0,0 +1,68 @@
+program TestIO_DXE;
+
+{$I '..\Source\InstantDefines.inc'}
+
+{$IFDEF FPC}
+{$mode objfpc}{$H+}
+{$ENDIF}
+
+uses
+ Forms,
+ guitestrunner,
+ fpcunit,
+ testregistry,
+ testutils,
+ testreport,
+ InstantPersistence,
+ InstantMock in 'InstantMock.pas',
+ TestMockConnector in 'TestMockConnector.pas',
+ TestMockBroker in 'TestMockBroker.pas',
+ TestModel in 'TestModel.pas',
+ TestInstantMetadata in 'TestInstantMetadata.pas',
+ TestInstantFieldMetadata in 'TestInstantFieldMetadata.pas',
+ TestInstantClassMetadata in 'TestInstantClassMetadata.pas',
+ TestInstantAttributeMetadata in 'TestInstantAttributeMetadata.pas',
+ TestInstantIndexMetadata in 'TestInstantIndexMetadata.pas',
+ TestInstantTableMetadata in 'TestInstantTableMetadata.pas',
+ TestInstantScheme in 'TestInstantScheme.pas',
+ TestInstantClasses in 'TestInstantClasses.pas',
+ TestInstantRtti in 'TestInstantRtti.pas',
+ TestMinimalModel in 'TestMinimalModel.pas',
+ TestInstantAttributeMap in 'TestInstantAttributeMap.pas',
+ TestInstantAttribute in 'TestInstantAttribute.pas',
+ TestInstantNumeric in 'TestInstantNumeric.pas',
+ TestInstantInteger in 'TestInstantInteger.pas',
+ TestInstantString in 'TestInstantString.pas',
+ TestInstantDateTime in 'TestInstantDateTime.pas',
+ TestInstantDate in 'TestInstantDate.pas',
+ TestInstantTime in 'TestInstantTime.pas',
+ TestInstantBoolean in 'TestInstantBoolean.pas',
+ TestInstantFloat in 'TestInstantFloat.pas',
+ TestInstantCurrency in 'TestInstantCurrency.pas',
+ TestInstantBlob in 'TestInstantBlob.pas',
+ TestInstantComplex in 'TestInstantComplex.pas',
+ TestInstantPart in 'TestInstantPart.pas',
+ TestInstantReference in 'TestInstantReference.pas',
+ TestInstantObject in 'TestInstantObject.pas',
+ TestInstantObjectState in 'TestInstantObjectState.pas',
+ TestInstantCache in 'TestInstantCache.pas',
+ TestInstantObjectStore in 'TestInstantObjectStore.pas',
+ TestInstantParts in 'TestInstantParts.pas',
+ TestInstantReferences in 'TestInstantReferences.pas',
+ TestInstantCircularReferences in 'TestInstantCircularReferences.pas',
+ TestInstantObjectReference in 'TestInstantObjectReference.pas',
+ MinimalModel in 'MinimalModel.pas',
+ TestXMLBroker in 'TestXMLBroker.pas',
+ TestInstantCode in 'TestInstantCode.pas';
+
+{$R *.res}
+{$R *.mdr} {TestModel}
+
+begin
+ Application.Initialize;
+ InstantModel.ClassMetadatas.Clear;
+ Application.CreateForm(TGUITestRunner, TestRunner);
+ //Application.CreateForm(TTestRunner, TestRunner);
+ Application.Run;
+end.
+
Added: trunk/Tests/TestIO_DXE.dproj
===================================================================
--- trunk/Tests/TestIO_DXE.dproj (rev 0)
+++ trunk/Tests/TestIO_DXE.dproj 2010-09-16 10:47:14 UTC (rev 919)
@@ -0,0 +1,164 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{015d41df-eb42-4172-b75c-3e0f464f00cc}</ProjectGuid>
+ <MainSource>TestIO_DXE.dpr</MainSource>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <DCC_DependencyCheckOutputName>TestIO_DXE.exe</DCC_DependencyCheckOutputName>
+ <ProjectVersion>12.2</ProjectVersion>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <Base>True</Base>
+ <Platform>Win32</Platform>
+ <AppType>Application</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <DCC_UnitSearchPath>..\Source\Core;..\Source\Brokers\XML;.\ubmock\src;.\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
+ <DCC_DependencyCheckOutputName>TestIO_DXE.exe</DCC_DependencyCheckOutputName>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <Version>7.0</Version>
+ <DCC_DebugInformation>False</DCC_DebugInformation>
+ <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+ <DCC_Optimize>False</DCC_Optimize>
+ <DCC_TypedAtParameter>True</DCC_TypedAtParameter>
+ <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_ResourcePath>..\Source\Core;.\ubmock\src;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\Source\Core;.\ubmock\src;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\Source\Core;.\ubmock\src;$(DCC_IncludePath)</DCC_IncludePath>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <Version>7.0</Version>
+ <DCC_Optimize>False</DCC_Optimize>
+ <DCC_TypedAtParameter>True</DCC_TypedAtParameter>
+ <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+ <DCC_ResourcePath>..\Source\Core;.\ubmock\src;$(DCC_ResourcePath)</DCC_ResourcePath>
+ <DCC_ObjPath>..\Source\Core;.\ubmock\src;$(DCC_ObjPath)</DCC_ObjPath>
+ <DCC_IncludePath>..\Source\Core;.\ubmock\src;$(DCC_IncludePath)</DCC_IncludePath>
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="TestIO_DXE.dpr">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="InstantMock.pas"/>
+ <DCCReference Include="TestMockConnector.pas"/>
+ <DCCReference Include="TestMockBroker.pas"/>
+ <DCCReference Include="TestModel.pas"/>
+ <DCCReference Include="TestInstantMetadata.pas"/>
+ <DCCReference Include="TestInstantFieldMetadata.pas"/>
+ <DCCReference Include="TestInstantClassMetadata.pas"/>
+ <DCCReference Include="TestInstantAttributeMetadata.pas"/>
+ <DCCReference Include="TestInstantIndexMetadata.pas"/>
+ <DCCReference Include="TestInstantTableMetadata.pas"/>
+ <DCCReference Include="TestInstantScheme.pas"/>
+ <DCCReference Include="TestInstantClasses.pas"/>
+ <DCCReference Include="TestInstantRtti.pas"/>
+ <DCCReference Include="TestMinimalModel.pas"/>
+ <DCCReference Include="TestInstantAttributeMap.pas"/>
+ <DCCReference Include="TestInstantAttribute.pas"/>
+ <DCCReference Include="TestInstantNumeric.pas"/>
+ <DCCReference Include="TestInstantInteger.pas"/>
+ <DCCReference Include="TestInstantString.pas"/>
+ <DCCReference Include="TestInstantDateTime.pas"/>
+ <DCCReference Include="TestInstantDate.pas"/>
+ <DCCReference Include="TestInstantTime.pas"/>
+ <DCCReference Include="TestInstantBoolean.pas"/>
+ <DCCReference Include="TestInstantFloat.pas"/>
+ <DCCReference Include="TestInstantCurrency.pas"/>
+ <DCCReference Include="TestInstantBlob.pas"/>
+ <DCCReference Include="TestInstantComplex.pas"/>
+ <DCCReference Include="TestInstantPart.pas"/>
+ <DCCReference Include="TestInstantReference.pas"/>
+ <DCCReference Include="TestInstantObject.pas"/>
+ <DCCReference Include="TestInstantObjectState.pas"/>
+ <DCCReference Include="TestInstantCache.pas"/>
+ <DCCReference Include="TestInstantObjectStore.pas"/>
+ <DCCReference Include="TestInstantParts.pas"/>
+ <DCCReference Include="TestInstantReferences.pas"/>
+ <DCCReference Include="TestInstantCircularReferences.pas"/>
+ <DCCReference Include="TestInstantObjectReference.pas"/>
+ <DCCReference Include="MinimalModel.pas"/>
+ <DCCReference Include="TestXMLBroker.pas"/>
+ <DCCReference Include="TestInstantCode.pas"/>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj"/>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Compiler>
+ <Compiler Name="UsePackages">False</Compiler>
+ <Compiler Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;adortl;vclactnband;vclshlctrls;CS30Logging70;Rz30Ctls70;Rz30DBCtls70;ip4000v7;Rave60VCL;Rave60CLX;madBasic_;madDisAsm_;CLXIB;ibxpress;VCLIB;IOCore;IOIBX</Compiler>
+ </Compiler>
+ <Parameters>
+ <Parameters Name="DebugSourceDirs">..\Source\Core</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">1</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">0</VersionInfo>
+ <VersionInfo Name="Build">0</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">False</VersionInfo>
+ <VersionInfo Name="Locale">3081</VersionInfo>
+ <VersionInfo Name="CodePage">1252</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ </VersionInfoKeys>
+ <Source>
+ <Source Name="MainSource">TestIO_DXE.dpr</Source>
+ </Source>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ </Project>
Property changes on: trunk/Tests/TestIO_DXE.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE.mdr
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE.mdr
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Tests/TestIO_DXE.mdrt
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE.mdrt
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Tests/TestIO_DXE.mdx
===================================================================
--- trunk/Tests/TestIO_DXE.mdx (rev 0)
+++ trunk/Tests/TestIO_DXE.mdx 2010-09-16 10:47:14 UTC (rev 919)
@@ -0,0 +1,461 @@
+<TInstantClassMetadatas>
+ <TInstantClassMetadata>
+ <Name>TAddress</Name>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>City</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Country</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCountry</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>State</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>4</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Street</Name>
+ <AttributeType>atMemo</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Zip</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>10</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TCountry</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TPhone</Name>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Number</Name>
+ <AttributeType>atString</AttributeType>
+ <EditMask>(000) 000-0000;0;_</EditMask>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TEmail</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Address</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>100</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TCategory</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>Categories</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TContact</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Address</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Category</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCategory</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>City</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>50</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Phones</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPhone</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Projects</Name>
+ <AttributeType>atReferences</AttributeType>
+ <ExternalStorageName>Contact_Projects</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>ExternalAddress</Name>
+ <AttributeType>atPart</AttributeType>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>ExternalPhones</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Contact_ExternalPhones</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalPhone</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TContactFilter</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TPerson</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>BirthDate</Name>
+ <AttributeType>atDateTime</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Emails</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TEmail</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Employer</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCompany</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Picture</Name>
+ <AttributeType>atBlob</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Salary</Name>
+ <AttributeType>atCurrency</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ValidCharsString>,.0..9€</ValidCharsString>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Employed</Name>
+ <AttributeType>atBoolean</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>AL_hours</Name>
+ <AttributeType>atFloat</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>EmploymentDate</Name>
+ <AttributeType>atDate</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>BirthTime</Name>
+ <AttributeType>atTime</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TCompany</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Employees</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPerson</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>NoOfBranches</Name>
+ <AttributeType>atInteger</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Subsidiaries</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCompany</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProject</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>Projects</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>SubProjects</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Project_SubProjects</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Addresses</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Project_Addresses</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Manager</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TContact</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Participants</Name>
+ <AttributeType>atReferences</AttributeType>
+ <ExternalStorageName>Project_Participants</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TContact</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Items</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectItems</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TExternalAddress</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>ExternalAddresses</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Category</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCategory</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Site_Contact</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPerson</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TExternalPhone</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>ExternalPhones</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Number</Name>
+ <AttributeType>atString</AttributeType>
+ <EditMask>(000) 000-0000;0;_</EditMask>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectBox</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Project</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>RelatedProjectBoxes</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectBox</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectItem</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Description</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>50</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Country</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCountry</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectItems</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Items</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectItem</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+</TInstantClassMetadatas>
Property changes on: trunk/Tests/TestIO_DXE.mdx
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE.mdxt
===================================================================
--- trunk/Tests/TestIO_DXE.mdxt (rev 0)
+++ trunk/Tests/TestIO_DXE.mdxt 2010-09-16 10:47:14 UTC (rev 919)
@@ -0,0 +1,445 @@
+<TInstantClassMetadatas>
+ <TInstantClassMetadata>
+ <Name>TAddress</Name>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>City</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Country</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCountry</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>State</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>4</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Street</Name>
+ <AttributeType>atMemo</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Zip</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>10</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TCountry</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TPhone</Name>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Number</Name>
+ <AttributeType>atString</AttributeType>
+ <EditMask>(000) 000-0000;0;_</EditMask>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TEmail</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Address</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>100</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TContact</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Address</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Category</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCategory</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>City</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>TRUE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>50</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Phones</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPhone</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Projects</Name>
+ <AttributeType>atReferences</AttributeType>
+ <ExternalStorageName>Contact_Projects</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>ExternalAddress</Name>
+ <AttributeType>atPart</AttributeType>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>ExternalPhones</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Contact_ExternalPhones</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalPhone</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TContactFilter</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peEmbedded</Persistence>
+ <AttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TPerson</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>BirthDate</Name>
+ <AttributeType>atDateTime</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Emails</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TEmail</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Employer</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCompany</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Picture</Name>
+ <AttributeType>atBlob</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Salary</Name>
+ <AttributeType>atCurrency</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ValidCharsString>,.0..9€</ValidCharsString>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Employed</Name>
+ <AttributeType>atBoolean</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>AL_hours</Name>
+ <AttributeType>atFloat</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>EmploymentDate</Name>
+ <AttributeType>atDate</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>BirthTime</Name>
+ <AttributeType>atTime</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TCompany</Name>
+ <ParentName>TContact</ParentName>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Employees</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPerson</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>NoOfBranches</Name>
+ <AttributeType>atInteger</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Subsidiaries</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCompany</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProject</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>Projects</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>SubProjects</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Project_SubProjects</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Addresses</Name>
+ <AttributeType>atParts</AttributeType>
+ <ExternalStorageName>Project_Addresses</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TExternalAddress</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Manager</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TContact</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Participants</Name>
+ <AttributeType>atReferences</AttributeType>
+ <ExternalStorageName>Project_Participants</ExternalStorageName>
+ <StorageKind>skExternal</StorageKind>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TContact</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Items</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectItems</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TExternalAddress</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>ExternalAddresses</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>30</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Category</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCategory</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Site_Contact</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TPerson</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TExternalPhone</Name>
+ <Persistence>peStored</Persistence>
+ <StorageName>ExternalPhones</StorageName>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Name</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Number</Name>
+ <AttributeType>atString</AttributeType>
+ <EditMask>(000) 000-0000;0;_</EditMask>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>20</Size>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectBox</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Project</Name>
+ <AttributeType>atPart</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProject</ObjectClassName>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>RelatedProjectBoxes</Name>
+ <AttributeType>atReferences</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectBox</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectItem</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Description</Name>
+ <AttributeType>atString</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <Size>50</Size>
+ </TInstantAttributeMetadata>
+ <TInstantAttributeMetadata>
+ <Name>Country</Name>
+ <AttributeType>atReference</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TCountry</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+ <TInstantClassMetadata>
+ <Name>TProjectItems</Name>
+ <Persistence>peStored</Persistence>
+ <AttributeMetadatas>
+ <TInstantAttributeMetadatas>
+ <TInstantAttributeMetadata>
+ <Name>Items</Name>
+ <AttributeType>atParts</AttributeType>
+ <IsIndexed>FALSE</IsIndexed>
+ <IsRequired>FALSE</IsRequired>
+ <ObjectClassName>TProjectItem</ObjectClassName>
+ </TInstantAttributeMetadata>
+ </TInstantAttributeMetadatas>
+ </AttributeMetadatas>
+ </TInstantClassMetadata>
+</TInstantClassMetadatas>
Property changes on: trunk/Tests/TestIO_DXE.mdxt
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Copied: trunk/Tests/TestIO_DXE.res (from rev 918, trunk/Tests/TestIO_D2011.res)
===================================================================
(Binary files differ)
|
