<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetTranInfo

Get transaction information on the database handle.

This example uses the following input:

 fDbiGetTranInfo(Database1.Handle);

 

The procedure is:

procedure fDbiGetTranInfo(hTmpDb: HDBIDb);

var

 xInfoVar: XInfo;

begin

 Check(DbiGetTranInfo(hTmpDb, nil, @xInfoVar));

case XInfoVar.eXIL of

   xilDIRTYREAD: ShowMessage('Isolation level is Uncommitted changes');

   xilREADCOMMITTED: ShowMessage('Isolation level is Committed changes');

   xilREPEATABLEREAD: ShowMessage('Isolation level is Full read repeatablity');

end;

end;