Question: When using the TpFIBDataSet, I do not seem to find a way to handle INT64 types. Help please.

Field "PROD_UNIT_PRICE" in Firebird = BigInt     =  2,200,000,000


case pfibqreport.fieldbyname('TBL_Type').AsInteger of
4: mfact:=pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE').AsInteger

my result=
pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE').AsInteger comes through as -2094967296

There is not

How do I pass an Int64 through a TpFIBDataSet?

Method "Fieldbyname" returns abstract class "TField". This class haven't methods for work with Int64 values.

pFIBDataSet has the psUseLargeIntField option in PrepareOptions. If
you include it into your code then FB Bigint field will do mapping
to TFIBLargeIntField. In this case you must write your code as:
4: mfact:=TFIBLargeIntField( pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE')).AsLargeInt

If you don't include psUseLargeIntField then this field will do mapping to TFIBBCDField.

In this case you should write your code as:
4: mfact:=TFIBBCDField( pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE')).AsInt64

And the last recommendation... If you can't know about prepareOptions in your code then you can write it as:
  if pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE') is  TFIBBCDField then
    mfact:=TFIBBCDField( pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE')).AsInt64
  mfact:=TFIBLargeIntField( pFIBDSDetail.fieldbyname('PROD_UNIT_PRICE')).AsLargeInt

Preview text: 
Prices in Euro:

235 (1 copy)
1250 (unlimited)

Volume discounts are available...


"FIBPlus is a great choice if you're going to work with InterBase and/or Firebird. The components let you easily use all the features of both databases in your applications...FIBPlus will make your InterBase and Firebird development easier than ever before...". Read the full story. >>

Bill Todd, president of The Database Group, Inc., a contributing editor to Delphi Informant Magazine, and a member of Team B
Download full versions and updates in your Personal Area