# | Line 367 | Line 367 | procedure TFB25Attachment.getFBVersion(v | |
---|---|---|
367 | var callback: pointer; | |
368 | begin | |
369 | callback := @ISCVersionCallback; | |
370 | < | FFirebird25ClientAPI.isc_version(@FHandle,TISC_CALLBACK(callback),PVoid(version)); |
370 | > | version.Clear; |
371 | > | with FFirebird25ClientAPI do |
372 | > | if isc_version(@FHandle,TISC_CALLBACK(callback),PVoid(version)) > 0 then |
373 | > | IBDataBaseError; |
374 | end; | |
375 | ||
376 | end. |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |