| 141 |
|
end; |
| 142 |
|
|
| 143 |
|
procedure TVersionCallback.callback(status: Firebird.IStatus; text: PAnsiChar); |
| 144 |
< |
var StatusObj: TFB30StatusObject; |
| 144 |
> |
var aStatus: IStatus; |
| 145 |
|
begin |
| 146 |
< |
if ((status.getState and status.STATE_ERRORS) <> 0) then |
| 147 |
< |
begin |
| 148 |
< |
StatusObj := TFB30StatusObject.Create(FFirebirdClientAPI,status); |
| 149 |
< |
try |
| 150 |
< |
raise EIBInterBaseError.Create(StatusObj); |
| 151 |
< |
finally |
| 152 |
< |
StatusObj.Free; |
| 153 |
< |
end; |
| 154 |
< |
end; |
| 146 |
> |
aStatus := TFB30Status.Create(FFirebirdClientAPI,status); |
| 147 |
> |
if aStatus.InErrorState then |
| 148 |
> |
raise EIBInterBaseError.Create(aStatus); |
| 149 |
|
FOutput.Add(text); |
| 150 |
|
end; |
| 151 |
|
|
