| 245 |
|
function GetImplementationVersion: AnsiString; |
| 246 |
|
function GetClientMajor: integer; virtual; abstract; |
| 247 |
|
function GetClientMinor: integer; virtual; abstract; |
| 248 |
< |
end; |
| 248 |
> |
end; |
| 249 |
> |
|
| 250 |
> |
IJournallingHook = interface |
| 251 |
> |
['{7d3e45e0-3628-416a-9e22-c20474825031}'] |
| 252 |
> |
procedure TransactionStart(Tr: ITransaction); |
| 253 |
> |
function TransactionEnd(TransactionID: integer; Action: TTransactionAction): boolean; |
| 254 |
> |
procedure TransactionRetained(Tr: ITransaction; OldTransactionID: integer; Action: TTransactionAction); |
| 255 |
> |
procedure ExecQuery(Stmt: IStatement); |
| 256 |
> |
end; |
| 257 |
|
|
| 258 |
|
implementation |
| 259 |
|
|
