FBDataSet (библиотека доступа к данным FireBird/Interbase.)

[alexs]

а UIB поставил?

[SergeyDV]

Конечно!
UIB 2.1 Release

[alexs]

СУдя по ошибке - именно UIB не находит
Пропиши его в путях поиска.

[mak]

Привет! Сколько лет...
Хотел поставить свежий FBDataset (rev.43) под новые UIB'ы в Дельфи7. Но!
1) В файле dcl_FB_IB_DataSet.dpk требуется JvUIBD7R , а у меня такого уже нет (с префиксом)
2) В файле FB_IB_DataSets.dpk написано, что

Код: Выделить всё

contains
   jvuibstoredproc in 'jvuibstoredproc.pas';

а файла такого в поставке нет.
3) Не везде ты избавился от префикса "Jv" -- в примерах, например.

Что посоветуешь? Самому править или причешешь в ближайшее время?
Или из бранча можно спокойно брать версию для Дельфи?
Сливаться, кстати, собираетесь?

[alexs]

времения нет
сейчас особо ей не занимаюсь в плане новых функций.
пока бери из бранча

[mak]

Алексей, помогай!
Проблема с отображением в гриде больших целых чисел (INT64).
Если в числе 18 цифр или меньше, то все нормально.
Если в числе 19 цифр, то число отображается с экспонентой.
Т.е. вместо 1234567890123456789
отображается 1,23456789012346E18

Например, столбец первичных ключей должен выглядеть так:
8999999990000010001
8999999990000010002
8999999990000010005
а он выглядит вот так:
8,99999999000001E18
8,99999999000001E18
8,99999999000001E18

Если переключить DataSource грида с FBDataset на UIBDataset, то данные отображаются в гриде правильно. Откуда я делаю вывод, что виноват FBDataset.
И еще: DBGridEh и DBGrid отображают данные одинаково - с UIBDataset'ом обе правильно, с FBDataset'ом - обе с экспонентой.

Давай исправим, а?

[alexs]

Дельфи?
Попробую посмотреть. Я библиотеку давно в дельфине не тестировал.

[mak]

Дельфи 7, да.

Добавлено спустя 5 минут 45 секунд:
Ты уверен, что в FPC этой проблемы нет?

[RomanS]

в Delphi 7 вышел из ситуации следующим образом:

Код: Выделить всё

  dsListFile: TFBDataSet;
  
...
  with dsListFile.DataSet do
    For i := 0 to Fields.Count - 1 do
    if Fields[i].DataType = ftLargeint then
      Fields[i].OnGetText := FieldGetText_Largeint;
...

procedure TForm1.FieldGetText_Largeint(Sender: TField; var Text: string; DisplayText: Boolean);
Var
  L: Int64;
begin
  if Sender.GetData(@L) then
    Text := IntToStr(L)
  else
    Text := '';
end;

[mak]

Спасибо, RomanS.
Возможно, что придется выкручиваться как-то так, на уровне приложения.
Но хотелось бы, чтобы сам компонент работал правильно.
Да и событие оставалось бы свободным для использования.

Добавлено спустя 30 минут 7 секунд:
Добавлю еще, что при правильно работающей компоненте можно оперативно использовать DisplayFormat колонки грида. А на уровне приложения это делать - уже влом.

[Vadim]

alexs
Слушай, а FBDataSet v2, который лежит на Шаманграде, можно каким-нибудь образом скачать одним архивом?

[alexs]

ещё нет
у меня не доходят до него руки.

[mak]

2Vadim
Не загружай его мелочевкой.
Могу заархивировать и на мыло выслать последнюю ревизию ver2b (rev.55)

[alexs]

mak
если есть время и желание - присоединяйся.
Могу дать права на SVN - может ты приведёш к новоей версии?

[mak]

Я заваливаю (завалил уже, блин) сроки своего проекта. Аврал.
За доверие - спасибо, но пока не могу.