118 |
|
FExecProc.ExecProc; |
119 |
|
writeln(OutFile,'Event Called'); |
120 |
|
IBTransaction.Commit; |
121 |
< |
CheckSynchronize(5); |
121 |
> |
CheckSynchronize(100); |
122 |
> |
FEvents.UnRegisterEvents; |
123 |
|
finally |
124 |
+ |
CheckSynchronize(100); |
125 |
|
IBDatabase.DropDatabase; |
126 |
|
end; |
127 |
|
writeln(OutFile,'Case #2: Event Registration after DB Open'); |
136 |
|
FExecProc.ExecProc; |
137 |
|
writeln(OutFile,'Event Called'); |
138 |
|
IBTransaction.Commit; |
139 |
< |
CheckSynchronize(5); |
140 |
< |
Sleep(1000); |
139 |
> |
CheckSynchronize(100); |
140 |
> |
// Sleep(1000); |
141 |
|
FEvents.UnRegisterEvents; |
142 |
|
finally |
143 |
+ |
CheckSynchronize(100); |
144 |
|
IBDatabase.DropDatabase; |
145 |
|
end; |
146 |
|
end; |