├── examples └── UIB │ ├── Automation │ ├── register.bat │ ├── UnRegister.bat │ ├── UIB.tlb │ ├── UIBDemo.xls │ ├── InternalItf.pas │ ├── UIB.dpr │ └── UIBDemo.htm │ ├── API │ ├── clean.bat │ ├── api9f.res │ ├── invf.res │ ├── zipf.res │ └── blob_filters.sql │ ├── Component │ ├── Query │ │ ├── main.pas │ │ └── Query.dpr │ ├── CloneDatabase │ │ ├── main.pas │ │ ├── CloneDB.res │ │ ├── firebird_ico.jpg │ │ ├── fb_clony_pumpy.ico │ │ ├── readme.txt │ │ └── CloneDB.dpr │ ├── ThreadedQueries │ │ ├── main.pas │ │ ├── Query.dpr │ │ └── main.dfm │ ├── Cursor │ │ ├── cursor.dpr │ │ └── main.dfm │ ├── Script │ │ ├── Script.dpr │ │ └── main.pas │ ├── DataPump │ │ ├── DataPump.dpr │ │ ├── main.dfm │ │ └── main.pas │ ├── Metadata │ │ ├── MetaData.dpr │ │ ├── Metadata.bdsgroup │ │ └── Metadata.groupproj │ ├── StoredProc │ │ ├── StoredProc.dpr │ │ ├── main.pas │ │ └── main.dfm │ ├── Backup │ │ ├── Backup.dpr │ │ ├── main.pas │ │ └── main.dfm │ ├── Restore │ │ ├── Restore.dpr │ │ ├── main.pas │ │ ├── Restore.dfm │ │ └── main.dfm │ ├── Blob │ │ ├── AsString │ │ │ ├── BlobSample.dpr │ │ │ └── main.pas │ │ └── AsStream │ │ │ ├── BlobStream.dpr │ │ │ └── main.pas │ ├── QuickScript │ │ ├── QuickScript.dpr │ │ └── main.dfm │ ├── Stream │ │ ├── QueryStream.dpr │ │ └── main.pas │ └── Security │ │ ├── Security.dpr │ │ └── user.pas │ ├── lazarus │ ├── metadata │ │ ├── main.lrs │ │ └── MetaData.lpr │ ├── stringgrid │ │ ├── frm_selecttogrid.lrs │ │ └── selecttogrid.lpr │ └── backup_restore │ │ ├── frm_bakcupsample.lrs │ │ └── bakcupsample.lpr │ ├── Parser │ └── Project1.dpr │ └── BCB6 │ ├── Backup │ ├── main.dfm │ ├── main.cpp │ ├── main.h │ └── backup.cpp │ └── Query │ ├── main.h │ ├── query.cpp │ ├── main.cpp │ └── main.dfm ├── misc ├── AppServer │ ├── Samples │ │ ├── Skeleton │ │ │ ├── install.bat │ │ │ ├── uninstall.bat │ │ │ ├── compilefpc.bat │ │ │ ├── clear.bat │ │ │ ├── main.pas │ │ │ ├── msxsl.exe │ │ │ ├── AppServer.ini │ │ │ ├── GenSkeletons.bat │ │ │ ├── client.dpr │ │ │ ├── cclient.dpr │ │ │ ├── cclient.cfg │ │ │ ├── TestLib.xml │ │ │ ├── client.cfg │ │ │ ├── TestLib_Intf.pas │ │ │ ├── AppServer.dpr │ │ │ ├── ProjectGroup.bpg │ │ │ └── skeleton.dtd │ │ └── WEB │ │ │ ├── compilefpc.bat │ │ │ ├── mainclient.pas │ │ │ ├── HTTP │ │ │ ├── favicon.ico │ │ │ ├── country │ │ │ │ ├── edit.html.lua │ │ │ │ └── index.html.lua │ │ │ └── index.htm │ │ │ ├── appserver.json │ │ │ ├── client.dpr │ │ │ ├── AppServer.dpr │ │ │ ├── mypool.pas │ │ │ ├── AppServer.cfg │ │ │ └── mainclient.dfm │ └── src │ │ ├── PDGAppServer.inc │ │ └── zlib │ │ ├── gzio.obj │ │ ├── crc32.obj │ │ ├── trees.obj │ │ ├── zutil.obj │ │ ├── adler32.obj │ │ ├── compress.obj │ │ ├── deflate.obj │ │ ├── infback.obj │ │ ├── inffast.obj │ │ ├── inflate.obj │ │ ├── inftrees.obj │ │ └── uncompr.obj ├── ShellExtention │ ├── unreg.bat │ ├── reg.bat │ ├── Clone.pas │ ├── Infos.pas │ ├── Pump.pas │ ├── Backup.pas │ ├── Options.pas │ ├── Restore.pas │ ├── Shutdown.pas │ ├── UIBFileHandler.cfg │ ├── UIBFileHandler.dpr │ └── setup.iss ├── UIBMonitor │ ├── main.pas │ ├── UIBHook.dpr │ ├── UIBHook.res │ ├── progman.ico │ ├── toolbar.bmp │ ├── MPL-1.1.html │ ├── madCHook.dll │ ├── UIBMonitor.res │ ├── UIBMonitor.dpr │ ├── UIBMonitor.bdsgroup │ └── readme.txt ├── DBExpress │ ├── Install.RES │ ├── dbexpUIBint6.res │ ├── dbexpUIBint65.res │ ├── dbexpUIBint7.res │ ├── dbexpUIBint71.res │ ├── dbexpUIBfire102.res │ ├── dbexpUIBfire103.res │ ├── dbexpUIBfire15.res │ ├── dbexpUIByaffil.res │ ├── dbexpUIBint6.dpr │ ├── dbexpUIBint65.dpr │ ├── dbexpUIBint7.dpr │ ├── dbexpUIBint71.dpr │ ├── dbexpUIBfire102.dpr │ ├── dbexpUIBfire103.dpr │ ├── dbexpUIBfire15.dpr │ ├── dbexpUIByaffil.dpr │ ├── Install.cfg │ ├── dbexpUIBint6.cfg │ ├── dbexpUIBint7.cfg │ ├── dbexpUIBfire102.cfg │ ├── dbexpUIBfire103.cfg │ ├── dbexpUIBfire15.cfg │ ├── dbexpUIBint65.cfg │ ├── dbexpUIBint71.cfg │ ├── dbexpUIByaffil.cfg │ └── dbexpUIB.bpg ├── FastReport │ ├── frxUIB.res │ ├── frxUIBReg.dcr │ ├── frxUIB_FR4.res │ ├── Resources │ │ ├── TUIBDataBase.bmp │ │ ├── TUIBDataSet.bmp │ │ ├── frxUIBMenu.bmp │ │ ├── frxUIBMenu_FR4.bmp │ │ ├── French │ │ │ ├── frxrcUIB.frc │ │ │ └── mk.bat │ │ ├── TUIBDataBase_FR4.bmp │ │ ├── TUIBDataSet_FR4.bmp │ │ ├── TUIBTransaction.bmp │ │ ├── TfrxUIBComponents.bmp │ │ ├── English │ │ │ ├── frxrcUIB.frc │ │ │ └── mk.bat │ │ ├── TUIBTransaction_FR4.bmp │ │ ├── frxUIBReg.rc │ │ ├── MakeResources.bat │ │ ├── frxUIB.rc │ │ └── frxUIB_FR4.rc │ ├── Demos │ │ └── FBReporter.dpr │ ├── frxUIB9.bdsgroup │ ├── frxUIB10.bdsgroup │ ├── frxUIB10.bdsproj │ ├── frxUIB9.bdsproj │ ├── dclfrxUIB9.bdsproj │ ├── dclfrxUIB10.bdsproj │ ├── frxrcUIB.pas │ ├── dclfrxUIB10.dpk │ ├── dclfrxUIB7.dpk │ ├── dclfrxUIB9.dpk │ ├── frxUIB12.dpk │ ├── frxUIBReg.pas │ ├── frxUIB7.dpk │ ├── frxUIB9.dpk │ ├── frxUIB10.dpk │ └── Readme.txt ├── CheckStructure │ └── uFrmMain.pas ├── InnoSetupDBRestore │ └── database.iss ├── IFPS3 │ └── TestApplication.dpr └── CodeGenerator │ └── readme.txt ├── Resources ├── MakeDCR.bat ├── UIBReg.dcr ├── TUIBBackup.bmp ├── TUIBConfig.bmp ├── TUIBEvents.bmp ├── TUIBQuery.bmp ├── TUIBRepair.bmp ├── TUIBScript.bmp ├── TUIBDataBase.bmp ├── TUIBDataSet.bmp ├── TUIBRestore.bmp ├── TUIBSecurity.bmp ├── TUIBServerInfo.bmp ├── TUIBTransaction.bmp └── UIBReg.rc ├── source ├── uib.pas ├── uiblaz.pas ├── uibconst.pas ├── uibcloner.pas ├── uibmetadata.pas ├── uibscriptbuilder.pas └── kylix.inc ├── packages ├── UIBC5D.res ├── UIBC5R.res ├── UIBC6D.res ├── UIBC6R.res ├── UIBD5D.res ├── UIBD5R.res ├── UIBD6D.res ├── UIBD6R.res ├── UIBD7D.res ├── UIBD7R.res ├── UIBK3D.res ├── UIBK3R.res ├── UIBD6DPE.res ├── UIBD6RPE.res ├── UIBBCB12Win32D.res ├── UIBBCB12Win32R.res ├── UIBD10Win32D.res ├── UIBD10Win32R.res ├── UIBD11Win32D.res ├── UIBD11Win32R.res ├── UIBD12Win32R.res ├── UIBD14Win32D.res ├── UIBD14Win32R.res ├── UIBD15Win32D.res ├── UIBD15Win32R.res ├── UIBD16Win32D.res ├── UIBD16Win32R.res ├── UIBD17Win32D.res ├── UIBD17Win32R.res ├── UIBD2005Win32D.res ├── UIBD2005Win32R.res ├── UIBD21Win32D.res ├── UIBD21Win32R.res ├── UIBD5D.cfg ├── UIBD5R.cfg ├── UIBD6R.cfg ├── UIBD6RPE.cfg ├── UIBD6D.cfg ├── UIBD6DPE.cfg ├── UIBC6R.cpp ├── UIBBCB12Win32R.cpp ├── UIBD10Win32D.cfg ├── UIBD7D.cfg ├── UIBD7R.cfg ├── UIBD10Win32R.cfg ├── UIBD2005Win32R.cfg ├── UIBD2005Win32D.cfg ├── UIBD10Win32.bdsgroup ├── UIBBCB12Win32D.cpp ├── UIBC5D.cpp ├── UIBC6D.cpp ├── UIBD2005Win32.bdsproj ├── UIBC5R.cpp ├── UIBD10Win32D.dpk ├── UIBD17Win32D.dpk ├── UIBD12Win32D.dpk ├── UIBD14Win32D.dpk ├── UIBD15Win32D.dpk ├── UIBD5D.dpk ├── UIBD2005Win32R.dpk ├── UIBD2005Win32D.dpk ├── UIBD6RPE.dpk ├── UIBD11Win32D.dpk ├── UIBD21Win32D.dpk ├── UIBD5R.dpk ├── UIBD6R.dpk ├── UIBK3R.dpk ├── UIBD7D.dpk ├── UIBD16Win32D.dpk ├── UIBD7R.dpk ├── UIBD6DPE.dpk ├── UIBK3D.dpk ├── UIBD10Win32R.dpk ├── UIBD11Win32R.dpk ├── UIBD17Win32R.dpk ├── UIBD12Win32R.dpk ├── UIBD14Win32R.dpk ├── UIBD15Win32R.dpk ├── UIBD6D.dpk ├── UIBD21Win32R.dpk ├── UIBD16Win32R.dpk ├── UIBD5D.dof ├── UIBD6D.dof ├── UIBD21Win32.groupproj ├── UIBD11Win32.groupproj ├── UIBD12Win32.groupproj └── UIBBCB12Win32.groupproj ├── .gitignore ├── README.md ├── Includes ├── IB9 │ ├── ib_util.h │ └── ib_util.pas ├── FB30 │ ├── firebird │ │ └── impl │ │ │ └── boost │ │ │ └── preprocessor │ │ │ ├── facilities │ │ │ └── empty.hpp │ │ │ ├── control │ │ │ ├── if.hpp │ │ │ ├── expr_if.hpp │ │ │ ├── expr_iif.hpp │ │ │ └── iif.hpp │ │ │ ├── cat.hpp │ │ │ └── debug │ │ │ └── error.hpp │ └── ib_util.h ├── FB20 │ └── ib_util.h ├── FB21 │ └── ib_util.h └── FB25 │ └── ib_util.h └── changes.txt /examples/UIB/Automation/register.bat: -------------------------------------------------------------------------------- 1 | regsvr32.exe UIB.dll -------------------------------------------------------------------------------- /examples/UIB/Automation/UnRegister.bat: -------------------------------------------------------------------------------- 1 | regsvr32.exe /U UIB.dll -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/install.bat: -------------------------------------------------------------------------------- 1 | AppServer install -------------------------------------------------------------------------------- /misc/ShellExtention/unreg.bat: -------------------------------------------------------------------------------- 1 | regsvr32 /U UIBFileHandler.dll -------------------------------------------------------------------------------- /Resources/MakeDCR.bat: -------------------------------------------------------------------------------- 1 | brc32 UIBReg.rc -r -foUIBReg.dcr 2 | pause -------------------------------------------------------------------------------- /examples/UIB/API/clean.bat: -------------------------------------------------------------------------------- 1 | del *.~*;*.exe;*.cfg;*.dof;*.gdb 2 | exit -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/uninstall.bat: -------------------------------------------------------------------------------- 1 | AppServer uninstall -------------------------------------------------------------------------------- /source/uib.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uib.pas -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/compilefpc.bat: -------------------------------------------------------------------------------- 1 | FPC -B -dCONSOLEAPP AppServer.dpr -------------------------------------------------------------------------------- /source/uiblaz.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uiblaz.pas -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/compilefpc.bat: -------------------------------------------------------------------------------- 1 | FPC -B -dCONSOLEAPP AppServer.dpr 2 | pause -------------------------------------------------------------------------------- /packages/UIBC5D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBC5D.res -------------------------------------------------------------------------------- /packages/UIBC5R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBC5R.res -------------------------------------------------------------------------------- /packages/UIBC6D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBC6D.res -------------------------------------------------------------------------------- /packages/UIBC6R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBC6R.res -------------------------------------------------------------------------------- /packages/UIBD5D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD5D.res -------------------------------------------------------------------------------- /packages/UIBD5R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD5R.res -------------------------------------------------------------------------------- /packages/UIBD6D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD6D.res -------------------------------------------------------------------------------- /packages/UIBD6R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD6R.res -------------------------------------------------------------------------------- /packages/UIBD7D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD7D.res -------------------------------------------------------------------------------- /packages/UIBD7R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD7R.res -------------------------------------------------------------------------------- /packages/UIBK3D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBK3D.res -------------------------------------------------------------------------------- /packages/UIBK3R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBK3R.res -------------------------------------------------------------------------------- /source/uibconst.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uibconst.pas -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | *.dcu 2 | *.local 3 | *_Icon.ico 4 | *.stat 5 | *.identcache 6 | __history 7 | -------------------------------------------------------------------------------- /Resources/UIBReg.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/UIBReg.dcr -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/clear.bat: -------------------------------------------------------------------------------- 1 | del *.dcu;*.o;*.~*;*.a;*.ppu;*.map;*.mad;*.or;*.ddp -------------------------------------------------------------------------------- /misc/AppServer/src/PDGAppServer.inc: -------------------------------------------------------------------------------- 1 | {$IFDEF FPC} 2 | {.$THREADING ON} 3 | {$ENDIF} 4 | -------------------------------------------------------------------------------- /misc/ShellExtention/reg.bat: -------------------------------------------------------------------------------- 1 | regsvr32 "C:\dev\uib\trunk\misc\ShellExtention\UIBFileHandler.dll" -------------------------------------------------------------------------------- /packages/UIBD6DPE.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD6DPE.res -------------------------------------------------------------------------------- /packages/UIBD6RPE.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD6RPE.res -------------------------------------------------------------------------------- /source/uibcloner.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uibcloner.pas -------------------------------------------------------------------------------- /source/uibmetadata.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uibmetadata.pas -------------------------------------------------------------------------------- /Resources/TUIBBackup.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBBackup.bmp -------------------------------------------------------------------------------- /Resources/TUIBConfig.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBConfig.bmp -------------------------------------------------------------------------------- /Resources/TUIBEvents.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBEvents.bmp -------------------------------------------------------------------------------- /Resources/TUIBQuery.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBQuery.bmp -------------------------------------------------------------------------------- /Resources/TUIBRepair.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBRepair.bmp -------------------------------------------------------------------------------- /Resources/TUIBScript.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBScript.bmp -------------------------------------------------------------------------------- /misc/UIBMonitor/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/main.pas -------------------------------------------------------------------------------- /Resources/TUIBDataBase.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBDataBase.bmp -------------------------------------------------------------------------------- /Resources/TUIBDataSet.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBDataSet.bmp -------------------------------------------------------------------------------- /Resources/TUIBRestore.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBRestore.bmp -------------------------------------------------------------------------------- /Resources/TUIBSecurity.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBSecurity.bmp -------------------------------------------------------------------------------- /examples/UIB/API/api9f.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/API/api9f.res -------------------------------------------------------------------------------- /examples/UIB/API/invf.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/API/invf.res -------------------------------------------------------------------------------- /examples/UIB/API/zipf.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/API/zipf.res -------------------------------------------------------------------------------- /misc/DBExpress/Install.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/Install.RES -------------------------------------------------------------------------------- /misc/FastReport/frxUIB.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/frxUIB.res -------------------------------------------------------------------------------- /misc/UIBMonitor/UIBHook.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/UIBHook.dpr -------------------------------------------------------------------------------- /misc/UIBMonitor/UIBHook.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/UIBHook.res -------------------------------------------------------------------------------- /misc/UIBMonitor/progman.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/progman.ico -------------------------------------------------------------------------------- /misc/UIBMonitor/toolbar.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/toolbar.bmp -------------------------------------------------------------------------------- /packages/UIBBCB12Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBBCB12Win32D.res -------------------------------------------------------------------------------- /packages/UIBBCB12Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBBCB12Win32R.res -------------------------------------------------------------------------------- /packages/UIBD10Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD10Win32D.res -------------------------------------------------------------------------------- /packages/UIBD10Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD10Win32R.res -------------------------------------------------------------------------------- /packages/UIBD11Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD11Win32D.res -------------------------------------------------------------------------------- /packages/UIBD11Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD11Win32R.res -------------------------------------------------------------------------------- /packages/UIBD12Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD12Win32R.res -------------------------------------------------------------------------------- /packages/UIBD14Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD14Win32D.res -------------------------------------------------------------------------------- /packages/UIBD14Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD14Win32R.res -------------------------------------------------------------------------------- /packages/UIBD15Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD15Win32D.res -------------------------------------------------------------------------------- /packages/UIBD15Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD15Win32R.res -------------------------------------------------------------------------------- /packages/UIBD16Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD16Win32D.res -------------------------------------------------------------------------------- /packages/UIBD16Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD16Win32R.res -------------------------------------------------------------------------------- /packages/UIBD17Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD17Win32D.res -------------------------------------------------------------------------------- /packages/UIBD17Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD17Win32R.res -------------------------------------------------------------------------------- /packages/UIBD2005Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD2005Win32D.res -------------------------------------------------------------------------------- /packages/UIBD2005Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD2005Win32R.res -------------------------------------------------------------------------------- /packages/UIBD21Win32D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD21Win32D.res -------------------------------------------------------------------------------- /packages/UIBD21Win32R.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/packages/UIBD21Win32R.res -------------------------------------------------------------------------------- /source/uibscriptbuilder.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/source/uibscriptbuilder.pas -------------------------------------------------------------------------------- /Resources/TUIBServerInfo.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBServerInfo.bmp -------------------------------------------------------------------------------- /Resources/TUIBTransaction.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/Resources/TUIBTransaction.bmp -------------------------------------------------------------------------------- /misc/FastReport/frxUIBReg.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/frxUIBReg.dcr -------------------------------------------------------------------------------- /misc/ShellExtention/Clone.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Clone.pas -------------------------------------------------------------------------------- /misc/ShellExtention/Infos.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Infos.pas -------------------------------------------------------------------------------- /misc/ShellExtention/Pump.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Pump.pas -------------------------------------------------------------------------------- /misc/UIBMonitor/MPL-1.1.html: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/MPL-1.1.html -------------------------------------------------------------------------------- /misc/UIBMonitor/madCHook.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/madCHook.dll -------------------------------------------------------------------------------- /examples/UIB/Automation/UIB.tlb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Automation/UIB.tlb -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/gzio.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/gzio.obj -------------------------------------------------------------------------------- /misc/CheckStructure/uFrmMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/CheckStructure/uFrmMain.pas -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBint6.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint65.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBint65.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint7.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBint7.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint71.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBint71.res -------------------------------------------------------------------------------- /misc/FastReport/frxUIB_FR4.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/frxUIB_FR4.res -------------------------------------------------------------------------------- /misc/ShellExtention/Backup.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Backup.pas -------------------------------------------------------------------------------- /misc/ShellExtention/Options.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Options.pas -------------------------------------------------------------------------------- /misc/ShellExtention/Restore.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Restore.pas -------------------------------------------------------------------------------- /misc/ShellExtention/Shutdown.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/ShellExtention/Shutdown.pas -------------------------------------------------------------------------------- /misc/UIBMonitor/UIBMonitor.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/UIBMonitor/UIBMonitor.res -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/crc32.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/crc32.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/trees.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/trees.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/zutil.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/zutil.obj -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire102.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBfire102.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire103.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBfire103.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire15.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIBfire15.res -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIByaffil.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/DBExpress/dbexpUIByaffil.res -------------------------------------------------------------------------------- /examples/UIB/Automation/UIBDemo.xls: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Automation/UIBDemo.xls -------------------------------------------------------------------------------- /examples/UIB/Component/Query/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/Query/main.pas -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/adler32.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/adler32.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/compress.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/compress.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/deflate.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/deflate.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/infback.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/infback.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/inffast.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/inffast.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/inflate.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/inflate.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/inftrees.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/inftrees.obj -------------------------------------------------------------------------------- /misc/AppServer/src/zlib/uncompr.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/src/zlib/uncompr.obj -------------------------------------------------------------------------------- /misc/InnoSetupDBRestore/database.iss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/InnoSetupDBRestore/database.iss -------------------------------------------------------------------------------- /examples/UIB/lazarus/metadata/main.lrs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/lazarus/metadata/main.lrs -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/Samples/Skeleton/main.pas -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/msxsl.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/Samples/Skeleton/msxsl.exe -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/mainclient.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/Samples/WEB/mainclient.pas -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBDataBase.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBDataBase.bmp -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBDataSet.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBDataSet.bmp -------------------------------------------------------------------------------- /misc/FastReport/Resources/frxUIBMenu.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/frxUIBMenu.bmp -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/HTTP/favicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/AppServer/Samples/WEB/HTTP/favicon.ico -------------------------------------------------------------------------------- /misc/FastReport/Resources/frxUIBMenu_FR4.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/frxUIBMenu_FR4.bmp -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/CloneDatabase/main.pas -------------------------------------------------------------------------------- /examples/UIB/Component/ThreadedQueries/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/ThreadedQueries/main.pas -------------------------------------------------------------------------------- /misc/FastReport/Resources/French/frxrcUIB.frc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/French/frxrcUIB.frc -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBDataBase_FR4.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBDataBase_FR4.bmp -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBDataSet_FR4.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBDataSet_FR4.bmp -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBTransaction.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBTransaction.bmp -------------------------------------------------------------------------------- /misc/FastReport/Resources/TfrxUIBComponents.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TfrxUIBComponents.bmp -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/CloneDB.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/CloneDatabase/CloneDB.res -------------------------------------------------------------------------------- /misc/FastReport/Resources/English/frxrcUIB.frc: -------------------------------------------------------------------------------- 1 | obUIBComps=UIB Components 2 | obUIBDB=UIB Database 3 | obUIBT=UIB Transaction 4 | obUIBQ=UIB Query -------------------------------------------------------------------------------- /misc/FastReport/Resources/TUIBTransaction_FR4.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/misc/FastReport/Resources/TUIBTransaction_FR4.bmp -------------------------------------------------------------------------------- /examples/UIB/lazarus/stringgrid/frm_selecttogrid.lrs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/lazarus/stringgrid/frm_selecttogrid.lrs -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/firebird_ico.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/CloneDatabase/firebird_ico.jpg -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/fb_clony_pumpy.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/Component/CloneDatabase/fb_clony_pumpy.ico -------------------------------------------------------------------------------- /examples/UIB/lazarus/backup_restore/frm_bakcupsample.lrs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hgourvest/uib/HEAD/examples/UIB/lazarus/backup_restore/frm_bakcupsample.lrs -------------------------------------------------------------------------------- /misc/FastReport/Resources/English/mk.bat: -------------------------------------------------------------------------------- 1 | set FRCC=..\..\..\..\Res\frcc.exe 2 | 3 | %FRCC% frxrcUIB.frc 4 | 5 | copy frxrcUIB.pas ..\.. 6 | 7 | del *.pas -------------------------------------------------------------------------------- /misc/FastReport/Resources/French/mk.bat: -------------------------------------------------------------------------------- 1 | set FRCC=..\..\..\..\Res\frcc.exe 2 | 3 | %FRCC% frxrcUIB.frc 4 | 5 | copy frxrcUIB.pas ..\.. 6 | 7 | del *.pas -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/AppServer.ini: -------------------------------------------------------------------------------- 1 | [DATABASE] 2 | DatabaseName=127.0.0.1:C:\Program Files\Firebird\Firebird_2_0\examples\empbuild\EMPLOYEE.FDB 3 | UserName=SYSDBA 4 | PassWord=masterkey 5 | SQLDialect=3 -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/appserver.json: -------------------------------------------------------------------------------- 1 | {"database": 2 | {"databasename":"EMPLOYEE", 3 | "username":"SYSDBA", 4 | "password":"masterkey", 5 | "characterset": "UTF8", 6 | "sqldialect":3} 7 | } 8 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # UIB 2 | 3 | This is a set of components to use Interbase and FireBird with Delphi or Freepascal. 4 | 5 | This project is not maintained, I recommend you use this fork instead: 6 | 7 | https://github.com/zedalaye/uib/ 8 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/GenSkeletons.bat: -------------------------------------------------------------------------------- 1 | msxsl TestLib.xml interface.xsl -v -o Testlib_Intf.pas 2 | msxsl TestLib.xml server.xsl -v -o TestLib_Server.pas 3 | msxsl TestLib.xml client.xsl -v -o TestLib_Client.pas 4 | rem pause -------------------------------------------------------------------------------- /examples/UIB/Automation/InternalItf.pas: -------------------------------------------------------------------------------- 1 | unit InternalItf; 2 | 3 | interface 4 | 5 | type 6 | IDataPointer = interface(IUnKnown) 7 | ['{AB6056C1-C480-4B19-A017-9A726E342BF9}'] 8 | function Data: pointer; stdcall; 9 | end; 10 | 11 | implementation 12 | 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/readme.txt: -------------------------------------------------------------------------------- 1 | This is a usefull tool to clone your databases for 2 | - recover damaged database 3 | - change ODS version 4 | 5 | This sample can be easy modified to create your own backup format 6 | (TSQLResult.SaveToStream() TMetaDataBase.SaveToStream() ... ) -------------------------------------------------------------------------------- /examples/UIB/Component/Cursor/cursor.dpr: -------------------------------------------------------------------------------- 1 | program cursor; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Script/Script.dpr: -------------------------------------------------------------------------------- 1 | program Script; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/DataPump/DataPump.dpr: -------------------------------------------------------------------------------- 1 | program DataPump; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Metadata/MetaData.dpr: -------------------------------------------------------------------------------- 1 | program MetaData; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/client.dpr: -------------------------------------------------------------------------------- 1 | program client; 2 | 3 | uses 4 | Forms, 5 | mainclient in 'mainclient.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/StoredProc/StoredProc.dpr: -------------------------------------------------------------------------------- 1 | program StoredProc; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Query/Query.dpr: -------------------------------------------------------------------------------- 1 | program Query; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/ThreadedQueries/Query.dpr: -------------------------------------------------------------------------------- 1 | program Query; 2 | uses 3 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 4 | main in 'main.pas' {Form1}; 5 | 6 | {$R *.res} 7 | 8 | begin 9 | Application.Initialize; 10 | Application.CreateForm(TForm1, Form1); 11 | Application.Run; 12 | end. 13 | -------------------------------------------------------------------------------- /examples/UIB/Component/Backup/Backup.dpr: -------------------------------------------------------------------------------- 1 | program Backup; 2 | 3 | uses 4 | {$IFDEF LINUX} QForms,{$ELSE} Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Restore/Restore.dpr: -------------------------------------------------------------------------------- 1 | program Restore; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Blob/AsString/BlobSample.dpr: -------------------------------------------------------------------------------- 1 | program BlobSample; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /misc/IFPS3/TestApplication.dpr: -------------------------------------------------------------------------------- 1 | program TestApplication; 2 | 3 | uses 4 | Forms, 5 | fMain in 'fMain.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.Title := 'Test Application'; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /examples/UIB/Component/Blob/AsStream/BlobStream.dpr: -------------------------------------------------------------------------------- 1 | program BlobStream; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/QuickScript/QuickScript.dpr: -------------------------------------------------------------------------------- 1 | program QuickScript; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /examples/UIB/Component/Stream/QueryStream.dpr: -------------------------------------------------------------------------------- 1 | program QueryStream; 2 | 3 | uses 4 | {$IFDEF LINUX}QForms,{$ELSE}Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TMainForm, MainForm); 12 | Application.Run; 13 | end. 14 | 15 | 16 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint6.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBint6; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint65.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBint65; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint7.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBint7; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint71.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBint71; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /examples/UIB/lazarus/stringgrid/selecttogrid.lpr: -------------------------------------------------------------------------------- 1 | program selecttogrid; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | Interfaces, // this includes the LCL widgetset 7 | Forms, 8 | frm_selecttogrid; 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | 16 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire102.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBfire102; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire103.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBfire103; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire15.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIBfire15; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIByaffil.dpr: -------------------------------------------------------------------------------- 1 | library dbexpUIByaffil; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | {$IFDEF DEBUG} 7 | DbugIntf in 'C:\Program Files\GExperts\DbugIntf.pas', 8 | {$ENDIF} 9 | MainDriver in 'MainDriver.pas'; 10 | 11 | {$R *.res} 12 | 13 | exports getSQLDriverINTERBASE; 14 | 15 | begin 16 | 17 | end. 18 | -------------------------------------------------------------------------------- /examples/UIB/lazarus/backup_restore/bakcupsample.lpr: -------------------------------------------------------------------------------- 1 | program bakcupsample; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | Interfaces, // this includes the LCL widgetset 7 | Forms, 8 | frm_bakcupsample; 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TfrmBakcup, frmBakcup); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/HTTP/country/edit.html.lua: -------------------------------------------------------------------------------- 1 | 2 | 3 |
4 | 5 | 6 | 7 |
8 | 9 | -------------------------------------------------------------------------------- /examples/UIB/Parser/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {%File 'uibSQLLexer.l'} 4 | {%File 'uibSQLParser.y'} 5 | 6 | uses 7 | Forms, 8 | Unit1 in 'Unit1.pas' {Form1}, 9 | uibSQLParser in 'uibSQLParser.pas'; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.CreateForm(TForm1, Form1); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /Includes/IB9/ib_util.h: -------------------------------------------------------------------------------- 1 | /* 2 | * PROGRAM: UDF and Blob filter Utilities library 3 | * MODULE: ib_util.h 4 | * DESCRIPTION: Prototype header file for ib_util.c 5 | * 6 | * copyright (c) 1998 by InterBase Software Corporation 7 | */ 8 | 9 | #ifndef _IB_UTIL_H 10 | #define _IB_UTIL_H 11 | 12 | extern void * ib_util_malloc (long); 13 | 14 | #endif /* _IB_UTIL_H */ 15 | -------------------------------------------------------------------------------- /examples/UIB/Component/Security/Security.dpr: -------------------------------------------------------------------------------- 1 | program Security; 2 | 3 | uses 4 | {$IFDEF LINUX} QForms,{$ELSE} Forms,{$ENDIF} 5 | main in 'main.pas' {MainForm}, 6 | user in 'user.pas' {UserForm}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TMainForm, MainForm); 13 | Application.CreateForm(TUserForm, UserForm); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/client.dpr: -------------------------------------------------------------------------------- 1 | program client; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {Form1}, 6 | TestLib_Client in 'TestLib_Client.pas', 7 | TestLib_Intf in 'TestLib_Intf.pas', 8 | kbUIBLoader in '..\..\src\kbUIBLoader.pas'; 9 | 10 | {$R *.res} 11 | 12 | begin 13 | Application.Initialize; 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /misc/FastReport/Demos/FBReporter.dpr: -------------------------------------------------------------------------------- 1 | program FBReporter; 2 | 3 | uses 4 | Forms, 5 | frxClass, 6 | frxDesgn, 7 | PNGImage, 8 | frxUIBComponents; 9 | 10 | {$R *.res} 11 | var 12 | Report: TfrxReport; 13 | 14 | begin 15 | Application.Initialize; 16 | 17 | Report := TfrxReport.Create(nil); 18 | try 19 | Report.DesignReport; 20 | finally 21 | Report.Free; 22 | end; 23 | end. 24 | -------------------------------------------------------------------------------- /examples/UIB/lazarus/metadata/MetaData.lpr: -------------------------------------------------------------------------------- 1 | program MetaData; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX}{$IFDEF UseCThreads} 7 | cthreads, 8 | {$ENDIF}{$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms 11 | { add your units here }, main, virtualtreeslcl, UIBLaz; 12 | 13 | begin 14 | Application.Initialize; 15 | Application.CreateForm(TMainForm, MainForm); 16 | Application.Run; 17 | end. 18 | 19 | -------------------------------------------------------------------------------- /misc/UIBMonitor/UIBMonitor.dpr: -------------------------------------------------------------------------------- 1 | program UIBMonitor; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {MainForm}, 6 | ThreadAppLoader in 'ThreadAppLoader.pas', 7 | SharedHook in 'SharedHook.pas', 8 | avl in 'avl.pas', 9 | TrayIcon in 'TrayIcon.pas'; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.Title := 'UIB SQL Monitor'; 16 | Application.CreateForm(TMainForm, MainForm); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /examples/UIB/Component/CloneDatabase/CloneDB.dpr: -------------------------------------------------------------------------------- 1 | program CloneDB; 2 | 3 | uses 4 | {$IFDEF USE_FASTMM4} 5 | FastMM4, 6 | {$ENDIF} 7 | Forms, 8 | exceptionform in 'exceptionform.pas' {ExceptionDialog}, 9 | main in 'main.pas' {MainForm}; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.Title := 'Clony&Pumpy - The Famous Firebird Database Tool'; 16 | Application.CreateForm(TMainForm, MainForm); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/cclient.dpr: -------------------------------------------------------------------------------- 1 | program cclient; 2 | 3 | {$APPTYPE CONSOLE} 4 | 5 | uses 6 | SysUtils, 7 | TestLib_Client in 'TestLib_Client.pas', 8 | PDGUtils in '..\..\src\PDGUtils.pas', 9 | PDGZlib in '..\..\src\PDGZlib.pas'; 10 | 11 | var 12 | obj: TMyObject2Client; 13 | begin 14 | obj := TMyObject2Client.Create('localhost', 33000); 15 | try 16 | writeln(obj.GetString); 17 | finally 18 | obj.Free; 19 | end; 20 | Readln; 21 | end. 22 | -------------------------------------------------------------------------------- /examples/UIB/Automation/UIB.dpr: -------------------------------------------------------------------------------- 1 | library UIB; 2 | 3 | uses 4 | ComServ, 5 | UIB_TLB in 'UIB_TLB.pas', 6 | database in 'database.pas' {Database: CoClass}, 7 | transaction in 'transaction.pas' {Transaction: CoClass}, 8 | InternalItf in 'InternalItf.pas', 9 | query in 'query.pas' {Query: CoClass}; 10 | 11 | exports 12 | DllGetClassObject, 13 | DllCanUnloadNow, 14 | DllRegisterServer, 15 | DllUnregisterServer; 16 | 17 | {$R *.TLB} 18 | 19 | {$R *.RES} 20 | 21 | begin 22 | end. 23 | -------------------------------------------------------------------------------- /Resources/UIBReg.rc: -------------------------------------------------------------------------------- 1 | /* UIB components */ 2 | TUIBDataBase BITMAP "TUIBDataBase.bmp" 3 | TUIBTransaction BITMAP "TUIBTransaction.bmp" 4 | TUIBQuery BITMAP "TUIBQuery.bmp" 5 | TUIBBackup BITMAP "TUIBBackup.bmp" 6 | TUIBRestore BITMAP "TUIBRestore.bmp" 7 | TUIBSCRIPT BITMAP "TUIBScript.bmp" 8 | TUIBDATASET BITMAP "TUIBDataSet.bmp" 9 | TUIBSecurity BITMAP "TUIBSecurity.bmp" 10 | TUIBEvents BITMAP "TUIBEvents.bmp" 11 | TUIBRepair BITMAP "TUIBRepair.bmp" 12 | TUIBConfig BITMAP "TUIBConfig.bmp" 13 | TUIBServerInfo BITMAP "TUIBServerInfo.bmp" -------------------------------------------------------------------------------- /misc/FastReport/Resources/frxUIBReg.rc: -------------------------------------------------------------------------------- 1 | /***********************************************************/ 2 | /* Resources for the Delphi IDE */ 3 | /* UIB components for FastReport 3.0 */ 4 | /* */ 5 | /* Created by : Pierre Y. */ 6 | /* Email : pierre@levosgien.net */ 7 | /***********************************************************/ 8 | TfrxUIBComponents BITMAP "TfrxUIBComponents.bmp" 9 | -------------------------------------------------------------------------------- /packages/UIBD5D.cfg: -------------------------------------------------------------------------------- 1 | -$A+ 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R+ 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi5\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi5\Projects\Bpl" 36 | -Z 37 | -------------------------------------------------------------------------------- /packages/UIBD5R.cfg: -------------------------------------------------------------------------------- 1 | -$A+ 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi5\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi5\Projects\Bpl" 36 | -Z 37 | -------------------------------------------------------------------------------- /packages/UIBD6R.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R+ 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -------------------------------------------------------------------------------- /packages/UIBD6RPE.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R+ 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -------------------------------------------------------------------------------- /packages/UIBD6D.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R+ 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi6\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi6\Projects\Bpl" 36 | -DHAVE_SYNEDIT 37 | -Z 38 | -------------------------------------------------------------------------------- /packages/UIBD6DPE.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R+ 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi6\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi6\Projects\Bpl" 36 | -DUIBPEVERSION 37 | -Z 38 | -------------------------------------------------------------------------------- /packages/UIBC6R.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /misc/ShellExtention/UIBFileHandler.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"F:\Projets Borland Studio\Bpl" 35 | -LN"F:\Projets Borland Studio\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /packages/UIBBCB12Win32R.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Source du paquet. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/UIBD10Win32D.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -GD 28 | -cg 29 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 30 | -H+ 31 | -W+ 32 | -M 33 | -$M16384,1048576 34 | -K$00400000 35 | -LE"F:\Projets Borland Studio\Bpl" 36 | -LN"F:\Projets Borland Studio\Bpl" 37 | -Z 38 | -w-UNSAFE_TYPE 39 | -w-UNSAFE_CODE 40 | -w-UNSAFE_CAST 41 | -------------------------------------------------------------------------------- /misc/FastReport/Resources/MakeResources.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | 3 | echo Cleaning existing resources... 4 | del frxUIB.res 2> nul 5 | del frxUIB_FR4.dcr 2> nul 6 | del frxUIBReg.dcr 2> nul 7 | 8 | echo Building resources files... 9 | brc32 frxUIB.rc -r -fofrxUIB.res 10 | brc32 frxUIB_FR4.rc -r -fofrxUIB_FR4.res 11 | brc32 frxUIBReg.rc -r -fofrxUIBReg.dcr 12 | 13 | echo Copying resources to sources directory... 14 | copy /Y frxUIB.res .. 15 | copy /Y frxUIB_FR4.res .. 16 | copy /Y frxUIBReg.dcr .. 17 | 18 | del frxUIB.res 19 | del frxUIB_FR4.res 20 | del frxUIBReg.dcr 21 | 22 | pause 23 | 24 | echo Done. -------------------------------------------------------------------------------- /misc/ShellExtention/UIBFileHandler.dpr: -------------------------------------------------------------------------------- 1 | library UIBFileHandler; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | ComServ, 7 | main in 'main.pas', 8 | Backup in 'Backup.pas' {BackupForm}, 9 | Restore in 'Restore.pas' {RestoreForm}, 10 | Infos in 'Infos.pas' {InfosForm}, 11 | Shutdown in 'Shutdown.pas' {ShutDownForm}, 12 | Clone in 'Clone.pas' {CloneForm}, 13 | Options in 'Options.pas' {OptionsForm}, 14 | Pump in 'Pump.pas' {PumpForm}; 15 | 16 | exports 17 | DllGetClassObject, 18 | DllCanUnloadNow, 19 | DllRegisterServer, 20 | DllUnregisterServer; 21 | 22 | begin 23 | end. 24 | 25 | -------------------------------------------------------------------------------- /misc/DBExpress/Install.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /packages/UIBD7D.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /packages/UIBD7R.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C- 4 | -$D- 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L- 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint6.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /packages/UIBD10Win32R.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I- 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /packages/UIBD2005Win32R.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -Z 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/cclient.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint7.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DIB7 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire102.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DFB102 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire103.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DFB103 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBfire15.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DFB15 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint65.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DIB65 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIBint71.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DIB71 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIByaffil.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -DYF867 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/facilities/empty.hpp: -------------------------------------------------------------------------------- 1 | # /* Copyright (C) 2001 2 | # * Housemarque Oy 3 | # * http://www.housemarque.com 4 | # * 5 | # * Distributed under the Boost Software License, Version 1.0. (See 6 | # * accompanying file LICENSE_1_0.txt or copy at 7 | # * http://www.boost.org/LICENSE_1_0.txt) 8 | # */ 9 | # 10 | # /* Revised by Paul Mensonides (2002) */ 11 | # 12 | # /* See http://www.boost.org for most recent version. */ 13 | # 14 | # ifndef FB_BOOST_PREPROCESSOR_FACILITIES_EMPTY_HPP 15 | # define FB_BOOST_PREPROCESSOR_FACILITIES_EMPTY_HPP 16 | # 17 | # /* FB_BOOST_PP_EMPTY */ 18 | # 19 | # define FB_BOOST_PP_EMPTY() 20 | # 21 | # endif 22 | -------------------------------------------------------------------------------- /misc/FastReport/Resources/frxUIB.rc: -------------------------------------------------------------------------------- 1 | /***********************************************************/ 2 | /* Resources for UIB enduser components for FastReport 3.0 */ 3 | /* */ 4 | /* Created by : Pierre Y. */ 5 | /* Email : pierre@levosgien.net */ 6 | /* Based on images provided by Henri Gourvest */ 7 | /***********************************************************/ 8 | frxUIBMenu BITMAP "frxUIBMenu.bmp" 9 | TfrxUIBDataBase BITMAP "TUIBDataBase.bmp" 10 | TfrxUIBTransaction BITMAP "TUIBTransaction.bmp" 11 | TfrxUIBQuery BITMAP "TUIBDataset.bmp" 12 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/AppServer.dpr: -------------------------------------------------------------------------------- 1 | program AppServer; 2 | 3 | {$IFDEF CONSOLEAPP} 4 | {$IFNDEF FPC} 5 | {$APPTYPE CONSOLE} 6 | {$ENDIF} 7 | {$ENDIF} 8 | uses 9 | PDGService in '..\..\src\PDGService.pas', 10 | PDGSocketStub in '..\..\src\PDGSocketStub.pas', 11 | WebServer in 'WebServer.pas', 12 | PDGHTTPStub in '..\..\src\PDGHTTPStub.pas', 13 | myapp_controller in 'myapp_controller.pas', 14 | mypool in 'mypool.pas', 15 | myapp_view in 'myapp_view.pas', 16 | PDGUtils in '..\..\src\PDGUtils.pas'; 17 | 18 | begin 19 | Application.Name := 'PDGWEBSRV'; 20 | Application.DisplayName := 'Progdigy WEB Server'; 21 | Application.Run; 22 | end. 23 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/mypool.pas: -------------------------------------------------------------------------------- 1 | unit mypool; 2 | {$IFDEF FPC} 3 | {$mode objfpc}{$H+} 4 | {$ENDIF} 5 | 6 | interface 7 | uses PDGDB, PDGUIB, SuperObject; 8 | 9 | var 10 | pool: IPDGConnectionPool; 11 | 12 | implementation 13 | uses SysUtils, PDGSocketStub, PDGUtils; 14 | 15 | procedure init; 16 | var 17 | obj: ISuperObject; 18 | begin 19 | obj := TSuperObject.ParseFile(ExtractFilePath(ParamStr(0)) + 'appserver.json', false); 20 | pool := TPDGUIBConnectionPool.Create(obj['database'], 0); 21 | end; 22 | 23 | initialization 24 | init; 25 | 26 | finalization 27 | while TPDGThread.ThreadCount > 0 do sleep(100); 28 | pool := nil; 29 | 30 | end. 31 | -------------------------------------------------------------------------------- /packages/UIBD2005Win32D.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\Henri\Mes documents\Borland Studio Projects\Bpl" 35 | -LN"C:\Documents and Settings\Henri\Mes documents\Borland Studio Projects\Bpl" 36 | -Z 37 | -w-UNSAFE_TYPE 38 | -w-UNSAFE_CODE 39 | -w-UNSAFE_CAST 40 | -------------------------------------------------------------------------------- /misc/FastReport/Resources/frxUIB_FR4.rc: -------------------------------------------------------------------------------- 1 | /***********************************************************/ 2 | /* Resources for UIB enduser components for FastReport 3.0 */ 3 | /* */ 4 | /* Created by : Pierre Y. */ 5 | /* Email : pierre@levosgien.net */ 6 | /* Based on images provided by Henri Gourvest */ 7 | /***********************************************************/ 8 | frxUIBMenu BITMAP "frxUIBMenu_FR4.bmp" 9 | TfrxUIBDataBase BITMAP "TUIBDataBase_FR4.bmp" 10 | TfrxUIBTransaction BITMAP "TUIBTransaction_FR4.bmp" 11 | TfrxUIBQuery BITMAP "TUIBDataset_FR4.bmp" 12 | -------------------------------------------------------------------------------- /misc/ShellExtention/setup.iss: -------------------------------------------------------------------------------- 1 | #define MyAppName "UIB Database Tool" 2 | #define MyAppVerName "UIB Database Tool 1.0" 3 | #define MyAppPublisher "progdigy.com" 4 | #define MyAppURL "http://www.progdigy.com" 5 | 6 | [Setup] 7 | AppName={#MyAppName} 8 | AppVerName={#MyAppVerName} 9 | AppPublisher={#MyAppPublisher} 10 | AppPublisherURL={#MyAppURL} 11 | AppSupportURL={#MyAppURL} 12 | AppUpdatesURL={#MyAppURL} 13 | DefaultDirName={pf}\UIBDatabaseTool 14 | DefaultGroupName=My Program 15 | OutputBaseFilename=setup 16 | Compression=lzma 17 | SolidCompression=yes 18 | 19 | [Files] 20 | Source: "D:\developpement\UIBUtil\UIBFileHandler.dll"; DestDir: "{app}"; Flags: ignoreversion regserver 21 | 22 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/TestLib.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/client.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -U"..\..\src\" 37 | -O"..\..\src\" 38 | -I"..\..\src\" 39 | -R"..\..\src\" 40 | -w-UNSAFE_TYPE 41 | -w-UNSAFE_CODE 42 | -w-UNSAFE_CAST 43 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB9.bdsgroup: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | frxUIB9.bdsproj 13 | dclfrxUIB9.bdsproj 14 | frxUIB9.bpl dclfrxUIB9.bpl 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/AppServer.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -GD 28 | -cg 29 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 30 | -H+ 31 | -W+ 32 | -M 33 | -$M16384,1048576 34 | -K$00400000 35 | -N"..\..\Dcu" 36 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 37 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 38 | -U"..\..\src\" 39 | -O"..\..\src\" 40 | -I"..\..\src\" 41 | -R"..\..\src\" 42 | -DCONSOLEAPP 43 | -w-UNSAFE_TYPE 44 | -w-UNSAFE_CODE 45 | -w-UNSAFE_CAST 46 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB10.bdsgroup: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | frxUIB10.bdsproj 14 | dclfrxUIB10.bdsproj 15 | frxUIB10.bpl dclfrxUIB10.bpl 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /misc/CodeGenerator/readme.txt: -------------------------------------------------------------------------------- 1 | This unit allow you to generate object class and list to changes sql result 2 | 3 | Exeample of use: 4 | 5 | var 6 | codegen: TUIBCodeGenerator; 7 | begin 8 | codegen := TUIBCodeGenerator.Create('test', transaction); 9 | try 10 | codegen.AddStatement('TESTTABLE', 'select * from TESTTABLE', [], 11 | 'INSERT INTO TESTTABLE (REFTESTTABLE, FINT, FSTR, FBLOB) VALUES (GEN_ID(GEN_TESTTABLE_ID, 1), :FINT, FSTR, :FBLOB) RETURNING REFTESTTABLE;', 12 | 'UPDATE TESTTABLE SET FINT = :FINT, FSTR = :FSTR, FBLOB = :FBLOB WHERE (REFTESTTABLE = :REFTESTTABLE);', 13 | 'DELETE FROM TESTTABLE WHERE (REFTESTTABLE = :REFTESTTABLE);' 14 | ); 15 | codegen.SaveToFile('test.pas'); 16 | finally 17 | codegen.Free; 18 | end; 19 | end; -------------------------------------------------------------------------------- /Includes/IB9/ib_util.pas: -------------------------------------------------------------------------------- 1 | {***********************************************************} 2 | { } 3 | { PROGRAM: UDF and Blob filter Utilities library } 4 | { MODULE: ib_util.h } 5 | { DESCRIPTION: Prototype header file for ib_util.c } 6 | { } 7 | { copyright (c) 1998 by InterBase Software Corporation } 8 | { } 9 | {***********************************************************} 10 | unit ib_util; 11 | 12 | interface 13 | 14 | function ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll'; 15 | 16 | implementation 17 | 18 | end. 19 | 20 | -------------------------------------------------------------------------------- /misc/UIBMonitor/UIBMonitor.bdsgroup: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | UIBHook.bdsproj 15 | UIBMonitor.bdsproj 16 | UIBHook.dll UIBMonitor.exe 17 | 18 | 19 | 20 | 21 | -------------------------------------------------------------------------------- /examples/UIB/Component/Metadata/Metadata.bdsgroup: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | ..\..\..\..\packages\UIBD10Win32R.bdsproj 13 | MetaData.bdsproj 14 | UIBD10Win32R.bpl MetaData.exe 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /packages/UIBD10Win32.bdsgroup: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | UIBD10Win32R.bdsproj 15 | UIBD10Win32D.bdsproj 16 | UIBD10Win32R.bpl UIBD10Win32D.bpl 17 | 18 | 19 | 20 | 21 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/TestLib_Intf.pas: -------------------------------------------------------------------------------- 1 | { This file is generated automaticaly, do not modify } 2 | unit TestLib_Intf; 3 | {$IFDEF FPC} 4 | {$mode objfpc}{$H+} 5 | {$ENDIF} 6 | interface 7 | uses Classes; 8 | 9 | // Class identifiers 10 | const 11 | CLSID_MyObject: TGUID = '{913672C2-80C9-4821-9E87-A09E123A3879}'; 12 | CLSID_MyObject2: TGUID = '{2EB27E27-017B-4479-9FCE-609449187A59}'; 13 | 14 | // Objects interfaces 15 | type 16 | IMyObject = interface 17 | ['{913672C2-80C9-4821-9E87-A09E123A3879}'] 18 | procedure ExecuteScript(const script: string; out data: TMemoryStream); stdcall; 19 | end; 20 | 21 | IMyObject2 = interface 22 | ['{2EB27E27-017B-4479-9FCE-609449187A59}'] 23 | function GetString: string; stdcall; 24 | end; 25 | 26 | implementation 27 | 28 | end. 29 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB10.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | frxUIB10.dpk 15 | 16 | 17 | 7.0 18 | 19 | 20 | ..\..\LibD10 21 | 22 | 23 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB9.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | frxUIB9.dpk 15 | 16 | 17 | 7.0 18 | 19 | 20 | ..\..\LibD9 21 | 22 | 23 | -------------------------------------------------------------------------------- /misc/FastReport/dclfrxUIB9.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | dclfrxUIB9.dpk 15 | 16 | 17 | 7.0 18 | 19 | 20 | ..\..\LibD9 21 | 22 | 23 | -------------------------------------------------------------------------------- /misc/FastReport/dclfrxUIB10.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | dclfrxUIB10.dpk 15 | 16 | 17 | 7.0 18 | 19 | 20 | ..\..\LibD10 21 | 22 | 23 | -------------------------------------------------------------------------------- /misc/FastReport/frxrcUIB.pas: -------------------------------------------------------------------------------- 1 | {******************************************} 2 | { } 3 | { FastReport v4.x } 4 | { Language resource file } 5 | { } 6 | { Copyright (c) 2005-2007 } 7 | { by Pierre Yager. } 8 | { } 9 | {******************************************} 10 | 11 | unit frxrcUIB; 12 | 13 | interface 14 | 15 | implementation 16 | 17 | uses frxRes; 18 | 19 | const resStr = 20 | 'obUIBComps=UIB Components' + #13#10 + 21 | 'obUIBDB=UIB Database' + #13#10 + 22 | 'obUIBT=UIB Transaction' + #13#10 + 23 | 'obUIBQ=UIB Query' + #13#10 + 24 | ''; 25 | 26 | initialization 27 | frxResources.AddStrings(resStr); 28 | 29 | end. 30 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/HTTP/index.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | Json Rpc demo 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | Ajax Demo
17 | 18 |

19 | 20 |
21 | 22 | Edit Country 23 |
24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /misc/FastReport/dclfrxUIB10.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 2006 2 | 3 | package dclfrxUIB10; 4 | 5 | {$R 'frxUIBReg.dcr'} 6 | {$DESCRIPTION 'FastReport 3.0 UIB Components'} 7 | {$ALIGN 8} 8 | {$ASSERTIONS ON} 9 | {$BOOLEVAL OFF} 10 | {$DEBUGINFO ON} 11 | {$EXTENDEDSYNTAX ON} 12 | {$IMPORTEDDATA ON} 13 | {$IOCHECKS ON} 14 | {$LOCALSYMBOLS ON} 15 | {$LONGSTRINGS ON} 16 | {$OPENSTRINGS ON} 17 | {$OPTIMIZATION ON} 18 | {$OVERFLOWCHECKS OFF} 19 | {$RANGECHECKS OFF} 20 | {$REFERENCEINFO ON} 21 | {$SAFEDIVIDE OFF} 22 | {$STACKFRAMES OFF} 23 | {$TYPEDADDRESS OFF} 24 | {$VARSTRINGCHECKS ON} 25 | {$WRITEABLECONST OFF} 26 | {$MINENUMSIZE 1} 27 | {$IMAGEBASE $400000} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD OFF} 30 | 31 | requires 32 | vcl, 33 | designide, 34 | frxUIB10; 35 | 36 | contains 37 | frxUIBReg in 'frxUIBReg.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /misc/FastReport/dclfrxUIB7.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 7 2 | 3 | package dclfrxUIB7; 4 | 5 | {$R 'frxUIBReg.dcr'} 6 | {$DESCRIPTION 'FastReport 3.0 UIB Components'} 7 | {$ALIGN ON} 8 | {$ASSERTIONS ON} 9 | {$BOOLEVAL OFF} 10 | {$DEBUGINFO ON} 11 | {$EXTENDEDSYNTAX ON} 12 | {$IMPORTEDDATA ON} 13 | {$IOCHECKS ON} 14 | {$LOCALSYMBOLS ON} 15 | {$LONGSTRINGS ON} 16 | {$OPENSTRINGS ON} 17 | {$OPTIMIZATION ON} 18 | {$OVERFLOWCHECKS OFF} 19 | {$RANGECHECKS OFF} 20 | {$REFERENCEINFO ON} 21 | {$SAFEDIVIDE OFF} 22 | {$STACKFRAMES OFF} 23 | {$TYPEDADDRESS OFF} 24 | {$VARSTRINGCHECKS ON} 25 | {$WRITEABLECONST ON} 26 | {$MINENUMSIZE 1} 27 | {$IMAGEBASE $00400000} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD OFF} 30 | 31 | requires 32 | VCL, 33 | DESIGNIDE, 34 | frxUIB7; 35 | 36 | contains 37 | frxUIBReg in 'frxUIBReg.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /misc/FastReport/dclfrxUIB9.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 2005 2 | 3 | package dclfrxUIB9; 4 | 5 | {$R 'frxUIBReg.dcr'} 6 | {$DESCRIPTION 'FastReport 3.0 UIB Components'} 7 | {$ALIGN 8} 8 | {$ASSERTIONS ON} 9 | {$BOOLEVAL OFF} 10 | {$DEBUGINFO ON} 11 | {$EXTENDEDSYNTAX ON} 12 | {$IMPORTEDDATA ON} 13 | {$IOCHECKS ON} 14 | {$LOCALSYMBOLS ON} 15 | {$LONGSTRINGS ON} 16 | {$OPENSTRINGS ON} 17 | {$OPTIMIZATION ON} 18 | {$OVERFLOWCHECKS OFF} 19 | {$RANGECHECKS OFF} 20 | {$REFERENCEINFO ON} 21 | {$SAFEDIVIDE OFF} 22 | {$STACKFRAMES OFF} 23 | {$TYPEDADDRESS OFF} 24 | {$VARSTRINGCHECKS ON} 25 | {$WRITEABLECONST OFF} 26 | {$MINENUMSIZE 1} 27 | {$IMAGEBASE $400000} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD OFF} 30 | 31 | requires 32 | vcl, 33 | designide, 34 | frxUIB9; 35 | 36 | contains 37 | frxUIBReg in 'frxUIBReg.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /examples/UIB/API/blob_filters.sql: -------------------------------------------------------------------------------- 1 | SET SQL DIALECT 3; 2 | 3 | /* CREATE DATABASE 'blob_filters.fdb' DEFAULT CHARACTER SET NONE */ 4 | 5 | /* BLOB Filter declarations */ 6 | DECLARE FILTER INVERT_FILTER INPUT_TYPE 1 OUTPUT_TYPE -2 7 | ENTRY_POINT 'invert_filter' MODULE_NAME 'invf.dll'; 8 | 9 | DECLARE FILTER UNZIP_FILTER INPUT_TYPE -3 OUTPUT_TYPE 1 10 | ENTRY_POINT 'unzip_filter' MODULE_NAME 'zipf.dll'; 11 | 12 | DECLARE FILTER ZIP_FILTER INPUT_TYPE 1 OUTPUT_TYPE -3 13 | ENTRY_POINT 'zip_filter' MODULE_NAME 'zipf.dll'; 14 | 15 | /* Table: BLOBS, Owner: SYSDBA */ 16 | CREATE TABLE BLOBS (BLOB_ID INTEGER NOT NULL, 17 | BLOB_TEXT BLOB SUB_TYPE 0 SEGMENT SIZE 80, 18 | BLOB_INVERTED BLOB SUB_TYPE -2 SEGMENT SIZE 80, 19 | BLOB_ZIPPED BLOB SUB_TYPE -3 SEGMENT SIZE 80, 20 | CONSTRAINT BLOBS_PK PRIMARY KEY (BLOB_ID)); 21 | -------------------------------------------------------------------------------- /packages/UIBBCB12Win32D.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\source\uibtransactionedit.pas", Uibtransactionedit, UIBTransactionEditForm); 6 | USEFORMNS("..\source\uibdatabaseedit.pas", Uibdatabaseedit, UIBDatabaseEditForm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Source du paquet. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/HTTP/country/index.html.lua: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 9 | 10 | 11 | 12 | <% for k, v in ipairs(dataset) do %> 13 | 14 | 15 | 16 | 17 | 18 | <% end %> 19 |
8 |
CountryCurrencySupprEdit
<%=v.COUNTRY%><%=v.CURRENCY%>suppredit
20 |
21 |
<%= "generated in " .. (gettickcount() - request.tickcount) .. "ms" %>
22 | 23 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/AppServer.dpr: -------------------------------------------------------------------------------- 1 | program AppServer; 2 | 3 | {$IFDEF FPC} 4 | {$mode objfpc}{$H+} 5 | {$ENDIF} 6 | 7 | {$IFDEF CONSOLEAPP} 8 | {$APPTYPE CONSOLE} 9 | {$ENDIF} 10 | uses 11 | {$IFDEF UNIX} 12 | cthreads, 13 | {$ENDIF} 14 | {$IFNDEF FPC} 15 | PDGZlib in '..\..\src\PDGZlib.pas', 16 | {$ENDIF} 17 | PDGService in '..\..\src\PDGService.pas', 18 | PDGSocketStub in '..\..\src\PDGSocketStub.pas', 19 | TestLib_Server in 'TestLib_Server.pas', 20 | TestLib_Intf in 'TestLib_Intf.pas', 21 | TestLib in 'TestLib.pas'; 22 | 23 | begin 24 | Application.DisplayName := 'Progdigy Application Server'; 25 | {$IFNDEF CONSOLEAPP} 26 | Application.Name := 'PDGAPPSRV'; 27 | Application.Dependencies := ''; 28 | Application.ServiceType := SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS; 29 | {$ENDIF} 30 | Application.Run; 31 | end. 32 | -------------------------------------------------------------------------------- /packages/UIBC5D.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USERES("UIBC5D.res"); 6 | USEPACKAGE("vcl50.bpi"); 7 | USEPACKAGE("vclx50.bpi"); 8 | USEPACKAGE("vcldb50.bpi"); 9 | USEUNIT("..\source\UIBReg.pas"); 10 | USEPACKAGE("SynEdit_BCB5.bpi"); 11 | USEPACKAGE("UIBC5R.bpi"); 12 | //--------------------------------------------------------------------------- 13 | #pragma package(smart_init) 14 | //--------------------------------------------------------------------------- 15 | 16 | // Package source. 17 | //--------------------------------------------------------------------------- 18 | 19 | #pragma argsused 20 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 21 | { 22 | return 1; 23 | } 24 | //--------------------------------------------------------------------------- 25 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/ProjectGroup.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = AppServer.exe client.exe 13 | #------------------------------------------------------------------------------ 14 | default: $(PROJECTS) 15 | #------------------------------------------------------------------------------ 16 | 17 | AppServer.exe: AppServer.dpr 18 | $(DCC) 19 | 20 | client.exe: client.dpr 21 | $(DCC) 22 | 23 | 24 | -------------------------------------------------------------------------------- /packages/UIBC6D.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\source\UIBTransactionEdit.pas", uibtransactionedit, UIBTransactionEditForm); 6 | USEFORMNS("..\source\UIBDatabaseEdit.pas", uibdatabaseedit, UIBDatabaseEditForm); 7 | USEFORMNS("..\source\UIBSQLEdit.pas", uibsqledit, UIBSQLEditForm); 8 | //--------------------------------------------------------------------------- 9 | #pragma package(smart_init) 10 | //--------------------------------------------------------------------------- 11 | 12 | // Package source. 13 | //--------------------------------------------------------------------------- 14 | 15 | #pragma argsused 16 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB12.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 2006 2 | 3 | package frxUIB12; 4 | 5 | {$R *.res} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO ON} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$RUNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | VCL, 32 | VCLDB, 33 | UIBD12Win32R, 34 | frx12, 35 | frxDB12, 36 | fs12; 37 | 38 | contains 39 | frxrcUIB in 'frxrcUIB.pas', 40 | frxUIBComponents in 'frxUIBComponents.pas', 41 | frxUIBEditor in 'frxUIBEditor.pas', 42 | frxUIBRTTI in 'frxUIBRTTI.pas'; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIBReg.pas: -------------------------------------------------------------------------------- 1 | {******************************************} 2 | { } 3 | { FastReport v4.x } 4 | { UIB components registration } 5 | { } 6 | { Copyright (c) 2005-2007 } 7 | { by Pierre Yager, } 8 | { Fast Reports Inc. } 9 | { } 10 | {******************************************} 11 | 12 | unit frxUIBReg; 13 | 14 | interface 15 | 16 | {$I frx.inc} 17 | 18 | procedure Register; 19 | 20 | implementation 21 | 22 | uses 23 | Windows, Messages, SysUtils, Classes 24 | {$IFNDEF Delphi6} 25 | , DsgnIntf 26 | {$ELSE} 27 | , DesignIntf, DesignEditors 28 | {$ENDIF} 29 | , frxUIBComponents; 30 | 31 | procedure Register; 32 | begin 33 | RegisterComponents('FastReport 4.0', [TfrxUIBComponents]); 34 | end; 35 | 36 | end. 37 | -------------------------------------------------------------------------------- /examples/UIB/Component/Backup/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, 10 | {$ENDIF} 11 | SysUtils, Classes, uib; 12 | 13 | 14 | type 15 | TMainForm = class(TForm) 16 | Backup: TUIBBackup; 17 | Log: TMemo; 18 | Go: TButton; 19 | procedure BackupVerbose(Sender: TObject; Message: String); 20 | procedure GoClick(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.BackupVerbose(Sender: TObject; Message: String); 35 | begin 36 | Log.Lines.Add(Message); 37 | end; 38 | 39 | procedure TMainForm.GoClick(Sender: TObject); 40 | begin 41 | Log.Clear; 42 | Backup.Run; 43 | end; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /packages/UIBD2005Win32.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | UIBD2005Win32R.bdsproj 17 | UIBD2005Win32D.bdsproj 18 | UIBD2005Win32R.bpl uibD2005Win32D.bpl 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /examples/UIB/Component/Restore/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, QDialogs, QExtCtrls, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, 10 | {$ENDIF} 11 | SysUtils, Classes, uib; 12 | 13 | type 14 | TMainForm = class(TForm) 15 | Restore: TUIBRestore; 16 | Log: TMemo; 17 | Go: TButton; 18 | procedure RestoreVerbose(Sender: TObject; Message: String); 19 | procedure GoClick(Sender: TObject); 20 | private 21 | { Private declarations } 22 | public 23 | { Public declarations } 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.RestoreVerbose(Sender: TObject; Message: String); 34 | begin 35 | Log.Lines.Add(Message); 36 | end; 37 | 38 | procedure TMainForm.GoClick(Sender: TObject); 39 | begin 40 | Log.Clear; 41 | Restore.Run; 42 | end; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB7.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 7 2 | 3 | package frxUIB7; 4 | 5 | {$I frx.inc} 6 | 7 | {$R *.res} 8 | {$ALIGN 8} 9 | {$ASSERTIONS ON} 10 | {$BOOLEVAL OFF} 11 | {$DEBUGINFO ON} 12 | {$EXTENDEDSYNTAX ON} 13 | {$IMPORTEDDATA ON} 14 | {$IOCHECKS ON} 15 | {$LOCALSYMBOLS ON} 16 | {$LONGSTRINGS ON} 17 | {$OPENSTRINGS ON} 18 | {$OPTIMIZATION ON} 19 | {$OVERFLOWCHECKS OFF} 20 | {$RANGECHECKS OFF} 21 | {$REFERENCEINFO ON} 22 | {$SAFEDIVIDE OFF} 23 | {$STACKFRAMES OFF} 24 | {$TYPEDADDRESS OFF} 25 | {$VARSTRINGCHECKS ON} 26 | {$WRITEABLECONST ON} 27 | {$MINENUMSIZE 1} 28 | {$IMAGEBASE $400000} 29 | {$RUNONLY} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | VCL, 34 | VCLDB, 35 | uibD7R, 36 | frx7, 37 | frxDB7, 38 | {$IFDEF QBUILDER} 39 | fqb70, 40 | {$ENDIF} 41 | fs7; 42 | 43 | contains 44 | frxrcUIB in 'frxrcUIB.pas', 45 | frxUIBComponents in 'frxUIBComponents.pas', 46 | frxUIBEditor in 'frxUIBEditor.pas', 47 | frxUIBRTTI in 'frxUIBRTTI.pas'; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Backup/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 192 3 | Top = 107 4 | Width = 383 5 | Height = 333 6 | Caption = 'Backup Sample' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Memo: TMemo 17 | Left = 8 18 | Top = 40 19 | Width = 321 20 | Height = 249 21 | TabOrder = 0 22 | end 23 | object Go: TButton 24 | Left = 8 25 | Top = 8 26 | Width = 75 27 | Height = 25 28 | Caption = 'Backup' 29 | TabOrder = 1 30 | OnClick = GoClick 31 | end 32 | object Backup: TUIBBackup 33 | UserName = 'SYSDBA' 34 | PassWord = 'masterkey' 35 | BackupFiles.Strings = ( 36 | 'd:\employee.gbk') 37 | Database = 'D:\EMPLOYEE.DB' 38 | OnVerbose = BackupVerbose 39 | Left = 88 40 | Top = 8 41 | end 42 | end 43 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB9.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 2005 2 | 3 | package frxUIB9; 4 | 5 | {$I frx.inc} 6 | 7 | {$R *.res} 8 | {$ALIGN 8} 9 | {$ASSERTIONS ON} 10 | {$BOOLEVAL OFF} 11 | {$DEBUGINFO ON} 12 | {$EXTENDEDSYNTAX ON} 13 | {$IMPORTEDDATA ON} 14 | {$IOCHECKS ON} 15 | {$LOCALSYMBOLS ON} 16 | {$LONGSTRINGS ON} 17 | {$OPENSTRINGS ON} 18 | {$OPTIMIZATION ON} 19 | {$OVERFLOWCHECKS OFF} 20 | {$RANGECHECKS OFF} 21 | {$REFERENCEINFO ON} 22 | {$SAFEDIVIDE OFF} 23 | {$STACKFRAMES OFF} 24 | {$TYPEDADDRESS OFF} 25 | {$VARSTRINGCHECKS ON} 26 | {$WRITEABLECONST OFF} 27 | {$MINENUMSIZE 1} 28 | {$IMAGEBASE $400000} 29 | {$RUNONLY} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | VCL, 34 | VCLDB, 35 | uibD9R, 36 | frx9, 37 | frxDB9, 38 | {$IFDEF QBUILDER} 39 | fqb90, 40 | {$ENDIF} 41 | fs9; 42 | 43 | contains 44 | frxrcUIB in 'frxrcUIB.pas', 45 | frxUIBComponents in 'frxUIBComponents.pas', 46 | frxUIBEditor in 'frxUIBEditor.pas', 47 | frxUIBRTTI in 'frxUIBRTTI.pas'; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /misc/FastReport/frxUIB10.dpk: -------------------------------------------------------------------------------- 1 | // Package file for Delphi 2006 2 | 3 | package frxUIB10; 4 | 5 | {$I frx.inc} 6 | 7 | {$R *.res} 8 | {$ALIGN 8} 9 | {$ASSERTIONS ON} 10 | {$BOOLEVAL OFF} 11 | {$DEBUGINFO ON} 12 | {$EXTENDEDSYNTAX ON} 13 | {$IMPORTEDDATA ON} 14 | {$IOCHECKS ON} 15 | {$LOCALSYMBOLS ON} 16 | {$LONGSTRINGS ON} 17 | {$OPENSTRINGS ON} 18 | {$OPTIMIZATION ON} 19 | {$OVERFLOWCHECKS OFF} 20 | {$RANGECHECKS OFF} 21 | {$REFERENCEINFO ON} 22 | {$SAFEDIVIDE OFF} 23 | {$STACKFRAMES OFF} 24 | {$TYPEDADDRESS OFF} 25 | {$VARSTRINGCHECKS ON} 26 | {$WRITEABLECONST OFF} 27 | {$MINENUMSIZE 1} 28 | {$IMAGEBASE $400000} 29 | {$RUNONLY} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | VCL, 34 | VCLDB, 35 | uibD10Win32R, 36 | frx10, 37 | frxDB10, 38 | {$IFDEF QBUILDER} 39 | fqb100, 40 | {$ENDIF} 41 | fs10; 42 | 43 | contains 44 | frxrcUIB in 'frxrcUIB.pas', 45 | frxUIBComponents in 'frxUIBComponents.pas', 46 | frxUIBEditor in 'frxUIBEditor.pas', 47 | frxUIBRTTI in 'frxUIBRTTI.pas'; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Backup/main.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | 6 | #include "main.h" 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | #pragma link "UIB" 10 | #pragma resource "*.dfm" 11 | TMainForm *MainForm; 12 | //--------------------------------------------------------------------------- 13 | __fastcall TMainForm::TMainForm(TComponent* Owner) 14 | : TForm(Owner) 15 | { 16 | } 17 | //--------------------------------------------------------------------------- 18 | void __fastcall TMainForm::GoClick(TObject *Sender) 19 | { 20 | Memo->Clear(); 21 | Backup->Run(); 22 | } 23 | //--------------------------------------------------------------------------- 24 | void __fastcall TMainForm::BackupVerbose(TObject *Sender, 25 | AnsiString Message) 26 | { 27 | Memo->Lines->Add(Message); 28 | } 29 | //--------------------------------------------------------------------------- 30 | -------------------------------------------------------------------------------- /packages/UIBC5R.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USERES("UIBC5R.res"); 6 | USEPACKAGE("vcl50.bpi"); 7 | USEUNIT("..\source\UIB.pas"); 8 | USEUNIT("..\source\UIBase.pas"); 9 | USEUNIT("..\source\UIBConst.pas"); 10 | USEUNIT("..\source\UIBDataSet.pas"); 11 | USEUNIT("..\source\UIBError.pas"); 12 | USEUNIT("..\source\UIBLib.pas"); 13 | USEUNIT("..\source\UIBMetaData.pas"); 14 | USEUNIT("..\source\UIBSQLParser.pas"); 15 | USEPACKAGE("Vcldb50.bpi"); 16 | //--------------------------------------------------------------------------- 17 | #pragma package(smart_init) 18 | //--------------------------------------------------------------------------- 19 | 20 | // Package source. 21 | //--------------------------------------------------------------------------- 22 | 23 | #pragma argsused 24 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 25 | { 26 | return 1; 27 | } 28 | //--------------------------------------------------------------------------- 29 | -------------------------------------------------------------------------------- /packages/UIBD10Win32D.dpk: -------------------------------------------------------------------------------- 1 | package uibD10Win32D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESIGNONLY} 26 | {$IMPLICITBUILD OFF} 27 | 28 | requires 29 | rtl, 30 | vcl, 31 | dbrtl, 32 | dcldb, 33 | vcldesigner, 34 | designide, 35 | xmlrtl, 36 | vclactnband, 37 | vclx, 38 | dclstd, 39 | vcldb, 40 | SynEdit_R2006, 41 | uibD10Win32R; 42 | 43 | contains 44 | uibreg in '..\source\uibreg.pas', 45 | uibsynedit in '..\source\uibsynedit.pas', 46 | uibtransactionedit in '..\source\uibtransactionedit.pas', 47 | uibsqledit in '..\source\uibsqledit.pas'; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /source/kylix.inc: -------------------------------------------------------------------------------- 1 | // 2 | // This is FPC-incompatible code and was excluded from jedi.inc for this reason 3 | // 4 | // Kylix 3/C++ for some reason evaluates CompilerVersion comparisons to False, 5 | // if the constant to compare with is a floating point value - weird. 6 | // The "+" sign prevents Kylix/Delphi from issueing a warning about comparing 7 | // signed and unsigned values. 8 | // 9 | {$IF not Declared(CompilerVersion)} 10 | {$DEFINE KYLIX1} 11 | {$DEFINE COMPILER6} 12 | {$DEFINE DELPHICOMPILER6} 13 | {$DEFINE RTL140_UP} 14 | {$ELSEIF Declared(CompilerVersion) and (CompilerVersion > +14)} 15 | {$DEFINE KYLIX2} 16 | {$DEFINE COMPILER6} 17 | {$DEFINE DELPHICOMPILER6} 18 | {$DEFINE RTL142_UP} 19 | {$ELSEIF Declared(CompilerVersion) and (CompilerVersion < +15)} 20 | {$DEFINE KYLIX3} 21 | {$DEFINE COMPILER6} 22 | {$IFNDEF BCB} 23 | {$DEFINE DELPHICOMPILER6} 24 | {$ENDIF} 25 | {$DEFINE RTL145_UP} 26 | {$ELSE} 27 | Add new Kylix version 28 | {$IFEND} 29 | 30 | 31 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Backup/main.h: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef mainH 4 | #define mainH 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include "UIB.hpp" 11 | //--------------------------------------------------------------------------- 12 | class TMainForm : public TForm 13 | { 14 | __published: // IDE-managed Components 15 | TUIBBackup *Backup; 16 | TMemo *Memo; 17 | TButton *Go; 18 | void __fastcall GoClick(TObject *Sender); 19 | void __fastcall BackupVerbose(TObject *Sender, AnsiString Message); 20 | private: // User declarations 21 | public: // User declarations 22 | __fastcall TMainForm(TComponent* Owner); 23 | }; 24 | //--------------------------------------------------------------------------- 25 | extern PACKAGE TMainForm *MainForm; 26 | //--------------------------------------------------------------------------- 27 | #endif 28 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Query/main.h: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef mainH 4 | #define mainH 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include "UIB.hpp" 11 | //--------------------------------------------------------------------------- 12 | class TMainForm : public TForm 13 | { 14 | __published: // IDE-managed Components 15 | TUIBDataBase *DataBase; 16 | TUIBTransaction *Transaction; 17 | TUIBQuery *Query; 18 | TButton *Go; 19 | TMemo *Memo; 20 | void __fastcall GoClick(TObject *Sender); 21 | private: // User declarations 22 | public: // User declarations 23 | __fastcall TMainForm(TComponent* Owner); 24 | }; 25 | //--------------------------------------------------------------------------- 26 | extern PACKAGE TMainForm *MainForm; 27 | //--------------------------------------------------------------------------- 28 | #endif 29 | -------------------------------------------------------------------------------- /packages/UIBD17Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD17Win32D; 2 | 3 | {$IMPLICITBUILD OFF} 4 | 5 | {$R *.res} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO ON} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO ON} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DESCRIPTION 'UIB Components for XE3 D17'} 28 | {$DESIGNONLY} 29 | 30 | requires 31 | rtl, 32 | vcl, 33 | dbrtl, 34 | dcldb, 35 | vcldesigner, 36 | designide, 37 | xmlrtl, 38 | vclactnband, 39 | vclx, 40 | dclstd, 41 | vcldb, 42 | UIBD17Win32R; 43 | 44 | contains 45 | uibreg in '..\source\uibreg.pas', 46 | uibtransactionedit in '..\source\uibtransactionedit.pas', 47 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /examples/UIB/Component/Restore/Restore.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 198 3 | Top = 168 4 | Width = 583 5 | Height = 284 6 | Caption = 'Backup Database' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Log: TMemo 17 | Left = 0 18 | Top = 40 19 | Width = 575 20 | Height = 217 21 | Align = alBottom 22 | ScrollBars = ssVertical 23 | TabOrder = 0 24 | end 25 | object Go: TButton 26 | Left = 0 27 | Top = 8 28 | Width = 75 29 | Height = 25 30 | Caption = 'Backup' 31 | TabOrder = 1 32 | OnClick = GoClick 33 | end 34 | object Backup: TUIBBackup 35 | UserName = 'SYSDBA' 36 | PassWord = 'masterkey' 37 | BackupFiles.Strings = ( 38 | 'd:\backup.gbk') 39 | Database = 'D:\employee.db' 40 | OnVerbose = BackupVerbose 41 | Left = 8 42 | Top = 48 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /packages/UIBD12Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD12Win32D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2009'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | dcldb, 34 | vcldesigner, 35 | designide, 36 | xmlrtl, 37 | vclactnband, 38 | vclx, 39 | dclstd, 40 | vcldb, 41 | UIBD12Win32R; 42 | 43 | contains 44 | uibreg in '..\source\uibreg.pas', 45 | uibtransactionedit in '..\source\uibtransactionedit.pas', 46 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD14Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD14Win32D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2010'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | dcldb, 34 | vcldesigner, 35 | designide, 36 | xmlrtl, 37 | vclactnband, 38 | vclx, 39 | dclstd, 40 | vcldb, 41 | UIBD14Win32R; 42 | 43 | contains 44 | uibreg in '..\source\uibreg.pas', 45 | uibtransactionedit in '..\source\uibtransactionedit.pas', 46 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD15Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD15Win32D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2011'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | dcldb, 34 | vcldesigner, 35 | designide, 36 | xmlrtl, 37 | vclactnband, 38 | vclx, 39 | dclstd, 40 | vcldb, 41 | UIBD15Win32R; 42 | 43 | contains 44 | uibreg in '..\source\uibreg.pas', 45 | uibtransactionedit in '..\source\uibtransactionedit.pas', 46 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD5D.dpk: -------------------------------------------------------------------------------- 1 | package uibD5D; 2 | 3 | {$R *.RES} 4 | {$ALIGN ON} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS ON} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl50, 31 | Vcldb50, 32 | Vclx50, 33 | SynEdit_R5, 34 | dcldb50; 35 | 36 | contains 37 | {$IFDEF HAVE_SYNEDIT} 38 | uibsqledit in '..\source\uibsqledit.pas' {UIBSQLEditForm}, 39 | {$ENDIF} 40 | uibreg in '..\source\uibreg.pas', 41 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}, 42 | uibtransactionedit in '..\source\uibtransactionedit.pas' {UIBTransactionEditForm}; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /packages/UIBD2005Win32R.dpk: -------------------------------------------------------------------------------- 1 | package uibD2005Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$RUNONLY} 26 | {$IMPLICITBUILD OFF} 27 | 28 | requires 29 | rtl, 30 | vclx, 31 | vcl, 32 | dbrtl; 33 | 34 | contains 35 | uib in '..\source\uib.pas', 36 | uibase in '..\source\uibase.pas', 37 | uibconst in '..\source\uibconst.pas', 38 | uibdatabaseedit in '..\source\uibdatabaseedit.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /packages/UIBD2005Win32D.dpk: -------------------------------------------------------------------------------- 1 | package uibD2005Win32D; 2 | 3 | {$I ..\source\uib.inc} 4 | 5 | {$R *.res} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO ON} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO ON} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD OFF} 29 | 30 | requires 31 | uibD2005Win32R, 32 | designide, 33 | dcldb, 34 | {$IFDEF HAVE_SYNEDIT} 35 | SynEdit_R2005, 36 | {$ENDIF} 37 | rtl, 38 | vcl, 39 | vclx, 40 | vcldb, 41 | dbrtl; 42 | 43 | contains 44 | uibreg in '..\source\uibreg.pas', 45 | {$IFDEF HAVE_SYNEDIT} 46 | uibsqledit in '..\source\uibsqledit.pas', 47 | uibsynedit in '..\source\uibsynedit.pas', 48 | {$ENDIF} 49 | uibtransactionedit in '..\source\uibtransactionedit.pas'; 50 | 51 | end. 52 | -------------------------------------------------------------------------------- /packages/UIBD6RPE.dpk: -------------------------------------------------------------------------------- 1 | package uibD6RPE; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS ON} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | uib in '..\source\uib.pas', 35 | uibase in '..\source\uibase.pas', 36 | uibconst in '..\source\uibconst.pas', 37 | uiberror in '..\source\uiberror.pas', 38 | uiblib in '..\source\uiblib.pas', 39 | uibmetadata in '..\source\uibmetadata.pas', 40 | uibsqlparser in '..\source\uibsqlparser.pas', 41 | uibkeywords in '..\source\uibkeywords.pas', 42 | uibavl in '..\source\uibavl.pas'; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /packages/UIBD11Win32D.dpk: -------------------------------------------------------------------------------- 1 | package uibD11Win32D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2007'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | dcldb, 34 | vcldesigner, 35 | designide, 36 | xmlrtl, 37 | vclactnband, 38 | vclx, 39 | dclstd, 40 | vcldb, 41 | SynEdit_R2007, 42 | uibD11Win32R; 43 | 44 | contains 45 | uibreg in '..\source\uibreg.pas', 46 | uibsynedit in '..\source\uibsynedit.pas', 47 | uibtransactionedit in '..\source\uibtransactionedit.pas', 48 | uibsqledit in '..\source\uibsqledit.pas'; 49 | 50 | end. 51 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/control/if.hpp: -------------------------------------------------------------------------------- 1 | # /* Copyright (C) 2001 2 | # * Housemarque Oy 3 | # * http://www.housemarque.com 4 | # * 5 | # * Distributed under the Boost Software License, Version 1.0. (See 6 | # * accompanying file LICENSE_1_0.txt or copy at 7 | # * http://www.boost.org/LICENSE_1_0.txt) 8 | # */ 9 | # 10 | # /* Revised by Paul Mensonides (2002) */ 11 | # 12 | # /* See http://www.boost.org for most recent version. */ 13 | # 14 | # ifndef FB_BOOST_PREPROCESSOR_CONTROL_IF_HPP 15 | # define FB_BOOST_PREPROCESSOR_CONTROL_IF_HPP 16 | # 17 | # include 18 | # include 19 | # include 20 | # 21 | # /* FB_BOOST_PP_IF */ 22 | # 23 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_EDG() 24 | # define FB_BOOST_PP_IF(cond, t, f) FB_BOOST_PP_IIF(FB_BOOST_PP_BOOL(cond), t, f) 25 | # else 26 | # define FB_BOOST_PP_IF(cond, t, f) FB_BOOST_PP_IF_I(cond, t, f) 27 | # define FB_BOOST_PP_IF_I(cond, t, f) FB_BOOST_PP_IIF(FB_BOOST_PP_BOOL(cond), t, f) 28 | # endif 29 | # 30 | # endif 31 | -------------------------------------------------------------------------------- /packages/UIBD21Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD21Win32D; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$ENDIF IMPLICITBUILDING} 27 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio XE7'} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | vcl, 34 | dbrtl, 35 | dcldb, 36 | vcldesigner, 37 | designide, 38 | xmlrtl, 39 | vclactnband, 40 | vclx, 41 | dclstd, 42 | vcldb, 43 | UIBD21Win32R; 44 | 45 | contains 46 | uibreg in '..\source\uibreg.pas', 47 | uibtransactionedit in '..\source\uibtransactionedit.pas', 48 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 49 | 50 | end. 51 | -------------------------------------------------------------------------------- /misc/FastReport/Readme.txt: -------------------------------------------------------------------------------- 1 | UIB Components for FastReport 3 2 | by Pierre Y. ~ pierrey@users.sourceforge.net ~ 3 | 4 | Licenced under GPL, LGPL, IDPL and MPL. No warranties. 5 | -------------------------------------------------------- 6 | 7 | 8 | I) Prerequisites : 9 | --------------- 10 | 11 | Make sure you have FastReport 3.19+ and UIB2 (SVN) installed. 12 | 13 | 14 | II) Installation instructions : 15 | --------------------------- 16 | 17 | 1) Copy to FastReport 3 "source\UIB" directory 18 | 2) Open frxUIB7.dpr (Delphi 7) 19 | or frxUIB9.bdsproj (Delphi 2005) 20 | or frxUIB10.bdsgroup (Delphi 2006) 21 | 22 | Build. Output files are redirected to ..\..\LibD[Version] 23 | 24 | 3) Open dclfrxUIB7.dpr (Delphi 7) 25 | or dclfrxUIB9.bdsproj (Delphi 2005) 26 | or dclfrxUIB10.bdsproj (Delphi 2006) 27 | 28 | Build. Install. 29 | 30 | You now have a new frxUIBComponents component in your components palette. Drop it on the form with frxReport and frxDesigner to make UIB Components for FastReport available in the FastReports designer at runtime. 31 | 32 | Report any problem or suggestion to pierrey@users.sourceforge.net -------------------------------------------------------------------------------- /packages/UIBD5R.dpk: -------------------------------------------------------------------------------- 1 | package uibD5R; 2 | 3 | {$R *.RES} 4 | {$ALIGN ON} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$IMPLICITBUILD OFF} 27 | 28 | requires 29 | vcl50, 30 | Vcldb50; 31 | 32 | contains 33 | uib in '..\source\uib.pas', 34 | uibase in '..\source\uibase.pas', 35 | uibconst in '..\source\uibconst.pas', 36 | uiberror in '..\source\uiberror.pas', 37 | uiblib in '..\source\uiblib.pas', 38 | uibmetadata in '..\source\uibmetadata.pas', 39 | uibsqlparser in '..\source\uibsqlparser.pas', 40 | uibdataset in '..\source\uibdataset.pas', 41 | uibkeywords in '..\source\uibkeywords.pas', 42 | uibavl in '..\source\uibavl.pas'; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /examples/UIB/Component/ThreadedQueries/main.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 209 3 | Top = 186 4 | Width = 193 5 | Height = 89 6 | HorzScrollBar.Range = 112 7 | VertScrollBar.Range = 24 8 | ActiveControl = Button1 9 | AutoScroll = False 10 | Caption = 'Threaded Queries' 11 | Color = clBtnFace 12 | Font.Charset = DEFAULT_CHARSET 13 | Font.Color = clWindowText 14 | Font.Height = 11 15 | Font.Name = 'MS Sans Serif' 16 | Font.Pitch = fpVariable 17 | Font.Style = [] 18 | OldCreateOrder = True 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Button1: TButton 22 | Left = 74 23 | Top = 6 24 | Width = 79 25 | Height = 27 26 | Caption = 'Run Queries' 27 | TabOrder = 0 28 | OnClick = Button1Click 29 | end 30 | object DataBase: TUIBDataBase 31 | Params.Strings = ( 32 | 'sql_dialect=3' 33 | 'lc_ctype=NONE' 34 | 'user_name=SYSDBA' 35 | 'password=masterkey' 36 | '') 37 | DatabaseName = 'd:\employee.db' 38 | UserName = 'SYSDBA' 39 | PassWord = 'masterkey' 40 | LibraryName = 'gds32.dll' 41 | Left = 8 42 | Top = 8 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /packages/UIBD6R.dpk: -------------------------------------------------------------------------------- 1 | package uibD6R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS ON} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | dbrtl; 32 | 33 | contains 34 | uib in '..\source\uib.pas', 35 | uibase in '..\source\uibase.pas', 36 | uibconst in '..\source\uibconst.pas', 37 | uiberror in '..\source\uiberror.pas', 38 | uiblib in '..\source\uiblib.pas', 39 | uibmetadata in '..\source\uibmetadata.pas', 40 | uibsqlparser in '..\source\uibsqlparser.pas', 41 | uibdataset in '..\source\uibdataset.pas', 42 | uibkeywords in '..\source\uibkeywords.pas', 43 | uibavl in '..\source\uibavl.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /packages/UIBK3R.dpk: -------------------------------------------------------------------------------- 1 | package uibK3R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | dataclx; 32 | 33 | contains 34 | uib in '../source/uib.pas', 35 | uibase in '../source/uibase.pas', 36 | uibconst in '../source/uibconst.pas', 37 | uiberror in '../source/uiberror.pas', 38 | uiblib in '../source/uiblib.pas', 39 | uibmetadata in '../source/uibmetadata.pas', 40 | uibsqlparser in '../source/uibsqlparser.pas', 41 | uibdataset in '../source/uibdataset.pas', 42 | uibkeywords in '../source/uibkeywords.pas', 43 | uibavl in '../source/uibavl.pas' 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /packages/UIBD7D.dpk: -------------------------------------------------------------------------------- 1 | package uibD7D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | uibD7R, 31 | designide, 32 | {$IFDEF HAVE_SYNEDIT} 33 | SynEdit_R7, 34 | {$ENDIF} 35 | dcldb; 36 | 37 | contains 38 | {$IFDEF HAVE_SYNEDIT} 39 | uibsqledit in '..\source\uibsqledit.pas' {UIBSQLEditForm}, 40 | uibsynedit in '..\source\uibsynedit.pas', 41 | {$ENDIF} 42 | uibreg in '..\source\uibreg.pas', 43 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}, 44 | uibtransactionedit in '..\source\uibtransactionedit.pas' {UIBTransactionEditForm}; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/cat.hpp: -------------------------------------------------------------------------------- 1 | # /* Copyright (C) 2001 2 | # * Housemarque Oy 3 | # * http://www.housemarque.com 4 | # * 5 | # * Distributed under the Boost Software License, Version 1.0. (See 6 | # * accompanying file LICENSE_1_0.txt or copy at 7 | # * http://www.boost.org/LICENSE_1_0.txt) 8 | # */ 9 | # 10 | # /* Revised by Paul Mensonides (2002) */ 11 | # 12 | # /* See http://www.boost.org for most recent version. */ 13 | # 14 | # ifndef FB_BOOST_PREPROCESSOR_CAT_HPP 15 | # define FB_BOOST_PREPROCESSOR_CAT_HPP 16 | # 17 | # include 18 | # 19 | # /* FB_BOOST_PP_CAT */ 20 | # 21 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_MWCC() 22 | # define FB_BOOST_PP_CAT(a, b) FB_BOOST_PP_CAT_I(a, b) 23 | # else 24 | # define FB_BOOST_PP_CAT(a, b) FB_BOOST_PP_CAT_OO((a, b)) 25 | # define FB_BOOST_PP_CAT_OO(par) FB_BOOST_PP_CAT_I ## par 26 | # endif 27 | # 28 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_MSVC() 29 | # define FB_BOOST_PP_CAT_I(a, b) a ## b 30 | # else 31 | # define FB_BOOST_PP_CAT_I(a, b) FB_BOOST_PP_CAT_II(a ## b) 32 | # define FB_BOOST_PP_CAT_II(res) res 33 | # endif 34 | # 35 | # endif 36 | -------------------------------------------------------------------------------- /packages/UIBD16Win32D.dpk: -------------------------------------------------------------------------------- 1 | package UIBD16Win32D; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$ENDIF IMPLICITBUILDING} 27 | {$DESCRIPTION 'UIB Components for XE2 D16'} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | vcl, 34 | dbrtl, 35 | dcldb, 36 | vcldesigner, 37 | designide, 38 | xmlrtl, 39 | vclactnband, 40 | vclx, 41 | dclstd, 42 | vcldb, 43 | UIBD16Win32R; 44 | 45 | contains 46 | uibreg in '..\source\uibreg.pas', 47 | uibtransactionedit in '..\source\uibtransactionedit.pas', 48 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}; 49 | 50 | end. 51 | -------------------------------------------------------------------------------- /packages/UIBD7R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD7R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | dbrtl, 32 | vcl; 33 | 34 | contains 35 | uib in '..\source\uib.pas', 36 | uibase in '..\source\uibase.pas', 37 | uibconst in '..\source\uibconst.pas', 38 | uiberror in '..\source\uiberror.pas', 39 | uiblib in '..\source\uiblib.pas', 40 | uibmetadata in '..\source\uibmetadata.pas', 41 | uibsqlparser in '..\source\uibsqlparser.pas', 42 | uibdataset in '..\source\uibdataset.pas', 43 | uibkeywords in '..\source\uibkeywords.pas', 44 | uibavl in '..\source\uibavl.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/control/expr_if.hpp: -------------------------------------------------------------------------------- 1 | # /* Copyright (C) 2001 2 | # * Housemarque Oy 3 | # * http://www.housemarque.com 4 | # * 5 | # * Distributed under the Boost Software License, Version 1.0. (See 6 | # * accompanying file LICENSE_1_0.txt or copy at 7 | # * http://www.boost.org/LICENSE_1_0.txt) 8 | # */ 9 | # 10 | # /* Revised by Paul Mensonides (2002) */ 11 | # 12 | # /* See http://www.boost.org for most recent version. */ 13 | # 14 | # ifndef FB_BOOST_PREPROCESSOR_CONTROL_EXPR_IF_HPP 15 | # define FB_BOOST_PREPROCESSOR_CONTROL_EXPR_IF_HPP 16 | # 17 | # include 18 | # include 19 | # include 20 | # 21 | # /* FB_BOOST_PP_EXPR_IF */ 22 | # 23 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_EDG() 24 | # define FB_BOOST_PP_EXPR_IF(cond, expr) FB_BOOST_PP_EXPR_IIF(FB_BOOST_PP_BOOL(cond), expr) 25 | # else 26 | # define FB_BOOST_PP_EXPR_IF(cond, expr) FB_BOOST_PP_EXPR_IF_I(cond, expr) 27 | # define FB_BOOST_PP_EXPR_IF_I(cond, expr) FB_BOOST_PP_EXPR_IIF(FB_BOOST_PP_BOOL(cond), expr) 28 | # endif 29 | # 30 | # endif 31 | -------------------------------------------------------------------------------- /packages/UIBD6DPE.dpk: -------------------------------------------------------------------------------- 1 | package uibD6DPE; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS ON} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD OFF} 28 | {$DEFINE UIBPEVERSION} 29 | 30 | requires 31 | {$IFDEF HAVE_SYNEDIT} 32 | SynEdit_D6_PE, 33 | {$ENDIF} 34 | uibD6RPE, 35 | designide; 36 | 37 | contains 38 | {$IFDEF HAVE_SYNEDIT} 39 | uibsqledit in '..\source\uibsqledit.pas' {UIBSQLEditForm}, 40 | uibsynedit in '..\source\uibsynedit.pas', 41 | {$ENDIF} 42 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}, 43 | uibtransactionedit in '..\source\uibtransactionedit.pas' {UIBTransactionEditForm}, 44 | uibreg in '..\source\uibreg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /packages/UIBK3D.dpk: -------------------------------------------------------------------------------- 1 | package uibK3D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO ON} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | uibK3R, 33 | visualclx, 34 | {$IFDEF HAVE_SYNEDIT} 35 | synedit_kylix, 36 | {$ENDIF} 37 | dbdesign; 38 | 39 | contains 40 | {$IFDEF HAVE_SYNEDIT} 41 | uibsqledit in '../source/uibsqledit.pas' {UIBSQLEditForm}, 42 | uibsynedit in '../source/uibsynedit.pas', 43 | {$ENDIF} 44 | uibreg in '../source/uibreg.pas', 45 | uibdatabaseedit in '../source/uibdatabaseedit.pas' {UIBDatabaseEditForm}, 46 | uibtransactionedit in '../source/uibtransactionedit.pas' {UIBTransactionEditForm}; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /Includes/FB30/ib_util.h: -------------------------------------------------------------------------------- 1 | /* 2 | * PROGRAM: UDF and Blob filter Utilities library 3 | * MODULE: ib_util.h 4 | * DESCRIPTION: Prototype header file for ib_util.c 5 | * 6 | * The contents of this file are subject to the Interbase Public 7 | * License Version 1.0 (the "License"); you may not use this file 8 | * except in compliance with the License. You may obtain a copy 9 | * of the License at http://www.Inprise.com/IPL.html 10 | * 11 | * Software distributed under the License is distributed on an 12 | * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express 13 | * or implied. See the License for the specific language governing 14 | * rights and limitations under the License. 15 | * 16 | * The Original Code was created by Inprise Corporation 17 | * and its predecessors. Portions created by Inprise Corporation are 18 | * Copyright (C) Inprise Corporation. 19 | * 20 | * All Rights Reserved. 21 | * Contributor(s): ______________________________________. 22 | */ 23 | 24 | #ifndef _IB_UTIL_H 25 | #define _IB_UTIL_H 26 | 27 | #ifdef __cplusplus 28 | extern "C" { 29 | #endif 30 | 31 | extern void *ib_util_malloc(long); 32 | 33 | #ifdef __cplusplus 34 | } /* extern "C" */ 35 | #endif 36 | 37 | #endif /* _IB_UTIL_H */ 38 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Backup/backup.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | //--------------------------------------------------------------------------- 6 | USEFORM("main.cpp", MainForm); 7 | //--------------------------------------------------------------------------- 8 | WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 9 | { 10 | try 11 | { 12 | Application->Initialize(); 13 | Application->CreateForm(__classid(TMainForm), &MainForm); 14 | Application->Run(); 15 | } 16 | catch (Exception &exception) 17 | { 18 | Application->ShowException(&exception); 19 | } 20 | catch (...) 21 | { 22 | try 23 | { 24 | throw Exception(""); 25 | } 26 | catch (Exception &exception) 27 | { 28 | Application->ShowException(&exception); 29 | } 30 | } 31 | return 0; 32 | } 33 | //--------------------------------------------------------------------------- 34 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Query/query.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | //--------------------------------------------------------------------------- 6 | USEFORM("main.cpp", MainForm); 7 | //--------------------------------------------------------------------------- 8 | WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 9 | { 10 | try 11 | { 12 | Application->Initialize(); 13 | Application->CreateForm(__classid(TMainForm), &MainForm); 14 | Application->Run(); 15 | } 16 | catch (Exception &exception) 17 | { 18 | Application->ShowException(&exception); 19 | } 20 | catch (...) 21 | { 22 | try 23 | { 24 | throw Exception(""); 25 | } 26 | catch (Exception &exception) 27 | { 28 | Application->ShowException(&exception); 29 | } 30 | } 31 | return 0; 32 | } 33 | //--------------------------------------------------------------------------- 34 | -------------------------------------------------------------------------------- /packages/UIBD10Win32R.dpk: -------------------------------------------------------------------------------- 1 | package uibD10Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS OFF} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$RUNONLY} 26 | {$IMPLICITBUILD OFF} 27 | 28 | requires 29 | rtl, 30 | vclx, 31 | vcl, 32 | dbrtl; 33 | 34 | contains 35 | uib in '..\source\uib.pas', 36 | uibase in '..\source\uibase.pas', 37 | uibconst in '..\source\uibconst.pas', 38 | uibdatabaseedit in '..\source\uibdatabaseedit.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas', 44 | uibkeywords in '..\source\uibkeywords.pas', 45 | uibavl in '..\source\uibavl.pas'; 46 | 47 | end. 48 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Query/main.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | 6 | #include "main.h" 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | #pragma link "UIB" 10 | #pragma resource "*.dfm" 11 | TMainForm *MainForm; 12 | //--------------------------------------------------------------------------- 13 | __fastcall TMainForm::TMainForm(TComponent* Owner) 14 | : TForm(Owner) 15 | { 16 | } 17 | //--------------------------------------------------------------------------- 18 | void __fastcall TMainForm::GoClick(TObject *Sender) 19 | { 20 | Query->Params->AsInteger[0] = 623; 21 | Query->Open(); 22 | Memo->Clear(); 23 | while (!Query->Eof) { 24 | Memo->Lines->Add(Format("%s %s, Salary: %f", 25 | OPENARRAY(TVarRec, ( 26 | Query->Fields->ByNameAsString["FIRST_NAME"], 27 | Query->Fields->ByNameAsString["LAST_NAME"], 28 | Query->Fields->ByNameAsDouble["SALARY"])))); 29 | Query->Next(); 30 | }; 31 | Query->Close(etmCommit); 32 | } 33 | //--------------------------------------------------------------------------- 34 | -------------------------------------------------------------------------------- /Includes/FB20/ib_util.h: -------------------------------------------------------------------------------- 1 | /* 2 | * PROGRAM: UDF and Blob filter Utilities library 3 | * MODULE: ib_util.h 4 | * DESCRIPTION: Prototype header file for ib_util.c 5 | * 6 | * The contents of this file are subject to the Interbase Public 7 | * License Version 1.0 (the "License"); you may not use this file 8 | * except in compliance with the License. You may obtain a copy 9 | * of the License at http://www.Inprise.com/IPL.html 10 | * 11 | * Software distributed under the License is distributed on an 12 | * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express 13 | * or implied. See the License for the specific language governing 14 | * rights and limitations under the License. 15 | * 16 | * The Original Code was created by Inprise Corporation 17 | * and its predecessors. Portions created by Inprise Corporation are 18 | * Copyright (C) Inprise Corporation. 19 | * 20 | * All Rights Reserved. 21 | * Contributor(s): ______________________________________. 22 | */ 23 | 24 | #ifndef _IB_UTIL_H 25 | #define _IB_UTIL_H 26 | 27 | #ifdef __cplusplus 28 | extern "C" { 29 | #endif 30 | 31 | extern void *ib_util_malloc(long); 32 | 33 | #ifdef __cplusplus 34 | } /* extern "C" */ 35 | #endif 36 | 37 | #endif /* _IB_UTIL_H */ 38 | -------------------------------------------------------------------------------- /Includes/FB21/ib_util.h: -------------------------------------------------------------------------------- 1 | /* 2 | * PROGRAM: UDF and Blob filter Utilities library 3 | * MODULE: ib_util.h 4 | * DESCRIPTION: Prototype header file for ib_util.c 5 | * 6 | * The contents of this file are subject to the Interbase Public 7 | * License Version 1.0 (the "License"); you may not use this file 8 | * except in compliance with the License. You may obtain a copy 9 | * of the License at http://www.Inprise.com/IPL.html 10 | * 11 | * Software distributed under the License is distributed on an 12 | * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express 13 | * or implied. See the License for the specific language governing 14 | * rights and limitations under the License. 15 | * 16 | * The Original Code was created by Inprise Corporation 17 | * and its predecessors. Portions created by Inprise Corporation are 18 | * Copyright (C) Inprise Corporation. 19 | * 20 | * All Rights Reserved. 21 | * Contributor(s): ______________________________________. 22 | */ 23 | 24 | #ifndef _IB_UTIL_H 25 | #define _IB_UTIL_H 26 | 27 | #ifdef __cplusplus 28 | extern "C" { 29 | #endif 30 | 31 | extern void *ib_util_malloc(long); 32 | 33 | #ifdef __cplusplus 34 | } /* extern "C" */ 35 | #endif 36 | 37 | #endif /* _IB_UTIL_H */ 38 | -------------------------------------------------------------------------------- /Includes/FB25/ib_util.h: -------------------------------------------------------------------------------- 1 | /* 2 | * PROGRAM: UDF and Blob filter Utilities library 3 | * MODULE: ib_util.h 4 | * DESCRIPTION: Prototype header file for ib_util.c 5 | * 6 | * The contents of this file are subject to the Interbase Public 7 | * License Version 1.0 (the "License"); you may not use this file 8 | * except in compliance with the License. You may obtain a copy 9 | * of the License at http://www.Inprise.com/IPL.html 10 | * 11 | * Software distributed under the License is distributed on an 12 | * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express 13 | * or implied. See the License for the specific language governing 14 | * rights and limitations under the License. 15 | * 16 | * The Original Code was created by Inprise Corporation 17 | * and its predecessors. Portions created by Inprise Corporation are 18 | * Copyright (C) Inprise Corporation. 19 | * 20 | * All Rights Reserved. 21 | * Contributor(s): ______________________________________. 22 | */ 23 | 24 | #ifndef _IB_UTIL_H 25 | #define _IB_UTIL_H 26 | 27 | #ifdef __cplusplus 28 | extern "C" { 29 | #endif 30 | 31 | extern void *ib_util_malloc(long); 32 | 33 | #ifdef __cplusplus 34 | } /* extern "C" */ 35 | #endif 36 | 37 | #endif /* _IB_UTIL_H */ 38 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/WEB/mainclient.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 430 3 | Top = 374 4 | Width = 434 5 | Height = 320 6 | Caption = 'client test' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | DesignSize = ( 15 | 426 16 | 293) 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object getdata: TButton 20 | Left = 0 21 | Top = 0 22 | Width = 75 23 | Height = 25 24 | Caption = 'getdata' 25 | TabOrder = 0 26 | OnClick = getdataClick 27 | end 28 | object Grid: TStringGrid 29 | Left = 0 30 | Top = 31 31 | Width = 425 32 | Height = 258 33 | Anchors = [akLeft, akTop, akRight, akBottom] 34 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing] 35 | TabOrder = 1 36 | RowHeights = ( 37 | 24 38 | 24 39 | 24 40 | 24 41 | 24) 42 | end 43 | object table: TEdit 44 | Left = 80 45 | Top = 0 46 | Width = 121 47 | Height = 21 48 | TabOrder = 2 49 | Text = 'employee' 50 | end 51 | end 52 | -------------------------------------------------------------------------------- /examples/UIB/Component/StoredProc/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, uib, StdCtrls; 8 | 9 | type 10 | TMainForm = class(TForm) 11 | Go: TButton; 12 | DataBase: TUIBDataBase; 13 | Transaction: TUIBTransaction; 14 | Memo: TMemo; 15 | StoredProc: TUIBQuery; 16 | procedure GoClick(Sender: TObject); 17 | private 18 | { Private declarations } 19 | public 20 | { Public declarations } 21 | end; 22 | 23 | var 24 | MainForm: TMainForm; 25 | 26 | implementation 27 | 28 | uses uibLib; 29 | 30 | {$R *.dfm} 31 | 32 | procedure TMainForm.GoClick(Sender: TObject); 33 | var i: Integer; 34 | begin 35 | Memo.Clear; 36 | StoredProc.BuildStoredProc('SUB_TOT_BUDGET'); 37 | Memo.Lines.Add(StoredProc.SQL.Text); 38 | Memo.Lines.Add(StoredProc.Params.FieldName[0] + ': 100'); 39 | Memo.Lines.Add('---'); 40 | StoredProc.Params.ByNameAsString['HEAD_DEPT'] := '100'; 41 | 42 | StoredProc.Open; 43 | with StoredProc.Fields do 44 | for i := 0 to FieldCount - 1 do 45 | memo.Lines.Add(AliasName[i] + ': ' + AsString[i]); 46 | StoredProc.Close(etmCommit); 47 | end; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /misc/AppServer/Samples/Skeleton/skeleton.dtd: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 20 | 21 | 22 | 23 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /packages/UIBD11Win32R.dpk: -------------------------------------------------------------------------------- 1 | package uibD11Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS OFF} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$RUNONLY} 26 | {$IMPLICITBUILD ON} 27 | 28 | requires 29 | rtl, 30 | vclx, 31 | vcl, 32 | dbrtl; 33 | 34 | contains 35 | uib in '..\source\uib.pas', 36 | uibase in '..\source\uibase.pas', 37 | uibconst in '..\source\uibconst.pas', 38 | uibdatabaseedit in '..\source\uibdatabaseedit.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas', 44 | uibkeywords in '..\source\uibkeywords.pas', 45 | uibavl in '..\source\uibavl.pas', 46 | uibdescriptor in '..\source\uibdescriptor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD17Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD17Win32R; 2 | 3 | {$IMPLICITBUILD OFF} 4 | 5 | {$R *.res} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO ON} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS OFF} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DESCRIPTION 'UIB Components for XE3 D17'} 28 | {$RUNONLY} 29 | 30 | requires 31 | rtl, 32 | vclx, 33 | vcl, 34 | dbrtl; 35 | 36 | contains 37 | uib in '..\source\uib.pas', 38 | uibase in '..\source\uibase.pas', 39 | uibconst in '..\source\uibconst.pas', 40 | uiberror in '..\source\uiberror.pas', 41 | uiblib in '..\source\uiblib.pas', 42 | uibmetadata in '..\source\uibmetadata.pas', 43 | uibsqlparser in '..\source\uibsqlparser.pas', 44 | uibdataset in '..\source\uibdataset.pas', 45 | uibkeywords in '..\source\uibkeywords.pas', 46 | uibavl in '..\source\uibavl.pas', 47 | uibdescriptor in '..\source\uibdescriptor.pas'; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /packages/UIBD12Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD12Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS OFF} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2009'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vclx, 32 | vcl, 33 | dbrtl; 34 | 35 | contains 36 | uib in '..\source\uib.pas', 37 | uibase in '..\source\uibase.pas', 38 | uibconst in '..\source\uibconst.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas', 44 | uibkeywords in '..\source\uibkeywords.pas', 45 | uibavl in '..\source\uibavl.pas', 46 | uibdescriptor in '..\source\uibdescriptor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD14Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD14Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS OFF} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2010'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vclx, 32 | vcl, 33 | dbrtl; 34 | 35 | contains 36 | uib in '..\source\uib.pas', 37 | uibase in '..\source\uibase.pas', 38 | uibconst in '..\source\uibconst.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas', 44 | uibkeywords in '..\source\uibkeywords.pas', 45 | uibavl in '..\source\uibavl.pas', 46 | uibdescriptor in '..\source\uibdescriptor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /packages/UIBD15Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD15Win32R; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS OFF} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio 2011'} 26 | {$RUNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | rtl, 31 | vclx, 32 | vcl, 33 | dbrtl; 34 | 35 | contains 36 | uib in '..\source\uib.pas', 37 | uibase in '..\source\uibase.pas', 38 | uibconst in '..\source\uibconst.pas', 39 | uiberror in '..\source\uiberror.pas', 40 | uiblib in '..\source\uiblib.pas', 41 | uibmetadata in '..\source\uibmetadata.pas', 42 | uibsqlparser in '..\source\uibsqlparser.pas', 43 | uibdataset in '..\source\uibdataset.pas', 44 | uibkeywords in '..\source\uibkeywords.pas', 45 | uibavl in '..\source\uibavl.pas', 46 | uibdescriptor in '..\source\uibdescriptor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /examples/UIB/Automation/UIBDemo.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 43 | 44 | 45 | 46 | -------------------------------------------------------------------------------- /packages/UIBD6D.dpk: -------------------------------------------------------------------------------- 1 | package uibD6D; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS ON} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'UIB - Unified Interbase Components'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD OFF} 28 | {$DEFINE HAVE_SYNEDIT} 29 | 30 | requires 31 | rtl, 32 | uibD6R, 33 | designide, 34 | dbrtl, 35 | vcl, 36 | vclx, 37 | {$IFDEF HAVE_SYNEDIT} 38 | SynEdit_R6, 39 | {$ENDIF} 40 | vcldb, 41 | dclact, 42 | dcldb; 43 | 44 | contains 45 | {$IFDEF HAVE_SYNEDIT} 46 | uibsqledit in '..\source\uibsqledit.pas' {UIBSQLEditForm}, 47 | uibsynedit in '..\source\uibsynedit.pas', 48 | {$ENDIF} 49 | uibreg in '..\source\uibreg.pas', 50 | uibdatabaseedit in '..\source\uibdatabaseedit.pas' {UIBDatabaseEditForm}, 51 | uibtransactionedit in '..\source\uibtransactionedit.pas' {UIBTransactionEditForm}; 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /examples/UIB/Component/Backup/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 202 3 | Top = 188 4 | Width = 583 5 | Height = 284 6 | HorzScrollBar.Range = 54 7 | VertScrollBar.Range = 181 8 | ActiveControl = Log 9 | AutoScroll = False 10 | Caption = 'Backup Database' 11 | Color = clBtnFace 12 | Font.Charset = DEFAULT_CHARSET 13 | Font.Color = clWindowText 14 | Font.Height = 11 15 | Font.Name = 'MS Sans Serif' 16 | Font.Pitch = fpVariable 17 | Font.Style = [] 18 | OldCreateOrder = True 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Log: TMemo 22 | Left = 0 23 | Top = 64 24 | Width = 575 25 | Height = 193 26 | Align = alBottom 27 | ScrollBars = ssVertical 28 | TabOrder = 0 29 | end 30 | object Go: TButton 31 | Left = 0 32 | Top = 6 33 | Width = 73 34 | Height = 27 35 | Caption = 'Backup' 36 | TabOrder = 1 37 | OnClick = GoClick 38 | end 39 | object Backup: TUIBBackup 40 | UserName = 'SYSDBA' 41 | PassWord = 'masterkey' 42 | LibraryName = 'gds32.dll' 43 | BackupFiles.Strings = ( 44 | 'd:\employee.gbk') 45 | Database = 'D:\EMPLOYEE.DB' 46 | OnVerbose = BackupVerbose 47 | Verbose = True 48 | Left = 8 49 | Top = 32 50 | end 51 | end 52 | -------------------------------------------------------------------------------- /examples/UIB/Component/DataPump/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 198 3 | Top = 183 4 | Width = 253 5 | Height = 135 6 | Caption = 'Data Pump example' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object go: TButton 17 | Left = 80 18 | Top = 40 19 | Width = 75 20 | Height = 25 21 | Caption = 'go' 22 | TabOrder = 0 23 | OnClick = goClick 24 | end 25 | object DataBase: TUIBDataBase 26 | Params.Strings = ( 27 | 'sql_dialect=3' 28 | 'lc_ctype=NONE' 29 | 'password=masterkey' 30 | 'user_name=SYSDBA') 31 | DatabaseName = 'D:\EMPLOYEE.DB' 32 | UserName = 'SYSDBA' 33 | PassWord = 'masterkey' 34 | Left = 8 35 | Top = 8 36 | end 37 | object Transaction: TUIBTransaction 38 | DataBase = DataBase 39 | Left = 40 40 | Top = 8 41 | end 42 | object Query: TUIBQuery 43 | Transaction = Transaction 44 | SQL.Strings = ( 45 | 'INSERT INTO COUNTRY (COUNTRY,CURRENCY) VALUES (?, ?)') 46 | CachedFetch = False 47 | Left = 72 48 | Top = 8 49 | end 50 | end 51 | -------------------------------------------------------------------------------- /examples/UIB/Component/StoredProc/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 192 3 | Top = 107 4 | Width = 553 5 | Height = 186 6 | Caption = 'Strored Proc' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Go: TButton 17 | Left = 8 18 | Top = 8 19 | Width = 75 20 | Height = 25 21 | Caption = 'Go' 22 | TabOrder = 0 23 | OnClick = GoClick 24 | end 25 | object Memo: TMemo 26 | Left = 8 27 | Top = 40 28 | Width = 489 29 | Height = 113 30 | TabOrder = 1 31 | end 32 | object DataBase: TUIBDataBase 33 | Params.Strings = ( 34 | 'sql_dialect=3' 35 | 'lc_ctype=NONE' 36 | 'password=masterkey' 37 | 'user_name=SYSDBA') 38 | DatabaseName = 'D:\EMPLOYEE.DB' 39 | UserName = 'SYSDBA' 40 | PassWord = 'masterkey' 41 | LibraryName = 'gds32.dll' 42 | Left = 96 43 | end 44 | object Transaction: TUIBTransaction 45 | DataBase = DataBase 46 | Left = 128 47 | end 48 | object StoredProc: TUIBQuery 49 | Transaction = Transaction 50 | Left = 160 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /packages/UIBD21Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD21Win32R; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS OFF} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$ENDIF IMPLICITBUILDING} 27 | {$DESCRIPTION 'UIB Components for Delphi/RAD Studio XE7'} 28 | {$RUNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | vclx, 34 | vcl, 35 | dbrtl; 36 | 37 | contains 38 | uib in '..\source\uib.pas', 39 | uibase in '..\source\uibase.pas', 40 | uibconst in '..\source\uibconst.pas', 41 | uiberror in '..\source\uiberror.pas', 42 | uiblib in '..\source\uiblib.pas', 43 | uibmetadata in '..\source\uibmetadata.pas', 44 | uibsqlparser in '..\source\uibsqlparser.pas', 45 | uibdataset in '..\source\uibdataset.pas', 46 | uibkeywords in '..\source\uibkeywords.pas', 47 | uibavl in '..\source\uibavl.pas', 48 | uibdescriptor in '..\source\uibdescriptor.pas'; 49 | 50 | end. 51 | -------------------------------------------------------------------------------- /examples/UIB/Component/Restore/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 202 3 | Top = 188 4 | Width = 583 5 | Height = 284 6 | HorzScrollBar.Range = 54 7 | VertScrollBar.Range = 181 8 | ActiveControl = Log 9 | AutoScroll = False 10 | Caption = 'Restore Database' 11 | Color = clBtnFace 12 | Font.Charset = DEFAULT_CHARSET 13 | Font.Color = clWindowText 14 | Font.Height = 11 15 | Font.Name = 'MS Sans Serif' 16 | Font.Pitch = fpVariable 17 | Font.Style = [] 18 | OldCreateOrder = True 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Log: TMemo 22 | Left = 0 23 | Top = 40 24 | Width = 575 25 | Height = 217 26 | Align = alBottom 27 | ScrollBars = ssVertical 28 | TabOrder = 0 29 | end 30 | object Go: TButton 31 | Left = 0 32 | Top = 6 33 | Width = 65 34 | Height = 27 35 | Caption = 'Restore' 36 | TabOrder = 1 37 | OnClick = GoClick 38 | end 39 | object Restore: TUIBRestore 40 | UserName = 'SYSDBA' 41 | PassWord = 'masterkey' 42 | LibraryName = 'gds32.dll' 43 | BackupFiles.Strings = ( 44 | 'd:\employee.gbk') 45 | Database = 'd:\employee.db' 46 | OnVerbose = RestoreVerbose 47 | Verbose = True 48 | Options = [roReplace] 49 | Left = 72 50 | Top = 8 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /packages/UIBD16Win32R.dpk: -------------------------------------------------------------------------------- 1 | package UIBD16Win32R; 2 | 3 | {$IMPLICITBUILD OFF} 4 | 5 | {$R *.res} 6 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 7 | {$ALIGN 8} 8 | {$ASSERTIONS ON} 9 | {$BOOLEVAL OFF} 10 | {$DEBUGINFO ON} 11 | {$EXTENDEDSYNTAX ON} 12 | {$IMPORTEDDATA ON} 13 | {$IOCHECKS OFF} 14 | {$LOCALSYMBOLS ON} 15 | {$LONGSTRINGS ON} 16 | {$OPENSTRINGS ON} 17 | {$OPTIMIZATION ON} 18 | {$OVERFLOWCHECKS OFF} 19 | {$RANGECHECKS OFF} 20 | {$REFERENCEINFO OFF} 21 | {$SAFEDIVIDE OFF} 22 | {$STACKFRAMES OFF} 23 | {$TYPEDADDRESS OFF} 24 | {$VARSTRINGCHECKS ON} 25 | {$WRITEABLECONST OFF} 26 | {$MINENUMSIZE 1} 27 | {$IMAGEBASE $400000} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'UIB Components for XE2 D16'} 30 | {$RUNONLY} 31 | 32 | requires 33 | rtl, 34 | vclx, 35 | vcl, 36 | dbrtl; 37 | 38 | contains 39 | uib in '..\source\uib.pas', 40 | uibase in '..\source\uibase.pas', 41 | uibconst in '..\source\uibconst.pas', 42 | uiberror in '..\source\uiberror.pas', 43 | uiblib in '..\source\uiblib.pas', 44 | uibmetadata in '..\source\uibmetadata.pas', 45 | uibsqlparser in '..\source\uibsqlparser.pas', 46 | uibdataset in '..\source\uibdataset.pas', 47 | uibkeywords in '..\source\uibkeywords.pas', 48 | uibavl in '..\source\uibavl.pas', 49 | uibdescriptor in '..\source\uibdescriptor.pas'; 50 | 51 | end. 52 | -------------------------------------------------------------------------------- /examples/UIB/Component/Metadata/Metadata.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {6c72f73c-642f-4557-a5e6-fa8f0484bd3a} 4 | 5 | 6 | 7 | 8 | 9 | 10 | Default.Personality 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | -------------------------------------------------------------------------------- /examples/UIB/Component/Security/user.pas: -------------------------------------------------------------------------------- 1 | unit user; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, QGrids, QDialogs, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, Grids, 10 | {$ENDIF} 11 | SysUtils, Classes; 12 | 13 | type 14 | TUserForm = class(TForm) 15 | Label1: TLabel; 16 | UserName: TEdit; 17 | Label2: TLabel; 18 | FirstName: TEdit; 19 | Label3: TLabel; 20 | MiddleName: TEdit; 21 | Label4: TLabel; 22 | LastName: TEdit; 23 | Label5: TLabel; 24 | UserID: TEdit; 25 | Label6: TLabel; 26 | GroupID: TEdit; 27 | Label7: TLabel; 28 | Password: TEdit; 29 | Label8: TLabel; 30 | Confirm: TEdit; 31 | Ok: TButton; 32 | Cancel: TButton; 33 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 34 | private 35 | { Private declarations } 36 | public 37 | { Public declarations } 38 | end; 39 | 40 | var 41 | UserForm: TUserForm; 42 | 43 | implementation 44 | 45 | {$R *.dfm} 46 | 47 | procedure TUserForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 48 | begin 49 | if ModalResult = mrOK then 50 | begin 51 | if Password.Text <> Confirm.Text then 52 | raise Exception.Create('Passwords don''t match!'); 53 | end; 54 | end; 55 | 56 | end. 57 | -------------------------------------------------------------------------------- /examples/UIB/Component/QuickScript/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 223 3 | Top = 224 4 | Width = 334 5 | Height = 108 6 | HorzScrollBar.Range = 147 7 | VertScrollBar.Range = 30 8 | ActiveControl = btExecute 9 | AutoScroll = False 10 | Caption = 'Quick Script' 11 | Color = clBtnFace 12 | Font.Charset = DEFAULT_CHARSET 13 | Font.Color = clWindowText 14 | Font.Height = 11 15 | Font.Name = 'MS Sans Serif' 16 | Font.Pitch = fpVariable 17 | Font.Style = [] 18 | OldCreateOrder = True 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object btExecute: TButton 22 | Left = 124 23 | Top = 12 24 | Width = 69 25 | Height = 29 26 | Caption = 'Execute' 27 | TabOrder = 0 28 | OnClick = btExecuteClick 29 | end 30 | object Query: TUIBQuery 31 | Transaction = Transaction 32 | QuickScript = True 33 | Left = 88 34 | Top = 16 35 | end 36 | object DataBase: TUIBDataBase 37 | Params.Strings = ( 38 | 'sql_dialect=3' 39 | 'lc_ctype=NONE' 40 | 'password=masterkey' 41 | 'user_name=SYSDBA') 42 | DatabaseName = 'd:\employee.db' 43 | UserName = 'SYSDBA' 44 | PassWord = 'masterkey' 45 | Left = 24 46 | Top = 16 47 | end 48 | object Transaction: TUIBTransaction 49 | DataBase = DataBase 50 | Left = 56 51 | Top = 16 52 | end 53 | end 54 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/control/expr_iif.hpp: -------------------------------------------------------------------------------- 1 | # /* ************************************************************************** 2 | # * * 3 | # * (C) Copyright Paul Mensonides 2002. 4 | # * Distributed under the Boost Software License, Version 1.0. (See 5 | # * accompanying file LICENSE_1_0.txt or copy at 6 | # * http://www.boost.org/LICENSE_1_0.txt) 7 | # * * 8 | # ************************************************************************** */ 9 | # 10 | # /* See http://www.boost.org for most recent version. */ 11 | # 12 | # ifndef FB_BOOST_PREPROCESSOR_CONTROL_EXPR_IIF_HPP 13 | # define FB_BOOST_PREPROCESSOR_CONTROL_EXPR_IIF_HPP 14 | # 15 | # include 16 | # 17 | # /* FB_BOOST_PP_EXPR_IIF */ 18 | # 19 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_MWCC() 20 | # define FB_BOOST_PP_EXPR_IIF(bit, expr) FB_BOOST_PP_EXPR_IIF_I(bit, expr) 21 | # else 22 | # define FB_BOOST_PP_EXPR_IIF(bit, expr) FB_BOOST_PP_EXPR_IIF_OO((bit, expr)) 23 | # define FB_BOOST_PP_EXPR_IIF_OO(par) FB_BOOST_PP_EXPR_IIF_I ## par 24 | # endif 25 | # 26 | # define FB_BOOST_PP_EXPR_IIF_I(bit, expr) FB_BOOST_PP_EXPR_IIF_ ## bit(expr) 27 | # 28 | # define FB_BOOST_PP_EXPR_IIF_0(expr) 29 | # define FB_BOOST_PP_EXPR_IIF_1(expr) expr 30 | # 31 | # endif 32 | -------------------------------------------------------------------------------- /examples/UIB/Component/Script/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, uib, StdCtrls, uibSQLParser, ComCtrls; 8 | 9 | type 10 | TMainForm = class(TForm) 11 | Script: TUIBScript; 12 | DataBase: TUIBDataBase; 13 | Transaction: TUIBTransaction; 14 | Button1: TButton; 15 | Edit: TEdit; 16 | StatusBar: TStatusBar; 17 | Label1: TLabel; 18 | Label2: TLabel; 19 | Log: TMemo; 20 | procedure Button1Click(Sender: TObject); 21 | procedure ScriptParse(Sender: TObject; NodeType: TSQLStatement; 22 | const Statement: String); 23 | private 24 | { Private declarations } 25 | public 26 | { Public declarations } 27 | end; 28 | 29 | var 30 | MainForm: TMainForm; 31 | 32 | implementation 33 | 34 | {$R *.dfm} 35 | 36 | procedure TMainForm.Button1Click(Sender: TObject); 37 | var c: cardinal; 38 | begin 39 | if FileExists('d:\database.db') then 40 | DeleteFile('d:\database.db'); 41 | c := GetTickCount; 42 | Script.ExecuteScript; 43 | Transaction.Commit; 44 | Edit.text := inttostr(GetTickCount - c) + ' ms'; 45 | DataBase.Connected := False; 46 | end; 47 | 48 | 49 | 50 | procedure TMainForm.ScriptParse(Sender: TObject; NodeType: TSQLStatement; 51 | const Statement: String); 52 | begin 53 | Log.Text := Statement; 54 | Application.ProcessMessages; 55 | end; 56 | 57 | end. 58 | -------------------------------------------------------------------------------- /examples/UIB/BCB6/Query/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 195 3 | Top = 130 4 | Width = 233 5 | Height = 184 6 | Caption = 'Query sample' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Go: TButton 17 | Left = 0 18 | Top = 0 19 | Width = 75 20 | Height = 25 21 | Caption = 'Read Query' 22 | TabOrder = 0 23 | OnClick = GoClick 24 | end 25 | object Memo: TMemo 26 | Left = 0 27 | Top = 32 28 | Width = 209 29 | Height = 105 30 | TabOrder = 1 31 | end 32 | object DataBase: TUIBDataBase 33 | Params.Strings = ( 34 | 'sql_dialect=3' 35 | 'lc_ctype=NONE' 36 | 'password=masterkey' 37 | 'user_name=SYSDBA') 38 | DatabaseName = 'D:\EMPLOYEE.DB' 39 | UserName = 'SYSDBA' 40 | PassWord = 'masterkey' 41 | LibraryName = 'gds32.dll' 42 | Left = 80 43 | end 44 | object Transaction: TUIBTransaction 45 | DataBase = DataBase 46 | Left = 112 47 | end 48 | object Query: TUIBQuery 49 | SQL.Strings = ( 50 | 51 | 'SELECT FIRST_NAME, LAST_NAME, SALARY FROM EMPLOYEE WHERE DEPT_NO' + 52 | ' = ?') 53 | Transaction = Transaction 54 | CachedFetch = False 55 | Left = 144 56 | end 57 | end 58 | -------------------------------------------------------------------------------- /misc/DBExpress/dbexpUIB.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = dbexpUIBfire15.dll dbexpUIBfire102.dll dbexpUIBfire103.dll \ 13 | dbexpUIBint6.dll dbexpUIBint7.dll dbexpUIBint65.dll dbexpUIBint71.dll \ 14 | dbexpUIByaffil.dll Install.exe 15 | #------------------------------------------------------------------------------ 16 | default: $(PROJECTS) 17 | #------------------------------------------------------------------------------ 18 | 19 | dbexpUIBfire15.dll: dbexpUIBfire15.dpr 20 | $(DCC) 21 | 22 | dbexpUIBfire102.dll: dbexpUIBfire102.dpr 23 | $(DCC) 24 | 25 | dbexpUIBfire103.dll: dbexpUIBfire103.dpr 26 | $(DCC) 27 | 28 | dbexpUIBint6.dll: dbexpUIBint6.dpr 29 | $(DCC) 30 | 31 | dbexpUIBint7.dll: dbexpUIBint7.dpr 32 | $(DCC) 33 | 34 | dbexpUIBint65.dll: dbexpUIBint65.dpr 35 | $(DCC) 36 | 37 | dbexpUIBint71.dll: dbexpUIBint71.dpr 38 | $(DCC) 39 | 40 | dbexpUIByaffil.dll: dbexpUIByaffil.dpr 41 | $(DCC) 42 | 43 | Install.exe: Install.dpr 44 | $(DCC) 45 | 46 | 47 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/control/iif.hpp: -------------------------------------------------------------------------------- 1 | # /* ************************************************************************** 2 | # * * 3 | # * (C) Copyright Paul Mensonides 2002. 4 | # * Distributed under the Boost Software License, Version 1.0. (See 5 | # * accompanying file LICENSE_1_0.txt or copy at 6 | # * http://www.boost.org/LICENSE_1_0.txt) 7 | # * * 8 | # ************************************************************************** */ 9 | # 10 | # /* See http://www.boost.org for most recent version. */ 11 | # 12 | # ifndef FB_BOOST_PREPROCESSOR_CONTROL_IIF_HPP 13 | # define FB_BOOST_PREPROCESSOR_CONTROL_IIF_HPP 14 | # 15 | # include 16 | # 17 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_MWCC() 18 | # define FB_BOOST_PP_IIF(bit, t, f) FB_BOOST_PP_IIF_I(bit, t, f) 19 | # else 20 | # define FB_BOOST_PP_IIF(bit, t, f) FB_BOOST_PP_IIF_OO((bit, t, f)) 21 | # define FB_BOOST_PP_IIF_OO(par) FB_BOOST_PP_IIF_I ## par 22 | # endif 23 | # 24 | # if ~FB_BOOST_PP_CONFIG_FLAGS() & FB_BOOST_PP_CONFIG_MSVC() 25 | # define FB_BOOST_PP_IIF_I(bit, t, f) FB_BOOST_PP_IIF_ ## bit(t, f) 26 | # else 27 | # define FB_BOOST_PP_IIF_I(bit, t, f) FB_BOOST_PP_IIF_II(FB_BOOST_PP_IIF_ ## bit(t, f)) 28 | # define FB_BOOST_PP_IIF_II(id) id 29 | # endif 30 | # 31 | # define FB_BOOST_PP_IIF_0(t, f) f 32 | # define FB_BOOST_PP_IIF_1(t, f) t 33 | # 34 | # endif 35 | -------------------------------------------------------------------------------- /misc/UIBMonitor/readme.txt: -------------------------------------------------------------------------------- 1 | -------------------------------------UIB SQL MONITOR----------------------------------- 2 | 3 | This tool show in real time queries used by an application connected to Interbase or Firebird. 4 | It is also possible to view and sort query's performances. 5 | This SQL monitor usually don't need you modify your application if it use an Interbase or Firebird 6 | library (gds32.dll, fbclient.dll or fbembed.dll). 7 | It also works with dot.net applications. 8 | 9 | -- Knows issues -- 10 | 11 | Sometimes nothing appear in the scroll box 12 | 13 | 1. Have you selected the righ library ?. 14 | 2. Hooked program can't find "madCHook.dll", in this case copy this DLL in system32 directory. 15 | 3. You need administrator rights. 16 | 17 | -- "Firebird .Net Data Provider" compatibility -- 18 | 19 | You have to change connection string like this: 20 | 21 | FbConnectionStringBuilder *cs = new FbConnectionStringBuilder(); 22 | cs->DataSource = "localhost"; 23 | cs->Database = "C:\\Program Files\\Firebird\\Firebird_2_0\\examples\\empbuild\\EMPLOYEE.FDB"; 24 | cs->UserID = "SYSDBA"; 25 | cs->Password = "masterkey"; 26 | cs->Dialect = 3; 27 | cs->ServerType = 1; // <<<<< here 28 | 29 | In this case your application will use "fbembed.dll", so just copy "fbclient.dll" 30 | in the hooked application directory and rename it. 31 | 32 | -- Used tools -- 33 | 34 | MadCodeHook: http://www.madshi.net 35 | VirtualTreeView: http://www.delphi-gems.com/VirtualTreeview 36 | SynEdit: http://synedit.sourceforge.net 37 | UIB: http://www.progdigy.com 38 | 39 | 40 | Henri Gourvest 41 | http://www.progdigy.com -------------------------------------------------------------------------------- /packages/UIBD5D.dof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=1 3 | B=0 4 | C=0 5 | D=0 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=1 12 | K=0 13 | L=0 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=1 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=0 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 31 | [Linker] 32 | MapFile=0 33 | OutputObjs=0 34 | ConsoleApp=1 35 | DebugInfo=0 36 | RemoteSymbols=0 37 | MinStackSize=16384 38 | MaxStackSize=1048576 39 | ImageBase=4194304 40 | ExeDescription=UIB - Unified Interbase Components 41 | [Directories] 42 | OutputDir= 43 | UnitOutputDir= 44 | PackageDLLOutputDir= 45 | PackageDCPOutputDir= 46 | SearchPath= 47 | Packages= 48 | Conditionals= 49 | DebugSourceDirs= 50 | UsePackages=0 51 | [Parameters] 52 | RunParams= 53 | HostApplication= 54 | [Language] 55 | ActiveLang= 56 | ProjectLang=$0000040C 57 | RootDir= 58 | [Version Info] 59 | IncludeVerInfo=1 60 | AutoIncBuild=0 61 | MajorVer=1 62 | MinorVer=2 63 | Release=0 64 | Build=0 65 | Debug=0 66 | PreRelease=0 67 | Special=0 68 | Private=0 69 | DLL=0 70 | Locale=1043 71 | CodePage=1252 72 | [Version Info Keys] 73 | CompanyName= 74 | FileDescription= 75 | FileVersion=1.2.0.0 76 | InternalName= 77 | LegalCopyright= 78 | LegalTrademarks= 79 | OriginalFilename= 80 | ProductName= 81 | ProductVersion=1.0.0.0 82 | Comments= 83 | [Excluded Packages] 84 | c:\program files\borland\delphi7\Projects\Bpl\GxComponents7.bpl=GExperts source components 85 | [HistoryLists\hlUnitAliases] 86 | Count=1 87 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 88 | -------------------------------------------------------------------------------- /examples/UIB/Component/Blob/AsString/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, QDialogs, QExtCtrls, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, 10 | {$ENDIF} 11 | SysUtils, Classes, uib; 12 | 13 | type 14 | TForm1 = class(TForm) 15 | DataBase: TUIBDataBase; 16 | Transaction: TUIBTransaction; 17 | Query: TUIBQuery; 18 | Button1: TButton; 19 | Memo: TMemo; 20 | Button2: TButton; 21 | UpdateQuery: TUIBQuery; 22 | Description: TEdit; 23 | procedure Button1Click(Sender: TObject); 24 | procedure Button2Click(Sender: TObject); 25 | private 26 | { Private declarations } 27 | public 28 | { Public declarations } 29 | end; 30 | 31 | var 32 | Form1: TForm1; 33 | 34 | implementation 35 | 36 | {$R *.dfm} 37 | 38 | procedure TForm1.Button1Click(Sender: TObject); 39 | var str: String; 40 | begin 41 | Memo.Clear; 42 | Query.Open; 43 | while not Query.EOF do 44 | begin 45 | Memo.Lines.Add('Project Name: ' + Query.Fields.ByNameAsString['proj_name']); 46 | Memo.Lines.Add('Product: ' + Query.Fields.ByNameAsString['product']); 47 | Query.ReadBlob('proj_desc', str); 48 | 49 | Memo.Lines.Add('Description: ' + Str); 50 | Memo.Lines.Add(''); 51 | Query.Next; 52 | end; 53 | Query.Close(etmCommit); 54 | end; 55 | 56 | procedure TForm1.Button2Click(Sender: TObject); 57 | var Str: String; 58 | begin 59 | Str := Description.Text; 60 | UpdateQuery.ParamsSetBlob('description', Str); 61 | UpdateQuery.ExecSQL; 62 | UpdateQuery.Close(etmCommit); 63 | 64 | end; 65 | 66 | end. 67 | -------------------------------------------------------------------------------- /changes.txt: -------------------------------------------------------------------------------- 1 | UIB 2.5 Release 2 | 3 | - Delphi 2009, 2010, XE 4 | - Unicode 5 | - Optimized for FB25 6 | 7 | UIB 2.1 Release 8 | 9 | New features: 10 | - New FB2 Database properties: 11 | .InfoActiveTransactionsCount 12 | .InfoCreationDate 13 | - Support for quoted parametters (:"my param"). 14 | - Metadata explorer now read roles (Pierre Yager). 15 | - New Lazarus sample to explore metadatas. 16 | 17 | bug fixes: 18 | - TUIBEvent bug when destroying component is fixed. 19 | - ExecSQL now call Execute when query is prepared; 20 | - When a query don't return fields, a call to next don't raise exception anymore. 21 | - TUIBDataSet: a bug was fixed when the query return only one record. 22 | - RowsAffected now support stored procedures. 23 | - Parsing error corrected with stored procedure. 24 | - Removed Fastcode unit because of bug in asm code. 25 | - bug with "isc_reset_fpe" function that don't exist on unix plateforms is corrected. 26 | - Some bug fixes with Appserver samples. 27 | 28 | UIB 2.1 Release Candidate 29 | 30 | New features: 31 | 32 | - TimeOut on transactions (FB2) 33 | - new asGUID property (PierreY) 34 | - TUIBServerInfo (PierreY) 35 | - UIB_NO_COMPONENT compiler option, this remove TComponent heritage. 36 | - removed uibobj.pas and uibsrv.pas, for server application example take a look in the misc/appserver directory. 37 | - various examples of use and third party applications in the misc directory. 38 | 39 | bug fixes: 40 | - setting an invalid parametter name don't raise exception 41 | - First and last functions in some case don't work when there is only one result. 42 | - using UIB now automatically set IsMultiThread value to true for thread safe memory. 43 | - some FB2 compatibility issues. -------------------------------------------------------------------------------- /packages/UIBD6D.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=6.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=0 7 | D=0 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=1 14 | K=0 15 | L=0 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=0 21 | R=1 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=0 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | [Linker] 34 | MapFile=0 35 | OutputObjs=0 36 | ConsoleApp=1 37 | DebugInfo=0 38 | RemoteSymbols=0 39 | MinStackSize=16384 40 | MaxStackSize=1048576 41 | ImageBase=4194304 42 | ExeDescription=UIB - Unified Interbase Components 43 | [Directories] 44 | OutputDir= 45 | UnitOutputDir= 46 | PackageDLLOutputDir= 47 | PackageDCPOutputDir= 48 | SearchPath= 49 | Packages= 50 | Conditionals=HAVE_SYNEDIT 51 | DebugSourceDirs= 52 | UsePackages=0 53 | [Parameters] 54 | RunParams= 55 | HostApplication= 56 | Launcher= 57 | UseLauncher=0 58 | DebugCWD= 59 | [Language] 60 | ActiveLang= 61 | ProjectLang= 62 | RootDir= 63 | [Version Info] 64 | IncludeVerInfo=1 65 | AutoIncBuild=0 66 | MajorVer=1 67 | MinorVer=2 68 | Release=0 69 | Build=0 70 | Debug=0 71 | PreRelease=0 72 | Special=0 73 | Private=0 74 | DLL=0 75 | Locale=1043 76 | CodePage=1252 77 | [Version Info Keys] 78 | CompanyName= 79 | FileDescription= 80 | FileVersion=1.2.0.0 81 | InternalName= 82 | LegalCopyright= 83 | LegalTrademarks= 84 | OriginalFilename= 85 | ProductName= 86 | ProductVersion=1.0.0.0 87 | Comments= 88 | [HistoryLists\hlConditionals] 89 | Count=1 90 | Item0=HAVE_SYNEDIT 91 | [HistoryLists\hlUnitAliases] 92 | Count=1 93 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 94 | -------------------------------------------------------------------------------- /examples/UIB/Component/DataPump/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, uib, StdCtrls; 8 | 9 | type 10 | TMainForm = class(TForm) 11 | DataBase: TUIBDataBase; 12 | Transaction: TUIBTransaction; 13 | Query: TUIBQuery; 14 | go: TButton; 15 | procedure goClick(Sender: TObject); 16 | private 17 | { Private declarations } 18 | public 19 | { Public declarations } 20 | end; 21 | 22 | TARecord = record 23 | COUNTRY: string; 24 | CURRENCY: string; 25 | end; 26 | 27 | 28 | 29 | var 30 | MainForm: TMainForm; 31 | 32 | implementation 33 | 34 | {$R *.dfm} 35 | 36 | procedure TMainForm.goClick(Sender: TObject); 37 | var 38 | i: Integer; 39 | const 40 | Datas : array[1..10] of TARecord = ( 41 | (COUNTRY: 'blabla0'; CURRENCY: 'blabla'), 42 | (COUNTRY: 'blabla1'; CURRENCY: 'blabla'), 43 | (COUNTRY: 'blabla2'; CURRENCY: 'blabla'), 44 | (COUNTRY: 'blabla3'; CURRENCY: 'blabla'), 45 | (COUNTRY: 'blabla4'; CURRENCY: 'blabla'), 46 | (COUNTRY: 'blabla5'; CURRENCY: 'blabla'), 47 | (COUNTRY: 'blabla6'; CURRENCY: 'blabla'), 48 | (COUNTRY: 'blabla7'; CURRENCY: 'blabla'), 49 | (COUNTRY: 'blabla8'; CURRENCY: 'blabla'), 50 | (COUNTRY: 'blabla9'; CURRENCY: 'blabla')); 51 | begin 52 | for i := 1 to 10 do 53 | begin 54 | Query.Params.AsString[0] := Datas[i].COUNTRY; 55 | Query.Params.AsString[1] := Datas[i].CURRENCY; 56 | Query.Execute; 57 | // for better performance commit every 1000 records 58 | // Transaction.Commit; 59 | end; 60 | Query.Close(etmRollback); // change to etmCommit to apply. 61 | end; 62 | 63 | end. 64 | -------------------------------------------------------------------------------- /examples/UIB/Component/Cursor/main.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 198 3 | Top = 183 4 | Width = 586 5 | Height = 354 6 | Caption = 'Cursor Example' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Update: TButton 17 | Left = 16 18 | Top = 56 19 | Width = 75 20 | Height = 25 21 | Caption = 'Update' 22 | TabOrder = 0 23 | OnClick = UpdateClick 24 | end 25 | object Log: TMemo 26 | Left = 16 27 | Top = 96 28 | Width = 521 29 | Height = 217 30 | TabOrder = 1 31 | end 32 | object DataBase: TUIBDataBase 33 | Params.Strings = ( 34 | 'sql_dialect=3' 35 | 'lc_ctype=NONE' 36 | 'password=masterkey' 37 | 'user_name=SYSDBA') 38 | DatabaseName = 'D:\EMPLOYEE.DB' 39 | UserName = 'SYSDBA' 40 | PassWord = 'masterkey' 41 | LibraryName = 'gds32.dll' 42 | Left = 8 43 | Top = 16 44 | end 45 | object Transaction: TUIBTransaction 46 | DataBase = DataBase 47 | Left = 40 48 | Top = 16 49 | end 50 | object SelectQuery: TUIBQuery 51 | SQL.Strings = ( 52 | 'SELECT proj_id, dept_no, projected_budget ' 53 | 'FROM proj_dept_budget WHERE fiscal_year = 1994' 54 | 'FOR UPDATE OF projected_budget') 55 | Transaction = Transaction 56 | CachedFetch = False 57 | Left = 72 58 | Top = 16 59 | end 60 | object UpdateQuery: TUIBQuery 61 | SQL.Strings = ( 62 | '') 63 | Transaction = Transaction 64 | OnError = etmStayIn 65 | CachedFetch = False 66 | Left = 104 67 | Top = 16 68 | end 69 | end 70 | -------------------------------------------------------------------------------- /packages/UIBD21Win32.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {73e7d27b-1027-4191-9986-34737345e952} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | -------------------------------------------------------------------------------- /Includes/FB30/firebird/impl/boost/preprocessor/debug/error.hpp: -------------------------------------------------------------------------------- 1 | # /* ************************************************************************** 2 | # * * 3 | # * (C) Copyright Paul Mensonides 2002. 4 | # * Distributed under the Boost Software License, Version 1.0. (See 5 | # * accompanying file LICENSE_1_0.txt or copy at 6 | # * http://www.boost.org/LICENSE_1_0.txt) 7 | # * * 8 | # ************************************************************************** */ 9 | # 10 | # /* See http://www.boost.org for most recent version. */ 11 | # 12 | # ifndef FB_BOOST_PREPROCESSOR_DEBUG_ERROR_HPP 13 | # define FB_BOOST_PREPROCESSOR_DEBUG_ERROR_HPP 14 | # 15 | # include 16 | # include 17 | # 18 | # /* FB_BOOST_PP_ERROR */ 19 | # 20 | # if FB_BOOST_PP_CONFIG_ERRORS 21 | # define FB_BOOST_PP_ERROR(code) FB_BOOST_PP_CAT(FB_BOOST_PP_ERROR_, code) 22 | # endif 23 | # 24 | # define FB_BOOST_PP_ERROR_0x0000 FB_BOOST_PP_ERROR(0x0000, FB_BOOST_PP_INDEX_OUT_OF_BOUNDS) 25 | # define FB_BOOST_PP_ERROR_0x0001 FB_BOOST_PP_ERROR(0x0001, FB_BOOST_PP_WHILE_OVERFLOW) 26 | # define FB_BOOST_PP_ERROR_0x0002 FB_BOOST_PP_ERROR(0x0002, FB_BOOST_PP_FOR_OVERFLOW) 27 | # define FB_BOOST_PP_ERROR_0x0003 FB_BOOST_PP_ERROR(0x0003, FB_BOOST_PP_REPEAT_OVERFLOW) 28 | # define FB_BOOST_PP_ERROR_0x0004 FB_BOOST_PP_ERROR(0x0004, FB_BOOST_PP_LIST_FOLD_OVERFLOW) 29 | # define FB_BOOST_PP_ERROR_0x0005 FB_BOOST_PP_ERROR(0x0005, FB_BOOST_PP_SEQ_FOLD_OVERFLOW) 30 | # define FB_BOOST_PP_ERROR_0x0006 FB_BOOST_PP_ERROR(0x0006, FB_BOOST_PP_ARITHMETIC_OVERFLOW) 31 | # define FB_BOOST_PP_ERROR_0x0007 FB_BOOST_PP_ERROR(0x0007, FB_BOOST_PP_DIVISION_BY_ZERO) 32 | # 33 | # endif 34 | -------------------------------------------------------------------------------- /packages/UIBD11Win32.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {73e7d27b-1027-4191-9986-34737345e952} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | Default.Personality 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | -------------------------------------------------------------------------------- /packages/UIBD12Win32.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {73e7d27b-1027-4191-9986-34737345e952} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | Default.Personality 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | -------------------------------------------------------------------------------- /examples/UIB/Component/Stream/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, QDialogs, QExtCtrls, QGrids, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, Grids, 10 | {$ENDIF} 11 | SysUtils, Classes, uib, uibLib; 12 | 13 | type 14 | TMainForm = class(TForm) 15 | DataBase: TUIBDataBase; 16 | Transaction: TUIBTransaction; 17 | Query: TUIBQuery; 18 | Button1: TButton; 19 | StringGrid: TStringGrid; 20 | procedure Button1Click(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.Button1Click(Sender: TObject); 35 | var 36 | MemStream: TMemoryStream; 37 | FieldResult: TSQLResult; 38 | i, j: integer; 39 | begin 40 | Query.Open; 41 | Query.FetchAll; 42 | MemStream := TMemoryStream.Create; 43 | FieldResult := TSQLResult.Create; 44 | Query.Fields.SaveToStream(MemStream); 45 | Query.Close(etmCommit); 46 | 47 | MemStream.Seek(0, soFromBeginning); 48 | FieldResult.LoadFromStream(MemStream); 49 | MemStream.Free; 50 | 51 | StringGrid.ColCount := FieldResult.FieldCount + 1; 52 | StringGrid.RowCount := FieldResult.RecordCount + 1; 53 | 54 | for i := 1 to FieldResult.FieldCount do 55 | StringGrid.Cells[i, 0] := FieldResult.AliasName[i-1]; 56 | 57 | for i := 1 to FieldResult.RecordCount do 58 | begin 59 | FieldResult.GetRecord(i-1); 60 | StringGrid.Cells[0, i] := Inttostr(i); 61 | for j := 1 to FieldResult.FieldCount do 62 | StringGrid.Cells[j, i] := FieldResult.AsString[j-1]; 63 | end; 64 | 65 | FieldResult.Free; 66 | 67 | 68 | end; 69 | 70 | end. 71 | -------------------------------------------------------------------------------- /examples/UIB/Component/Blob/AsStream/main.pas: -------------------------------------------------------------------------------- 1 | unit main; 2 | 3 | interface 4 | 5 | uses 6 | {$IFDEF LINUX} 7 | libc, QForms, QStdCtrls, QControls, QGraphics, QDialogs, QExtCtrls, 8 | {$ELSE} 9 | Windows, Graphics, Controls, Forms, Messages, Dialogs, StdCtrls, ExtCtrls, 10 | {$ENDIF} 11 | SysUtils, Classes, uib; 12 | 13 | type 14 | TMainForm = class(TForm) 15 | Image: TImage; 16 | LoadImage: TButton; 17 | SaveImage: TButton; 18 | DataBase: TUIBDataBase; 19 | Transaction: TUIBTransaction; 20 | Query: TUIBQuery; 21 | OpenDialog: TOpenDialog; 22 | procedure LoadImageClick(Sender: TObject); 23 | procedure SaveImageClick(Sender: TObject); 24 | private 25 | { Private declarations } 26 | public 27 | { Public declarations } 28 | end; 29 | 30 | var 31 | MainForm: TMainForm; 32 | 33 | implementation 34 | 35 | uses Math; 36 | 37 | {$R *.dfm} 38 | 39 | procedure TMainForm.LoadImageClick(Sender: TObject); 40 | var 41 | Stream: TMemoryStream; 42 | begin 43 | Query.SQL.Text := 'Select Stream from TBLOB'; 44 | Query.Params.Clear; 45 | Query.Open; 46 | Stream := TMemoryStream.Create; 47 | try 48 | Query.ReadBlob('STREAM', Stream); 49 | Image.Picture.Bitmap.LoadFromStream(Stream); 50 | finally 51 | Stream.Free; 52 | end; 53 | Query.Close(etmCommit); 54 | end; 55 | 56 | procedure TMainForm.SaveImageClick(Sender: TObject); 57 | var Stream: TFileStream; 58 | begin 59 | If OpenDialog.Execute then 60 | begin 61 | Stream := TFileStream.Create(OpenDialog.FileName, fmOpenRead); 62 | try 63 | Query.SQL.Text := 'UPDATE TBLOB SET STREAM = :blob'; 64 | Query.ParamsSetBlob('blob', Stream); 65 | Query.ExecSQL; 66 | finally 67 | Stream.Free; 68 | end; 69 | Query.Close(etmCommit); 70 | end; 71 | end; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/UIBBCB12Win32.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {F66FF6D1-6015-442A-B333-894D91954F60} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | --------------------------------------------------------------------------------