FibPlus не умеет передавать boolean-параметры

[scorpion235]

Окружение:
Delphi 10.2 Update 3 Tokyo Architect
Firebird 3.0.3.32900

В Firebird 3 появился тип данных boolean
Не смог добиться передачи boolean-параметра в Firebird

Передаю из Delphi:
FIBDataSet.ParamByName('PARAM_NAME').AsBoolean := true;
но в Firebird уходит числовое значение 1

Пост на sql.ru: http://www.sql.ru/forum/1295664/fibplus-ne-umeet-peredavat-boolean-parametry
Мой email: [e-mail]

[BerndSchoelzel]

With this change it works for me.

function TFIBXSQLVAR.GetAsBoolean: boolean;
begin
  Result := False;
  if not IsNull then
    case FXSQLVAR^.sqltype and (not 1) of
      SQL_BOOLEAN,SQL_SHORT:
        Result := PShort(FXSQLVAR^.sqldata)^=ISC_TRUE;
     FB3_SQL_BOOLEAN: // BS 25.03.2019 
        Result := PByte(FXSQLVAR^.sqldata)^=ISC_TRUE;
      SQL_LONG:
       Result  := PLong(FXSQLVAR^.sqldata)^=ISC_TRUE;
      SQL_INT64:
       Result  := PInt64(FXSQLVAR^.sqldata)^=ISC_TRUE;
    else
        FIBError(feInvalidDataConversion, [nil])
    end;
end;

[mvb75]

Аналогичное поведение, ФИБ последний отсюда, Delphi XE2, FireBird 4. При выполнении запроса через TpFIBQuery.ExecWP(const ParamValues: array of Variant) с BOOLEAN в параметрах вылазит ошибка:

Project ... raised exception class EFIBInterBaseError with message 'Incompatible column/host variable data type.
SQL error state =22018
Dynamic SQL Error.
SQL error code = -303.
Conversion error from string "0".

Как поправить?

[mvb75]

В общем, разобрался, маленькая поправка снимает проблему.
Модуль: FIBQuery.pas
Метод: procedure TFIBXSQLVAR.SetAsVariant(Value: Variant);
кусок

    varBoolean:
      if Value then
        AsVariant := VariantTrue
      else
        AsVariant := VariantFalse;

заменить на:

    varBoolean:
      case sSQLType of
        FB3_SQL_BOOLEAN: AsBoolean := Value;
        else if Value then
               AsVariant := VariantTrue else
               AsVariant := VariantFalse;
      end;

[mvb75]

Еще одна поправочка в том же модуле:
function TFIBXSQLVAR.GetAsBoolean: boolean; begin Result := False; if not IsNull then case FXSQLVAR^.sqltype and (not 1) of SQL_BOOLEAN,SQL_SHORT: Result := PShort(FXSQLVAR^.sqldata)^=ISC_TRUE; SQL_LONG: Result := PLong(FXSQLVAR^.sqldata)^=ISC_TRUE; SQL_INT64: Result := PInt64(FXSQLVAR^.sqldata)^=ISC_TRUE; FB3_SQL_BOOLEAN: Result := PBoolean(FXSQLVAR^.sqldata)^ = True; else FIBError(feInvalidDataConversion, [nil]) end; end;

[mvb75]

В редакторе норм показывает, тут чет все в кучу слепил. В общем, думаю, там понятно будет.

[mvb75]

Тут, похоже, тоже забросили бедные фибы...