Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
Никто, случайно, не подскажет, что нужно подкрутить в TIBCustomDataSet, чтобы он поле CHARSET OCTETS маппил на ftBytes, а не на ftWideString?

Сейчас длина поля увеличивается в два раза и от правильного содержимого остается только один байт.

IBSQL достает все правильно

С уважением, Vasilisk
26 мар 20, 11:02    [22106184]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
Вроде так
procedure TIBCustomDataSet.InternalInitFieldDefs;
begin
    .....................
    for i := 0 to FQSelect.Current.Count - 1 do
    begin
      .....................
      case FQSelect.Current[i].Data.sqltype and not 1 of
        { All VARCHAR's must be converted to strings before recording
         their values }
        SQL_VARYING, SQL_TEXT:
        begin
          // Workaround an IB Bug
          if FQSelect.Current[i].Data.RelName = '' then
            FieldSize := FQSelect.Current[i].Data.sqllen
          else
            FieldSize := FQSelect.Current[i].Data.sqllen div FQSelect.Current[i].CharsetSize;
          if FQSelect.Current[i].Data.SqlSubtype in [0, 1]) then  // NONE = 0, OCTETS = 1
            FieldType := ftBytes
          else
            FieldType := ftWideString;
        end;
26 мар 20, 12:01    [22106232]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
_Vasilisk_
Вроде так
Нет. Не так. Там овердофига модификаций получается
26 мар 20, 15:13    [22106373]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
Гугл подкинул мою же тему полуторалетней давности. https://www.sql.ru/forum/1303824-1/sohranenie-binarnyh-dannyh

Диагноз: решения нет

Сообщение было отредактировано: 26 мар 20, 15:28
26 мар 20, 15:29    [22106387]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
Мимопроходящий
Member

Откуда: бурятский тундрюк, эсквайр
Сообщений: 31138

26.03.2020 15:29, _Vasilisk_ пишет:
>
> Гугл подкинул мою же тему полуторалетней давности. https://www.sql.ru/forum/1303824-1/sohranenie-binarnyh-dannyh
> Диагноз: решения нет
>

да ладно!
мы у себя форкнули IBX больше 10 лет назад.
и теперь любая блажь реализуема.

Posted via ActualForum NNTP Server 1.5

26 мар 20, 15:32    [22106390]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
Гаджимурадов Рустам
Member

Откуда:
Сообщений: 61137
_Vasilisk_> Диагноз: решения нет

Да ладно. Раз в IBSQL работает - значит, решение есть.

Posted via ActualForum NNTP Server 1.5

26 мар 20, 15:38    [22106395]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
Мимопроходящий
и теперь любая блажь реализуема.
У меня нет столько времени. Я сейчас думаю либо о текстовом представлении поля, либо о переходе на FreDAC. Проект только стартует
26 мар 20, 15:39    [22106397]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
Вроде обещают, что в Rio 10.3.3 пофиксили https://quality.embarcadero.com/browse/RSP-19934 У меня только 10.3.1

Кто-то может сюда кинуть IBX.IBCustomDataSet.pas от 10.3.3?
26 мар 20, 16:11    [22106422]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
ъъъъъ
Member

Откуда:
Сообщений: 198
_Vasilisk_,

К сообщению приложен файл (IBX.IBCustomDataSet.pas.7z - 23Kb) cкачать
26 мар 20, 16:20    [22106427]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11598
ъъъъъ,

Спасибо. Это именно от 10.3.3? Потому, что существенных отличий я не увидел. Все баги на месте
26 мар 20, 16:38    [22106440]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
Гаджимурадов Рустам
Member

Откуда:
Сообщений: 61137
Не ленись, воткни 10.3.3 на виртуалку и проверь.

Posted via ActualForum NNTP Server 1.5

26 мар 20, 16:49    [22106446]     Ответить | Цитировать Сообщить модератору
 Re: TIBCustomDataSet и OCTETS  [new]
ъъъъъ
Member

Откуда:
Сообщений: 198
_Vasilisk_
ъъъъъ,

Спасибо. Это именно от 10.3.3? Потому, что существенных отличий я не увидел. Все баги на месте

Ой, нет. Это 10.3.2.
26 мар 20, 16:57    [22106451]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить