FibPlus не умеет передавать boolean-параметры about fibplus HOT 6 CLOSED

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;

from fibplus.

Аналогичное поведение, ФИБ последний отсюда, 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".

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

from fibplus.

В общем, разобрался, маленькая поправка снимает проблему.
Модуль: 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;

from fibplus.

Еще одна поправочка в том же модуле:
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;

from fibplus.

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

from fibplus.

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

from fibplus.