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: Carlo B. <car...@us...> - 2005-02-10 22:57:04
|
Update of /cvsroot/instantobjects/Source/Core/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29425/D5 Log Message: Directory /cvsroot/instantobjects/Source/Core/D5 added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:56:35
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29258/Source/Brokers/XML/D5 Added Files: DclIOXML.cfg DclIOXML.dof DclIOXML.dpk Ioxml.cfg Ioxml.dof Ioxml.dpk Log Message: Delphi 5 XML Broker --- NEW FILE: DclIOXML.dpk --- package DclIOXML; {$R *.RES} {$R '..\InstantXML.dcr'} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects XML Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires IOXML; contains InstantXMLReg in '..\InstantXMLReg.pas'; end. --- NEW FILE: DclIOXML.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: Ioxml.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: Ioxml.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects XML Run-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\XML\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects XML Run-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=..\core [HistoryLists\hlBPLOutput] Count=1 Item0=$(DELPHI)\Lib --- NEW FILE: Ioxml.dpk --- package IOXML; {$R *.RES} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects XML Run-Time Support (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires IOCore, VCLX50; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; end. --- NEW FILE: DclIOXML.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects XML Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\XML\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects XML Design-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=..\core [HistoryLists\hlBPLOutput] Count=1 Item0=$(DELPHI)\Lib |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:55:56
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28909/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/XML/D5 added to the repository |
Update of /cvsroot/instantobjects/Source/Brokers/IBX/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28330/Source/Brokers/IBX/D5 Added Files: DclIOIBX.cfg DclIOIBX.dof DclIOIBX.dpk DclIOIBX.res Ioibx.cfg Ioibx.dof Ioibx.dpk Ioibx.res Log Message: Delphi 5 IBX Broker --- NEW FILE: Ioibx.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Ioibx.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: Ioibx.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects IBX Run-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\IBX\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects IBX Run-Time Support (Delphi 5) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 --- NEW FILE: DclIOIBX.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: DclIOIBX.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects IBX Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\IBX\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects IBX Design-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 --- NEW FILE: Ioibx.dpk --- package IOIBX; {$R *.RES} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects IBX Run-Time Support (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires IOCore, VCLIB50; contains InstantIBXConnectionDefEdit in '..\InstantIBXConnectionDefEdit.pas' {InstantIBXConnectionDefEditForm}, InstantIBX in '..\InstantIBX.pas'; end. --- NEW FILE: DclIOIBX.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOIBX.dpk --- package DclIOIBX; {$R *.RES} {$R '..\InstantIBX.dcr'} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects IBX Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires IOCore, IOIBX; contains InstantIBXReg in '..\InstantIBXReg.pas'; end. |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:53:30
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27867/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/IBX/D5 added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:52:45
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27556/Source/Brokers/BDE/D5 Added Files: DclIOBDE.cfg DclIOBDE.dof DclIOBDE.dpk DclIOBDE.res Iobde.cfg Iobde.dpk Iobde.res Log Message: Delphi 5 BDE Broker --- NEW FILE: DclIOBDE.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects BDE Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Documents and Settings\nandod\Documenti\Work\DelphiComps\D7\IO16\Source\Brokers\BDE\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects BDE Design-Time Support (Delphi 5) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 --- NEW FILE: Iobde.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: Iobde.dpk --- package Iobde; {$R *.RES} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects BDE Run-Time Support (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires IOCore, VCLBDE50; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; end. --- NEW FILE: DclIOBDE.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOBDE.dpk --- package DclIOBDE; {$R *.RES} {$R '..\InstantBDE.dcr'} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects BDE Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires IOCore, Iobde; contains InstantBDEReg in '..\InstantBDEReg.pas'; end. --- NEW FILE: Iobde.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOBDE.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:50:32
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26693/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/BDE/D5 added to the repository |
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25937/Source/Brokers/ADO/D5 Added Files: DclIOADO.cfg DclIOADO.dof DclIOADO.dpk DclIOADO.res IoAdo.res Ioado.cfg Ioado.dof Ioado.dpk Log Message: Delphi 5 ADO Broker --- NEW FILE: DclIOADO.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=1 R=1 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects ADO Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=$(DELPHI)\Lib\Debug Packages=vcl;rtl;dbrtl Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams=/nostart HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir=C:\Programmi\Borland\Delphi7\Bin\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects ADO Design-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=$(DELPHI)\Lib\Debug --- NEW FILE: Ioado.dpk --- package IOADO; {$R *.RES} {$ALIGN ON} {$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 OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects ADO Run-Time Support (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires IOCore, VCLADO50; contains InstantADOX in '..\InstantADOX.pas', InstantADOJRO in '..\InstantADOJRO.pas', InstantADOTools in '..\InstantADOTools.pas', InstantADOConnectionDefEdit in '..\InstantADOConnectionDefEdit.pas' {InstantADOConnectionDefEditForm}, InstantADO in '..\InstantADO.pas'; end. --- NEW FILE: DclIOADO.dpk --- package DclIOADO; {$R *.RES} {$R '..\InstantADO.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS ON} {$RANGECHECKS ON} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects ADO Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires Ioado; contains InstantADOReg in '..\InstantADOReg.pas'; end. --- NEW FILE: DclIOADO.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q+ -$R+ -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -U"c:\programmi\borland\delphi5\Lib\Debug" -O"c:\programmi\borland\delphi5\Lib\Debug" -I"c:\programmi\borland\delphi5\Lib\Debug" -R"c:\programmi\borland\delphi5\Lib\Debug" -Z --- NEW FILE: Ioado.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\programmi\borland\delphi5\Projects\Bpl" -LN"c:\programmi\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: DclIOADO.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Ioado.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects ADO Run-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000410 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName= FileDescription=InstantObjects ADO Run-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7.0 --- NEW FILE: IoAdo.res --- (This appears to be a binary file; contents omitted.) |
|
From: Carlo B. <car...@us...> - 2005-02-10 22:46:50
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25280/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/ADO/D5 added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 13:10:03
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/Pictures In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17031/Demos/PrimerCross/Pictures Removed Files: Thumbs.db Log Message: Primer Demo: simplified compile and run for beginners --- Thumbs.db DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-10 13:04:51
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14776/Demos/PrimerCross Modified Files: BasicView.pas ContactView.dfm PerformanceView.dfm PerformanceView.pas Primer.cfg Primer.dof Primer.dpr Primer.tst Added Files: Primer.xml PrimerExternal.dof PrimerExternal.xml Log Message: Primer Demo: simplified compile and run for beginners Index: PerformanceView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PerformanceView.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** PerformanceView.pas 7 Dec 2004 08:45:33 -0000 1.5 --- PerformanceView.pas 10 Feb 2005 13:04:25 -0000 1.6 *************** *** 24,28 **** type ! TMeasureType = (mtStore, mtRetrieve, mtDispose); TTestResult = class(TInstantCollectionItem) --- 24,28 ---- type ! TMeasureType = (mtStore, mtRetrieve, mtQuery, mtDispose); TTestResult = class(TInstantCollectionItem) *************** *** 72,81 **** procedure BeginMeasure; procedure EndMeasure(MeasureType: TMeasureType; Count: Integer); ! procedure Run(Retrieve, Dispose : boolean); virtual; abstract; property Stopwatch: TStopwatch read GetStopwatch; property TestResult: TTestResult read GetTestResult; public destructor Destroy; override; ! procedure Execute(Retrieve, Dispose : boolean); function ExtractResult: TTestResult; property OnShowStatus: TShowStatusEvent read FOnShowStatus write FOnShowStatus; --- 72,81 ---- procedure BeginMeasure; procedure EndMeasure(MeasureType: TMeasureType; Count: Integer); ! procedure Run(Retrieve, Query, Dispose : boolean); virtual; abstract; property Stopwatch: TStopwatch read GetStopwatch; property TestResult: TTestResult read GetTestResult; public destructor Destroy; override; ! procedure Execute(Retrieve, Query, Dispose : boolean); function ExtractResult: TTestResult; property OnShowStatus: TShowStatusEvent read FOnShowStatus write FOnShowStatus; *************** *** 92,98 **** procedure TestRetrieve; procedure TestDispose; procedure Operation(Method: TMethod); protected ! procedure Run(Retrieve, Dispose : boolean); override; property ObjectList: TStringList read GetObjectList; public --- 92,99 ---- procedure TestRetrieve; procedure TestDispose; + procedure TestQuery; procedure Operation(Method: TMethod); protected ! procedure Run(Retrieve, Query, Dispose : boolean); override; property ObjectList: TStringList read GetObjectList; public *************** *** 122,130 **** TestResultRenameItem: TMenuItem; TransactionsCheckBox: TCheckBox; - PreparedQueryCheckBox: TCheckBox; NumberLabel: TLabel; ObjectsEdit: TMaskEdit; TestRetrieveCheckBox: TCheckBox; TestDisposeCheckBox: TCheckBox; procedure RunButtonClick(Sender: TObject); procedure TestResultListViewChange(Sender: TObject; Item: TListItem; --- 123,133 ---- TestResultRenameItem: TMenuItem; TransactionsCheckBox: TCheckBox; NumberLabel: TLabel; ObjectsEdit: TMaskEdit; TestRetrieveCheckBox: TCheckBox; TestDisposeCheckBox: TCheckBox; + PoolOptionsRadioGroup: TRadioGroup; + TestQueryCheckBox: TCheckBox; + Series1: TBarSeries; procedure RunButtonClick(Sender: TObject); procedure TestResultListViewChange(Sender: TObject; Item: TListItem; *************** *** 141,145 **** {$ENDIF} procedure TransactionsCheckBoxClick(Sender: TObject); ! procedure PreparedQueryCheckBoxClick(Sender: TObject); procedure TestDisposeCheckBoxClick(Sender: TObject); procedure TestRetrieveCheckBoxClick(Sender: TObject); --- 144,148 ---- {$ENDIF} procedure TransactionsCheckBoxClick(Sender: TObject); ! procedure PoolOptionsRadioGroupClick(Sender: TObject); procedure TestDisposeCheckBoxClick(Sender: TObject); procedure TestRetrieveCheckBoxClick(Sender: TObject); *************** *** 162,165 **** --- 165,169 ---- procedure FormCreate(Sender: TObject); override; procedure FormHide(Sender: TObject); override; + procedure FormShow(Sender: TObject); override; destructor Destroy; override; procedure UpdateControls; override; *************** *** 264,270 **** end; ! procedure TTest.Execute(Retrieve, Dispose : boolean); begin ! Run(Retrieve,Dispose); end; --- 268,274 ---- end; ! procedure TTest.Execute(Retrieve, Query, Dispose : boolean); begin ! Run(Retrieve,Query,Dispose); end; *************** *** 337,343 **** end; ! procedure TPersistenceTest.Run(Retrieve, Dispose : boolean); begin ! Stopwatch.Start((1+Ord(Retrieve)+Ord(Dispose)) * Count); try //Test always store operations (necessary to test retrieve and dispose) --- 341,347 ---- end; ! procedure TPersistenceTest.Run(Retrieve, Query, Dispose : boolean); begin ! Stopwatch.Start((1+Ord(Retrieve)+Ord(Query)+Ord(Dispose)) * Count); try //Test always store operations (necessary to test retrieve and dispose) *************** *** 345,348 **** --- 349,354 ---- if Retrieve then Operation(TestRetrieve); + if Query then + Operation(TestQuery); if Dispose then Operation(TestDispose); *************** *** 391,394 **** --- 397,426 ---- end; + procedure TPersistenceTest.TestQuery; + var + InstantQuery : TInstantQuery; + i : integer; + begin + InstantQuery := InstantDefaultConnector.CreateQuery; + try + InstantQuery.Command := 'SELECT * FROM ANY TCompany WHERE Id = :Id'; + InstantQuery.FetchParams(InstantQuery.Command, InstantQuery.Params); + BeginMeasure; + try + for I := 0 to Pred(ObjectList.Count) do + begin + InstantQuery.Params.ParamByName('Id').AsString := ObjectList[I]; + Stopwatch.Step; + InstantQuery.Open; + InstantQuery.Close; + end; + finally + EndMeasure(mtQuery, ObjectList.Count); + end; + finally + InstantQuery.Free; + end; + end; + procedure TPersistenceTest.TestStore; var *************** *** 438,444 **** TestResultListView.Columns[0].Width := 180; {$ENDIF} - - LoadTestResults; - ShowTestResults; end; --- 470,473 ---- *************** *** 485,489 **** OnShowStatus := TestShowStatus; Count := StrToInt(Trim(ObjectsEdit.text)); ! Execute(TestRetrieveCheckBox.Checked, TestDisposeCheckBox.Checked); AResult := ExtractResult; AResult.Name := ConnectionName; --- 514,518 ---- OnShowStatus := TestShowStatus; Count := StrToInt(Trim(ObjectsEdit.text)); ! Execute(TestRetrieveCheckBox.Checked, TestQueryCheckBox.Checked, TestDisposeCheckBox.Checked); AResult := ExtractResult; AResult.Name := ConnectionName; *************** *** 642,651 **** if Assigned(Connector) and (Connector.Broker is TInstantSQLBroker) then begin ! PreparedQueryCheckBox.Visible := True; ! PreparedQueryCheckBox.Enabled := IsConnected; ! PreparedQueryCheckBox.Checked := IsConnected and TInstantSQLBroker(Connector.Broker).UsePreparedQuery; end else ! PreparedQueryCheckBox.Visible := False; ConnectionLabel.Caption := 'Connection: ' + ConnectionName; --- 671,685 ---- if Assigned(Connector) and (Connector.Broker is TInstantSQLBroker) then begin ! PoolOptionsRadioGroup.Visible := True; ! PoolOptionsRadioGroup.Enabled := IsConnected; ! if TInstantSQLBroker(Connector.Broker).UsePreparedQuery then ! PoolOptionsRadioGroup.ItemIndex := 1 ! else if TInstantSQLBroker(Connector.Broker).StatementCacheCapacity <> 0 then ! PoolOptionsRadioGroup.ItemIndex := 2 ! else ! PoolOptionsRadioGroup.ItemIndex := 0; end else ! PoolOptionsRadioGroup.Visible := False; ConnectionLabel.Caption := 'Connection: ' + ConnectionName; *************** *** 659,667 **** end; ! procedure TPerformanceViewForm.PreparedQueryCheckBoxClick(Sender: TObject); begin inherited; if Connector.Broker is TInstantSQLBroker then ! TInstantSQLBroker(Connector.Broker).UsePreparedQuery := PreparedQueryCheckBox.Checked; end; --- 693,717 ---- end; ! procedure TPerformanceViewForm.PoolOptionsRadioGroupClick(Sender: TObject); begin inherited; if Connector.Broker is TInstantSQLBroker then ! case PoolOptionsRadioGroup.ItemIndex of ! 0 : ! begin ! TInstantSQLBroker(Connector.Broker).UsePreparedQuery := False; ! TInstantSQLBroker(Connector.Broker).StatementCacheCapacity := 0; ! end; ! 1 : ! begin ! TInstantSQLBroker(Connector.Broker).UsePreparedQuery := True; ! TInstantSQLBroker(Connector.Broker).StatementCacheCapacity := 0; ! end; ! 2 : ! begin ! TInstantSQLBroker(Connector.Broker).UsePreparedQuery := False; ! TInstantSQLBroker(Connector.Broker).StatementCacheCapacity := -1; ! end; ! end; end; *************** *** 691,694 **** --- 741,762 ---- end; + procedure TPerformanceViewForm.FormShow(Sender: TObject); + begin + inherited; + Try + LoadTestResults; + ShowTestResults; + Except + On E : EReadError do + begin + ShowMessageFmt('Problems "%s" loading test results File %s: it can be in an older format!', + [E.Message,GetTestResultsFileName]); + ShowTestResults; + end + else + raise; + End; + end; + initialization RegisterClasses([TTestResults, TTestResult]); Index: Primer.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.dof,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Primer.dof 7 Dec 2004 08:45:33 -0000 1.4 --- Primer.dof 10 Feb 2005 13:04:33 -0000 1.5 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB Packages= Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB Packages= Conditionals= *************** *** 114,119 **** AutoIncBuild=0 MajorVer=1 ! MinorVer=6 ! Release=7 Build=0 Debug=0 --- 114,119 ---- AutoIncBuild=0 MajorVer=1 ! MinorVer=7 ! Release=0 Build=0 Debug=0 *************** *** 127,131 **** CompanyName=InstantObjects.org FileDescription=Primer Demo ! FileVersion=1.6.7.0 InternalName= LegalCopyright=MPL public license --- 127,131 ---- CompanyName=InstantObjects.org FileDescription=Primer Demo ! FileVersion=1.7.0.0 InternalName= LegalCopyright=MPL public license *************** *** 133,136 **** OriginalFilename= ProductName= ! ProductVersion=1.6.7 Comments= --- 133,136 ---- OriginalFilename= ProductName= ! ProductVersion=1.7 Comments= --- NEW FILE: PrimerExternal.xml --- <TInstantConnectionDefs> <TInstantIBXConnectionDef> <Name>FirebirdDBExternal</Name> <IsBuilt>TRUE</IsBuilt> <LoginPrompt>FALSE</LoginPrompt> <Path>.\FirebirdDB\PRIMERDBEXTERNAL.FDB</Path> <NetType>ntLocal</NetType> <Options>ibxUseDelimitedIdents</Options> <Params>User_Name=SYSDBA Password=masterkey</Params> </TInstantIBXConnectionDef> </TInstantConnectionDefs> Index: PerformanceView.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PerformanceView.dfm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PerformanceView.dfm 23 Aug 2004 09:55:19 -0000 1.3 --- PerformanceView.dfm 10 Feb 2005 13:04:25 -0000 1.4 *************** *** 16,20 **** Top = 0 Width = 745 ! Height = 113 Align = alTop BevelOuter = bvNone --- 16,20 ---- Top = 0 Width = 745 ! Height = 121 Align = alTop BevelOuter = bvNone *************** *** 30,34 **** object InfoBevel: TBevel Left = 0 ! Top = 104 Width = 745 Height = 9 --- 30,34 ---- object InfoBevel: TBevel Left = 0 ! Top = 112 Width = 745 Height = 9 *************** *** 37,41 **** end object ConnectionLabel: TLabel ! Left = 188 Top = 4 Width = 132 --- 37,41 ---- end object ConnectionLabel: TLabel ! Left = 280 Top = 4 Width = 132 *************** *** 86,91 **** end object NumberLabel: TLabel ! Left = 4 ! Top = 68 Width = 77 Height = 13 --- 86,91 ---- end object NumberLabel: TLabel ! Left = 16 ! Top = 72 Width = 77 Height = 13 *************** *** 94,110 **** end object RunButton: TButton ! Left = 404 ! Top = 68 ! Width = 73 Height = 25 Caption = '&Run Now' ! TabOrder = 6 OnClick = RunButtonClick end object InfoMemo: TMemo Left = 40 ! Top = 20 ! Width = 697 ! Height = 45 TabStop = False Enabled = False --- 94,110 ---- end object RunButton: TButton ! Left = 480 ! Top = 36 ! Width = 105 Height = 25 Caption = '&Run Now' ! TabOrder = 7 OnClick = RunButtonClick end object InfoMemo: TMemo Left = 40 ! Top = 18 ! Width = 437 ! Height = 51 TabStop = False Enabled = False *************** *** 112,179 **** 'This page allows you to run a performance test on the current co' + ! 'nnection. The performance test will measure the speed of store, ' + ! 'retrieve and ' ! 'dispose operations. Test results can be compared to other connec' + ! 'tions in the chart below.') ReadOnly = True TabOrder = 0 end object TransactionsCheckBox: TCheckBox ! Left = 233 ! Top = 68 ! Width = 140 Height = 17 Caption = 'Use &Transactions' ! TabOrder = 1 OnClick = TransactionsCheckBoxClick end - object PreparedQueryCheckBox: TCheckBox - Left = 233 - Top = 84 - Width = 140 - Height = 17 - Caption = 'Use &Prepared Queries' - TabOrder = 2 - OnClick = PreparedQueryCheckBoxClick - end object ObjectsEdit: TMaskEdit ! Left = 4 ! Top = 82 Width = 73 Height = 21 EditMask = '#########;1; ' MaxLength = 9 ! TabOrder = 3 Text = '500 ' end object TestRetrieveCheckBox: TCheckBox Left = 101 ! Top = 68 ! Width = 100 Height = 17 Caption = 'Test Retrieve' Checked = True State = cbChecked ! TabOrder = 4 OnClick = TestRetrieveCheckBoxClick end object TestDisposeCheckBox: TCheckBox Left = 101 ! Top = 84 ! Width = 100 Height = 17 Caption = 'Test Dispose' Checked = True State = cbChecked ! TabOrder = 5 OnClick = TestDisposeCheckBoxClick end end object ResultPanel: TPanel Left = 0 ! Top = 113 Width = 745 ! Height = 447 Align = alClient BevelOuter = bvNone --- 112,197 ---- 'This page allows you to run a performance test on the current co' + ! 'nnection.' ! 'You can measure the speed of store, retrieve query and dispose o' + ! 'perations.' ! ! 'Test results can be compared to other connections in the chart b' + ! 'elow.') ReadOnly = True TabOrder = 0 end object TransactionsCheckBox: TCheckBox ! Left = 479 ! Top = 16 ! Width = 112 Height = 17 Caption = 'Use &Transactions' ! TabOrder = 6 OnClick = TransactionsCheckBoxClick end object ObjectsEdit: TMaskEdit ! Left = 16 ! Top = 86 Width = 73 Height = 21 EditMask = '#########;1; ' MaxLength = 9 ! TabOrder = 1 Text = '500 ' end object TestRetrieveCheckBox: TCheckBox Left = 101 ! Top = 66 ! Width = 95 Height = 17 Caption = 'Test Retrieve' Checked = True State = cbChecked ! TabOrder = 2 OnClick = TestRetrieveCheckBoxClick end object TestDisposeCheckBox: TCheckBox Left = 101 ! Top = 96 ! Width = 95 Height = 17 Caption = 'Test Dispose' Checked = True State = cbChecked ! TabOrder = 4 OnClick = TestDisposeCheckBoxClick end + object PoolOptionsRadioGroup: TRadioGroup + Left = 200 + Top = 68 + Width = 385 + Height = 47 + Caption = 'SQL brokers features' + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + 'No cache' + 'Prepared queries' + 'Statements cache') + TabOrder = 5 + OnClick = PoolOptionsRadioGroupClick + end + object TestQueryCheckBox: TCheckBox + Left = 101 + Top = 81 + Width = 95 + Height = 17 + Caption = 'Test Query' + Checked = True + State = cbChecked + TabOrder = 3 + end end object ResultPanel: TPanel Left = 0 ! Top = 121 Width = 745 ! Height = 439 Align = alClient BevelOuter = bvNone *************** *** 183,187 **** Top = 0 Width = 209 ! Height = 447 Align = alLeft BevelOuter = bvNone --- 201,205 ---- Top = 0 Width = 209 ! Height = 439 Align = alLeft BevelOuter = bvNone *************** *** 192,196 **** Top = 4 Width = 201 ! Height = 439 Align = alClient Checkboxes = True --- 210,214 ---- Top = 4 Width = 201 ! Height = 431 Align = alClient Checkboxes = True *************** *** 211,215 **** Top = 0 Width = 536 ! Height = 447 Align = alClient BevelOuter = bvNone --- 229,233 ---- Top = 0 Width = 536 ! Height = 439 Align = alClient BevelOuter = bvNone *************** *** 219,223 **** Top = 0 Width = 536 ! Height = 447 BackWall.Brush.Color = clWhite LeftWall.Color = clWhite --- 237,241 ---- Top = 0 Width = 536 ! Height = 439 BackWall.Brush.Color = clWhite LeftWall.Color = clWhite *************** *** 262,265 **** --- 280,297 ---- YValues.Order = loNone end + object Series1: TBarSeries + Marks.ArrowLength = 20 + Marks.Visible = False + SeriesColor = 16744576 + Title = 'Query' + XValues.DateTime = False + XValues.Name = 'X' + XValues.Multiplier = 1.000000000000000000 + XValues.Order = loAscending + YValues.DateTime = False + YValues.Name = 'Bar' + YValues.Multiplier = 1.000000000000000000 + YValues.Order = loNone + end object TestResultDisposeSeries: TBarSeries Marks.ArrowLength = 20 Index: Primer.tst =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.tst,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvs82fpSj and /tmp/cvsrQhoEN differ Index: Primer.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.cfg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Primer.cfg 7 Dec 2004 08:45:33 -0000 1.3 --- Primer.cfg 10 Feb 2005 13:04:33 -0000 1.4 *************** *** 34,41 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" -w-UNIT_PLATFORM -w-UNSAFE_TYPE --- 34,41 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB" -w-UNIT_PLATFORM -w-UNSAFE_TYPE Index: ContactView.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactView.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ContactView.dfm 29 Jul 2004 20:43:09 -0000 1.2 --- ContactView.dfm 10 Feb 2005 13:04:25 -0000 1.3 *************** *** 148,152 **** Top = 0 Action = ExplorerAction - Down = True Style = tbsCheck end --- 148,151 ---- --- NEW FILE: Primer.xml --- <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> <Path>.\FirebirdDB\PRIMERDB.FDB</Path> <NetType>ntLocal</NetType> <Options>ibxUseDelimitedIdents</Options> <Params>User_Name=SYSDBA Password=masterkey</Params> </TInstantIBXConnectionDef> </TInstantConnectionDefs> Index: Primer.dpr =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.dpr,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Primer.dpr 7 Dec 2004 08:45:33 -0000 1.4 --- Primer.dpr 10 Feb 2005 13:04:33 -0000 1.5 *************** *** 30,33 **** --- 30,35 ---- * - cross-platform porting for Delphi & Kilix * - PerformanceView form changed to make tests with UsePreparedQuery + * - PerformanceView form changed to make tests with Statement Cache + * - PerformanceView form changed to make tests of Queries * Salary attribute of type Currency added to Person * PersonEdit form and random data form changed to test Graphic support Index: BasicView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicView.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** BasicView.pas 29 Jul 2004 20:43:09 -0000 1.2 --- BasicView.pas 10 Feb 2005 13:04:25 -0000 1.3 *************** *** 31,34 **** --- 31,35 ---- procedure FormCreate(Sender: TObject); virtual; procedure FormHide(Sender: TObject); virtual; + procedure FormShow(Sender: TObject); virtual; procedure Connect; virtual; procedure Disconnect; virtual; *************** *** 69,72 **** --- 70,78 ---- end; + procedure TBasicViewForm.FormShow(Sender: TObject); + begin + Self.Show; + end; + function TBasicViewForm.GetConnectionName: string; begin --- NEW FILE: PrimerExternal.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=0 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=1 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=0 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang=$00000406 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=6 Release=7 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1030 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=Primer Demo FileVersion=1.6.7.0 InternalName= LegalCopyright=MPL public license LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.6.7 Comments= [Excluded Packages] |
|
From: Carlo B. <car...@us...> - 2005-02-10 13:04:51
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/FirebirdDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14776/Demos/PrimerCross/FirebirdDB Added Files: readme.txt Log Message: Primer Demo: simplified compile and run for beginners --- NEW FILE: readme.txt --- Firebird databases folder for Primer demos, if you are using default connection definitions. |
|
From: Carlo B. <car...@us...> - 2005-02-10 13:04:51
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/ParadoxDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14776/Demos/PrimerCross/ParadoxDB Added Files: readme.txt Log Message: Primer Demo: simplified compile and run for beginners --- NEW FILE: readme.txt --- Paradox databases folder for Primer demos, if you are using default connection definitions. |
|
From: Carlo B. <car...@us...> - 2005-02-10 13:02:55
|
Update of /cvsroot/instantobjects/Help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14178/Help Added Files: bm0.BMP bm1.BMP bm2.BMP bm3.BMP bm4.BMP bm5.BMP bm6.BMP bm7.BMP Log Message: help bitmaps --- NEW FILE: bm0.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm5.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm1.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm7.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm6.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm4.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm3.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: bm2.BMP --- (This appears to be a binary file; contents omitted.) |
|
From: Carlo B. <car...@us...> - 2005-02-10 12:57:01
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/ParadoxDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11576/ParadoxDB Log Message: Directory /cvsroot/instantobjects/Demos/PrimerCross/ParadoxDB added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 12:56:59
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/FirebirdDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11576/FirebirdDB Log Message: Directory /cvsroot/instantobjects/Demos/PrimerCross/FirebirdDB added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-10 12:55:17
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10783/Demos/PrimerCross Modified Files: Main.dfm Main.pas Log Message: Added Model export menuitem Index: Main.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Main.pas 7 Dec 2004 08:45:33 -0000 1.6 --- Main.pas 10 Feb 2005 12:55:08 -0000 1.7 *************** *** 52,55 **** --- 52,57 ---- ExportItem: TMenuItem; ImportItem: TMenuItem; + N3: TMenuItem; + ExportModelItem: TMenuItem; procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean); procedure FormCreate(Sender: TObject); *************** *** 73,76 **** --- 75,79 ---- procedure ExportItemClick(Sender: TObject); procedure ImportItemClick(Sender: TObject); + procedure ExportModelItemClick(Sender: TObject); private FActiveSubView: TBasicViewForm; *************** *** 479,482 **** --- 482,486 ---- Filter := XMLFilter; DefaultExt := XMLExt; + InitialDir := ExtractFilePath(Application.ExeName); if Execute then ExportObjects(TContact, FileName); *************** *** 661,665 **** Height := Parent.ClientHeight; Width := Parent.ClientWidth; ! Show; end; end; --- 665,669 ---- Height := Parent.ClientHeight; Width := Parent.ClientWidth; ! FormShow(FActiveSubView); end; end; *************** *** 786,789 **** --- 790,807 ---- end; + procedure TMainForm.ExportModelItemClick(Sender: TObject); + begin + with TSaveDialog.Create(nil) do + try + Filter := XMLFilter; + DefaultExt := XMLExt; + InitialDir := ExtractFilePath(Application.ExeName); + if Execute then + InstantModel.SaveToFile(FileName); + finally + Free; + end; + end; + initialization {$IFDEF MSWINDOWS} Index: Main.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Main.dfm 17 Nov 2004 20:59:47 -0000 1.2 --- Main.dfm 10 Feb 2005 12:54:52 -0000 1.3 *************** *** 170,180 **** end object ExportItem: TMenuItem ! Caption = '&Export...' OnClick = ExportItemClick end object ImportItem: TMenuItem ! Caption = '&Import...' OnClick = ImportItemClick end object N1: TMenuItem Caption = '-' --- 170,187 ---- end object ExportItem: TMenuItem ! Caption = '&Export all Contacts...' OnClick = ExportItemClick end object ImportItem: TMenuItem ! Caption = '&Import Contacts from file...' OnClick = ImportItemClick end + object N3: TMenuItem + Caption = '-' + end + object ExportModelItem: TMenuItem + Caption = 'Export model...' + OnClick = ExportModelItemClick + end object N1: TMenuItem Caption = '-' |
|
From: Carlo B. <car...@us...> - 2005-02-10 12:53:49
|
Update of /cvsroot/instantobjects/Demos/Intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10092/Demos/Intro Modified Files: Intro.mdr Model.pas Log Message: Intro Demo updated for IOMETADATA keyword. Index: Model.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/Intro/Model.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Model.pas 2 Feb 2004 20:55:16 -0000 1.1 --- Model.pas 10 Feb 2005 12:53:34 -0000 1.2 *************** *** 8,12 **** type TAddress = class(TInstantObject) ! { City: String(30); PostalCode: String(8); Street: String(30); } --- 8,12 ---- type TAddress = class(TInstantObject) ! { IOMETADATA City: String(30); PostalCode: String(8); Street: String(30); } *************** *** 28,32 **** TPhone = class(TInstantObject) ! { Name: String(10); Number: String(10) mask '(999) 999-9999;0;_'; } _Name: TInstantString; --- 28,32 ---- TPhone = class(TInstantObject) ! { IOMETADATA Name: String(10); Number: String(10) mask '(999) 999-9999;0;_'; } _Name: TInstantString; *************** *** 43,47 **** TContact = class(TInstantObject) ! { stored; Address: Part(TAddress); Name: String(30); --- 43,47 ---- TContact = class(TInstantObject) ! { IOMETADATA stored; Address: Part(TAddress); Name: String(30); *************** *** 73,77 **** TPerson = class(TContact) ! { stored; DateOfBirth: DateTime; } _DateOfBirth: TInstantDateTime; --- 73,77 ---- TPerson = class(TContact) ! { IOMETADATA stored; DateOfBirth: DateTime; } _DateOfBirth: TInstantDateTime; *************** *** 84,88 **** TCompany = class(TContact) ! { stored; ContactPerson: Reference(TPerson); } _ContactPerson: TInstantReference; --- 84,88 ---- TCompany = class(TContact) ! { IOMETADATA stored; ContactPerson: Reference(TPerson); } _ContactPerson: TInstantReference; Index: Intro.mdr =================================================================== RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.mdr,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsjtHCLA and /tmp/cvsdqLVtY differ |
|
From: Nando D. <na...@us...> - 2005-02-08 06:19:38
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19045/Core Added Files: InstantPump.dcr Log Message: added missing TInstantPump design time icon --- NEW FILE: InstantPump.dcr --- (This appears to be a binary file; contents omitted.) |
|
From: Carlo B. <car...@us...> - 2005-02-03 22:50:15
|
Update of /cvsroot/instantobjects/Demos/Test/BuildPrimerDatabase In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20674/Demos/Test/BuildPrimerDatabase Added Files: BuildPrimerDatabase.dpr Connections.xml ReadMe.txt UBuilder.pas Log Message: Demo console application to build and populate a database --- NEW FILE: UBuilder.pas --- unit UBuilder; interface uses InstantPersistence; function Connect(const ConnectionFileName, ConnectionName : string) : TInstantConnector; procedure BuildDatabase(Connector : TInstantConnector); procedure CreateRandomContacts(Count: Integer; LoadPictures : boolean = False; const PicturePath : string = ''); implementation uses SysUtils, { Note: This demo attempts to include brokers for the data access layers supported natively by Delphi. To include additional brokers, please add the broker unit(s) to the following list. If you have not installed all brokers, please remove the missing broker unit(s) from the list. } //Begin Broker inclusion section {$IFDEF MSWINDOWS} {$IFNDEF VER130} InstantDBX, {$ENDIF} InstantADO, InstantBDE, InstantIBX, {$ENDIF} {$IFDEF LINUX} InstantDBX, {$ENDIF} InstantXML, //End Broker inclusion section {$IFDEF MSWINDOWS} Jpeg, Graphics, {$ENDIF} {$IFDEF LINUX} QGraphics, {$ENDIF} InstantConnectionManager, InstantClasses, Classes, Contnrs, DemoData, RandomData, Model; var ConnectionManager : TInstantConnectionManager; function Connect(const ConnectionFileName, ConnectionName : string) : TInstantConnector; var ConnectionDef : TInstantConnectionDef; begin Result := nil; // To use XML format for ConnectionManager file: ConnectionManager.FileFormat := sfXML; ConnectionManager.FileName := ConnectionFileName; ConnectionManager.LoadConnectionDefs; ConnectionDef := ConnectionManager.ConnectionDefs.Find(ConnectionName) as TInstantConnectionDef; if Assigned(ConnectionDef) then begin ConnectionManager.CurrentConnectionDef := ConnectionDef; Result := ConnectionDef.CreateConnector(nil); end; end; procedure BuildDatabase(Connector : TInstantConnector); begin //This line works only on few Brokers (eg. IBX or UIB) //For other brokers the database must exists if not Connector.DatabaseExists then Connector.CreateDatabase; //Recreate data structures (and lost data) Connector.BuildDatabase(InstantModel); end; //procedure similar to then same contained in main.pas of Primer Demo procedure AssignRandomPicture(Male : boolean; InstantBlob : TInstantBlob; const PicturePath : string); const {$IFDEF MSWINDOWS} ARandomExt : Array[0..2] of string = ('.bmp','.jpg','.emf'); {$ENDIF} {$IFDEF LINUX} ARandomExt : Array[0..3] of string = ('.bmp','.jpg','.emf','.png'); {$ENDIF} var Picture: TPicture; PictureName : string; begin PictureName := '0'+IntToStr(Random(5)+1)+ARandomExt[Random(High(ARandomExt)+1)]; if Male then PictureName := 'man'+PictureName else PictureName := 'woman'+PictureName; PictureName := PicturePath+PictureName; if FileExists(PictureName) then begin Picture := TPicture.Create; try Picture.LoadFromFile(PictureName); InstantBlob.AssignPicture(Picture); finally Picture.Free; end; end; end; //procedure similar to the same contained in main.pas of Primer Demo procedure CreateRandomContacts(Count: Integer; LoadPictures : boolean = False; const PicturePath : string = ''); var Companies: TObjectList; Gender: TGender; function CreateRandomContact: TContact; var Company: TCompany; begin if Random(2) = 0 then begin if (Random(2) = 0) and (Companies.Count > 10) then Company := Companies[Random(Companies.Count)] as TCompany else Company := nil; Result := CreateRandomPerson(Company, Gender); if LoadPictures then AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture, PicturePath); end else begin Result := CreateRandomCompany; if Random(2) = 0 then begin if Companies.Count > 50 then Companies.Delete(0); Result.AddRef; Companies.Add(Result); end; end; end; var I, CommitCount: Integer; begin CommitCount := 200; Randomize; Companies := TObjectList.Create; try InstantDefaultConnector.StartTransaction; try for I := 0 to Pred(Count) do begin with CreateRandomContact do try Store; finally Free; end; if (Succ(I) mod CommitCount) = 0 then with InstantDefaultConnector do begin CommitTransaction; StartTransaction; end; end; InstantDefaultConnector.CommitTransaction; except InstantDefaultConnector.RollbackTransaction; raise; end; finally Companies.Free; end; end; initialization ConnectionManager := TInstantConnectionManager.Create(nil); {$IFDEF MSWINDOWS} InstantRegisterGraphicClass(gffJpeg, TJPEGImage); {$ENDIF} finalization ConnectionManager.Free; end. --- NEW FILE: Connections.xml --- <TInstantConnectionDefs> <TInstantIBXConnectionDef> <Name>IBX FB</Name> <IsBuilt>TRUE</IsBuilt> <LoginPrompt>FALSE</LoginPrompt> <Path>C:\IBDATA\PRIMER.FDB</Path> <NetType>ntLocal</NetType> <Options></Options> <Params>User_Name=SYSDBA password=a</Params> </TInstantIBXConnectionDef> <TInstantBDEConnectionDef> <Name>BDE PARADOX</Name> <IsBuilt>TRUE</IsBuilt> <BlobStreamFormat>sfXML</BlobStreamFormat> <LoginPrompt>FALSE</LoginPrompt> <DriverName>STANDARD</DriverName> <Parameters>PATH=D:\BDEBROKER DEFAULT DRIVER=PARADOX ENABLE BCD=TRUE </Parameters> </TInstantBDEConnectionDef> </TInstantConnectionDefs> --- NEW FILE: ReadMe.txt --- BuildPrimerDatabase (command line utility) ------------------------------------------ This console application demonstrate building and population of an InstantObject Database. It uses: - same model unit of Primer demo located in '..\..\PrimerCross\Model\Model.pas' If you want to test external Model use '..\..\PrimerCross\ModelExternal\Model.pas' - same DemoData unit of Primer demo located in '..\..\PrimerCross\DemoData.pas' - same RandomData unit of Primer demo located in '..\..\PrimerCross\RandomData.pas' steps: 1) Prepare Connections.xml file: - Compile the Demos\PrimerCross\Primer.dpr with those lines: // To use XML format for ConnectionManager file: ConnectionManager.FileFormat := sfXML; ConnectionManager.FileName := ChangeFileExt(Application.ExeName, '.xml'); - Run Primer.exe and build your custom connection definitions with LoginPrompt set to False! - Test Connection, Build and database population into Primer, then exit. - Copy Primer.xml file generated into this folder and rename it to Connections.xml. 2) Include brokers: Change lines of BuildPrimerDatabase to include/exclude your preferred Brokers. 3) Compile and run with those parameters: - Connection Name (stored in Connections.xml) - Number of random contacts to create - /picture if you want to add pictures to database. Enjoy, Carlo Barazzetta Last revision: 3 Feb 2005 --- NEW FILE: BuildPrimerDatabase.dpr --- program BuildPrimerDatabase; {$APPTYPE CONSOLE} uses SysUtils, InstantPersistence, DemoData in '..\..\PrimerCross\DemoData.pas', RandomData in '..\..\PrimerCross\RandomData.pas', Model in '..\..\PrimerCross\Model\Model.pas', UBuilder in 'UBuilder.pas'; {$R *.mdr} {Model} var Connector : TInstantConnector; ApplicationPath : string; Count : integer; ConnectionFile : string; begin //Connect to database Try ApplicationPath := ExtractFilePath(ParamStr(0)); ConnectionFile := ApplicationPath+'Connections.xml'; if ParamStr(1) = '' then raise Exception.Create('Connection Name Missing'); Connector := UBuilder.Connect(ConnectionFile, ParamStr(1)); if Connector = nil then raise Exception.CreateFmt('Connection definition for "%s" not found in %s',[ParamStr(1),ConnectionFile]); WriteLn('Building Database structure... please wait.'); //Build Database (empty all data) UBuilder.BuildDatabase(Connector); //Set default connector Connector.IsDefault := True; WriteLn('Connecting to Database.'); //Open connection Connector.Connect; if ParamStr(2) <> '' then Count := StrToInt(ParamStr(2)) else Count := 100; if SameText(ParamStr(3),'/pictures') then begin //Populate Database with Random-Data and Pictures WriteLn(Format('Building %d Contacs with Pictures... please wait.',[Count])); UBuilder.CreateRandomContacts(Count, True, ApplicationPath+'..\..\PrimerCross\Pictures\'); end else begin //Populate Database with Random-Data, without Pictures WriteLn(Format('Building %d Contacs without Pictures... please wait.',[Count])); UBuilder.CreateRandomContacts(Count); end; //Close connection Connector.Disconnect; WriteLn('Done!'); Except on E: Exception do WriteLn(E.Message); End; end. |
|
From: Carlo B. <car...@us...> - 2005-02-03 22:46:40
|
Update of /cvsroot/instantobjects/Demos/Test/BuildPrimerDatabase In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20040/BuildPrimerDatabase Log Message: Directory /cvsroot/instantobjects/Demos/Test/BuildPrimerDatabase added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-03 22:46:09
|
Update of /cvsroot/instantobjects/Demos/Test In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19894/Test Log Message: Directory /cvsroot/instantobjects/Demos/Test added to the repository |
|
From: Carlo B. <car...@us...> - 2005-02-03 22:44:16
|
Update of /cvsroot/instantobjects/Demos/Primer/Pictures In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19502/Demos/Primer/Pictures Removed Files: man01.bmp man02.bmp man03.bmp man04.bmp man05.bmp woman01.bmp woman02.bmp woman03.bmp woman04.bmp woman05.bmp Log Message: Removed Unmaintained Primer folder --- woman03.bmp DELETED --- --- woman04.bmp DELETED --- --- woman05.bmp DELETED --- --- man01.bmp DELETED --- --- man05.bmp DELETED --- --- woman02.bmp DELETED --- --- woman01.bmp DELETED --- --- man02.bmp DELETED --- --- man03.bmp DELETED --- --- man04.bmp DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-03 22:44:15
|
Update of /cvsroot/instantobjects/Demos/Primer/Help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19502/Demos/Primer/Help Removed Files: conman.htm content.htm explorer.htm exposing.htm filtering.htm index.htm intro.htm mapping.htm model.gif model.htm persisting.htm pin.gif presenting.htm selecting.htm sorting.htm splitter.htm streaming.htm ui.gif ui.htm Log Message: Removed Unmaintained Primer folder --- ui.gif DELETED --- --- conman.htm DELETED --- --- content.htm DELETED --- --- selecting.htm DELETED --- --- exposing.htm DELETED --- --- explorer.htm DELETED --- --- mapping.htm DELETED --- --- pin.gif DELETED --- --- model.gif DELETED --- --- model.htm DELETED --- --- splitter.htm DELETED --- --- intro.htm DELETED --- --- streaming.htm DELETED --- --- presenting.htm DELETED --- --- filtering.htm DELETED --- --- ui.htm DELETED --- --- sorting.htm DELETED --- --- persisting.htm DELETED --- --- index.htm DELETED --- |
Update of /cvsroot/instantobjects/Demos/Primer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19502/Demos/Primer Removed Files: BasicBrowse.dfm BasicBrowse.pas BasicEdit.dfm BasicEdit.pas BasicView.dfm BasicView.pas CategoryBrowse.dfm CategoryBrowse.pas CompanyBrowse.dfm CompanyBrowse.pas CompanyEdit.dfm CompanyEdit.pas ContactBrowse.dfm ContactBrowse.pas ContactEdit.dfm ContactEdit.pas ContactFilterEdit.dfm ContactFilterEdit.pas ContactSort.dfm ContactSort.pas ContactView.dfm ContactView.pas CountryBrowse.dfm CountryBrowse.pas DemoData.pas DemoDataRequest.dfm DemoDataRequest.pas HelpView.dfm HelpView.pas Main.dfm Main.pas MainData.dfm MainData.pas Model.pas PerformanceView.dfm PerformanceView.pas PersonBrowse.dfm PersonBrowse.pas PersonEdit.dfm PersonEdit.pas Primer.cfg Primer.dof Primer.dpr Primer.mdr Primer.mpb Primer.res QueryView.dfm QueryView.pas RandomData.pas Stopwatch.pas Utility.pas Welcome.dfm Welcome.pas Log Message: Removed Unmaintained Primer folder --- QueryView.pas DELETED --- --- ContactSort.pas DELETED --- --- Stopwatch.pas DELETED --- --- CategoryBrowse.pas DELETED --- --- CompanyEdit.pas DELETED --- --- PersonBrowse.dfm DELETED --- --- Primer.res DELETED --- --- Primer.mpb DELETED --- --- Main.dfm DELETED --- --- HelpView.pas DELETED --- --- CategoryBrowse.dfm DELETED --- --- Welcome.dfm DELETED --- --- BasicEdit.dfm DELETED --- --- PersonBrowse.pas DELETED --- --- BasicBrowse.pas DELETED --- --- ContactEdit.pas DELETED --- --- ContactView.pas DELETED --- --- Utility.pas DELETED --- --- ContactEdit.dfm DELETED --- --- PerformanceView.dfm DELETED --- --- BasicView.dfm DELETED --- --- ContactBrowse.dfm DELETED --- --- Model.pas DELETED --- --- RandomData.pas DELETED --- --- DemoData.pas DELETED --- --- ContactView.dfm DELETED --- --- ContactSort.dfm DELETED --- --- PerformanceView.pas DELETED --- --- ContactBrowse.pas DELETED --- --- PersonEdit.dfm DELETED --- --- BasicEdit.pas DELETED --- --- Primer.dof DELETED --- --- Primer.cfg DELETED --- --- Primer.dpr DELETED --- --- MainData.pas DELETED --- --- BasicBrowse.dfm DELETED --- --- HelpView.dfm DELETED --- --- Welcome.pas DELETED --- --- DemoDataRequest.dfm DELETED --- --- PersonEdit.pas DELETED --- --- Primer.mdr DELETED --- --- BasicView.pas DELETED --- --- CompanyBrowse.dfm DELETED --- --- ContactFilterEdit.pas DELETED --- --- QueryView.dfm DELETED --- --- DemoDataRequest.pas DELETED --- --- CountryBrowse.dfm DELETED --- --- MainData.dfm DELETED --- --- Main.pas DELETED --- --- CountryBrowse.pas DELETED --- --- ContactFilterEdit.dfm DELETED --- --- CompanyEdit.dfm DELETED --- --- CompanyBrowse.pas DELETED --- |
