madorin / fibplus

FibPlus Library for Delphi and C++Builder. Data access components for Firebird & Interbase.
168 stars 58 forks source link

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

Closed scorpion235 closed 11 months ago

scorpion235 commented 6 years ago

Окружение: 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: scorpion235@mail.ru

BerndSchoelzel commented 5 years ago

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 commented 5 years ago

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

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

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

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

mvb75 commented 5 years ago

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