I am using ZEOS 7.2.6,svn-r6194 from 18.12.2019. (Lazarus 2.6, fpc 3.0.4 both 64-Bit Windows 7)
When I use TZIBEventAlerter-Component then exception occures.
Nobody else is using TZIBEventAlerter or does it only happen to me?
I had no errors with Zeos-version 7.2.4-stable.
How to reproduce it?
1. Put one TZConnection and a TZIBEventAlerter component on the form and connect together.
2. Run the Program and exception happens in this procedure (from: src\Component\IBEventAlerter.pas):
Code: Select all
Procedure TZIBEventAlerter.SetConnection({$IFDEF AUTOREFCOUNT}const{$ENDIF}Value: TZConnection);
Var
WasRegistered: boolean;
Begin
If (Value <> FConnection) Then Begin
If (csDesigning in ComponentState) Then
FConnection := Value
Else Begin
WasRegistered := Registered;
If WasRegistered Then
UnRegisterEvents;
FConnection := Value;
If WasRegistered Then
RegisterEvents;
End;
FPlainDriver := FConnection.DbcConnection.GetIZPlainDriver.GetInstance as TZInterbasePlainDriver; // <<< this line!!!
// ^ ^ ^ this line above causes exception ^ ^^
End;
End;