IBX.MtsPool Sample
Contents
This sample shows the use of object pooling. The application measures the amount of time needed to open and close a database connection a number of times. The "MTS Pooling checkbox" enables and disables the database objects pooling. There is a difference in elapsed time when running the test with and without MTS Pooling enabled.
This sample requires InterBase to be installed on the machine or to connect to a remote server. Make sure that the server is running before you run the example.
Location
You can find the MtsPool project at:
- Start | Programs | Embarcadero RAD Studio Berlin | Samples and then navigate to either:
- Object Pascal\DataBase\IBX\MtsPool
- CPP\Database\IBX\mstPool
- Subversion Repository for Delphi: http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RADStudio_Berlin/Object%20Pascal/Database/IBX/MtsPool/
- Subversion Repository for C++: http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RADStudio_Berlin/CPP/Database/IBX/mstPool/
Description
This sample shows the elapsed time for a defined number of consecutive connections to a database. Enabling the MTS Pooling sets the "MTS POOLING" Registry key to TRUE in [HKEY_LOCAL_MACHINE\Software\Borland\Database Engine\Settings\SYSTEM\INIT].
How to Use the Sample
- Navigate to the location given above and open:
- Delphi: mtspool.dproj
- C++: mstpool.cbproj
- Press F9 or choose Run > Run.
- Edit Open/Close Count with the number of connections you want to test.
- Select MTS Pooling to activate the setting.
- Click Test Pooling to start and stop the timer in order to calculate the elapsed time.
Files
| File in Delphi | File in C++ | Contains |
|---|---|---|
|
mtspool.dproj |
mstpool.cbproj |
The project itself. |
|
Pooling.pas/dfm |
Pooling.cpp/dfm |
The main form and the code to turn on the MTS Pooling setting. |
|
mtspool_Icon.ico |
The favicon of the application. | |
|
Readme.html |
Basic information about this sample. |
Implementation
This sample implements a method to turn on the MTS Pooling setting when selecting the MTS Pooling option.
It uses TIBDatabase to specify the database. In this case: C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Data\EMPLOYEE.GDB. The location to the database is specified in the DatabaseName property.
It uses TIBQuery to define the SQL Query. Right-clicking on the visual component and click Edit SQL to open the CommandText Editor where the SQL sentence is defined.