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: Joao M. <jcm...@us...> - 2005-10-23 17:05:40
|
Update of /cvsroot/instantobjects/Source/Brokers/ZeosDBO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31683/Brokers/ZeosDBO Modified Files: InstantZeosDBO.pas Log Message: Changed GetConnector to avoid error messages in design time; Improvement in AssignLoginOptions' calls Index: InstantZeosDBO.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ZeosDBO/InstantZeosDBO.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantZeosDBO.pas 18 Oct 2005 22:55:18 -0000 1.3 --- InstantZeosDBO.pas 23 Oct 2005 17:05:28 -0000 1.4 *************** *** 446,450 **** function TInstantZeosDBOConnector.GetConnection: TZConnection; begin ! CheckConnection; Result := FConnection; end; --- 446,451 ---- function TInstantZeosDBOConnector.GetConnection: TZConnection; begin ! if not (csDesigning in ComponentState) then ! CheckConnection; Result := FConnection; end; *************** *** 478,482 **** begin CheckConnection; - AssignLoginOptions; FConnection.Connect; end; --- 479,482 ---- *************** *** 524,527 **** --- 524,528 ---- DoBeforeConnectionChange; FConnection := Value; + AssignLoginOptions; DoAfterConnectionChange; end; *************** *** 531,534 **** --- 532,536 ---- begin FLoginPrompt := Value; + AssignLoginOptions; end; |
|
From: Steven M. <sr...@us...> - 2005-10-22 01:21:34
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18890 Modified Files: InstantPersistence.pas Log Message: Fixed Pointer dereferencing of PObjectRow variables in TInstantNavigationalResolver methods. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** InstantPersistence.pas 20 Oct 2005 22:28:20 -0000 1.64 --- InstantPersistence.pas 22 Oct 2005 01:21:25 -0000 1.65 *************** *** 12416,12421 **** List[I] := ObjectRow; end; ! ObjectRow.Row := Succ(I); ! ObjectRow.Instance := nil; end; end; --- 12416,12421 ---- List[I] := ObjectRow; end; ! ObjectRow^.Row := Succ(I); ! ObjectRow^.Instance := nil; end; end; *************** *** 12427,12432 **** New(ObjectRow); try ! ObjectRow.Row := -1; ! ObjectRow.Instance := AObject; if AObject is TInstantObject then TInstantObject(AObject).AddRef; --- 12427,12432 ---- New(ObjectRow); try ! ObjectRow^.Row := -1; ! ObjectRow^.Instance := AObject; if AObject is TInstantObject then TInstantObject(AObject).AddRef; *************** *** 12460,12464 **** ObjectRow := ObjectRows[Index]; if not Assigned(ObjectRow.Instance) then ! ObjectRow.Instance := CreateObject(ObjectRow.Row); Result := ObjectRow.Instance; end; --- 12460,12464 ---- ObjectRow := ObjectRows[Index]; if not Assigned(ObjectRow.Instance) then ! ObjectRow^.Instance := CreateObject(ObjectRow^.Row); Result := ObjectRow.Instance; end; *************** *** 12468,12472 **** begin for Result := 0 to Pred(ObjectRowCount) do ! if ObjectRows[Result].Instance = AObject then Exit; if AObject is TInstantObject then --- 12468,12472 ---- begin for Result := 0 to Pred(ObjectRowCount) do ! if ObjectRows[Result]^.Instance = AObject then Exit; if AObject is TInstantObject then *************** *** 12483,12488 **** New(ObjectRow); try ! ObjectRow.Row := -1; ! ObjectRow.Instance := AObject; if AObject is TInstantObject then TInstantObject(AObject).AddRef; --- 12483,12488 ---- New(ObjectRow); try ! ObjectRow^.Row := -1; ! ObjectRow^.Instance := AObject; if AObject is TInstantObject then TInstantObject(AObject).AddRef; *************** *** 12535,12542 **** begin ObjectRow := ObjectRows[I]; ! if ObjectRow.Instance = AObject then begin AObject.Free; ! ObjectRow.Instance := nil; Exit; end; --- 12535,12542 ---- begin ObjectRow := ObjectRows[I]; ! if ObjectRow^.Instance = AObject then begin AObject.Free; ! ObjectRow^.Instance := nil; Exit; end; *************** *** 12562,12566 **** function TInstantNavigationalQuery.ObjectFetched(Index: Integer): Boolean; begin ! Result := Assigned(ObjectRows[Index].Instance); end; --- 12562,12566 ---- function TInstantNavigationalQuery.ObjectFetched(Index: Integer): Boolean; begin ! Result := Assigned(ObjectRows[Index]^.Instance); end; |
|
From: Carlo B. <car...@us...> - 2005-10-21 16:52:53
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32223/Docs Modified Files: Readme.txt Log Message: ReadMe changes: moved Documentation section and renamed Documentation and Support before getting started, added Broker ZeosDBO to version history Index: Readme.txt =================================================================== RCS file: /cvsroot/instantobjects/Docs/Readme.txt,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Readme.txt 21 Oct 2005 11:15:57 -0000 1.8 --- Readme.txt 21 Oct 2005 16:52:42 -0000 1.9 *************** *** 19,22 **** --- 19,23 ---- o FEATURES o INSTALLATION + o DOCUMENTATION AND SUPPORT o GETTING STARTED o VERSION HISTORY *************** *** 159,162 **** --- 160,181 ---- + DOCUMENTATION AND SUPPORT + ------------------------- + + The InstantObjects Guide IOHelp.hlp in the <installdir>\Help folder contains more + informations about InstantObjects. + + The section "User Guide" explains how to build applications with InstantObjects. + The section "Reference Guide" contains a detailed explanation of every class + and function in the InstantObjects framework. + + Please note that this guide is not entirely up-to-date for IO v2. Most of the + new features, though, are documented in text files you can find in the Docs + folder. + + You can also use our support newsgroups; more details at + http://www.instantobjects.org/. + + GETTING STARTED --------------- *************** *** 196,223 **** The Test folder contains test applications of various sorts. - DOCUMENTATION - - When you are ready to create your own InstantObjects solutions, please consult - the InstantObjects Guide IOHelp.hlp in the <installdir>\Help folder. - - The section "User Guide" explains how to build applications with InstantObjects. - The section "Reference Guide" contains a detailed explanation of every class - and function in the InstantObjects framework. - - Please note that this giude is not entirely up-to-date for IO v2. Most of the - new features, though, are documented in text files you can find in the Docs - folder. - - You can also use our support newsgroups; more details at - http://www.instantobjects.org/. - VERSION HISTORY --------------- - Version 2.0 Beta 1 (1.9.1.1) (2005-10) ! { TODO: changelog } --- 215,226 ---- The Test folder contains test applications of various sorts. VERSION HISTORY --------------- Version 2.0 Beta 1 (1.9.1.1) (2005-10) ! - Added ZeosDBO (ZeosLib project, see http://zeosforum.net.ms/) ! broker. |
|
From: Nando D. <na...@us...> - 2005-10-21 11:16:12
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7341 Modified Files: Readme.txt Log Message: Updated installation instructions Index: Readme.txt =================================================================== RCS file: /cvsroot/instantobjects/Docs/Readme.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Readme.txt 2 Aug 2005 04:44:28 -0000 1.7 --- Readme.txt 21 Oct 2005 11:15:57 -0000 1.8 *************** *** 1,8 **** ------------------------------------------------------------------ ! InstantObjects 2.0 Alpha 1 (1.9.0.1) for Delphi, Kylix, FPC Mozilla Public License 1.1 Edition ! July 2005 release Based on Seleqt InstantObjects. --- 1,8 ---- ------------------------------------------------------------------ ! InstantObjects 2.0 Beta 1 (1.9.1.1) for Delphi, Kylix, FPC Mozilla Public License 1.1 Edition ! October 2005 release Based on Seleqt InstantObjects. *************** *** 27,32 **** InstantObjects is an integrated framework for developing object-oriented business ! solutions in Borland Delphi(tm), Borland Kylix(tm) and the open source FreePascal ! compiler (non yet released in this alpha version). The framework provides the foundation for the development process as well as the engine that powers the final application. --- 27,32 ---- InstantObjects is an integrated framework for developing object-oriented business ! solutions in Borland Delphi(tm), Borland Kylix(tm) and soon also the open source ! FreePascal compiler. The framework provides the foundation for the development process as well as the engine that powers the final application. *************** *** 85,88 **** --- 85,105 ---- Add a line for each broker you plan to use. + If you are going to use a broker that needs a separate catalog + (currently the IBX, UIB, DBX and ADO brokers), then + you'll also need to add a line for each required catalog: + + <installdir>/Source/Catalogs/<catalogname> + + Here is a table of current broker-catalog dependencies: + + Broker Depends on Catalog + -------------------------------------- + IBX IBFb + UIB IBFb + DBX IBFb + ADO MSSql + + Other brokers have their catalogs integrated into themselves, + so there are not dependency issues for them. *************** *** 93,104 **** Where <version> identifies your version of Delphi, Kylix or ! FPC. Examples: D5, D6, D7, K3, D9 (Delphi 2005), etc. ! 4. Build and install the desired broker package(s): <installdir>/Source/Brokers/ADO/<version>/IOADO.dpk (build) <installdir>/Source/Brokers/ADO/<version>/DclIOADO.dpk (install) Please note that not all brokers are available in all versions of Delphi/Kylix/FPC. If you think you can make a supplied broker --- 110,130 ---- Where <version> identifies your version of Delphi, Kylix or ! FPC. Examples: D5, D6, D7, K3, D2005, etc. ! 4. Build and install the desired catalog and broker package(s): + For example, if you need the ADO broker: + + <installdir>/Source/Catalogs/MSSql/<version>/IOMSSqlCatalog.dpk (build) <installdir>/Source/Brokers/ADO/<version>/IOADO.dpk (build) <installdir>/Source/Brokers/ADO/<version>/DclIOADO.dpk (install) + If you need a broker that doesn't depend on a catalog, just build and + install the broker's packages. Here's an example for the XML broker: + + <installdir>/Source/Brokers/XML/<version>/IOXML.dpk (build) + <installdir>/Source/Brokers/XML/<version>/DclIOXML.dpk (install) + Please note that not all brokers are available in all versions of Delphi/Kylix/FPC. If you think you can make a supplied broker *************** *** 106,117 **** then please contact us. ! Some broker packages depend on one or more catalogs. In that case, ! you'll have to build the catalog package(s) first. For example, the ! following catalog is required by the IBX, dbX and UIB brokers: ! ! <installdir>/Source/Catalogs/IBFb/<version>/IOIBFbCatalog.dpk (build) Note: All InstantObjects packages use non-standard code in the package ! source file. In particular, they don't have the standard line: {$R *.RES} --- 132,143 ---- then please contact us. ! Note for Delphi 5 users: dpk files in Delphi 5 have an additional ! suffix "_D5". This is because Delphi 5 does not support the LIBSUFFIX ! compiler directive that InstantObjects uses in newer versions of ! Delphi. + ******************************************************************************** Note: All InstantObjects packages use non-standard code in the package ! source file. In particular, they miss the standard line: {$R *.RES} *************** *** 124,132 **** folder (Substitute the correct relative path in this statement depending on where in the installed folder tree the package file resides). However if you ! open the Project Options for a package and click the OK button, some versions ! of the Delphi IDE will restore the line with the $R directive, automatically ! create a <packagename>.res file that IO doesn't need and delete the $I directive. If you ever do that, please restore the original code by editing ! the Project Source by hand. --- 150,160 ---- folder (Substitute the correct relative path in this statement depending on where in the installed folder tree the package file resides). However if you ! open the Project Options for a package and click the OK button, the Delphi IDE ! will restore the line with the $R directive, automatically create a ! <packagename>.res file that IO doesn't need and delete the $I directive. If you ever do that, please restore the original code by editing ! the Project Source by hand or restoring the original file from the distribution ! archive. ! ******************************************************************************** *************** *** 150,154 **** interface that shows how persistent business objects can be used in a real application. It is compatible with Delphi and Kylix. The PrimerExternal variation ! uses external storage for collections (see documentation). The Demos folder also features a few other programs that help demonstrate or test --- 178,182 ---- interface that shows how persistent business objects can be used in a real application. It is compatible with Delphi and Kylix. The PrimerExternal variation ! uses external storage for collection attributes (see documentation). The Demos folder also features a few other programs that help demonstrate or test *************** *** 171,175 **** When you are ready to create your own InstantObjects solutions, please consult ! the InstantObjects Guide io.hlp in the <installdir>\Help folder. The section "User Guide" explains how to build applications with InstantObjects. --- 199,203 ---- When you are ready to create your own InstantObjects solutions, please consult ! the InstantObjects Guide IOHelp.hlp in the <installdir>\Help folder. The section "User Guide" explains how to build applications with InstantObjects. *************** *** 177,182 **** and function in the InstantObjects framework. ! Please note that this giude was not updated yet for IO2. Most of the new features, ! though, are documented in text files you'll find in the Docs folder. --- 205,214 ---- and function in the InstantObjects framework. ! Please note that this giude is not entirely up-to-date for IO v2. Most of the ! new features, though, are documented in text files you can find in the Docs ! folder. ! ! You can also use our support newsgroups; more details at ! http://www.instantobjects.org/. *************** *** 185,190 **** ! Version 2.0 Alpha 1 (1.9.01) (2005-07) - Added UIB (Unified InterBase, see http://www.progdigy.com/modules.php?name=UIB) --- 217,226 ---- + Version 2.0 Beta 1 (1.9.1.1) (2005-10) ! { TODO: changelog } ! ! ! Version 2.0 Alpha 1 (1.9.0.1) (2005-07) - Added UIB (Unified InterBase, see http://www.progdigy.com/modules.php?name=UIB) *************** *** 221,225 **** - Version 1.6.7 (2004-11-17) UNOFFICIAL --- 257,260 ---- *************** *** 239,243 **** - Version 1.6.6 (2004-07-29) UNOFFICIAL --- 274,277 ---- *************** *** 270,274 **** - Version 1.6.5 (2004-05-23) UNOFFICIAL --- 304,307 ---- *************** *** 280,283 **** --- 313,317 ---- - XML format for connection file managed by connectionmanager. + Version 1.6 (2003-12-19) LAST COMMERCIAL VERSION *************** *** 312,316 **** - Version 1.5 (2003-02-25) --- 346,349 ---- *************** *** 398,402 **** - Version 1.3 (2002-09-12) --- 431,434 ---- *************** *** 414,418 **** - Version 1.22 (2002-07-30) - Delphi 7 Companion CD --- 446,449 ---- *************** *** 443,447 **** - Version 1.21 (2002-06-28) --- 474,477 ---- *************** *** 482,486 **** - Version 1.2 (2002-05-16) --- 512,515 ---- *************** *** 515,519 **** - Version 1.11 (2002-04-22) --- 544,547 ---- *************** *** 545,549 **** - Version 1.1.0.1707 (2002-03-15) --- 573,576 ---- *************** *** 580,584 **** - Version 1.0.0.1706 (2002-02-14) --- 607,610 ---- *************** *** 603,607 **** - Version 1.0.0.1705 (2002-02-07) --- 629,632 ---- *************** *** 629,633 **** - Version 1.0.0.1704 (2002-01-23) --- 654,657 ---- *************** *** 641,645 **** - Version 1.0.0.1703 (2002-01-03) --- 665,668 ---- *************** *** 651,655 **** - Version 1.0.0.1702 (2001-12-23) --- 674,677 ---- *************** *** 661,665 **** - Version 1.0.0.1701 (2001-12-07) --- 683,686 ---- *************** *** 668,672 **** - Version 1.0.0.1659 (2001-12-03) --- 689,692 ---- |
|
From: Nando D. <na...@us...> - 2005-10-21 10:25:08
|
Update of /cvsroot/instantobjects/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26714 Modified Files: InstantVersion.res Log Message: Preparing for 2.0 beta 1 Index: InstantVersion.res =================================================================== RCS file: /cvsroot/instantobjects/Source/InstantVersion.res,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsAJzkT8 and /tmp/cvsEfjscM differ |
Update of /cvsroot/instantobjects/Source/Brokers/UIB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12718/Brokers/UIB Modified Files: InstantUIB.pas InstantUIBConnectionDefEdit.dfm InstantUIBConnectionDefEdit.pas InstantUIBReg.pas Removed Files: InstantUIBConnection.pas Log Message: Refactored UIB broker so that it uses an external JvUIBDataBase component and does not parse connection strings anymore Index: InstantUIBConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantUIBConnectionDefEdit.pas 4 Sep 2005 23:15:53 -0000 1.3 --- InstantUIBConnectionDefEdit.pas 21 Oct 2005 09:15:08 -0000 1.4 *************** *** 43,55 **** TInstantUIBConnectionDefEditForm = class(TForm) ClientPanel: TPanel; ! ServerLabel: TLabel; ! ProtocolLabel: TLabel; ! DatabaseLabel: TLabel; ! LocalRadioButton: TRadioButton; ! RemoteRadioButton: TRadioButton; ! ServerEdit: TEdit; ! ProtocolEdit: TComboBox; ! DatabaseEdit: TEdit; ! DatabaseButton: TButton; BottomPanel: TPanel; OkButton: TButton; --- 43,49 ---- TInstantUIBConnectionDefEditForm = class(TForm) ClientPanel: TPanel; ! ConnectionStringLabel: TLabel; ! ConnectionStringEdit: TEdit; ! ConnectionStringButton: TButton; BottomPanel: TPanel; OkButton: TButton; *************** *** 59,63 **** StreamFormatComboBox: TComboBox; UseDelimitedIdentsCheckBox: TCheckBox; - LoginPromptCheckBox: TCheckBox; ParamsLabel: TLabel; ParamsEditor: TMemo; --- 53,56 ---- *************** *** 66,71 **** IdSizeEdit: TEdit; Label2: TLabel; ! procedure LocalRemoteChange(Sender: TObject); ! procedure DatabaseButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); private --- 59,64 ---- IdSizeEdit: TEdit; Label2: TLabel; ! LoginPromptCheckBox: TCheckBox; ! procedure ConnectionStringButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); private *************** *** 87,91 **** { TInstantUIBConnectionDefEditForm } ! procedure TInstantUIBConnectionDefEditForm.DatabaseButtonClick( Sender: TObject); begin --- 80,84 ---- { TInstantUIBConnectionDefEditForm } ! procedure TInstantUIBConnectionDefEditForm.ConnectionStringButtonClick( Sender: TObject); begin *************** *** 93,101 **** try Filter := ! 'FireBird Database (*.fdb)|*.fdb|' + 'InterBase Database (*.gdb)|*.gdb|' + 'All Files (*.*)|*.*'; if Execute then ! DatabaseEdit.Text := FileName; finally Free; --- 86,94 ---- try Filter := ! 'Firebird Database (*.fdb)|*.fdb|' + 'InterBase Database (*.gdb)|*.gdb|' + 'All Files (*.*)|*.*'; if Execute then ! ConnectionStringEdit.Text := FileName; finally Free; *************** *** 114,120 **** function TInstantUIBConnectionDefEditForm.GetIsValid: Boolean; begin ! Result := ! (LocalRadioButton.Checked or (ServerEdit.Text <> '')) and ! (DatabaseEdit.Text <> ''); end; --- 107,111 ---- function TInstantUIBConnectionDefEditForm.GetIsValid: Boolean; begin ! Result := ConnectionStringEdit.Text <> ''; end; *************** *** 124,130 **** with ConnectionDef do begin ! ProtocolEdit.ItemIndex := Ord(NetType) - 1; ! ServerEdit.Text := ServerName; ! DatabaseEdit.Text := Path; StreamFormatComboBox.ItemIndex := Ord(BlobStreamFormat); UseDelimitedIdentsCheckBox.Checked := UIBUseDelimitedIdents in Options; --- 115,119 ---- with ConnectionDef do begin ! ConnectionStringEdit.Text := ConnectionString; StreamFormatComboBox.ItemIndex := Ord(BlobStreamFormat); UseDelimitedIdentsCheckBox.Checked := UIBUseDelimitedIdents in Options; *************** *** 137,146 **** end; - procedure TInstantUIBConnectionDefEditForm.LocalRemoteChange( - Sender: TObject); - begin - UpdateControls; - end; - procedure TInstantUIBConnectionDefEditForm.SaveData( ConnectionDef: TInstantUIBConnectionDef); --- 126,129 ---- *************** *** 148,157 **** with ConnectionDef do begin ! if LocalRadioButton.Checked then ! NetType := ntLocal ! else ! NetType := TUIBNetType(ProtocolEdit.ItemIndex + 1); ! ServerName := ServerEdit.Text; ! Path := DatabaseEdit.Text; BlobStreamFormat := TInstantStreamFormat(StreamFormatComboBox.ItemIndex); Options := []; --- 131,135 ---- with ConnectionDef do begin ! ConnectionString := ConnectionStringEdit.Text; BlobStreamFormat := TInstantStreamFormat(StreamFormatComboBox.ItemIndex); Options := []; *************** *** 166,185 **** procedure TInstantUIBConnectionDefEditForm.UpdateControls; - const - Colors: array[Boolean] of TColor = (clBtnFace, clWindow); - var - UseRemote: Boolean; begin - UseRemote := RemoteRadioButton.Checked; - ServerLabel.Enabled := UseRemote; - ServerEdit.Enabled := UseRemote; - ServerEdit.Color := Colors[UseRemote]; - ProtocolLabel.Enabled := UseRemote; - ProtocolEdit.Enabled := UseRemote; - ProtocolEdit.Color := Colors[UseRemote]; - DatabaseButton.Enabled := not UseRemote; - with ProtocolEdit do - if ItemIndex = -1 then - ItemIndex := 0; end; --- 144,148 ---- Index: InstantUIBConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantUIBConnectionDefEdit.dfm 24 Jul 2005 16:34:51 -0000 1.4 --- InstantUIBConnectionDefEdit.dfm 21 Oct 2005 09:15:08 -0000 1.5 *************** *** 4,8 **** BorderStyle = bsDialog Caption = 'UIB Connection' ! ClientHeight = 399 ClientWidth = 362 Color = clBtnFace --- 4,8 ---- BorderStyle = bsDialog Caption = 'UIB Connection' ! ClientHeight = 329 ClientWidth = 362 Color = clBtnFace *************** *** 19,23 **** object BottomBevel: TBevel Left = 0 ! Top = 362 Width = 362 Height = 2 --- 19,23 ---- object BottomBevel: TBevel Left = 0 ! Top = 292 Width = 362 Height = 2 *************** *** 29,63 **** Top = 0 Width = 362 ! Height = 362 Align = alClient BevelOuter = bvNone TabOrder = 0 ! object ServerLabel: TLabel ! Left = 16 ! Top = 36 ! Width = 31 ! Height = 13 ! Caption = '&Server' ! FocusControl = ServerEdit ! end ! object ProtocolLabel: TLabel ! Left = 235 ! Top = 36 ! Width = 39 ! Height = 13 ! Caption = '&Protocol' ! FocusControl = ProtocolEdit ! end ! object DatabaseLabel: TLabel Left = 16 ! Top = 76 ! Width = 46 Height = 13 ! Caption = '&Database' ! FocusControl = DatabaseEdit end object StreamFormatLabel: TLabel Left = 16 ! Top = 312 Width = 53 Height = 13 --- 29,47 ---- Top = 0 Width = 362 ! Height = 292 Align = alClient BevelOuter = bvNone TabOrder = 0 ! object ConnectionStringLabel: TLabel Left = 16 ! Top = 12 ! Width = 84 Height = 13 ! Caption = '&Connection String' ! FocusControl = ConnectionStringEdit end object StreamFormatLabel: TLabel Left = 16 ! Top = 248 Width = 53 Height = 13 *************** *** 67,71 **** object ParamsLabel: TLabel Left = 16 ! Top = 140 Width = 95 Height = 13 --- 51,55 ---- object ParamsLabel: TLabel Left = 16 ! Top = 76 Width = 95 Height = 13 *************** *** 75,79 **** object Label1: TLabel Left = 136 ! Top = 312 Width = 62 Height = 13 --- 59,63 ---- object Label1: TLabel Left = 136 ! Top = 248 Width = 62 Height = 13 *************** *** 83,87 **** object Label2: TLabel Left = 256 ! Top = 312 Width = 32 Height = 13 --- 67,71 ---- object Label2: TLabel Left = 256 ! Top = 248 Width = 32 Height = 13 *************** *** 89,151 **** FocusControl = IdDataTypeComboBox end ! object LocalRadioButton: TRadioButton ! Left = 16 ! Top = 16 ! Width = 57 ! Height = 17 ! Caption = '&Local' ! Checked = True ! TabOrder = 0 ! TabStop = True ! OnClick = LocalRemoteChange ! end ! object RemoteRadioButton: TRadioButton ! Left = 86 ! Top = 16 ! Width = 65 ! Height = 17 ! Caption = '&Remote' ! TabOrder = 1 ! OnClick = LocalRemoteChange ! end ! object ServerEdit: TEdit ! Left = 16 ! Top = 52 ! Width = 209 ! Height = 21 ! TabOrder = 2 ! end ! object ProtocolEdit: TComboBox ! Left = 235 ! Top = 52 ! Width = 110 ! Height = 21 ! Style = csDropDownList ! ItemHeight = 13 ! TabOrder = 3 ! Items.Strings = ( ! 'TCP/IP' ! 'NetBEUI' ! 'SPX') ! end ! object DatabaseEdit: TEdit Left = 16 ! Top = 92 Width = 305 Height = 21 ! TabOrder = 4 end ! object DatabaseButton: TButton Left = 321 ! Top = 92 Width = 21 Height = 21 Caption = '...' ! TabOrder = 5 ! OnClick = DatabaseButtonClick end object StreamFormatComboBox: TComboBox Left = 16 ! Top = 328 Width = 113 Height = 21 --- 73,95 ---- FocusControl = IdDataTypeComboBox end ! object ConnectionStringEdit: TEdit Left = 16 ! Top = 28 Width = 305 Height = 21 ! TabOrder = 0 end ! object ConnectionStringButton: TButton Left = 321 ! Top = 28 Width = 21 Height = 21 Caption = '...' ! TabOrder = 1 ! OnClick = ConnectionStringButtonClick end object StreamFormatComboBox: TComboBox Left = 16 ! Top = 264 Width = 113 Height = 21 *************** *** 153,201 **** ItemHeight = 13 Sorted = True ! TabOrder = 9 end object UseDelimitedIdentsCheckBox: TCheckBox Left = 16 ! Top = 118 Width = 150 Height = 17 Caption = '&Use delimited identifiers' ! TabOrder = 6 ! end ! object LoginPromptCheckBox: TCheckBox ! Left = 196 ! Top = 118 ! Width = 150 ! Height = 17 ! Caption = '&Login Prompt' ! TabOrder = 7 end object ParamsEditor: TMemo Left = 17 ! Top = 160 Width = 328 Height = 149 ! TabOrder = 8 end object IdDataTypeComboBox: TComboBox Left = 136 ! Top = 328 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 ! TabOrder = 10 end object IdSizeEdit: TEdit Left = 256 ! Top = 328 Width = 89 Height = 21 ! TabOrder = 11 end end object BottomPanel: TPanel Left = 0 ! Top = 364 Width = 362 Height = 35 --- 97,145 ---- ItemHeight = 13 Sorted = True ! TabOrder = 5 end object UseDelimitedIdentsCheckBox: TCheckBox Left = 16 ! Top = 54 Width = 150 Height = 17 Caption = '&Use delimited identifiers' ! TabOrder = 2 end object ParamsEditor: TMemo Left = 17 ! Top = 96 Width = 328 Height = 149 ! TabOrder = 4 end object IdDataTypeComboBox: TComboBox Left = 136 ! Top = 264 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 13 ! TabOrder = 6 end object IdSizeEdit: TEdit Left = 256 ! Top = 264 Width = 89 Height = 21 ! TabOrder = 7 ! end ! object LoginPromptCheckBox: TCheckBox ! Left = 196 ! Top = 54 ! Width = 150 ! Height = 17 ! Caption = '&Login Prompt' ! TabOrder = 3 end end object BottomPanel: TPanel Left = 0 ! Top = 294 Width = 362 Height = 35 --- InstantUIBConnection.pas DELETED --- Index: InstantUIB.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** InstantUIB.pas 4 Sep 2005 23:15:53 -0000 1.14 --- InstantUIB.pas 21 Oct 2005 09:15:08 -0000 1.15 *************** *** 37,41 **** uses ! Classes, Db, jvuib, jvuibdataset, jvuiblib, SysUtils, InstantUIBConnection, InstantPersistence, InstantClasses, InstantCommand; --- 37,41 ---- uses ! Classes, Db, jvuib, jvuibdataset, jvuiblib, SysUtils, InstantPersistence, InstantClasses, InstantCommand; *************** *** 48,64 **** type ! TUIBNetType = (ntLocal, ntTCP, ntNetBEUI, ntSPX); ! ! TInstantUIBConnectionDef = class(TInstantConnectionBasedConnectionDef) private ! FPath: string; ! FServerName: string; ! FNetType: TUIBNetType; FOptions: TInstantUIBOptions; FParams: string; - function GetDatabaseName: string; - function GetServerName: string; protected ! function CreateConnection(AOwner: TComponent): TCustomConnection; override; procedure InitConnector(Connector: TInstantConnector); override; public --- 48,59 ---- type ! TInstantUIBConnectionDef = class(TInstantRelationalConnectionDef) private ! FLoginPrompt: Boolean; ! FConnectionString: string; FOptions: TInstantUIBOptions; FParams: string; protected ! function CreateDataBase(AOwner: TComponent): TJvUIBDataBase; procedure InitConnector(Connector: TInstantConnector); override; public *************** *** 67,88 **** constructor Create(Collection: TCollection); override; function Edit: Boolean; override; - property DatabaseName: string read GetDatabaseName; published ! property Path: string read FPath write FPath; ! property NetType: TUIBNetType read FNetType write FNetType; ! property ServerName: string read GetServerName write FServerName; property Options: TInstantUIBOptions read FOptions write FOptions; property Params: string read FParams write FParams; end; ! TInstantUIBConnector = class(TInstantConnectionBasedConnector) private FTransaction: TJvUIBTransaction; FOptions: TInstantUIBOptions; ! FOnLogin: TLoginEvent; ! function GetConnection: TInstantUIBConnection; function GetTransaction: TJvUIBTransaction; ! procedure SetConnection(const Value: TInstantUIBConnection); protected function CreateBroker: TInstantBroker; override; procedure InternalBuildDatabase(Scheme: TInstantScheme); override; --- 62,87 ---- constructor Create(Collection: TCollection); override; function Edit: Boolean; override; published ! property ConnectionString: string read FConnectionString write FConnectionString; ! property LoginPrompt: Boolean read FLoginPrompt write FLoginPrompt default True; property Options: TInstantUIBOptions read FOptions write FOptions; property Params: string read FParams write FParams; end; ! TInstantUIBConnector = class(TInstantRelationalConnector) private + FDataBase: TJvUIBDataBase; FTransaction: TJvUIBTransaction; FOptions: TInstantUIBOptions; ! FLoginPrompt: Boolean; ! function GetDataBase: TJvUIBDataBase; function GetTransaction: TJvUIBTransaction; ! procedure SetDataBase(const Value: TJvUIBDataBase); ! procedure DataBaseLogin; protected + procedure CheckDataBase; + function GetConnected: Boolean; override; + procedure InternalConnect; override; + procedure InternalDisconnect; override; function CreateBroker: TInstantBroker; override; procedure InternalBuildDatabase(Scheme: TInstantScheme); override; *************** *** 91,95 **** procedure InternalStartTransaction; override; procedure InternalCreateDatabase; override; - procedure AssignLoginOptions; override; function GetDatabaseExists: Boolean; override; public --- 90,93 ---- *************** *** 97,110 **** destructor Destroy; override; class function ConnectionDefClass: TInstantConnectionDefClass; override; property Transaction: TJvUIBTransaction read GetTransaction; published ! property Connection: TInstantUIBConnection read GetConnection write SetConnection; property Options: TInstantUIBOptions read FOptions write FOptions default DefaultInstantUIBOptions; - property OnLogin: TLoginEvent read FOnLogin write FOnLogin; end; TInstantUIBBroker = class(TInstantSQLBroker) private ! function GetDialect: Integer; function GetConnector: TInstantUIBConnector; function DelimitedIdentsEnabled: Boolean; --- 95,110 ---- destructor Destroy; override; class function ConnectionDefClass: TInstantConnectionDefClass; override; + procedure Notification(AComponent: TComponent; Operation: TOperation); override; property Transaction: TJvUIBTransaction read GetTransaction; + function HasDataBase: Boolean; published ! property DataBase: TJvUIBDataBase read GetDataBase write SetDataBase; ! property LoginPrompt: Boolean read FLoginPrompt write FLoginPrompt; property Options: TInstantUIBOptions read FOptions write FOptions default DefaultInstantUIBOptions; end; TInstantUIBBroker = class(TInstantSQLBroker) private ! function GetSQLDialect: Integer; function GetConnector: TInstantUIBConnector; function DelimitedIdentsEnabled: Boolean; *************** *** 125,129 **** function Execute(const AStatement: string; AParams: TParams = nil): Integer; override; property Connector: TInstantUIBConnector read GetConnector; ! property Dialect: Integer read GetDialect; end; --- 125,129 ---- function Execute(const AStatement: string; AParams: TParams = nil): Integer; override; property Connector: TInstantUIBConnector read GetConnector; ! property SQLDialect: Integer read GetSQLDialect; end; *************** *** 165,186 **** begin inherited; FOptions := DefaultInstantUIBOptions; end; ! function TInstantUIBConnectionDef.CreateConnection( ! AOwner: TComponent): TCustomConnection; ! var ! Connection: TInstantUIBConnection; begin ! Connection := TInstantUIBConnection.Create(AOwner); try ! Connection.Database.DatabaseName := DatabaseName; ! Connection.Database.SQLDialect := 3; ! Connection.Database.Params.Text := Params; except ! Connection.Free; raise; end; - Result := Connection; end; --- 165,184 ---- begin inherited; + FLoginPrompt := True; FOptions := DefaultInstantUIBOptions; end; ! function TInstantUIBConnectionDef.CreateDataBase( ! AOwner: TComponent): TJvUIBDataBase; begin ! Result := TJvUIBDataBase.Create(AOwner); try ! Result.Params.Text := Params; ! Result.DatabaseName := ConnectionString; ! Result.SQLDialect := 3; except ! Result.Free; raise; end; end; *************** *** 198,243 **** end; - function TInstantUIBConnectionDef.GetDatabaseName: string; - var - Fmt: string; - begin - if NetType = ntLocal then - Result := Path - else begin - case NetType of - ntTCP: Fmt := '%s:%s'; - ntNetBEUI: Fmt := '\\%s\%s'; - ntSPX: Fmt := '%s@%s'; - end; - Result := Format(Fmt, [ServerName, Path]); - end; - end; - - function TInstantUIBConnectionDef.GetServerName: string; - begin - if NetType = ntLocal then - Result := '' - else - Result := FServerName; - end; - procedure TInstantUIBConnectionDef.InitConnector(Connector: TInstantConnector); begin inherited; ! (Connector as TInstantUIBConnector).Options := FOptions; end; { TInstantUIBConnector } - procedure TInstantUIBConnector.AssignLoginOptions; - begin - inherited; - if HasConnection then - begin - if Assigned(FOnLogin) and not Assigned(Connection.OnLogin) then - Connection.OnLogin := FOnLogin; - end; - end; - class function TInstantUIBConnector.ConnectionDefClass: TInstantConnectionDefClass; begin --- 196,217 ---- end; procedure TInstantUIBConnectionDef.InitConnector(Connector: TInstantConnector); + var + DataBase: TJvUIBDataBase; begin inherited; ! DataBase := CreateDatabase(Connector); ! try ! (Connector as TInstantUIBConnector).DataBase := DataBase; ! (Connector as TInstantUIBConnector).LoginPrompt := LoginPrompt; ! (Connector as TInstantUIBConnector).Options := FOptions; ! except ! DataBase.Free; ! raise; ! end; end; { TInstantUIBConnector } class function TInstantUIBConnector.ConnectionDefClass: TInstantConnectionDefClass; begin *************** *** 248,251 **** --- 222,226 ---- begin inherited; + FLoginPrompt := True; FOptions := DefaultInstantUIBOptions; end; *************** *** 258,268 **** destructor TInstantUIBConnector.Destroy; begin ! FTransaction.Free; inherited; end; ! function TInstantUIBConnector.GetConnection: TInstantUIBConnection; begin ! Result := inherited Connection as TInstantUIBConnection; end; --- 233,245 ---- destructor TInstantUIBConnector.Destroy; begin ! FreeAndNil(FTransaction); inherited; end; ! function TInstantUIBConnector.GetDataBase: TJvUIBDataBase; begin ! if not (csDesigning in ComponentState) then ! CheckDataBase; ! Result := FDataBase; end; *************** *** 271,282 **** if not Assigned(FTransaction) then begin ! CheckConnection; FTransaction := TJvUIBTransaction.Create(nil); try ! FTransaction.Database := Connection.Database; FTransaction.AutoStart := True; FTransaction.AutoStop := True; FTransaction.DefaultAction := etmRollback; ! FTransaction.Options := [tpReadCommitted]; except FTransaction.Free; --- 248,259 ---- if not Assigned(FTransaction) then begin ! CheckDataBase; FTransaction := TJvUIBTransaction.Create(nil); try ! FTransaction.DataBase := FDatabase; FTransaction.AutoStart := True; FTransaction.AutoStop := True; FTransaction.DefaultAction := etmRollback; ! FTransaction.Options := [tpReadCommitted]; except FTransaction.Free; *************** *** 316,322 **** end; ! procedure TInstantUIBConnector.SetConnection(const Value: TInstantUIBConnection); begin ! inherited Connection := Value; end; --- 293,307 ---- end; ! procedure TInstantUIBConnector.SetDataBase(const Value: TJvUIBDataBase); begin ! if Value <> FDataBase then ! begin ! Disconnect; ! if Assigned(FDataBase) then ! FDataBase.RemoveFreeNotification(Self); ! FDataBase := Value; ! if Assigned(FDataBase) then ! FDataBase.FreeNotification(Self); ! end; end; *************** *** 324,332 **** begin inherited; ! Connection.Close; try ! Connection.Database.CreateDatabase(4096); finally ! Connection.Close; end; end; --- 309,318 ---- begin inherited; ! if DataBase.Connected then ! raise EInstantError.Create(SDatabaseOpen); try ! DataBase.CreateDatabase(4096); finally ! Disconnect; end; end; *************** *** 334,350 **** function TInstantUIBConnector.GetDatabaseExists: Boolean; begin - AssignLoginOptions; try ! Connection.Open; try Result := True; finally ! Connection.Close; end; except ! Result := False end; end; { TInstantUIBBroker} --- 320,402 ---- function TInstantUIBConnector.GetDatabaseExists: Boolean; begin try ! DataBase.Connected := True; try Result := True; finally ! DataBase.Connected := False; end; except ! on E: EUIBError do begin ! if (E.SQLCode = -902) and (E.ErrorCode = 335544344) then ! Result := False ! else ! raise; ! end; ! end; ! end; ! ! procedure TInstantUIBConnector.CheckDataBase; ! begin ! if not Assigned(FDataBase) then ! raise EInstantError.Create(SUnassignedConnection); ! end; ! ! function TInstantUIBConnector.GetConnected: Boolean; ! begin ! if HasDataBase then ! Result := DataBase.Connected ! else ! Result := inherited GetConnected; ! end; ! ! procedure TInstantUIBConnector.InternalConnect; ! begin ! CheckDataBase; ! if FLoginPrompt and not DataBase.Connected then ! DataBaseLogin; ! DataBase.Connected := True; ! end; ! ! procedure TInstantUIBConnector.InternalDisconnect; ! begin ! if HasDataBase then ! DataBase.Connected := False; ! end; ! ! procedure TInstantUIBConnector.Notification(AComponent: TComponent; ! Operation: TOperation); ! begin ! inherited; ! if (AComponent = FDataBase) and (Operation = opRemove) then ! begin ! Disconnect; ! FDataBase := nil; end; end; + function TInstantUIBConnector.HasDataBase: Boolean; + begin + Result := Assigned(FDataBase); + end; + + procedure TInstantUIBConnector.DataBaseLogin; + var + LUserName, LPassWord: string; + begin + LUserName := DataBase.UserName; + LPassWord := DataBase.PassWord; + if Assigned(LoginDialogProc) then + begin + if LoginDialogProc(FDataBase.DatabaseName, LUserName, LPassWord) then + begin + FDataBase.UserName := LUserName; + FDataBase.PassWord := LPassWord; + end; + end + else + raise EDatabaseError.Create(SLoginPromptFailure); + end; + { TInstantUIBBroker} *************** *** 419,423 **** Query := TJvUIBDataSet.Create(nil); try ! Query.Database := Connector.Connection.Database; Query.FetchBlobs := True; Query.OnError := etmStayIn; --- 471,475 ---- Query := TJvUIBDataSet.Create(nil); try ! Query.Database := Connector.DataBase; Query.FetchBlobs := True; Query.OnError := etmStayIn; *************** *** 467,471 **** function TInstantUIBBroker.GetDatabaseName: string; begin ! Result := Connector.Connection.Database.DatabaseName; end; --- 519,523 ---- function TInstantUIBBroker.GetDatabaseName: string; begin ! Result := Connector.DataBase.DatabaseName; end; *************** *** 475,486 **** end; ! function TInstantUIBBroker.GetDialect: Integer; begin ! Result := Connector.Connection.Database.SQLDialect; end; function TInstantUIBBroker.GetSQLDelimiters: string; begin ! if (Dialect = 3) and DelimitedIdentsEnabled() then Result := '""' else --- 527,538 ---- end; ! function TInstantUIBBroker.GetSQLDialect: Integer; begin ! Result := Connector.DataBase.SQLDialect; end; function TInstantUIBBroker.GetSQLDelimiters: string; begin ! if (SQLDialect = 3) and DelimitedIdentsEnabled() then Result := '""' else Index: InstantUIBReg.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBReg.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantUIBReg.pas 4 Sep 2005 23:15:53 -0000 1.3 --- InstantUIBReg.pas 21 Oct 2005 09:15:08 -0000 1.4 *************** *** 41,50 **** uses ! Classes, InstantUIB, InstantUIBConnection; procedure Register; begin RegisterComponents('InstantObjects', [TInstantUIBConnector]); - RegisterComponents('InstantObjects', [TInstantUIBConnection]); end; --- 41,49 ---- uses ! Classes, InstantUIB; procedure Register; begin RegisterComponents('InstantObjects', [TInstantUIBConnector]); end; |
|
From: Nando D. <na...@us...> - 2005-10-21 09:15:15
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12718/Core Modified Files: InstantConsts.pas Log Message: Refactored UIB broker so that it uses an external JvUIBDataBase component and does not parse connection strings anymore Index: InstantConsts.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** InstantConsts.pas 13 Oct 2005 10:55:33 -0000 1.19 --- InstantConsts.pas 21 Oct 2005 09:15:08 -0000 1.20 *************** *** 96,99 **** --- 96,100 ---- SContainerNotFound = 'Container: ''%s'' not found for class %s'; SDatabaseEvolutionNonSupported = 'This broker does not support database evolution'; + SDatabaseOpen = 'Cannot perform this operation on an open database'; SDefaultContainerNotFound = 'Default container not found for class %s'; SDefaultContainerNotSpecified = 'Default container not specified for class %s'; *************** *** 133,136 **** --- 134,138 ---- SInvalidValueType = 'Invalid value type'; SKeyViolation = 'Key violation for object %s(''%s'')'; + SLoginPromptFailure = 'Couldn''t find login dialog. Please use unit DBLogDlg or set LoginPrompt to False'; SMetadataMismatch = 'Metadata mismatch for attribute %s(''%s'')'; SMetadataNotFound = 'Metadata not found for class %s'; |
|
From: Nando D. <na...@us...> - 2005-10-21 09:15:15
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12718/Brokers/UIB/D7 Modified Files: IOUIB.dpk Log Message: Refactored UIB broker so that it uses an external JvUIBDataBase component and does not parse connection strings anymore Index: IOUIB.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/D7/IOUIB.dpk,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** IOUIB.dpk 16 Sep 2005 08:57:21 -0000 1.5 --- IOUIB.dpk 21 Oct 2005 09:15:07 -0000 1.6 *************** *** 39,44 **** contains InstantUIBConnectionDefEdit in '..\InstantUIBConnectionDefEdit.pas' {InstantUIBConnectionDefEditForm}, ! InstantUIB in '..\InstantUIB.pas', ! InstantUIBConnection in '..\InstantUIBConnection.pas'; end. --- 39,43 ---- contains InstantUIBConnectionDefEdit in '..\InstantUIBConnectionDefEdit.pas' {InstantUIBConnectionDefEditForm}, ! InstantUIB in '..\InstantUIB.pas'; end. |
|
From: Steven M. <sr...@us...> - 2005-10-20 23:18:23
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24652 Modified Files: InstantNexusDBCatalog.pas Log Message: Removed path for InstantNexusDBDefines.inc after file move from catalog to broker folder. Index: InstantNexusDBCatalog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantNexusDBCatalog.pas 20 Oct 2005 08:23:02 -0000 1.1 --- InstantNexusDBCatalog.pas 20 Oct 2005 23:18:16 -0000 1.2 *************** *** 32,40 **** {$IFDEF LINUX} {$I '../../InstantDefines.inc'} - {$I ../../Brokers/NexusDB/InstantNexusDBDefines.inc} {$ELSE} {$I '..\..\InstantDefines.inc'} - {$I ..\..\Brokers\NexusDB\InstantNexusDBDefines.inc} {$ENDIF} interface --- 32,39 ---- {$IFDEF LINUX} {$I '../../InstantDefines.inc'} {$ELSE} {$I '..\..\InstantDefines.inc'} {$ENDIF} + {$I InstantNexusDBDefines.inc} interface |
|
From: Steven M. <sr...@us...> - 2005-10-20 22:28:28
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10142 Modified Files: InstantPersistence.pas Log Message: Bug fixes in the InternalRefreshObjects for TInstantNavigationalQuery and TInstantSQLQuery. The BusyObjects list is now created with object ownership. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** InstantPersistence.pas 20 Oct 2005 04:14:00 -0000 1.63 --- InstantPersistence.pas 20 Oct 2005 22:28:20 -0000 1.64 *************** *** 12508,12512 **** if not DataSet.Active then Exit; ! BusyObjects := TObjectList.Create(False); try for I := 0 to Pred(ObjectRowCount) do --- 12508,12512 ---- if not DataSet.Active then Exit; ! BusyObjects := TObjectList.Create; try for I := 0 to Pred(ObjectRowCount) do *************** *** 14609,14613 **** BusyObjects: TObjectList; begin ! BusyObjects := TObjectList.Create(False); try for I := 0 to Pred(ObjectReferenceCount) do --- 14609,14613 ---- BusyObjects: TObjectList; begin ! BusyObjects := TObjectList.Create; try for I := 0 to Pred(ObjectReferenceCount) do |
|
From: Steven M. <sr...@us...> - 2005-10-20 22:21:54
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8705 Modified Files: ContactView.pas CompanyEdit.pas BasicBrowse.pas Log Message: Update to reduce memory leakage when adding objects Index: CompanyEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/CompanyEdit.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** CompanyEdit.pas 10 Feb 2005 23:06:18 -0000 1.6 --- CompanyEdit.pas 20 Oct 2005 22:21:46 -0000 1.7 *************** *** 77,80 **** --- 77,82 ---- EmployeeDeleteAction.Enabled := Assigned(Employee); EmployeeRemoveAction.Enabled := Assigned(Employee); + + Handled := True; end; *************** *** 125,134 **** begin Employee := TPerson.Create; ! if EditObject(Employee) then ! begin ! if not Assigned(Employee.Employer) then ! Employee.EmployBy(Subject); ! end else Employee.Free; end; --- 127,140 ---- begin Employee := TPerson.Create; ! try ! if EditObject(Employee) then ! begin ! if not Assigned(Employee.Employer) then ! Employee.EmployBy(Subject); ! SubjectExposer.RefreshCurrentObject; ! end; ! finally Employee.Free; + end; end; Index: ContactView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactView.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ContactView.pas 21 Mar 2005 16:48:03 -0000 1.7 --- ContactView.pas 20 Oct 2005 22:21:46 -0000 1.8 *************** *** 321,324 **** --- 321,325 ---- begin EditObject(ContactSelector.CurrentObject); + ContactSelector.RefreshData; end; *************** *** 469,476 **** begin Company := TCompany.Create; ! if EditObject(Company) then ! ContactSelector.AddObject(Company) ! else Company.Free; end; --- 470,479 ---- begin Company := TCompany.Create; ! try ! if EditObject(Company) then ! ContactSelector.AddObject(Company); ! finally Company.Free; + end; end; *************** *** 480,487 **** begin Person := TPerson.Create; ! if EditObject(Person) then ! ContactSelector.AddObject(Person) ! else Person.Free; end; --- 483,492 ---- begin Person := TPerson.Create; ! try ! if EditObject(Person) then ! ContactSelector.AddObject(Person); ! finally Person.Free; + end; end; Index: BasicBrowse.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicBrowse.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** BasicBrowse.pas 19 Oct 2005 16:18:15 -0000 1.5 --- BasicBrowse.pas 20 Oct 2005 22:21:46 -0000 1.6 *************** *** 207,214 **** else begin NewObject := CreateObject; ! if EditObject(NewObject) and Exposer.Active then ! Exposer.AddObject(NewObject) ! else NewObject.Free; end; end; --- 207,216 ---- else begin NewObject := CreateObject; ! try ! if EditObject(NewObject) and Exposer.Active then ! Exposer.AddObject(NewObject); ! finally NewObject.Free; + end; end; end; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:14
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Brokers/NexusDb/D6 Modified Files: IONexusDB.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker Index: IONexusDB.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D6/IONexusDB.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** IONexusDB.dpk 3 Sep 2005 08:03:11 -0000 1.2 --- IONexusDB.dpk 20 Oct 2005 08:23:02 -0000 1.3 *************** *** 33,40 **** vcl, vcldb, ! IOCore, ! IONexusDBCatalog; contains InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', --- 33,40 ---- vcl, vcldb, ! IOCore; contains + InstantNexusDBCatalog in '..\InstantNexusDBCatalog.pas', InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:14
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Catalogs/NexusDB/D6 Removed Files: IONexusDBCatalog.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker --- IONexusDBCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:14
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Brokers/NexusDb Added Files: InstantNexusDBCatalog.pas Log Message: Integrated the NexusDB catalog into the NexusDb broker --- NEW FILE: InstantNexusDBCatalog.pas --- (* * InstantObjects DBEvolver Support * NexusDB Catalog *) (* ***** 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: InstantObjects DBEvolver Support/NexusDB Catalog * * The Initial Developer of the Original Code is: Steven Mitchell * * Portions created by the Initial Developer are Copyright (C) 2005 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) unit InstantNexusDBCatalog; {$IFDEF LINUX} {$I '../../InstantDefines.inc'} {$I ../../Brokers/NexusDB/InstantNexusDBDefines.inc} {$ELSE} {$I '..\..\InstantDefines.inc'} {$I ..\..\Brokers\NexusDB\InstantNexusDBDefines.inc} {$ENDIF} interface uses InstantPersistence; type // A TInstantCatalog that reads catalog information from a NexusDb // database. Can be used with a NexusDb broker. TInstantNexusDBCatalog = class(TInstantSQLBrokerCatalog) private procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata); procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); function ColumnTypeToDataType(const ColumnType: string; const NexusType, FieldScale: Integer): TInstantDataType; function GetSelectFieldsSQL(const ATableName: string): string; function GetSelectIndexesSQL(const ATableName: string): string; function GetSelectIndexFieldsSQL(const AIndexName: string): string; function GetSelectTablesSQL: string; public procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas); override; end; implementation uses SysUtils, Classes, DB; { TInstantNexusDBCatalog } procedure TInstantNexusDBCatalog.AddIndexMetadatas( TableMetadata: TInstantTableMetadata); var Indexes: TDataSet; IndexMetadata: TInstantIndexMetadata; function GetIndexFields(const IndexName: string): string; var IndexFieldList: TStrings; IndexFields: TDataSet; begin IndexFieldList := TStringList.Create; try IndexFields := Broker.AcquireDataSet(GetSelectIndexFieldsSQL(IndexName)); try IndexFields.Open; try while not IndexFields.Eof do begin IndexFieldList.Add(Trim(IndexFields.FieldByName('SEGMENT_FIELD').AsString)); IndexFields.Next; end; finally IndexFields.Close; end; finally Broker.ReleaseDataSet(IndexFields); end; Result := StringReplace(IndexFieldList.CommaText, ',', ';', [rfReplaceAll]); finally IndexFieldList.Free; end; end; begin Indexes := Broker.AcquireDataSet(GetSelectIndexesSQL(TableMetadata.Name)); try Indexes.Open; try while not Indexes.Eof do begin IndexMetadata := TableMetadata.IndexMetadatas.Add; IndexMetadata.Name := Trim(Indexes.FieldByName('INDEX_NAME').AsString); // Ignore automatically generated 'Sequential Access Index' if SameText('Sequential Access Index', IndexMetadata.Name) then begin TableMetadata.IndexMetadatas.Remove(IndexMetadata); Indexes.Next; Continue; end; IndexMetadata.Fields := GetIndexFields(IndexMetadata.Name); IndexMetadata.Options := []; if {$IFDEF NX1} (SameText('key0', Indexes.FieldByName('INDEX_NAME').AsString)) {$ELSE} (Pos('$SQL$PRIMARYKEY$', Indexes.FieldByName('INDEX_NAME').AsString) = 1) {$ENDIF} then IndexMetadata.Options := IndexMetadata.Options + [ixPrimary, ixUnique] else if not Indexes.FieldByName('INDEX_ALLOWSDUPS').AsBoolean then IndexMetadata.Options := IndexMetadata.Options + [ixUnique]; { TODO : support other Options? } Indexes.Next; end; finally Indexes.Close; end; finally Broker.ReleaseDataSet(Indexes); end; end; procedure TInstantNexusDBCatalog.AddFieldMetadatas( TableMetadata: TInstantTableMetadata); var Fields: TDataSet; FieldMetadata: TInstantFieldMetadata; begin Fields := Broker.AcquireDataSet(GetSelectFieldsSQL(TableMetadata.Name)); try Fields.Open; try while not Fields.Eof do begin FieldMetadata := TableMetadata.FieldMetadatas.Add; FieldMetadata.Name := Trim(Fields.FieldByName('FIELD_NAME').AsString); FieldMetadata.DataType := ColumnTypeToDataType( {$IFDEF NX1} Trim(Fields.FieldByName('FIELD_TYPE').AsString), {$ELSE} Trim(Fields.FieldByName('FIELD_TYPE_NEXUS').AsString), {$ENDIF} 0,// No need for 'FIELD_SUB_TYPE' here Fields.FieldByName('FIELD_DECIMALS').AsInteger); FieldMetadata.Options := []; if Fields.FieldByName('FIELD_REQUIRED').AsBoolean then FieldMetadata.Options := FieldMetadata.Options + [foRequired]; if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; { TODO : support ExternalTableName? } if FieldMetadata.DataType = dtString then FieldMetadata.Size := Fields.FieldByName('FIELD_UNITS').AsInteger else FieldMetadata.Size := Fields.FieldByName('FIELD_LENGTH').AsInteger; Fields.Next; end; finally Fields.Close; end; finally Broker.ReleaseDataSet(Fields); end; end; procedure TInstantNexusDBCatalog.AddTableMetadatas( TableMetadatas: TInstantTableMetadatas); var Tables: TDataSet; TableMetadata: TInstantTableMetadata; begin Tables := Broker.AcquireDataSet(GetSelectTablesSQL()); try Tables.Open; try while not Tables.Eof do begin TableMetadata := TableMetadatas.Add; TableMetadata.Name := Trim(Tables.FieldByName('TABLE_NAME').AsString); // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what // indexes are defined to correctly set the foIndexed option. AddIndexMetadatas(TableMetadata); AddFieldMetadatas(TableMetadata); Tables.Next; end; finally Tables.Close; end; finally Broker.ReleaseDataSet(Tables); end; end; function TInstantNexusDBCatalog.ColumnTypeToDataType(const ColumnType: string; const NexusType, FieldScale: Integer): TInstantDataType; begin { TODO : How to use FieldScale? } {$IFDEF NX1} if SameText(ColumnType, 'ShortString') or SameText(ColumnType, 'NullString') then Result := dtString else if SameText(ColumnType, 'Int8') or SameText(ColumnType, 'Int16') or SameText(ColumnType, 'Int32') then //or SameText(ColumnType, 'nxtAutoInc') then // is unsigned 32 bit Result := dtInteger else if SameText(ColumnType, 'Single') or SameText(ColumnType, 'Double') or SameText(ColumnType, 'Extended') then Result := dtFloat else if SameText(ColumnType, 'Currency') then Result := dtCurrency else if SameText(ColumnType, 'Boolean') then Result := dtBoolean else if SameText(ColumnType, 'DateTime') or SameText(ColumnType, 'Date') or SameText(ColumnType, 'Time')then Result := dtDateTime else if SameText(ColumnType, 'BLOB') then Result := dtBlob else if SameText(ColumnType, 'BLOB Memo') then Result := dtMemo {$ELSE} if SameText(ColumnType, 'nxtNullString') or SameText(ColumnType, 'nxtShortString') then Result := dtString else if SameText(ColumnType, 'nxtInt8') or SameText(ColumnType, 'nxtInt16') or SameText(ColumnType, 'nxtInt32') then //or SameText(ColumnType, 'nxtAutoInc') then // is unsigned 32 bit Result := dtInteger else if SameText(ColumnType, 'nxtSingle') or SameText(ColumnType, 'nxtDouble') or SameText(ColumnType, 'nxtExtended') then Result := dtFloat else if SameText(ColumnType, 'nxtCurrency') then Result := dtCurrency else if SameText(ColumnType, 'nxtBoolean') then Result := dtBoolean else if SameText(ColumnType, 'nxtDateTime') or SameText(ColumnType, 'nxtDate') or SameText(ColumnType, 'nxtTime')then Result := dtDateTime else if SameText(ColumnType, 'nxtBlob') then Result := dtBlob else if SameText(ColumnType, 'nxtBlobMemo') then Result := dtMemo {$ENDIF} else raise Exception.CreateFmt('ColumnType %s not supported.', [ColumnType]); end; function TInstantNexusDBCatalog.GetSelectFieldsSQL( const ATableName: string): string; begin Result := 'select ' + ' FIELD_NAME, FIELD_REQUIRED, ' + {$IFDEF NX1} ' FIELD_TYPE, ' + {$ELSE} ' FIELD_TYPE_NEXUS, ' + {$ENDIF} ' FIELD_LENGTH, FIELD_UNITS, ' + ' FIELD_DECIMALS, FIELD_INDEX ' + 'from ' + ' "#FIELDS" ' + 'where ' + ' TABLE_NAME = ''' + ATableName + ''' ' + 'order by ' + ' FIELD_INDEX'; end; function TInstantNexusDBCatalog.GetSelectIndexesSQL( const ATableName: string): string; begin Result := 'select ' + ' INDEX_NAME, INDEX_ALLOWSDUPS, INDEX_INDEX ' + 'from ' + ' "#INDICES" ' + 'where ' + ' TABLE_NAME = ''' + ATableName + ''' ' + 'order by ' + ' INDEX_INDEX'; end; function TInstantNexusDBCatalog.GetSelectIndexFieldsSQL( const AIndexName: string): string; begin Result := 'select ' + ' SEGMENT_FIELD, SEGMENT_INDEX ' + 'from ' + ' "#INDEXFIELDS" ' + 'where ' + ' INDEX_NAME = ''' + AIndexName + ''' ' + 'order by ' + ' SEGMENT_INDEX'; end; function TInstantNexusDBCatalog.GetSelectTablesSQL: string; begin Result := 'select ' + ' TABLE_NAME ' + 'from ' + ' "#TABLES" ' + 'order by ' + ' TABLE_NAME'; end; procedure TInstantNexusDBCatalog.InitTableMetadatas( ATableMetadatas: TInstantTableMetadatas); begin ATableMetadatas.Clear; AddTableMetadatas(ATableMetadatas); end; end. |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:13
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Catalogs/NexusDB/D7 Removed Files: IONexusDBCatalog.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker --- IONexusDBCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:13
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Catalogs/NexusDB Removed Files: InstantNexusDBCatalog.pas Log Message: Integrated the NexusDB catalog into the NexusDb broker --- InstantNexusDBCatalog.pas DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:13
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Catalogs/NexusDB/D5 Removed Files: IONexusDBCatalog_D5.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker --- IONexusDBCatalog_D5.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:11
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Catalogs/NexusDB/D2005 Removed Files: IONexusDBCatalog.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker --- IONexusDBCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:11
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Brokers/NexusDb/D7 Modified Files: IONexusDB.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker Index: IONexusDB.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D7/IONexusDB.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IONexusDB.dpk 3 Sep 2005 08:03:11 -0000 1.3 --- IONexusDB.dpk 20 Oct 2005 08:23:02 -0000 1.4 *************** *** 35,42 **** rtl, vcldb, ! IOCore, ! IONexusDBCatalog; contains InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', --- 35,42 ---- rtl, vcldb, ! IOCore; contains + InstantNexusDBCatalog in '..\InstantNexusDBCatalog.pas', InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:10
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Brokers/NexusDb/D5 Modified Files: IONexusDB_D5.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker Index: IONexusDB_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D5/IONexusDB_D5.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** IONexusDB_D5.dpk 3 Sep 2005 08:03:11 -0000 1.2 --- IONexusDB_D5.dpk 20 Oct 2005 08:23:02 -0000 1.3 *************** *** 31,38 **** vcl50, vclx50, ! IOCore, ! IONexusDBCatalog_D5; contains InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', --- 31,38 ---- vcl50, vclx50, ! IOCore; contains + InstantNexusDBCatalog in '..\InstantNexusDBCatalog.pas', InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', |
|
From: Nando D. <na...@us...> - 2005-10-20 08:23:10
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29446/Brokers/NexusDb/D2005 Modified Files: IONexusDB.dpk Log Message: Integrated the NexusDB catalog into the NexusDb broker Index: IONexusDB.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D2005/IONexusDB.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IONexusDB.dpk 3 Sep 2005 08:03:11 -0000 1.3 --- IONexusDB.dpk 20 Oct 2005 08:23:02 -0000 1.4 *************** *** 35,42 **** rtl, vcldb, ! IOCore, ! IONexusDBCatalog; contains InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', --- 35,42 ---- rtl, vcldb, ! IOCore; contains + InstantNexusDBCatalog in '..\InstantNexusDBCatalog.pas', InstantNexusDBConnectionDefEdit in '..\InstantNexusDBConnectionDefEdit.pas' {InstantNexusDBConnectionDefEditForm}, InstantNexusDB in '..\InstantNexusDB.pas', |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:14
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML/D2005 Modified Files: IOXML.dpk Log Message: Integrated the XML catalog into the XML broker Index: IOXML.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D2005/IOXML.dpk,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** IOXML.dpk 8 Sep 2005 07:35:31 -0000 1.4 --- IOXML.dpk 20 Oct 2005 08:04:00 -0000 1.5 *************** *** 34,41 **** dbrtl, IOCore, ! vclx, ! IOXMLCatalog; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; --- 34,41 ---- dbrtl, IOCore, ! vclx; contains + InstantXMLCatalog in '..\InstantXMLCatalog.pas', InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:10
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Catalogs/XML/D7 Removed Files: IOXMLCatalog.dpk Log Message: Integrated the XML catalog into the XML broker --- IOXMLCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:10
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Catalogs/XML/D6 Removed Files: IOXMLCatalog.dpk Log Message: Integrated the XML catalog into the XML broker --- IOXMLCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:10
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Catalogs/XML Removed Files: InstantXMLCatalog.pas Log Message: Integrated the XML catalog into the XML broker --- InstantXMLCatalog.pas DELETED --- |
