moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-14 05:15:16 -05:00
Code Issues Releases Wiki Activity
6799faca66
Simba/Units/PascalScript/uPSI_IBX.pas

2154 lines
100 KiB
ObjectPascal
Raw Normal View History

Branching into script-component to work on adding more script components (e.g. cpascal) git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@465 3f818213-9676-44b0-a9b4-5e4c4e03d09d
2010-01-25 08:59:44 -05:00
unit uPSI_IBX;
{
This file has been generated by UnitParser v0.4, written by M. Knight.
Source Code from Carlo Kok has been used to implement various sections of
UnitParser. Components of ifps3 are used in the construction of UnitParser,
code implementing the class wrapper is taken from Carlo Kok''s conv unility
}
interface
uses
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
type
TPSImport_IBX = class(TPSPlugin)
protected
procedure CompOnUses(CompExec: TPSScript); override;
procedure ExecOnUses(CompExec: TPSScript); override;
procedure CompileImport1(CompExec: TPSScript); override;
procedure CompileImport2(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
end;
implementation
uses
WINDOWS
,CONTROLS
,IBEXTERNALS
,IB
,IBDatabase
,IBHEADER
,STDVCL
,IBSQL
,DB
,IBUTILS
,IBBLOB
,IBCustomDataSet
,IBTable
,IBQuery
;
(* === compile-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBDATASET(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBCUSTOMDATASET', 'TIBDATASET') do
with CL.AddClassN(CL.FindClass('TIBCUSTOMDATASET'),'TIBDATASET') do
begin
RegisterMethod('Procedure PREPARE');
RegisterMethod('Procedure UNPREPARE');
RegisterMethod('Procedure BATCHINPUT( INPUTOBJECT : TIBBATCHINPUT)');
RegisterMethod('Procedure BATCHOUTPUT( OUTPUTOBJECT : TIBBATCHOUTPUT)');
RegisterMethod('Procedure EXECSQL');
RegisterMethod('Function PARAMBYNAME( IDX : STRING) : TIBXSQLVAR');
RegisterProperty('PREPARED', 'BOOLEAN', iptr);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBCUSTOMDATASET(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TDATASET', 'TIBCUSTOMDATASET') do
with CL.AddClassN(CL.FindClass('TDATASET'),'TIBCUSTOMDATASET') do
begin
RegisterMethod('Procedure APPLYUPDATES');
RegisterMethod('Function CACHEDUPDATESTATUS : TCACHEDUPDATESTATUS');
RegisterMethod('Procedure CANCELUPDATES');
RegisterMethod('Procedure FETCHALL');
RegisterMethod('Function LOCATENEXT( const KEYFIELDS : STRING; const KEYVALUES : VARIANT; OPTIONS : TLOCATEOPTIONS) : BOOLEAN');
// RegisterMethod('Function LOCATE( const KEYFIELDS : STRING; const KEYVALUES : VARIANT; OPTIONS : TLOCATEOPTIONS) : BOOLEAN');
RegisterMethod('Procedure RECORDMODIFIED( VALUE : BOOLEAN)');
RegisterMethod('Procedure REVERTRECORD');
RegisterMethod('Procedure UNDELETE');
RegisterMethod('Function CURRENT : TIBXSQLDA');
RegisterMethod('Function SQLTYPE : TIBSQLTYPES');
RegisterProperty('DBHANDLE', 'PISC_DB_HANDLE', iptr);
RegisterProperty('TRHANDLE', 'PISC_TR_HANDLE', iptr);
RegisterProperty('UPDATEOBJECT', 'TIBDATASETUPDATEOBJECT', iptrw);
RegisterProperty('UPDATESPENDING', 'BOOLEAN', iptr);
RegisterProperty('UPDATERECORDTYPES', 'TIBUPDATERECORDTYPES', iptrw);
RegisterProperty('ROWSAFFECTED', 'INTEGER', iptr);
RegisterProperty('PLAN', 'STRING', iptr);
RegisterProperty('DATABASE', 'TIBDATABASE', iptrw);
RegisterProperty('TRANSACTION', 'TIBTRANSACTION', iptrw);
RegisterProperty('FORCEDREFRESH', 'BOOLEAN', iptrw);
RegisterProperty('ONUPDATEERROR', 'TIBUPDATEERROREVENT', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBGENERATORFIELD(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TPERSISTENT', 'TIBGENERATORFIELD') do
with CL.AddClassN(CL.FindClass('TPERSISTENT'),'TIBGENERATORFIELD') do
begin
RegisterMethod('Constructor CREATE( ADATASET : TIBCUSTOMDATASET)');
RegisterMethod('Function VALUENAME : STRING');
RegisterMethod('Procedure APPLY');
RegisterProperty('FIELD', 'STRING', iptrw);
RegisterProperty('GENERATOR', 'STRING', iptrw);
RegisterProperty('INCREMENTBY', 'INTEGER', iptrw);
RegisterProperty('APPLYEVENT', 'TIBGENERATORAPPLYEVENT', iptrw);
end;
end;
(* === compile-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBBASE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBBASE') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBBASE') do
begin
RegisterMethod('Constructor CREATE( AOWNER : TOBJECT)');
RegisterMethod('Procedure CHECKDATABASE');
RegisterMethod('Procedure CHECKTRANSACTION');
RegisterProperty('BEFOREDATABASEDISCONNECT', 'TNOTIFYEVENT', iptrw);
RegisterProperty('AFTERDATABASEDISCONNECT', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDATABASEFREE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('BEFORETRANSACTIONEND', 'TNOTIFYEVENT', iptrw);
RegisterProperty('AFTERTRANSACTIONEND', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONTRANSACTIONFREE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('DATABASE', 'TIBDATABASE', iptrw);
RegisterProperty('DBHANDLE', 'PISC_DB_HANDLE', iptr);
RegisterProperty('OWNER', 'TOBJECT', iptr);
RegisterProperty('TRHANDLE', 'PISC_TR_HANDLE', iptr);
RegisterProperty('TRANSACTION', 'TIBTRANSACTION', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBTRANSACTION(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TCOMPONENT', 'TIBTRANSACTION') do
with CL.AddClassN(CL.FindClass('TCOMPONENT'),'TIBTRANSACTION') do
begin
RegisterMethod('Function CALL( ERRCODE : ISC_STATUS; RAISEERROR : BOOLEAN) : ISC_STATUS');
RegisterMethod('Procedure COMMIT');
RegisterMethod('Procedure COMMITRETAINING');
RegisterMethod('Procedure ROLLBACK');
RegisterMethod('Procedure ROLLBACKRETAINING');
RegisterMethod('Procedure STARTTRANSACTION');
RegisterMethod('Procedure CHECKINTRANSACTION');
RegisterMethod('Procedure CHECKNOTINTRANSACTION');
RegisterMethod('Procedure CHECKAUTOSTOP');
RegisterMethod('Function ADDDATABASE( DB : TIBDATABASE) : INTEGER');
RegisterMethod('Function FINDDATABASE( DB : TIBDATABASE) : INTEGER');
RegisterMethod('Function FINDDEFAULTDATABASE : TIBDATABASE');
RegisterMethod('Procedure REMOVEDATABASE( IDX : INTEGER)');
RegisterMethod('Procedure REMOVEDATABASES');
RegisterMethod('Procedure CHECKDATABASESINLIST');
RegisterProperty('DATABASECOUNT', 'INTEGER', iptr);
RegisterProperty('DATABASES', 'TIBDATABASE INTEGER', iptr);
RegisterProperty('SQLOBJECTCOUNT', 'INTEGER', iptr);
RegisterProperty('SQLOBJECTS', 'TIBBASE INTEGER', iptr);
RegisterProperty('HANDLE', 'TISC_TR_HANDLE', iptr);
RegisterProperty('HANDLEISSHARED', 'BOOLEAN', iptr);
RegisterProperty('INTRANSACTION', 'BOOLEAN', iptr);
RegisterProperty('TPB', 'PCHAR', iptr);
RegisterProperty('TPBLENGTH', 'SHORT', iptr);
RegisterProperty('ACTIVE', 'BOOLEAN', iptrw);
RegisterProperty('DEFAULTDATABASE', 'TIBDATABASE', iptrw);
RegisterProperty('IDLETIMER', 'INTEGER', iptrw);
RegisterProperty('DEFAULTACTION', 'TTRANSACTIONACTION', iptrw);
RegisterProperty('PARAMS', 'TSTRINGS', iptrw);
RegisterProperty('AUTOSTOPACTION', 'TAUTOSTOPACTION', iptrw);
RegisterProperty('ONIDLETIMER', 'TNOTIFYEVENT', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBDATABASE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TCUSTOMCONNECTION', 'TIBDATABASE') do
with CL.AddClassN(CL.FindClass('TCUSTOMCONNECTION'),'TIBDATABASE') do
begin
RegisterMethod('Procedure ADDEVENTNOTIFIER( NOTIFIER : IIBEVENTNOTIFIER)');
RegisterMethod('Procedure REMOVEEVENTNOTIFIER( NOTIFIER : IIBEVENTNOTIFIER)');
RegisterMethod('Procedure APPLYUPDATES( const DATASETS : array of TDATASET)');
RegisterMethod('Procedure CLOSEDATASETS');
RegisterMethod('Procedure CHECKACTIVE');
RegisterMethod('Procedure CHECKINACTIVE');
RegisterMethod('Procedure CREATEDATABASE');
RegisterMethod('Procedure DROPDATABASE');
RegisterMethod('Procedure FORCECLOSE');
RegisterMethod('Procedure GETFIELDNAMES( const TABLENAME : STRING; LIST : TSTRINGS)');
RegisterMethod('Procedure GETTABLENAMES( LIST : TSTRINGS; SYSTEMTABLES : BOOLEAN)');
RegisterMethod('Function INDEXOFDBCONST( ST : STRING) : INTEGER');
RegisterMethod('Function TESTCONNECTED : BOOLEAN');
RegisterMethod('Procedure CHECKDATABASENAME');
RegisterMethod('Function CALL( ERRCODE : ISC_STATUS; RAISEERROR : BOOLEAN) : ISC_STATUS');
RegisterMethod('Function ADDTRANSACTION( TR : TIBTRANSACTION) : INTEGER');
RegisterMethod('Function FINDTRANSACTION( TR : TIBTRANSACTION) : INTEGER');
RegisterMethod('Function FINDDEFAULTTRANSACTION( ) : TIBTRANSACTION');
RegisterMethod('Procedure REMOVETRANSACTION( IDX : INTEGER)');
RegisterMethod('Procedure REMOVETRANSACTIONS');
RegisterMethod('Procedure SETHANDLE( VALUE : TISC_DB_HANDLE)');
RegisterMethod('procedure Open');
RegisterMethod('procedure Close');
RegisterProperty('Connected','BOOLEAN',iptrw);
RegisterProperty('HANDLE', 'TISC_DB_HANDLE', iptr);
RegisterProperty('ISREADONLY', 'BOOLEAN', iptr);
RegisterProperty('DBPARAMBYDPB', 'STRING INTEGER', iptrw);
RegisterProperty('SQLOBJECTCOUNT', 'INTEGER', iptr);
RegisterProperty('SQLOBJECTS', 'TIBBASE INTEGER', iptr);
RegisterProperty('HANDLEISSHARED', 'BOOLEAN', iptr);
RegisterProperty('TRANSACTIONCOUNT', 'INTEGER', iptr);
RegisterProperty('TRANSACTIONS', 'TIBTRANSACTION INTEGER', iptr);
RegisterProperty('INTERNALTRANSACTION', 'TIBTRANSACTION', iptr);
RegisterMethod('Function HAS_DEFAULT_VALUE( RELATION, FIELD : STRING) : BOOLEAN');
RegisterMethod('Function HAS_COMPUTED_BLR( RELATION, FIELD : STRING) : BOOLEAN');
RegisterMethod('Procedure FLUSHSCHEMA');
RegisterProperty('DATABASENAME', 'TIBFILENAME', iptrw);
RegisterProperty('PARAMS', 'TSTRINGS', iptrw);
RegisterProperty('DEFAULTTRANSACTION', 'TIBTRANSACTION', iptrw);
RegisterProperty('IDLETIMER', 'INTEGER', iptrw);
RegisterProperty('SQLDIALECT', 'INTEGER', iptrw);
RegisterProperty('DBSQLDIALECT', 'INTEGER', iptr);
RegisterProperty('TRACEFLAGS', 'TTRACEFLAGS', iptrw);
RegisterProperty('ALLOWSTREAMEDCONNECTED', 'BOOLEAN', iptrw);
RegisterProperty('ONLOGIN', 'TIBDATABASELOGINEVENT', iptrw);
RegisterProperty('ONIDLETIMER', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDIALECTDOWNGRADEWARNING', 'TNOTIFYEVENT', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBSCHEMA(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBSCHEMA') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBSCHEMA') do
begin
RegisterMethod('Procedure FREENODES');
RegisterMethod('Function HAS_DEFAULT_VALUE( RELATION, FIELD : STRING) : BOOLEAN');
RegisterMethod('Function HAS_COMPUTED_BLR( RELATION, FIELD : STRING) : BOOLEAN');
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IBDatabase(CL: TPSPascalCompiler);
begin
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBDATABASE');
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBTRANSACTION');
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBBASE');
CL.AddTypeS('TIBDATABASELOGINEVENT', 'Procedure ( DATABASE : TIBDATABASE; LOG'
+'INPARAMS : TSTRINGS)');
SIRegister_TIBSCHEMA(CL);
CL.AddTypeS('TIBFILENAME', 'STRING');
SIRegister_TIBDATABASE(CL);
CL.AddTypeS('TTRANSACTIONACTION', '( TAROLLBACK, TACOMMIT, TAROLLBACKRETAININ'
+'G, TACOMMITRETAINING )');
CL.AddTypeS('TAUTOSTOPACTION', '( SANONE, SAROLLBACK, SACOMMIT, SAROLLBACKRET'
+'AINING, SACOMMITRETAINING )');
SIRegister_TIBTRANSACTION(CL);
SIRegister_TIBBASE(CL);
end;
(* === run-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure TIBBASETRANSACTION_W(Self: TIBBASE; const T: TIBTRANSACTION);
begin Self.TRANSACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASETRANSACTION_R(Self: TIBBASE; var T: TIBTRANSACTION);
begin T := Self.TRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASETRHANDLE_R(Self: TIBBASE; var T: PISC_TR_HANDLE);
begin T := Self.TRHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEOWNER_R(Self: TIBBASE; var T: TOBJECT);
begin T := Self.OWNER; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEDBHANDLE_R(Self: TIBBASE; var T: PISC_DB_HANDLE);
begin T := Self.DBHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEDATABASE_W(Self: TIBBASE; const T: TIBDATABASE);
begin Self.DATABASE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEDATABASE_R(Self: TIBBASE; var T: TIBDATABASE);
begin T := Self.DATABASE; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEONTRANSACTIONFREE_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.ONTRANSACTIONFREE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEONTRANSACTIONFREE_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.ONTRANSACTIONFREE; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEAFTERTRANSACTIONEND_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.AFTERTRANSACTIONEND := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEAFTERTRANSACTIONEND_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.AFTERTRANSACTIONEND; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEBEFORETRANSACTIONEND_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.BEFORETRANSACTIONEND := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEBEFORETRANSACTIONEND_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.BEFORETRANSACTIONEND; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEONDATABASEFREE_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.ONDATABASEFREE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEONDATABASEFREE_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.ONDATABASEFREE; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEAFTERDATABASEDISCONNECT_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.AFTERDATABASEDISCONNECT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEAFTERDATABASEDISCONNECT_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.AFTERDATABASEDISCONNECT; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEBEFOREDATABASEDISCONNECT_W(Self: TIBBASE; const T: TNOTIFYEVENT);
begin Self.BEFOREDATABASEDISCONNECT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBBASEBEFOREDATABASEDISCONNECT_R(Self: TIBBASE; var T: TNOTIFYEVENT);
begin T := Self.BEFOREDATABASEDISCONNECT; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONONIDLETIMER_W(Self: TIBTRANSACTION; const T: TNOTIFYEVENT);
begin Self.ONIDLETIMER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONONIDLETIMER_R(Self: TIBTRANSACTION; var T: TNOTIFYEVENT);
begin T := Self.ONIDLETIMER; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONAUTOSTOPACTION_W(Self: TIBTRANSACTION; const T: TAUTOSTOPACTION);
begin Self.AUTOSTOPACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONAUTOSTOPACTION_R(Self: TIBTRANSACTION; var T: TAUTOSTOPACTION);
begin T := Self.AUTOSTOPACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONPARAMS_W(Self: TIBTRANSACTION; const T: TSTRINGS);
begin Self.PARAMS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONPARAMS_R(Self: TIBTRANSACTION; var T: TSTRINGS);
begin T := Self.PARAMS; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDEFAULTACTION_W(Self: TIBTRANSACTION; const T: TTRANSACTIONACTION);
begin Self.DEFAULTACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDEFAULTACTION_R(Self: TIBTRANSACTION; var T: TTRANSACTIONACTION);
begin T := Self.DEFAULTACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONIDLETIMER_W(Self: TIBTRANSACTION; const T: INTEGER);
begin Self.IDLETIMER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONIDLETIMER_R(Self: TIBTRANSACTION; var T: INTEGER);
begin T := Self.IDLETIMER; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDEFAULTDATABASE_W(Self: TIBTRANSACTION; const T: TIBDATABASE);
begin Self.DEFAULTDATABASE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDEFAULTDATABASE_R(Self: TIBTRANSACTION; var T: TIBDATABASE);
begin T := Self.DEFAULTDATABASE; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONACTIVE_W(Self: TIBTRANSACTION; const T: BOOLEAN);
begin Self.ACTIVE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONACTIVE_R(Self: TIBTRANSACTION; var T: BOOLEAN);
begin T := Self.ACTIVE; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONTPBLENGTH_R(Self: TIBTRANSACTION; var T: SHORT);
begin T := Self.TPBLENGTH; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONTPB_R(Self: TIBTRANSACTION; var T: PCHAR);
begin T := Self.TPB; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONINTRANSACTION_R(Self: TIBTRANSACTION; var T: BOOLEAN);
begin T := Self.INTRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONHANDLEISSHARED_R(Self: TIBTRANSACTION; var T: BOOLEAN);
begin T := Self.HANDLEISSHARED; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONHANDLE_R(Self: TIBTRANSACTION; var T: TISC_TR_HANDLE);
begin T := Self.HANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONSQLOBJECTS_R(Self: TIBTRANSACTION; var T: TIBBASE; const t1: INTEGER);
begin T := Self.SQLOBJECTS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONSQLOBJECTCOUNT_R(Self: TIBTRANSACTION; var T: INTEGER);
begin T := Self.SQLOBJECTCOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDATABASES_R(Self: TIBTRANSACTION; var T: TIBDATABASE; const t1: INTEGER);
begin T := Self.DATABASES[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBTRANSACTIONDATABASECOUNT_R(Self: TIBTRANSACTION; var T: INTEGER);
begin T := Self.DATABASECOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONDIALECTDOWNGRADEWARNING_W(Self: TIBDATABASE; const T: TNOTIFYEVENT);
begin Self.ONDIALECTDOWNGRADEWARNING := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONDIALECTDOWNGRADEWARNING_R(Self: TIBDATABASE; var T: TNOTIFYEVENT);
begin T := Self.ONDIALECTDOWNGRADEWARNING; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONIDLETIMER_W(Self: TIBDATABASE; const T: TNOTIFYEVENT);
begin Self.ONIDLETIMER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONIDLETIMER_R(Self: TIBDATABASE; var T: TNOTIFYEVENT);
begin T := Self.ONIDLETIMER; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONLOGIN_W(Self: TIBDATABASE; const T: TIBDATABASELOGINEVENT);
begin Self.ONLOGIN := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEONLOGIN_R(Self: TIBDATABASE; var T: TIBDATABASELOGINEVENT);
begin T := Self.ONLOGIN; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASECONNECTED_W(Self: TIBDATABASE; const T: Boolean);
begin Self.Connected := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASECONNECTED_R(Self: TIBDATABASE; var T: Boolean);
begin T := Self.Connected; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEALLOWSTREAMEDCONNECTED_W(Self: TIBDATABASE; const T: BOOLEAN);
begin Self.ALLOWSTREAMEDCONNECTED := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEALLOWSTREAMEDCONNECTED_R(Self: TIBDATABASE; var T: BOOLEAN);
begin T := Self.ALLOWSTREAMEDCONNECTED; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASETRACEFLAGS_W(Self: TIBDATABASE; const T: TTRACEFLAGS);
begin Self.TRACEFLAGS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASETRACEFLAGS_R(Self: TIBDATABASE; var T: TTRACEFLAGS);
begin T := Self.TRACEFLAGS; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDBSQLDIALECT_R(Self: TIBDATABASE; var T: INTEGER);
begin T := Self.DBSQLDIALECT; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASESQLDIALECT_W(Self: TIBDATABASE; const T: INTEGER);
begin Self.SQLDIALECT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASESQLDIALECT_R(Self: TIBDATABASE; var T: INTEGER);
begin T := Self.SQLDIALECT; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEIDLETIMER_W(Self: TIBDATABASE; const T: INTEGER);
begin Self.IDLETIMER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEIDLETIMER_R(Self: TIBDATABASE; var T: INTEGER);
begin T := Self.IDLETIMER; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDEFAULTTRANSACTION_W(Self: TIBDATABASE; const T: TIBTRANSACTION);
begin Self.DEFAULTTRANSACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDEFAULTTRANSACTION_R(Self: TIBDATABASE; var T: TIBTRANSACTION);
begin T := Self.DEFAULTTRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEPARAMS_W(Self: TIBDATABASE; const T: TSTRINGS);
begin Self.PARAMS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEPARAMS_R(Self: TIBDATABASE; var T: TSTRINGS);
begin T := Self.PARAMS; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDATABASENAME_W(Self: TIBDATABASE; const T: TIBFILENAME);
begin Self.DATABASENAME := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDATABASENAME_R(Self: TIBDATABASE; var T: TIBFILENAME);
begin T := Self.DATABASENAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEINTERNALTRANSACTION_R(Self: TIBDATABASE; var T: TIBTRANSACTION);
begin T := Self.INTERNALTRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASETRANSACTIONS_R(Self: TIBDATABASE; var T: TIBTRANSACTION; const t1: INTEGER);
begin T := Self.TRANSACTIONS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASETRANSACTIONCOUNT_R(Self: TIBDATABASE; var T: INTEGER);
begin T := Self.TRANSACTIONCOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEHANDLEISSHARED_R(Self: TIBDATABASE; var T: BOOLEAN);
begin T := Self.HANDLEISSHARED; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASESQLOBJECTS_R(Self: TIBDATABASE; var T: TIBBASE; const t1: INTEGER);
begin T := Self.SQLOBJECTS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASESQLOBJECTCOUNT_R(Self: TIBDATABASE; var T: INTEGER);
begin T := Self.SQLOBJECTCOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDBPARAMBYDPB_W(Self: TIBDATABASE; const T: STRING; const t1: INTEGER);
begin Self.DBPARAMBYDPB[t1] := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEDBPARAMBYDPB_R(Self: TIBDATABASE; var T: STRING; const t1: INTEGER);
begin T := Self.DBPARAMBYDPB[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEISREADONLY_R(Self: TIBDATABASE; var T: BOOLEAN);
begin T := Self.ISREADONLY; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATABASEHANDLE_R(Self: TIBDATABASE; var T: TISC_DB_HANDLE);
begin T := Self.HANDLE; end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBDATALINK(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TDETAILDATALINK', 'TIBDATALINK') do
with CL.AddClassN(CL.FindClass('TDETAILDATALINK'),'TIBDATALINK') do
begin
RegisterMethod('Constructor CREATE( ADATASET : TIBCUSTOMDATASET)');
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBBCDFIELD(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TBCDFIELD', 'TIBBCDFIELD') do
with CL.AddClassN(CL.FindClass('TBCDFIELD'),'TIBBCDFIELD') do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBSTRINGFIELD(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TSTRINGFIELD', 'TIBSTRINGFIELD') do
with CL.AddClassN(CL.FindClass('TSTRINGFIELD'),'TIBSTRINGFIELD') do
begin
RegisterMethod('Function GETVALUE( var VALUE : STRING) : BOOLEAN');
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBDATASETUPDATEOBJECT(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TCOMPONENT', 'TIBDATASETUPDATEOBJECT') do
with CL.AddClassN(CL.FindClass('TCOMPONENT'),'TIBDATASETUPDATEOBJECT') do
begin
RegisterProperty('REFRESHSQL', 'TSTRINGS', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IBCustomDataSet(CL: TPSPascalCompiler);
begin
CL.AddConstantN('BUFFERCACHESIZE','LONGINT').SetInt( 1000);
CL.AddConstantN('UNICACHE','LONGINT').SetInt( 2);
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBCUSTOMDATASET');
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBDATASET');
SIRegister_TIBDATASETUPDATEOBJECT(CL);
CL.AddTypeS('TCACHEDUPDATESTATUS', '( CUSUNMODIFIED, CUSMODIFIED, CUSINSERTED'
+', CUSDELETED, CUSUNINSERTED )');
SIRegister_TIBSTRINGFIELD(CL);
SIRegister_TIBBCDFIELD(CL);
SIRegister_TIBDATALINK(CL);
CL.AddTypeS('TIBGENERATORAPPLYEVENT', '( GAMONNEWRECORD, GAMONPOST, GAMONSERV'
+'ER )');
SIRegister_TIBGENERATORFIELD(CL);
CL.AddTypeS('TIBUPDATEACTION', '( UAFAIL, UAABORT, UASKIP, UARETRY, UAAPPLY, '
+'UAAPPLIED )');
CL.AddTypeS('TIBUPDATERECORDTYPES', 'set of TCACHEDUPDATESTATUS');
CL.AddTypeS('TLIVEMODE', '( LMINSERT, LMMODIFY, LMDELETE, LMREFRESH )');
CL.AddTypeS('TLIVEMODES', 'set of TLIVEMODE');
SIRegister_TIBCUSTOMDATASET(CL);
SIRegister_TIBDATASET(CL);
end;
(* === run-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure TIBDATASETPREPARED_R(Self: TIBDATASET; var T: BOOLEAN);
begin T := Self.PREPARED; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETFORCEDREFRESH_W(Self: TIBCUSTOMDATASET; const T: BOOLEAN);
begin Self.FORCEDREFRESH := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETFORCEDREFRESH_R(Self: TIBCUSTOMDATASET; var T: BOOLEAN);
begin T := Self.FORCEDREFRESH; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETTRANSACTION_W(Self: TIBCUSTOMDATASET; const T: TIBTRANSACTION);
begin Self.TRANSACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETTRANSACTION_R(Self: TIBCUSTOMDATASET; var T: TIBTRANSACTION);
begin T := Self.TRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETDATABASE_W(Self: TIBCUSTOMDATASET; const T: TIBDATABASE);
begin Self.DATABASE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETDATABASE_R(Self: TIBCUSTOMDATASET; var T: TIBDATABASE);
begin T := Self.DATABASE; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETPLAN_R(Self: TIBCUSTOMDATASET; var T: STRING);
begin T := Self.PLAN; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETROWSAFFECTED_R(Self: TIBCUSTOMDATASET; var T: INTEGER);
begin T := Self.ROWSAFFECTED; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETUPDATERECORDTYPES_W(Self: TIBCUSTOMDATASET; const T: TIBUPDATERECORDTYPES);
begin Self.UPDATERECORDTYPES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETUPDATERECORDTYPES_R(Self: TIBCUSTOMDATASET; var T: TIBUPDATERECORDTYPES);
begin T := Self.UPDATERECORDTYPES; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETUPDATESPENDING_R(Self: TIBCUSTOMDATASET; var T: BOOLEAN);
begin T := Self.UPDATESPENDING; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETUPDATEOBJECT_W(Self: TIBCUSTOMDATASET; const T: TIBDATASETUPDATEOBJECT);
begin Self.UPDATEOBJECT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETUPDATEOBJECT_R(Self: TIBCUSTOMDATASET; var T: TIBDATASETUPDATEOBJECT);
begin T := Self.UPDATEOBJECT; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETTRHANDLE_R(Self: TIBCUSTOMDATASET; var T: PISC_TR_HANDLE);
begin T := Self.TRHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBCUSTOMDATASETDBHANDLE_R(Self: TIBCUSTOMDATASET; var T: PISC_DB_HANDLE);
begin T := Self.DBHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDAPPLYEVENT_W(Self: TIBGENERATORFIELD; const T: TIBGENERATORAPPLYEVENT);
begin Self.APPLYEVENT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDAPPLYEVENT_R(Self: TIBGENERATORFIELD; var T: TIBGENERATORAPPLYEVENT);
begin T := Self.APPLYEVENT; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDINCREMENTBY_W(Self: TIBGENERATORFIELD; const T: INTEGER);
begin Self.INCREMENTBY := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDINCREMENTBY_R(Self: TIBGENERATORFIELD; var T: INTEGER);
begin T := Self.INCREMENTBY; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDGENERATOR_W(Self: TIBGENERATORFIELD; const T: STRING);
begin Self.GENERATOR := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDGENERATOR_R(Self: TIBGENERATORFIELD; var T: STRING);
begin T := Self.GENERATOR; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDFIELD_W(Self: TIBGENERATORFIELD; const T: STRING);
begin Self.FIELD := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBGENERATORFIELDFIELD_R(Self: TIBGENERATORFIELD; var T: STRING);
begin T := Self.FIELD; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATASETUPDATEOBJECTREFRESHSQL_W(Self: TIBDATASETUPDATEOBJECT; const T: TSTRINGS);
begin Self.REFRESHSQL := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBDATASETUPDATEOBJECTREFRESHSQL_R(Self: TIBDATASETUPDATEOBJECT; var T: TSTRINGS);
begin T := Self.REFRESHSQL; end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBDATASET(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBDATASET) do
begin
RegisterMethod(@TIBDATASET.PREPARE, 'PREPARE');
RegisterMethod(@TIBDATASET.UNPREPARE, 'UNPREPARE');
RegisterMethod(@TIBDATASET.BATCHINPUT, 'BATCHINPUT');
RegisterMethod(@TIBDATASET.BATCHOUTPUT, 'BATCHOUTPUT');
RegisterMethod(@TIBDATASET.EXECSQL, 'EXECSQL');
RegisterMethod(@TIBDATASET.PARAMBYNAME, 'PARAMBYNAME');
RegisterPropertyHelper(@TIBDATASETPREPARED_R,nil,'PREPARED');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBCUSTOMDATASET(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBCUSTOMDATASET) do
begin
RegisterMethod(@TIBCUSTOMDATASET.APPLYUPDATES, 'APPLYUPDATES');
RegisterMethod(@TIBCUSTOMDATASET.CACHEDUPDATESTATUS, 'CACHEDUPDATESTATUS');
RegisterMethod(@TIBCUSTOMDATASET.CANCELUPDATES, 'CANCELUPDATES');
RegisterMethod(@TIBCUSTOMDATASET.FETCHALL, 'FETCHALL');
RegisterMethod(@TIBCUSTOMDATASET.LOCATENEXT, 'LOCATENEXT');
// RegisterMethod(@TIBCUSTOMDATASET.LOCATE, 'LOCATE');
RegisterMethod(@TIBCUSTOMDATASET.RECORDMODIFIED, 'RECORDMODIFIED');
RegisterMethod(@TIBCUSTOMDATASET.REVERTRECORD, 'REVERTRECORD');
RegisterMethod(@TIBCUSTOMDATASET.UNDELETE, 'UNDELETE');
RegisterMethod(@TIBCUSTOMDATASET.CURRENT, 'CURRENT');
RegisterMethod(@TIBCUSTOMDATASET.SQLTYPE, 'SQLTYPE');
RegisterPropertyHelper(@TIBCUSTOMDATASETDBHANDLE_R,nil,'DBHANDLE');
RegisterPropertyHelper(@TIBCUSTOMDATASETTRHANDLE_R,nil,'TRHANDLE');
RegisterPropertyHelper(@TIBCUSTOMDATASETUPDATEOBJECT_R,@TIBCUSTOMDATASETUPDATEOBJECT_W,'UPDATEOBJECT');
RegisterPropertyHelper(@TIBCUSTOMDATASETUPDATESPENDING_R,nil,'UPDATESPENDING');
RegisterPropertyHelper(@TIBCUSTOMDATASETUPDATERECORDTYPES_R,@TIBCUSTOMDATASETUPDATERECORDTYPES_W,'UPDATERECORDTYPES');
RegisterPropertyHelper(@TIBCUSTOMDATASETROWSAFFECTED_R,nil,'ROWSAFFECTED');
RegisterPropertyHelper(@TIBCUSTOMDATASETPLAN_R,nil,'PLAN');
RegisterPropertyHelper(@TIBCUSTOMDATASETDATABASE_R,@TIBCUSTOMDATASETDATABASE_W,'DATABASE');
RegisterPropertyHelper(@TIBCUSTOMDATASETTRANSACTION_R,@TIBCUSTOMDATASETTRANSACTION_W,'TRANSACTION');
RegisterPropertyHelper(@TIBCUSTOMDATASETFORCEDREFRESH_R,@TIBCUSTOMDATASETFORCEDREFRESH_W,'FORCEDREFRESH');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBGENERATORFIELD(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBGENERATORFIELD) do
begin
RegisterConstructor(@TIBGENERATORFIELD.CREATE, 'CREATE');
RegisterMethod(@TIBGENERATORFIELD.VALUENAME, 'VALUENAME');
RegisterMethod(@TIBGENERATORFIELD.APPLY, 'APPLY');
RegisterPropertyHelper(@TIBGENERATORFIELDFIELD_R,@TIBGENERATORFIELDFIELD_W,'FIELD');
RegisterPropertyHelper(@TIBGENERATORFIELDGENERATOR_R,@TIBGENERATORFIELDGENERATOR_W,'GENERATOR');
RegisterPropertyHelper(@TIBGENERATORFIELDINCREMENTBY_R,@TIBGENERATORFIELDINCREMENTBY_W,'INCREMENTBY');
RegisterPropertyHelper(@TIBGENERATORFIELDAPPLYEVENT_R,@TIBGENERATORFIELDAPPLYEVENT_W,'APPLYEVENT');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBDATALINK(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBDATALINK) do
begin
RegisterConstructor(@TIBDATALINK.CREATE, 'CREATE');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBBCDFIELD(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBBCDFIELD) do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBSTRINGFIELD(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBSTRINGFIELD) do
begin
RegisterMethod(@TIBSTRINGFIELD.GETVALUE, 'GETVALUE');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBDATASETUPDATEOBJECT(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBDATASETUPDATEOBJECT) do
begin
RegisterPropertyHelper(@TIBDATASETUPDATEOBJECTREFRESHSQL_R,@TIBDATASETUPDATEOBJECTREFRESHSQL_W,'REFRESHSQL');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBCustomDataSet(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBCUSTOMDATASET) do
with CL.Add(TIBDATASET) do
RIRegister_TIBDATASETUPDATEOBJECT(CL);
RIRegister_TIBSTRINGFIELD(CL);
RIRegister_TIBBCDFIELD(CL);
RIRegister_TIBDATALINK(CL);
RIRegister_TIBGENERATORFIELD(CL);
RIRegister_TIBCUSTOMDATASET(CL);
RIRegister_TIBDATASET(CL);
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBBASE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBBASE) do
begin
RegisterConstructor(@TIBBASE.CREATE, 'CREATE');
RegisterVirtualMethod(@TIBBASE.CHECKDATABASE, 'CHECKDATABASE');
RegisterVirtualMethod(@TIBBASE.CHECKTRANSACTION, 'CHECKTRANSACTION');
RegisterPropertyHelper(@TIBBASEBEFOREDATABASEDISCONNECT_R,@TIBBASEBEFOREDATABASEDISCONNECT_W,'BEFOREDATABASEDISCONNECT');
RegisterPropertyHelper(@TIBBASEAFTERDATABASEDISCONNECT_R,@TIBBASEAFTERDATABASEDISCONNECT_W,'AFTERDATABASEDISCONNECT');
RegisterEventPropertyHelper(@TIBBASEONDATABASEFREE_R,@TIBBASEONDATABASEFREE_W,'ONDATABASEFREE');
RegisterPropertyHelper(@TIBBASEBEFORETRANSACTIONEND_R,@TIBBASEBEFORETRANSACTIONEND_W,'BEFORETRANSACTIONEND');
RegisterPropertyHelper(@TIBBASEAFTERTRANSACTIONEND_R,@TIBBASEAFTERTRANSACTIONEND_W,'AFTERTRANSACTIONEND');
RegisterEventPropertyHelper(@TIBBASEONTRANSACTIONFREE_R,@TIBBASEONTRANSACTIONFREE_W,'ONTRANSACTIONFREE');
RegisterPropertyHelper(@TIBBASEDATABASE_R,@TIBBASEDATABASE_W,'DATABASE');
RegisterPropertyHelper(@TIBBASEDBHANDLE_R,nil,'DBHANDLE');
RegisterPropertyHelper(@TIBBASEOWNER_R,nil,'OWNER');
RegisterPropertyHelper(@TIBBASETRHANDLE_R,nil,'TRHANDLE');
RegisterPropertyHelper(@TIBBASETRANSACTION_R,@TIBBASETRANSACTION_W,'TRANSACTION');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBTRANSACTION(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBTRANSACTION) do
begin
RegisterMethod(@TIBTRANSACTION.CALL, 'CALL');
RegisterMethod(@TIBTRANSACTION.COMMIT, 'COMMIT');
RegisterMethod(@TIBTRANSACTION.COMMITRETAINING, 'COMMITRETAINING');
RegisterMethod(@TIBTRANSACTION.ROLLBACK, 'ROLLBACK');
RegisterMethod(@TIBTRANSACTION.ROLLBACKRETAINING, 'ROLLBACKRETAINING');
RegisterMethod(@TIBTRANSACTION.STARTTRANSACTION, 'STARTTRANSACTION');
RegisterMethod(@TIBTRANSACTION.CHECKINTRANSACTION, 'CHECKINTRANSACTION');
RegisterMethod(@TIBTRANSACTION.CHECKNOTINTRANSACTION, 'CHECKNOTINTRANSACTION');
RegisterMethod(@TIBTRANSACTION.CHECKAUTOSTOP, 'CHECKAUTOSTOP');
RegisterMethod(@TIBTRANSACTION.ADDDATABASE, 'ADDDATABASE');
RegisterMethod(@TIBTRANSACTION.FINDDATABASE, 'FINDDATABASE');
RegisterMethod(@TIBTRANSACTION.FINDDEFAULTDATABASE, 'FINDDEFAULTDATABASE');
RegisterMethod(@TIBTRANSACTION.REMOVEDATABASE, 'REMOVEDATABASE');
RegisterMethod(@TIBTRANSACTION.REMOVEDATABASES, 'REMOVEDATABASES');
RegisterMethod(@TIBTRANSACTION.CHECKDATABASESINLIST, 'CHECKDATABASESINLIST');
RegisterPropertyHelper(@TIBTRANSACTIONDATABASECOUNT_R,nil,'DATABASECOUNT');
RegisterPropertyHelper(@TIBTRANSACTIONDATABASES_R,nil,'DATABASES');
RegisterPropertyHelper(@TIBTRANSACTIONSQLOBJECTCOUNT_R,nil,'SQLOBJECTCOUNT');
RegisterPropertyHelper(@TIBTRANSACTIONSQLOBJECTS_R,nil,'SQLOBJECTS');
RegisterPropertyHelper(@TIBTRANSACTIONHANDLE_R,nil,'HANDLE');
RegisterPropertyHelper(@TIBTRANSACTIONHANDLEISSHARED_R,nil,'HANDLEISSHARED');
RegisterPropertyHelper(@TIBTRANSACTIONINTRANSACTION_R,nil,'INTRANSACTION');
RegisterPropertyHelper(@TIBTRANSACTIONTPB_R,nil,'TPB');
RegisterPropertyHelper(@TIBTRANSACTIONTPBLENGTH_R,nil,'TPBLENGTH');
RegisterPropertyHelper(@TIBTRANSACTIONACTIVE_R,@TIBTRANSACTIONACTIVE_W,'ACTIVE');
RegisterPropertyHelper(@TIBTRANSACTIONDEFAULTDATABASE_R,@TIBTRANSACTIONDEFAULTDATABASE_W,'DEFAULTDATABASE');
RegisterPropertyHelper(@TIBTRANSACTIONIDLETIMER_R,@TIBTRANSACTIONIDLETIMER_W,'IDLETIMER');
RegisterPropertyHelper(@TIBTRANSACTIONDEFAULTACTION_R,@TIBTRANSACTIONDEFAULTACTION_W,'DEFAULTACTION');
RegisterPropertyHelper(@TIBTRANSACTIONPARAMS_R,@TIBTRANSACTIONPARAMS_W,'PARAMS');
RegisterPropertyHelper(@TIBTRANSACTIONAUTOSTOPACTION_R,@TIBTRANSACTIONAUTOSTOPACTION_W,'AUTOSTOPACTION');
RegisterEventPropertyHelper(@TIBTRANSACTIONONIDLETIMER_R,@TIBTRANSACTIONONIDLETIMER_W,'ONIDLETIMER');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBDATABASE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBDATABASE) do
begin
RegisterMethod(@TIBDATABASE.ADDEVENTNOTIFIER, 'ADDEVENTNOTIFIER');
RegisterMethod(@TIBDATABASE.REMOVEEVENTNOTIFIER, 'REMOVEEVENTNOTIFIER');
RegisterMethod(@TIBDATABASE.APPLYUPDATES, 'APPLYUPDATES');
RegisterMethod(@TIBDATABASE.CLOSEDATASETS, 'CLOSEDATASETS');
RegisterMethod(@TIBDATABASE.CHECKACTIVE, 'CHECKACTIVE');
RegisterMethod(@TIBDATABASE.CHECKINACTIVE, 'CHECKINACTIVE');
RegisterMethod(@TIBDATABASE.CREATEDATABASE, 'CREATEDATABASE');
RegisterMethod(@TIBDATABASE.DROPDATABASE, 'DROPDATABASE');
RegisterMethod(@TIBDATABASE.FORCECLOSE, 'FORCECLOSE');
RegisterMethod(@TIBDATABASE.GETFIELDNAMES, 'GETFIELDNAMES');
RegisterMethod(@TIBDATABASE.GETTABLENAMES, 'GETTABLENAMES');
RegisterMethod(@TIBDATABASE.INDEXOFDBCONST, 'INDEXOFDBCONST');
RegisterMethod(@TIBDATABASE.TESTCONNECTED, 'TESTCONNECTED');
RegisterMethod(@TIBDATABASE.CHECKDATABASENAME, 'CHECKDATABASENAME');
RegisterMethod(@TIBDATABASE.CALL, 'CALL');
RegisterMethod(@TIBDATABASE.Open, 'OPEN');
RegisterMethod(@TIBDATABASE.Close, 'CLOSE');
RegisterMethod(@TIBDATABASE.ADDTRANSACTION, 'ADDTRANSACTION');
RegisterMethod(@TIBDATABASE.FINDTRANSACTION, 'FINDTRANSACTION');
RegisterMethod(@TIBDATABASE.FINDDEFAULTTRANSACTION, 'FINDDEFAULTTRANSACTION');
RegisterMethod(@TIBDATABASE.REMOVETRANSACTION, 'REMOVETRANSACTION');
RegisterMethod(@TIBDATABASE.REMOVETRANSACTIONS, 'REMOVETRANSACTIONS');
RegisterMethod(@TIBDATABASE.SETHANDLE, 'SETHANDLE');
RegisterPropertyHelper(@TIBDATABASEHANDLE_R,nil,'HANDLE');
RegisterPropertyHelper(@TIBDATABASEISREADONLY_R,nil,'ISREADONLY');
RegisterPropertyHelper(@TIBDATABASEDBPARAMBYDPB_R,@TIBDATABASEDBPARAMBYDPB_W,'DBPARAMBYDPB');
RegisterPropertyHelper(@TIBDATABASESQLOBJECTCOUNT_R,nil,'SQLOBJECTCOUNT');
RegisterPropertyHelper(@TIBDATABASESQLOBJECTS_R,nil,'SQLOBJECTS');
RegisterPropertyHelper(@TIBDATABASEHANDLEISSHARED_R,nil,'HANDLEISSHARED');
RegisterPropertyHelper(@TIBDATABASETRANSACTIONCOUNT_R,nil,'TRANSACTIONCOUNT');
RegisterPropertyHelper(@TIBDATABASETRANSACTIONS_R,nil,'TRANSACTIONS');
RegisterPropertyHelper(@TIBDATABASEINTERNALTRANSACTION_R,nil,'INTERNALTRANSACTION');
RegisterMethod(@TIBDATABASE.HAS_DEFAULT_VALUE, 'HAS_DEFAULT_VALUE');
RegisterMethod(@TIBDATABASE.HAS_COMPUTED_BLR, 'HAS_COMPUTED_BLR');
RegisterMethod(@TIBDATABASE.FLUSHSCHEMA, 'FLUSHSCHEMA');
RegisterPropertyHelper(@TIBDATABASEDATABASENAME_R,@TIBDATABASEDATABASENAME_W,'DATABASENAME');
RegisterPropertyHelper(@TIBDATABASECONNECTED_R,@TIBDATABASECONNECTED_W,'CONNECTED');
RegisterPropertyHelper(@TIBDATABASEPARAMS_R,@TIBDATABASEPARAMS_W,'PARAMS');
RegisterPropertyHelper(@TIBDATABASEDEFAULTTRANSACTION_R,@TIBDATABASEDEFAULTTRANSACTION_W,'DEFAULTTRANSACTION');
RegisterPropertyHelper(@TIBDATABASEIDLETIMER_R,@TIBDATABASEIDLETIMER_W,'IDLETIMER');
RegisterPropertyHelper(@TIBDATABASESQLDIALECT_R,@TIBDATABASESQLDIALECT_W,'SQLDIALECT');
RegisterPropertyHelper(@TIBDATABASEDBSQLDIALECT_R,nil,'DBSQLDIALECT');
RegisterPropertyHelper(@TIBDATABASETRACEFLAGS_R,@TIBDATABASETRACEFLAGS_W,'TRACEFLAGS');
RegisterPropertyHelper(@TIBDATABASEALLOWSTREAMEDCONNECTED_R,@TIBDATABASEALLOWSTREAMEDCONNECTED_W,'ALLOWSTREAMEDCONNECTED');
RegisterEventPropertyHelper(@TIBDATABASEONLOGIN_R,@TIBDATABASEONLOGIN_W,'ONLOGIN');
RegisterEventPropertyHelper(@TIBDATABASEONIDLETIMER_R,@TIBDATABASEONIDLETIMER_W,'ONIDLETIMER');
RegisterEventPropertyHelper(@TIBDATABASEONDIALECTDOWNGRADEWARNING_R,@TIBDATABASEONDIALECTDOWNGRADEWARNING_W,'ONDIALECTDOWNGRADEWARNING');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBDatabase(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBDATABASE) do
with CL.Add(TIBTRANSACTION) do
with CL.Add(TIBBASE) do
RIRegister_TIBDATABASE(CL);
RIRegister_TIBTRANSACTION(CL);
RIRegister_TIBBASE(CL);
end;
(* === compile-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBTABLE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBCUSTOMDATASET', 'TIBTABLE') do
with CL.AddClassN(CL.FindClass('TIBCUSTOMDATASET'),'TIBTABLE') do
begin
RegisterMethod('Procedure ADDINDEX( const NAME, FIELDS : STRING; OPTIONS : TINDEXOPTIONS; const DESCFIELDS : STRING)');
RegisterMethod('Procedure CREATETABLE');
RegisterMethod('Procedure DELETEINDEX( const NAME : STRING)');
RegisterMethod('Procedure DELETETABLE');
RegisterMethod('Procedure EMPTYTABLE');
RegisterMethod('Procedure GETINDEXNAMES( LIST : TSTRINGS)');
RegisterMethod('Procedure GOTOCURRENT( TABLE : TIBTABLE)');
RegisterProperty('CURRENTDBKEY', 'TIBDBKEY', iptr);
RegisterProperty('EXISTS', 'BOOLEAN', iptr);
RegisterProperty('INDEXFIELDCOUNT', 'INTEGER', iptr);
RegisterProperty('INDEXFIELDS', 'TFIELD INTEGER', iptrw);
RegisterProperty('TABLENAMES', 'TSTRINGS', iptr);
RegisterProperty('DEFAULTINDEX', 'BOOLEAN', iptrw);
RegisterProperty('INDEXDEFS', 'TINDEXDEFS', iptrw);
RegisterProperty('INDEXFIELDNAMES', 'STRING', iptrw);
RegisterProperty('INDEXNAME', 'STRING', iptrw);
RegisterProperty('MASTERFIELDS', 'STRING', iptrw);
RegisterProperty('MASTERSOURCE', 'TDATASOURCE', iptrw);
RegisterProperty('READONLY', 'BOOLEAN', iptrw);
RegisterProperty('STOREDEFS', 'BOOLEAN', iptrw);
RegisterProperty('TABLENAME', 'STRING', iptrw);
RegisterProperty('TABLETYPES', 'TIBTABLETYPES', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IBTable(CL: TPSPascalCompiler);
begin
CL.AddTypeS('TIBTABLETYPE', '( TTSYSTEM, TTVIEW )');
CL.AddTypeS('TIBTABLETYPES', 'set of TIBTABLETYPE');
CL.AddTypeS('TINDEXNAME', 'STRING');
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBTABLE');
SIRegister_TIBTABLE(CL);
end;
(* === run-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure TIBTABLETABLETYPES_W(Self: TIBTABLE; const T: TIBTABLETYPES);
begin Self.TABLETYPES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLETABLETYPES_R(Self: TIBTABLE; var T: TIBTABLETYPES);
begin T := Self.TABLETYPES; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLETABLENAME_W(Self: TIBTABLE; const T: STRING);
begin Self.TABLENAME := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLETABLENAME_R(Self: TIBTABLE; var T: STRING);
begin T := Self.TABLENAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLESTOREDEFS_W(Self: TIBTABLE; const T: BOOLEAN);
begin Self.STOREDEFS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLESTOREDEFS_R(Self: TIBTABLE; var T: BOOLEAN);
begin T := Self.STOREDEFS; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEREADONLY_W(Self: TIBTABLE; const T: BOOLEAN);
begin Self.READONLY := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEREADONLY_R(Self: TIBTABLE; var T: BOOLEAN);
begin T := Self.READONLY; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEMASTERSOURCE_W(Self: TIBTABLE; const T: TDATASOURCE);
begin Self.MASTERSOURCE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEMASTERSOURCE_R(Self: TIBTABLE; var T: TDATASOURCE);
begin T := Self.MASTERSOURCE; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEMASTERFIELDS_W(Self: TIBTABLE; const T: STRING);
begin Self.MASTERFIELDS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEMASTERFIELDS_R(Self: TIBTABLE; var T: STRING);
begin T := Self.MASTERFIELDS; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXNAME_W(Self: TIBTABLE; const T: STRING);
begin Self.INDEXNAME := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXNAME_R(Self: TIBTABLE; var T: STRING);
begin T := Self.INDEXNAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXFIELDNAMES_W(Self: TIBTABLE; const T: STRING);
begin Self.INDEXFIELDNAMES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXFIELDNAMES_R(Self: TIBTABLE; var T: STRING);
begin T := Self.INDEXFIELDNAMES; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXDEFS_W(Self: TIBTABLE; const T: TINDEXDEFS);
begin Self.INDEXDEFS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXDEFS_R(Self: TIBTABLE; var T: TINDEXDEFS);
begin T := Self.INDEXDEFS; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEDEFAULTINDEX_W(Self: TIBTABLE; const T: BOOLEAN);
begin Self.DEFAULTINDEX := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEDEFAULTINDEX_R(Self: TIBTABLE; var T: BOOLEAN);
begin T := Self.DEFAULTINDEX; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLETABLENAMES_R(Self: TIBTABLE; var T: TSTRINGS);
begin T := Self.TABLENAMES; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXFIELDS_W(Self: TIBTABLE; const T: TFIELD; const t1: INTEGER);
begin Self.INDEXFIELDS[t1] := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXFIELDS_R(Self: TIBTABLE; var T: TFIELD; const t1: INTEGER);
begin T := Self.INDEXFIELDS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEINDEXFIELDCOUNT_R(Self: TIBTABLE; var T: INTEGER);
begin T := Self.INDEXFIELDCOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLEEXISTS_R(Self: TIBTABLE; var T: BOOLEAN);
begin T := Self.EXISTS; end;
(*----------------------------------------------------------------------------*)
procedure TIBTABLECURRENTDBKEY_R(Self: TIBTABLE; var T: TIBDBKEY);
begin T := Self.CURRENTDBKEY; end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBTABLE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBTABLE) do
begin
RegisterMethod(@TIBTABLE.ADDINDEX, 'ADDINDEX');
RegisterMethod(@TIBTABLE.CREATETABLE, 'CREATETABLE');
RegisterMethod(@TIBTABLE.DELETEINDEX, 'DELETEINDEX');
RegisterMethod(@TIBTABLE.DELETETABLE, 'DELETETABLE');
RegisterMethod(@TIBTABLE.EMPTYTABLE, 'EMPTYTABLE');
RegisterMethod(@TIBTABLE.GETINDEXNAMES, 'GETINDEXNAMES');
RegisterMethod(@TIBTABLE.GOTOCURRENT, 'GOTOCURRENT');
RegisterPropertyHelper(@TIBTABLECURRENTDBKEY_R,nil,'CURRENTDBKEY');
RegisterPropertyHelper(@TIBTABLEEXISTS_R,nil,'EXISTS');
RegisterPropertyHelper(@TIBTABLEINDEXFIELDCOUNT_R,nil,'INDEXFIELDCOUNT');
RegisterPropertyHelper(@TIBTABLEINDEXFIELDS_R,@TIBTABLEINDEXFIELDS_W,'INDEXFIELDS');
RegisterPropertyHelper(@TIBTABLETABLENAMES_R,nil,'TABLENAMES');
RegisterPropertyHelper(@TIBTABLEDEFAULTINDEX_R,@TIBTABLEDEFAULTINDEX_W,'DEFAULTINDEX');
RegisterPropertyHelper(@TIBTABLEINDEXDEFS_R,@TIBTABLEINDEXDEFS_W,'INDEXDEFS');
RegisterPropertyHelper(@TIBTABLEINDEXFIELDNAMES_R,@TIBTABLEINDEXFIELDNAMES_W,'INDEXFIELDNAMES');
RegisterPropertyHelper(@TIBTABLEINDEXNAME_R,@TIBTABLEINDEXNAME_W,'INDEXNAME');
RegisterPropertyHelper(@TIBTABLEMASTERFIELDS_R,@TIBTABLEMASTERFIELDS_W,'MASTERFIELDS');
RegisterPropertyHelper(@TIBTABLEMASTERSOURCE_R,@TIBTABLEMASTERSOURCE_W,'MASTERSOURCE');
RegisterPropertyHelper(@TIBTABLEREADONLY_R,@TIBTABLEREADONLY_W,'READONLY');
RegisterPropertyHelper(@TIBTABLESTOREDEFS_R,@TIBTABLESTOREDEFS_W,'STOREDEFS');
RegisterPropertyHelper(@TIBTABLETABLENAME_R,@TIBTABLETABLENAME_W,'TABLENAME');
RegisterPropertyHelper(@TIBTABLETABLETYPES_R,@TIBTABLETABLETYPES_W,'TABLETYPES');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBTable(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBTABLE) do
RIRegister_TIBTABLE(CL);
end;
(* === compile-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBSQL(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TCOMPONENT', 'TIBSQL') do
with CL.AddClassN(CL.FindClass('TCOMPONENT'),'TIBSQL') do
begin
RegisterMethod('Procedure BATCHINPUT( INPUTOBJECT : TIBBATCHINPUT)');
RegisterMethod('Procedure BATCHOUTPUT( OUTPUTOBJECT : TIBBATCHOUTPUT)');
RegisterMethod('Function CALL( ERRCODE : ISC_STATUS; RAISEERROR : BOOLEAN) : ISC_STATUS');
RegisterMethod('Procedure CHECKCLOSED');
RegisterMethod('Procedure CHECKOPEN');
RegisterMethod('Procedure CHECKVALIDSTATEMENT');
RegisterMethod('Procedure CLOSE');
RegisterMethod('Function CURRENT : TIBXSQLDA');
RegisterMethod('Procedure EXECQUERY');
RegisterMethod('Function FIELDBYNAME( FIELDNAME : STRING) : TIBXSQLVAR');
RegisterMethod('Procedure FREEHANDLE');
RegisterMethod('Function NEXT : TIBXSQLDA');
RegisterMethod('Procedure PREPARE');
RegisterMethod('Function GETUNIQUERELATIONNAME : STRING');
RegisterMethod('Function PARAMBYNAME( IDX : STRING) : TIBXSQLVAR');
RegisterProperty('BOF', 'BOOLEAN', iptr);
RegisterProperty('DBHANDLE', 'PISC_DB_HANDLE', iptr);
RegisterProperty('EOF', 'BOOLEAN', iptr);
RegisterProperty('FIELDS', 'TIBXSQLVAR INTEGER', iptr);
RegisterProperty('FIELDINDEX', 'INTEGER STRING', iptr);
RegisterProperty('OPEN', 'BOOLEAN', iptr);
RegisterProperty('PARAMS', 'TIBXSQLDA', iptr);
RegisterProperty('PLAN', 'STRING', iptr);
RegisterProperty('PREPARED', 'BOOLEAN', iptr);
RegisterProperty('RECORDCOUNT', 'INTEGER', iptr);
RegisterProperty('ROWSAFFECTED', 'INTEGER', iptr);
RegisterProperty('SQLTYPE', 'TIBSQLTYPES', iptr);
RegisterProperty('TRHANDLE', 'PISC_TR_HANDLE', iptr);
RegisterProperty('HANDLE', 'TISC_STMT_HANDLE', iptr);
RegisterProperty('GENERATEPARAMNAMES', 'BOOLEAN', iptrw);
RegisterProperty('UNIQUERELATIONNAME', 'STRING', iptr);
RegisterProperty('DATABASE', 'TIBDATABASE', iptrw);
RegisterProperty('GOTOFIRSTRECORDONEXECUTE', 'BOOLEAN', iptrw);
RegisterProperty('PARAMCHECK', 'BOOLEAN', iptrw);
RegisterProperty('SQL', 'TSTRINGS', iptrw);
RegisterProperty('TRANSACTION', 'TIBTRANSACTION', iptrw);
RegisterProperty('ONSQLCHANGING', 'TNOTIFYEVENT', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBOUTPUTXML(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBOUTPUTXML') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBOUTPUTXML') do
begin
RegisterMethod('Procedure WRITEXML( SQL : TIBSQL)');
RegisterProperty('HEADERTAG', 'STRING', iptrw);
RegisterProperty('DATABASETAG', 'STRING', iptrw);
RegisterProperty('STREAM', 'TSTREAM', iptrw);
RegisterProperty('TABLETAG', 'STRING', iptrw);
RegisterProperty('ROWTAG', 'STRING', iptrw);
RegisterProperty('FLAGS', 'TIBXMLFLAGS', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBINPUTRAWFILE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCHINPUT', 'TIBINPUTRAWFILE') do
with CL.AddClassN(CL.FindClass('TIBBATCHINPUT'),'TIBINPUTRAWFILE') do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBOUTPUTRAWFILE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCHOUTPUT', 'TIBOUTPUTRAWFILE') do
with CL.AddClassN(CL.FindClass('TIBBATCHOUTPUT'),'TIBOUTPUTRAWFILE') do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBINPUTDELIMITEDFILE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCHINPUT', 'TIBINPUTDELIMITEDFILE') do
with CL.AddClassN(CL.FindClass('TIBBATCHINPUT'),'TIBINPUTDELIMITEDFILE') do
begin
RegisterMethod('Function GETCOLUMN( var COL : STRING) : INTEGER');
RegisterProperty('COLDELIMITER', 'STRING', iptrw);
RegisterProperty('READBLANKSASNULL', 'BOOLEAN', iptrw);
RegisterProperty('ROWDELIMITER', 'STRING', iptrw);
RegisterProperty('SKIPTITLES', 'BOOLEAN', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBOUTPUTDELIMITEDFILE(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCHOUTPUT', 'TIBOUTPUTDELIMITEDFILE') do
with CL.AddClassN(CL.FindClass('TIBBATCHOUTPUT'),'TIBOUTPUTDELIMITEDFILE') do
begin
RegisterProperty('COLDELIMITER', 'STRING', iptrw);
RegisterProperty('OUTPUTTITLES', 'BOOLEAN', iptrw);
RegisterProperty('ROWDELIMITER', 'STRING', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBBATCHOUTPUT(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCH', 'TIBBATCHOUTPUT') do
with CL.AddClassN(CL.FindClass('TIBBATCH'),'TIBBATCHOUTPUT') do
begin
RegisterMethod('Function WRITECOLUMNS : BOOLEAN');
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBBATCHINPUT(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBBATCH', 'TIBBATCHINPUT') do
with CL.AddClassN(CL.FindClass('TIBBATCH'),'TIBBATCHINPUT') do
begin
RegisterMethod('Function READPARAMETERS : BOOLEAN');
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBBATCH(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBBATCH') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBBATCH') do
begin
RegisterMethod('Procedure READYFILE');
RegisterProperty('COLUMNS', 'TIBXSQLDA', iptrw);
RegisterProperty('FILENAME', 'STRING', iptrw);
RegisterProperty('PARAMS', 'TIBXSQLDA', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBXSQLDA(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBXSQLDA') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBXSQLDA') do
begin
RegisterMethod('Constructor CREATE( QUERY : TIBSQL)');
RegisterMethod('Procedure ADDNAME( FIELDNAME : STRING; IDX : INTEGER)');
RegisterMethod('Function BYNAME( IDX : STRING) : TIBXSQLVAR');
RegisterProperty('ASXSQLDA', 'PXSQLDA', iptr);
RegisterProperty('COUNT', 'INTEGER', iptrw);
RegisterProperty('MODIFIED', 'BOOLEAN', iptr);
RegisterProperty('NAMES', 'STRING', iptr);
RegisterProperty('RECORDSIZE', 'INTEGER', iptr);
RegisterProperty('VARS', 'TIBXSQLVAR INTEGER', iptr);
SetDefaultPropery('VARS');
RegisterProperty('UNIQUERELATIONNAME', 'STRING', iptr);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBXSQLVAR(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TIBXSQLVAR') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TIBXSQLVAR') do
begin
RegisterMethod('Constructor CREATE( PARENT : TIBXSQLDA; QUERY : TIBSQL)');
RegisterMethod('Procedure ASSIGN( SOURCE : TIBXSQLVAR)');
RegisterMethod('Procedure LOADFROMFILE( const FILENAME : STRING)');
RegisterMethod('Procedure LOADFROMSTREAM( STREAM : TSTREAM)');
RegisterMethod('Procedure SAVETOFILE( const FILENAME : STRING)');
RegisterMethod('Procedure SAVETOSTREAM( STREAM : TSTREAM)');
RegisterMethod('Procedure CLEAR');
RegisterProperty('ASDATE', 'TDATETIME', iptrw);
RegisterProperty('ASTIME', 'TDATETIME', iptrw);
RegisterProperty('ASDATETIME', 'TDATETIME', iptrw);
RegisterProperty('ASDOUBLE', 'DOUBLE', iptrw);
RegisterProperty('ASFLOAT', 'FLOAT', iptrw);
RegisterProperty('ASCURRENCY', 'CURRENCY', iptrw);
RegisterProperty('ASINT64', 'INT64', iptrw);
RegisterProperty('ASINTEGER', 'INTEGER', iptrw);
RegisterProperty('ASLONG', 'LONG', iptrw);
RegisterProperty('ASPOINTER', 'POINTER', iptrw);
RegisterProperty('ASQUAD', 'TISC_QUAD', iptrw);
RegisterProperty('ASSHORT', 'SHORT', iptrw);
RegisterProperty('ASSTRING', 'STRING', iptrw);
RegisterProperty('ASTRIMSTRING', 'STRING', iptrw);
RegisterProperty('ASVARIANT', 'VARIANT', iptrw);
RegisterProperty('ASXSQLVAR', 'PXSQLVAR', iptrw);
RegisterProperty('DATA', 'PXSQLVAR', iptrw);
RegisterProperty('ISNULL', 'BOOLEAN', iptrw);
RegisterProperty('ISNULLABLE', 'BOOLEAN', iptrw);
RegisterProperty('INDEX', 'INTEGER', iptr);
RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
RegisterProperty('NAME', 'STRING', iptr);
RegisterProperty('SIZE', 'INTEGER', iptr);
RegisterProperty('SQLTYPE', 'INTEGER', iptr);
RegisterProperty('VALUE', 'VARIANT', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IBSQL(CL: TPSPascalCompiler);
begin
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBSQL');
CL.AddClassN(CL.FindClass('TOBJECT'),'TIBXSQLDA');
SIRegister_TIBXSQLVAR(CL);
CL.AddTypeS('TIBXSQLVARARRAY', 'array of TIBXSQLVAR');
SIRegister_TIBXSQLDA(CL);
SIRegister_TIBBATCH(CL);
SIRegister_TIBBATCHINPUT(CL);
SIRegister_TIBBATCHOUTPUT(CL);
SIRegister_TIBOUTPUTDELIMITEDFILE(CL);
SIRegister_TIBINPUTDELIMITEDFILE(CL);
SIRegister_TIBOUTPUTRAWFILE(CL);
SIRegister_TIBINPUTRAWFILE(CL);
CL.AddTypeS('TIBXMLFLAG', '( XMLATTRIBUTE, XMLDISPLAYNULL, XMLNOHEADER )');
CL.AddTypeS('TIBXMLFLAGS', 'set of TIBXMLFLAG');
SIRegister_TIBOUTPUTXML(CL);
CL.AddTypeS('TIBSQLTYPES', '( SQLUNKNOWN, SQLSELECT, SQLINSERT, SQLUPDATE, SQ'
+'LDELETE, SQLDDL, SQLGETSEGMENT, SQLPUTSEGMENT, SQLEXECPROCEDURE, SQLSTARTT'
+'RANSACTION, SQLCOMMIT, SQLROLLBACK, SQLSELECTFORUPDATE, SQLSETGENERATOR )');
SIRegister_TIBSQL(CL);
CL.AddDelphiFunction('Procedure OUTPUTXML( SQLOBJECT : TIBSQL; OUTPUTOBJECT : TIBOUTPUTXML)');
end;
(* === run-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure TIBSQLONSQLCHANGING_W(Self: TIBSQL; const T: TNOTIFYEVENT);
begin Self.ONSQLCHANGING := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLONSQLCHANGING_R(Self: TIBSQL; var T: TNOTIFYEVENT);
begin T := Self.ONSQLCHANGING; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLTRANSACTION_W(Self: TIBSQL; const T: TIBTRANSACTION);
begin Self.TRANSACTION := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLTRANSACTION_R(Self: TIBSQL; var T: TIBTRANSACTION);
begin T := Self.TRANSACTION; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLSQL_W(Self: TIBSQL; const T: TSTRINGS);
begin Self.SQL := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLSQL_R(Self: TIBSQL; var T: TSTRINGS);
begin T := Self.SQL; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLPARAMCHECK_W(Self: TIBSQL; const T: BOOLEAN);
begin Self.PARAMCHECK := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLPARAMCHECK_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.PARAMCHECK; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLGOTOFIRSTRECORDONEXECUTE_W(Self: TIBSQL; const T: BOOLEAN);
begin Self.GOTOFIRSTRECORDONEXECUTE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLGOTOFIRSTRECORDONEXECUTE_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.GOTOFIRSTRECORDONEXECUTE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLDATABASE_W(Self: TIBSQL; const T: TIBDATABASE);
begin Self.DATABASE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLDATABASE_R(Self: TIBSQL; var T: TIBDATABASE);
begin T := Self.DATABASE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLUNIQUERELATIONNAME_R(Self: TIBSQL; var T: STRING);
begin T := Self.UNIQUERELATIONNAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLGENERATEPARAMNAMES_W(Self: TIBSQL; const T: BOOLEAN);
begin Self.GENERATEPARAMNAMES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLGENERATEPARAMNAMES_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.GENERATEPARAMNAMES; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLHANDLE_R(Self: TIBSQL; var T: TISC_STMT_HANDLE);
begin T := Self.HANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLTRHANDLE_R(Self: TIBSQL; var T: PISC_TR_HANDLE);
begin T := Self.TRHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLSQLTYPE_R(Self: TIBSQL; var T: TIBSQLTYPES);
begin T := Self.SQLTYPE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLROWSAFFECTED_R(Self: TIBSQL; var T: INTEGER);
begin T := Self.ROWSAFFECTED; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLRECORDCOUNT_R(Self: TIBSQL; var T: INTEGER);
begin T := Self.RECORDCOUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLPREPARED_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.PREPARED; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLPLAN_R(Self: TIBSQL; var T: STRING);
begin T := Self.PLAN; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLPARAMS_R(Self: TIBSQL; var T: TIBXSQLDA);
begin T := Self.PARAMS; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLOPEN_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.OPEN; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLFIELDINDEX_R(Self: TIBSQL; var T: INTEGER; const t1: STRING);
begin T := Self.FIELDINDEX[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLFIELDS_R(Self: TIBSQL; var T: TIBXSQLVAR; const t1: INTEGER);
begin T := Self.FIELDS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLEOF_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.EOF; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLDBHANDLE_R(Self: TIBSQL; var T: PISC_DB_HANDLE);
begin T := Self.DBHANDLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBSQLBOF_R(Self: TIBSQL; var T: BOOLEAN);
begin T := Self.BOF; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLFLAGS_W(Self: TIBOUTPUTXML; const T: TIBXMLFLAGS);
begin Self.FLAGS := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLFLAGS_R(Self: TIBOUTPUTXML; var T: TIBXMLFLAGS);
begin T := Self.FLAGS; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLROWTAG_W(Self: TIBOUTPUTXML; const T: STRING);
begin Self.ROWTAG := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLROWTAG_R(Self: TIBOUTPUTXML; var T: STRING);
begin T := Self.ROWTAG; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLTABLETAG_W(Self: TIBOUTPUTXML; const T: STRING);
begin Self.TABLETAG := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLTABLETAG_R(Self: TIBOUTPUTXML; var T: STRING);
begin T := Self.TABLETAG; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLSTREAM_W(Self: TIBOUTPUTXML; const T: TSTREAM);
begin Self.STREAM := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLSTREAM_R(Self: TIBOUTPUTXML; var T: TSTREAM);
begin T := Self.STREAM; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLDATABASETAG_W(Self: TIBOUTPUTXML; const T: STRING);
begin Self.DATABASETAG := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLDATABASETAG_R(Self: TIBOUTPUTXML; var T: STRING);
begin T := Self.DATABASETAG; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLHEADERTAG_W(Self: TIBOUTPUTXML; const T: STRING);
begin Self.HEADERTAG := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTXMLHEADERTAG_R(Self: TIBOUTPUTXML; var T: STRING);
begin T := Self.HEADERTAG; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILESKIPTITLES_W(Self: TIBINPUTDELIMITEDFILE; const T: BOOLEAN);
begin Self.SKIPTITLES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILESKIPTITLES_R(Self: TIBINPUTDELIMITEDFILE; var T: BOOLEAN);
begin T := Self.SKIPTITLES; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILEROWDELIMITER_W(Self: TIBINPUTDELIMITEDFILE; const T: STRING);
begin Self.ROWDELIMITER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILEROWDELIMITER_R(Self: TIBINPUTDELIMITEDFILE; var T: STRING);
begin T := Self.ROWDELIMITER; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILEREADBLANKSASNULL_W(Self: TIBINPUTDELIMITEDFILE; const T: BOOLEAN);
begin Self.READBLANKSASNULL := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILEREADBLANKSASNULL_R(Self: TIBINPUTDELIMITEDFILE; var T: BOOLEAN);
begin T := Self.READBLANKSASNULL; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILECOLDELIMITER_W(Self: TIBINPUTDELIMITEDFILE; const T: STRING);
begin Self.COLDELIMITER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBINPUTDELIMITEDFILECOLDELIMITER_R(Self: TIBINPUTDELIMITEDFILE; var T: STRING);
begin T := Self.COLDELIMITER; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILEROWDELIMITER_W(Self: TIBOUTPUTDELIMITEDFILE; const T: STRING);
begin Self.ROWDELIMITER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILEROWDELIMITER_R(Self: TIBOUTPUTDELIMITEDFILE; var T: STRING);
begin T := Self.ROWDELIMITER; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILEOUTPUTTITLES_W(Self: TIBOUTPUTDELIMITEDFILE; const T: BOOLEAN);
begin Self.OUTPUTTITLES := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILEOUTPUTTITLES_R(Self: TIBOUTPUTDELIMITEDFILE; var T: BOOLEAN);
begin T := Self.OUTPUTTITLES; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILECOLDELIMITER_W(Self: TIBOUTPUTDELIMITEDFILE; const T: STRING);
begin Self.COLDELIMITER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBOUTPUTDELIMITEDFILECOLDELIMITER_R(Self: TIBOUTPUTDELIMITEDFILE; var T: STRING);
begin T := Self.COLDELIMITER; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDAUNIQUERELATIONNAME_R(Self: TIBXSQLDA; var T: STRING);
begin T := Self.UNIQUERELATIONNAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDAVARS_R(Self: TIBXSQLDA; var T: TIBXSQLVAR; const t1: INTEGER);
begin T := Self.VARS[t1]; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDARECORDSIZE_R(Self: TIBXSQLDA; var T: INTEGER);
begin T := Self.RECORDSIZE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDANAMES_R(Self: TIBXSQLDA; var T: STRING);
begin T := Self.NAMES; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDAMODIFIED_R(Self: TIBXSQLDA; var T: BOOLEAN);
begin T := Self.MODIFIED; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDACOUNT_W(Self: TIBXSQLDA; const T: INTEGER);
begin Self.COUNT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDACOUNT_R(Self: TIBXSQLDA; var T: INTEGER);
begin T := Self.COUNT; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLDAASXSQLDA_R(Self: TIBXSQLDA; var T: PXSQLDA);
begin T := Self.ASXSQLDA; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARVALUE_W(Self: TIBXSQLVAR; const T: VARIANT);
begin Self.VALUE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARVALUE_R(Self: TIBXSQLVAR; var T: VARIANT);
begin T := Self.VALUE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARSQLTYPE_R(Self: TIBXSQLVAR; var T: INTEGER);
begin T := Self.SQLTYPE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARSIZE_R(Self: TIBXSQLVAR; var T: INTEGER);
begin T := Self.SIZE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARNAME_R(Self: TIBXSQLVAR; var T: STRING);
begin T := Self.NAME; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARMODIFIED_W(Self: TIBXSQLVAR; const T: BOOLEAN);
begin Self.MODIFIED := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARMODIFIED_R(Self: TIBXSQLVAR; var T: BOOLEAN);
begin T := Self.MODIFIED; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARINDEX_R(Self: TIBXSQLVAR; var T: INTEGER);
begin T := Self.INDEX; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARISNULLABLE_W(Self: TIBXSQLVAR; const T: BOOLEAN);
begin Self.ISNULLABLE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARISNULLABLE_R(Self: TIBXSQLVAR; var T: BOOLEAN);
begin T := Self.ISNULLABLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARISNULL_W(Self: TIBXSQLVAR; const T: BOOLEAN);
begin Self.ISNULL := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARISNULL_R(Self: TIBXSQLVAR; var T: BOOLEAN);
begin T := Self.ISNULL; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARDATA_W(Self: TIBXSQLVAR; const T: PXSQLVAR);
begin Self.DATA := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARDATA_R(Self: TIBXSQLVAR; var T: PXSQLVAR);
begin T := Self.DATA; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASXSQLVAR_W(Self: TIBXSQLVAR; const T: PXSQLVAR);
begin Self.ASXSQLVAR := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASXSQLVAR_R(Self: TIBXSQLVAR; var T: PXSQLVAR);
begin T := Self.ASXSQLVAR; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASVARIANT_W(Self: TIBXSQLVAR; const T: VARIANT);
begin Self.ASVARIANT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASVARIANT_R(Self: TIBXSQLVAR; var T: VARIANT);
begin T := Self.ASVARIANT; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASTRIMSTRING_W(Self: TIBXSQLVAR; const T: STRING);
begin Self.ASTRIMSTRING := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASTRIMSTRING_R(Self: TIBXSQLVAR; var T: STRING);
begin T := Self.ASTRIMSTRING; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASSTRING_W(Self: TIBXSQLVAR; const T: STRING);
begin Self.ASSTRING := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASSTRING_R(Self: TIBXSQLVAR; var T: STRING);
begin T := Self.ASSTRING; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASSHORT_W(Self: TIBXSQLVAR; const T: SHORT);
begin Self.ASSHORT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASSHORT_R(Self: TIBXSQLVAR; var T: SHORT);
begin T := Self.ASSHORT; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASQUAD_W(Self: TIBXSQLVAR; const T: TISC_QUAD);
begin Self.ASQUAD := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASQUAD_R(Self: TIBXSQLVAR; var T: TISC_QUAD);
begin T := Self.ASQUAD; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASPOINTER_W(Self: TIBXSQLVAR; const T: POINTER);
begin Self.ASPOINTER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASPOINTER_R(Self: TIBXSQLVAR; var T: POINTER);
begin T := Self.ASPOINTER; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASLONG_W(Self: TIBXSQLVAR; const T: LONG);
begin Self.ASLONG := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASLONG_R(Self: TIBXSQLVAR; var T: LONG);
begin T := Self.ASLONG; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASINTEGER_W(Self: TIBXSQLVAR; const T: INTEGER);
begin Self.ASINTEGER := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASINTEGER_R(Self: TIBXSQLVAR; var T: INTEGER);
begin T := Self.ASINTEGER; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASINT64_W(Self: TIBXSQLVAR; const T: INT64);
begin Self.ASINT64 := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASINT64_R(Self: TIBXSQLVAR; var T: INT64);
begin T := Self.ASINT64; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASCURRENCY_W(Self: TIBXSQLVAR; const T: CURRENCY);
begin Self.ASCURRENCY := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASCURRENCY_R(Self: TIBXSQLVAR; var T: CURRENCY);
begin T := Self.ASCURRENCY; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASFLOAT_W(Self: TIBXSQLVAR; const T: FLOAT);
begin Self.ASFLOAT := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASFLOAT_R(Self: TIBXSQLVAR; var T: FLOAT);
begin T := Self.ASFLOAT; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDOUBLE_W(Self: TIBXSQLVAR; const T: DOUBLE);
begin Self.ASDOUBLE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDOUBLE_R(Self: TIBXSQLVAR; var T: DOUBLE);
begin T := Self.ASDOUBLE; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDATETIME_W(Self: TIBXSQLVAR; const T: TDATETIME);
begin Self.ASDATETIME := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDATETIME_R(Self: TIBXSQLVAR; var T: TDATETIME);
begin T := Self.ASDATETIME; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASTIME_W(Self: TIBXSQLVAR; const T: TDATETIME);
begin Self.ASTIME := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASTIME_R(Self: TIBXSQLVAR; var T: TDATETIME);
begin T := Self.ASTIME; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDATE_W(Self: TIBXSQLVAR; const T: TDATETIME);
begin Self.ASDATE := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBXSQLVARASDATE_R(Self: TIBXSQLVAR; var T: TDATETIME);
begin T := Self.ASDATE; end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBSQL_Routines(S: TIFPSExec);
begin
S.RegisterDelphiFunction(@OUTPUTXML, 'OUTPUTXML', cdRegister);
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBSQL(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBSQL) do
begin
RegisterMethod(@TIBSQL.BATCHINPUT, 'BATCHINPUT');
RegisterMethod(@TIBSQL.BATCHOUTPUT, 'BATCHOUTPUT');
RegisterMethod(@TIBSQL.CALL, 'CALL');
RegisterMethod(@TIBSQL.CHECKCLOSED, 'CHECKCLOSED');
RegisterMethod(@TIBSQL.CHECKOPEN, 'CHECKOPEN');
RegisterMethod(@TIBSQL.CHECKVALIDSTATEMENT, 'CHECKVALIDSTATEMENT');
RegisterMethod(@TIBSQL.CLOSE, 'CLOSE');
RegisterMethod(@TIBSQL.CURRENT, 'CURRENT');
RegisterMethod(@TIBSQL.EXECQUERY, 'EXECQUERY');
RegisterMethod(@TIBSQL.FIELDBYNAME, 'FIELDBYNAME');
RegisterMethod(@TIBSQL.FREEHANDLE, 'FREEHANDLE');
RegisterMethod(@TIBSQL.NEXT, 'NEXT');
RegisterMethod(@TIBSQL.PREPARE, 'PREPARE');
RegisterMethod(@TIBSQL.GETUNIQUERELATIONNAME, 'GETUNIQUERELATIONNAME');
RegisterMethod(@TIBSQL.PARAMBYNAME, 'PARAMBYNAME');
RegisterPropertyHelper(@TIBSQLBOF_R,nil,'BOF');
RegisterPropertyHelper(@TIBSQLDBHANDLE_R,nil,'DBHANDLE');
RegisterPropertyHelper(@TIBSQLEOF_R,nil,'EOF');
RegisterPropertyHelper(@TIBSQLFIELDS_R,nil,'FIELDS');
RegisterPropertyHelper(@TIBSQLFIELDINDEX_R,nil,'FIELDINDEX');
RegisterPropertyHelper(@TIBSQLOPEN_R,nil,'OPEN');
RegisterPropertyHelper(@TIBSQLPARAMS_R,nil,'PARAMS');
RegisterPropertyHelper(@TIBSQLPLAN_R,nil,'PLAN');
RegisterPropertyHelper(@TIBSQLPREPARED_R,nil,'PREPARED');
RegisterPropertyHelper(@TIBSQLRECORDCOUNT_R,nil,'RECORDCOUNT');
RegisterPropertyHelper(@TIBSQLROWSAFFECTED_R,nil,'ROWSAFFECTED');
RegisterPropertyHelper(@TIBSQLSQLTYPE_R,nil,'SQLTYPE');
RegisterPropertyHelper(@TIBSQLTRHANDLE_R,nil,'TRHANDLE');
RegisterPropertyHelper(@TIBSQLHANDLE_R,nil,'HANDLE');
RegisterPropertyHelper(@TIBSQLGENERATEPARAMNAMES_R,@TIBSQLGENERATEPARAMNAMES_W,'GENERATEPARAMNAMES');
RegisterPropertyHelper(@TIBSQLUNIQUERELATIONNAME_R,nil,'UNIQUERELATIONNAME');
RegisterPropertyHelper(@TIBSQLDATABASE_R,@TIBSQLDATABASE_W,'DATABASE');
RegisterPropertyHelper(@TIBSQLGOTOFIRSTRECORDONEXECUTE_R,@TIBSQLGOTOFIRSTRECORDONEXECUTE_W,'GOTOFIRSTRECORDONEXECUTE');
RegisterPropertyHelper(@TIBSQLPARAMCHECK_R,@TIBSQLPARAMCHECK_W,'PARAMCHECK');
RegisterPropertyHelper(@TIBSQLSQL_R,@TIBSQLSQL_W,'SQL');
RegisterPropertyHelper(@TIBSQLTRANSACTION_R,@TIBSQLTRANSACTION_W,'TRANSACTION');
RegisterEventPropertyHelper(@TIBSQLONSQLCHANGING_R,@TIBSQLONSQLCHANGING_W,'ONSQLCHANGING');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBOUTPUTXML(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBOUTPUTXML) do
begin
RegisterMethod(@TIBOUTPUTXML.WRITEXML, 'WRITEXML');
RegisterPropertyHelper(@TIBOUTPUTXMLHEADERTAG_R,@TIBOUTPUTXMLHEADERTAG_W,'HEADERTAG');
RegisterPropertyHelper(@TIBOUTPUTXMLDATABASETAG_R,@TIBOUTPUTXMLDATABASETAG_W,'DATABASETAG');
RegisterPropertyHelper(@TIBOUTPUTXMLSTREAM_R,@TIBOUTPUTXMLSTREAM_W,'STREAM');
RegisterPropertyHelper(@TIBOUTPUTXMLTABLETAG_R,@TIBOUTPUTXMLTABLETAG_W,'TABLETAG');
RegisterPropertyHelper(@TIBOUTPUTXMLROWTAG_R,@TIBOUTPUTXMLROWTAG_W,'ROWTAG');
RegisterPropertyHelper(@TIBOUTPUTXMLFLAGS_R,@TIBOUTPUTXMLFLAGS_W,'FLAGS');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBINPUTRAWFILE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBINPUTRAWFILE) do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBOUTPUTRAWFILE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBOUTPUTRAWFILE) do
begin
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBINPUTDELIMITEDFILE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBINPUTDELIMITEDFILE) do
begin
RegisterMethod(@TIBINPUTDELIMITEDFILE.GETCOLUMN, 'GETCOLUMN');
RegisterPropertyHelper(@TIBINPUTDELIMITEDFILECOLDELIMITER_R,@TIBINPUTDELIMITEDFILECOLDELIMITER_W,'COLDELIMITER');
RegisterPropertyHelper(@TIBINPUTDELIMITEDFILEREADBLANKSASNULL_R,@TIBINPUTDELIMITEDFILEREADBLANKSASNULL_W,'READBLANKSASNULL');
RegisterPropertyHelper(@TIBINPUTDELIMITEDFILEROWDELIMITER_R,@TIBINPUTDELIMITEDFILEROWDELIMITER_W,'ROWDELIMITER');
RegisterPropertyHelper(@TIBINPUTDELIMITEDFILESKIPTITLES_R,@TIBINPUTDELIMITEDFILESKIPTITLES_W,'SKIPTITLES');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBOUTPUTDELIMITEDFILE(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBOUTPUTDELIMITEDFILE) do
begin
RegisterPropertyHelper(@TIBOUTPUTDELIMITEDFILECOLDELIMITER_R,@TIBOUTPUTDELIMITEDFILECOLDELIMITER_W,'COLDELIMITER');
RegisterPropertyHelper(@TIBOUTPUTDELIMITEDFILEOUTPUTTITLES_R,@TIBOUTPUTDELIMITEDFILEOUTPUTTITLES_W,'OUTPUTTITLES');
RegisterPropertyHelper(@TIBOUTPUTDELIMITEDFILEROWDELIMITER_R,@TIBOUTPUTDELIMITEDFILEROWDELIMITER_W,'ROWDELIMITER');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBXSQLDA(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBXSQLDA) do
begin
RegisterConstructor(@TIBXSQLDA.CREATE, 'CREATE');
RegisterMethod(@TIBXSQLDA.ADDNAME, 'ADDNAME');
RegisterMethod(@TIBXSQLDA.BYNAME, 'BYNAME');
RegisterPropertyHelper(@TIBXSQLDAASXSQLDA_R,nil,'ASXSQLDA');
RegisterPropertyHelper(@TIBXSQLDACOUNT_R,@TIBXSQLDACOUNT_W,'COUNT');
RegisterPropertyHelper(@TIBXSQLDAMODIFIED_R,nil,'MODIFIED');
RegisterPropertyHelper(@TIBXSQLDANAMES_R,nil,'NAMES');
RegisterPropertyHelper(@TIBXSQLDARECORDSIZE_R,nil,'RECORDSIZE');
RegisterPropertyHelper(@TIBXSQLDAVARS_R,nil,'VARS');
RegisterPropertyHelper(@TIBXSQLDAUNIQUERELATIONNAME_R,nil,'UNIQUERELATIONNAME');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBXSQLVAR(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBXSQLVAR) do
begin
RegisterConstructor(@TIBXSQLVAR.CREATE, 'CREATE');
RegisterMethod(@TIBXSQLVAR.ASSIGN, 'ASSIGN');
RegisterMethod(@TIBXSQLVAR.LOADFROMFILE, 'LOADFROMFILE');
RegisterMethod(@TIBXSQLVAR.LOADFROMSTREAM, 'LOADFROMSTREAM');
RegisterMethod(@TIBXSQLVAR.SAVETOFILE, 'SAVETOFILE');
RegisterMethod(@TIBXSQLVAR.SAVETOSTREAM, 'SAVETOSTREAM');
RegisterMethod(@TIBXSQLVAR.CLEAR, 'CLEAR');
RegisterPropertyHelper(@TIBXSQLVARASDATE_R,@TIBXSQLVARASDATE_W,'ASDATE');
RegisterPropertyHelper(@TIBXSQLVARASTIME_R,@TIBXSQLVARASTIME_W,'ASTIME');
RegisterPropertyHelper(@TIBXSQLVARASDATETIME_R,@TIBXSQLVARASDATETIME_W,'ASDATETIME');
RegisterPropertyHelper(@TIBXSQLVARASDOUBLE_R,@TIBXSQLVARASDOUBLE_W,'ASDOUBLE');
RegisterPropertyHelper(@TIBXSQLVARASFLOAT_R,@TIBXSQLVARASFLOAT_W,'ASFLOAT');
RegisterPropertyHelper(@TIBXSQLVARASCURRENCY_R,@TIBXSQLVARASCURRENCY_W,'ASCURRENCY');
RegisterPropertyHelper(@TIBXSQLVARASINT64_R,@TIBXSQLVARASINT64_W,'ASINT64');
RegisterPropertyHelper(@TIBXSQLVARASINTEGER_R,@TIBXSQLVARASINTEGER_W,'ASINTEGER');
RegisterPropertyHelper(@TIBXSQLVARASLONG_R,@TIBXSQLVARASLONG_W,'ASLONG');
RegisterPropertyHelper(@TIBXSQLVARASPOINTER_R,@TIBXSQLVARASPOINTER_W,'ASPOINTER');
RegisterPropertyHelper(@TIBXSQLVARASQUAD_R,@TIBXSQLVARASQUAD_W,'ASQUAD');
RegisterPropertyHelper(@TIBXSQLVARASSHORT_R,@TIBXSQLVARASSHORT_W,'ASSHORT');
RegisterPropertyHelper(@TIBXSQLVARASSTRING_R,@TIBXSQLVARASSTRING_W,'ASSTRING');
RegisterPropertyHelper(@TIBXSQLVARASTRIMSTRING_R,@TIBXSQLVARASTRIMSTRING_W,'ASTRIMSTRING');
RegisterPropertyHelper(@TIBXSQLVARASVARIANT_R,@TIBXSQLVARASVARIANT_W,'ASVARIANT');
RegisterPropertyHelper(@TIBXSQLVARASXSQLVAR_R,@TIBXSQLVARASXSQLVAR_W,'ASXSQLVAR');
RegisterPropertyHelper(@TIBXSQLVARDATA_R,@TIBXSQLVARDATA_W,'DATA');
RegisterPropertyHelper(@TIBXSQLVARISNULL_R,@TIBXSQLVARISNULL_W,'ISNULL');
RegisterPropertyHelper(@TIBXSQLVARISNULLABLE_R,@TIBXSQLVARISNULLABLE_W,'ISNULLABLE');
RegisterPropertyHelper(@TIBXSQLVARINDEX_R,nil,'INDEX');
RegisterPropertyHelper(@TIBXSQLVARMODIFIED_R,@TIBXSQLVARMODIFIED_W,'MODIFIED');
RegisterPropertyHelper(@TIBXSQLVARNAME_R,nil,'NAME');
RegisterPropertyHelper(@TIBXSQLVARSIZE_R,nil,'SIZE');
RegisterPropertyHelper(@TIBXSQLVARSQLTYPE_R,nil,'SQLTYPE');
RegisterPropertyHelper(@TIBXSQLVARVALUE_R,@TIBXSQLVARVALUE_W,'VALUE');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBSQL(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBSQL) do
with CL.Add(TIBXSQLDA) do
RIRegister_TIBXSQLVAR(CL);
RIRegister_TIBXSQLDA(CL);
RIRegister_TIBOUTPUTDELIMITEDFILE(CL);
RIRegister_TIBINPUTDELIMITEDFILE(CL);
RIRegister_TIBOUTPUTRAWFILE(CL);
RIRegister_TIBINPUTRAWFILE(CL);
RIRegister_TIBOUTPUTXML(CL);
RIRegister_TIBSQL(CL);
end;
(* === compile-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure SIRegister_TIBQuery(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIBCustomDataSet', 'TIBQuery') do
with CL.AddClassN(CL.FindClass('TIBCustomDataSet'),'TIBQuery') do
begin
RegisterMethod('Procedure BatchInput( InputObject : TIBBatchInput)');
RegisterMethod('Procedure BatchOutput( OutputObject : TIBBatchOutput)');
RegisterMethod('Procedure ExecSQL');
RegisterMethod('Function ParamByName( const Value : string) : TParam');
RegisterMethod('Procedure Prepare');
RegisterMethod('Procedure UnPrepare');
RegisterProperty('Prepared', 'Boolean', iptrw);
RegisterProperty('ParamCount', 'Word', iptr);
RegisterProperty('StmtHandle', 'TISC_STMT_HANDLE', iptr);
RegisterProperty('Text', 'string', iptr);
RegisterProperty('RowsAffected', 'Integer', iptr);
RegisterProperty('GenerateParamNames', 'Boolean', iptrw);
RegisterProperty('DataSource', 'TDatasource', iptrw);
RegisterProperty('SQL', 'TStrings', iptrw);
RegisterProperty('Params', 'TParams', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IBQuery(CL: TPSPascalCompiler);
begin
SIRegister_TIBQuery(CL);
end;
(* === run-time registration functions === *)
(*----------------------------------------------------------------------------*)
procedure TIBQueryParams_W(Self: TIBQuery; const T: TParams);
begin Self.Params := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryParams_R(Self: TIBQuery; var T: TParams);
begin T := Self.Params; end;
(*----------------------------------------------------------------------------*)
procedure TIBQuerySQL_W(Self: TIBQuery; const T: TStrings);
begin Self.SQL := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBQuerySQL_R(Self: TIBQuery; var T: TStrings);
begin T := Self.SQL; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryDataSource_W(Self: TIBQuery; const T: TDatasource);
begin Self.DataSource := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryDataSource_R(Self: TIBQuery; var T: TDatasource);
begin T := Self.DataSource; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryGenerateParamNames_W(Self: TIBQuery; const T: Boolean);
begin Self.GenerateParamNames := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryGenerateParamNames_R(Self: TIBQuery; var T: Boolean);
begin T := Self.GenerateParamNames; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryRowsAffected_R(Self: TIBQuery; var T: Integer);
begin T := Self.RowsAffected; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryText_R(Self: TIBQuery; var T: string);
begin T := Self.Text; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryStmtHandle_R(Self: TIBQuery; var T: TISC_STMT_HANDLE);
begin T := Self.StmtHandle; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryParamCount_R(Self: TIBQuery; var T: Word);
begin T := Self.ParamCount; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryPrepared_W(Self: TIBQuery; const T: Boolean);
begin Self.Prepared := T; end;
(*----------------------------------------------------------------------------*)
procedure TIBQueryPrepared_R(Self: TIBQuery; var T: Boolean);
begin T := Self.Prepared; end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_TIBQuery(CL: TPSRuntimeClassImporter);
begin
with CL.Add(TIBQuery) do
begin
RegisterMethod(@TIBQuery.BatchInput, 'BatchInput');
RegisterMethod(@TIBQuery.BatchOutput, 'BatchOutput');
RegisterMethod(@TIBQuery.ExecSQL, 'ExecSQL');
RegisterMethod(@TIBQuery.ParamByName, 'ParamByName');
RegisterMethod(@TIBQuery.Prepare, 'Prepare');
RegisterMethod(@TIBQuery.UnPrepare, 'UnPrepare');
RegisterPropertyHelper(@TIBQueryPrepared_R,@TIBQueryPrepared_W,'Prepared');
RegisterPropertyHelper(@TIBQueryParamCount_R,nil,'ParamCount');
RegisterPropertyHelper(@TIBQueryStmtHandle_R,nil,'StmtHandle');
RegisterPropertyHelper(@TIBQueryText_R,nil,'Text');
RegisterPropertyHelper(@TIBQueryRowsAffected_R,nil,'RowsAffected');
RegisterPropertyHelper(@TIBQueryGenerateParamNames_R,@TIBQueryGenerateParamNames_W,'GenerateParamNames');
RegisterPropertyHelper(@TIBQueryDataSource_R,@TIBQueryDataSource_W,'DataSource');
RegisterPropertyHelper(@TIBQuerySQL_R,@TIBQuerySQL_W,'SQL');
RegisterPropertyHelper(@TIBQueryParams_R,@TIBQueryParams_W,'Params');
end;
end;
(*----------------------------------------------------------------------------*)
procedure RIRegister_IBQuery(CL: TPSRuntimeClassImporter);
begin
RIRegister_TIBQuery(CL);
end;
{ TIFPS3CE_IBCustomDataSet }
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.CompOnUses(CompExec: TPSScript);
begin
{ nothing }
end;
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.ExecOnUses(CompExec: TPSScript);
begin
{ nothing }
end;
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.CompileImport1(CompExec: TPSScript);
begin
SIRegister_IBDatabase(CompExec.Comp);
SIRegister_IBSQL(CompExec.Comp);
SIRegister_IBCustomDataSet(CompExec.Comp);
SIRegister_IBTable(CompExec.Comp);
SIRegister_IBQuery(CompExec.Comp);
end;
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.CompileImport2(CompExec: TPSScript);
begin
{ nothing }
end;
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter);
begin
RIRegister_IBDatabase(ri);
RIRegister_IBSQL(ri);
RIRegister_IBCustomDataSet(ri);
RIRegister_IBTable(ri);
RIRegister_IBQuery(ri);
end;
(*----------------------------------------------------------------------------*)
procedure TPSImport_IBX.ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter);
begin
{ nothing }
end;
end.
Reference in New Issue Copy Permalink