Доброго времени суток!

Нашел на этом сайте статью на тему подключения к бтривовским файлам из Дельфи. Для прямого подключения к базе с использованием Btrieve API необходимо расписать в программе структуру таблицы (добавляется тип record с полями, соответствующими названиям полей в таблице). При этом размеры и типы полей должны точно соответствовать (например, unsigned int, 4 byte (в таблице) -> longword (Дельфи)).

Так вот, одну таблицу, где "нормальные" типы полей, я смог открыть, все замечательно. Но в другой есть поле типа, который называемый "COBOL Decimal Comp-3", длиной 3 байта... Слово Decimal явно говорит о том, что тип - числовой. Но числового типа длиной 3 байта в Delphi нет. Позволяет ли Дельфи как-то обойти такую ситуацию? Добавить свой вещественный тип?

Спасибо.
Я, оказывается, выход нашел сразу, описал это поле как array [0..2] of char (значение этого поля меня не интересует).

Но таблица не открывалась не по этой причине. Я выгружал таблицу docdep.dat (2Гб) (кто знает - это балансовые проводки в АБС-ке Diasoft Card). Так вот, открыть этот файл невозможно, если рядом с ним не лежит файл docdep.^01 (еще 400 метров :)). Кто-нибудь подскажет, что это за файл и нафига он нужен?

golsaВ Btrieve таблицы не зависимы в том плане что нет запрета что-то читать отдельно - скорее всего ты натыкаешься на другие ограничения - например длину файла.

Да, так и есть, файл оказался продолжением того же docdep-a.

Осталась вроде последняя проблема.

Btrieve позволяет искать записи только по тем полям, которые описаны в индексах. Я в программе использую для выборки записей функцию BTRVID. Так вот, на таблице есть несколько индексов: несколько по одному полю, и несколько составных. По индексам из одного поля ищет нормально, а по составному просто возвращает первую запись в файле. В чем тут может быть загвоздка?

Вот фрагмент кода:
...
//присваем значение индекса
DocdepIndex0.datetrf := 73777;
DocdepIndex0.crncode:=840;
DocdepIndex0.batch:=1;
DocdepIndex0.doctype:=#1;
DocdepIndex0.ddp_auto:=2120656;
...
fillchar(DocdepRecord , SizeOf(DocdepRecord), #0);
dataLen := sizeof(Docdep_STRUCT);
//Дальше вызов функции BTRVID:
status := BTRVID(B_GET_FIRST,
PosBlock,
DocdepRecord,
dataLen,
DocdepIndex0,
0,
client);

Номер и структуру индекса я посмотрел как раз в DDF - это 0-й индекс (номер указан в предпоследнем параметре BTRVID). Причем DDF этот рабочий, т.е. верно отражает структуру таблицы (он используется давно для подключения через ODBC).

"Перед чтением установи индекс (должна быть специальная функция-команда что-то типа B_SET_INDEX) по которому будет поиск. "

Попробую покопаться еще, но навскидку в хелпе и *.pas файлах из SDK ничего подобного не вижу... Файлики сейчас Вам вышлю, возможно, Вы вспомните?

У меня все строковые поля так и объявлены: array [0..n] of char. Packed попробовал убрать, не помогает. Процесс начинает напоминать танцы с бубном вокруг Btrieve.

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

Блин, у меня складывается впечатление, что Pervasive на индекс при поиске вообще не обращает внимания. Я ему четко указал: DocdepIndex0.crncode:=840;
В результате он находит строку (BTRVID<>B_KEY_VALUE_NOT_FOUND), но в ней crncode=810!

DocdepIndex0.crncode:=840;
DocdepIndex0.datetrf := $0;
DocdepIndex0.batch:=$0;
//строка
DocdepIndex0.doctype:=#0;
DocdepIndex0.ddp_auto:=$0;

fillchar(DocdepRecord , SizeOf(DocdepRecord), #0);
dataLen := sizeof(Docdep_STRUCT);
status := BTRVID(B_GET_FIRST, {системная константа}
PosBlock, {системная}
DocdepRecord, {сюда будет возвращен результат поиска}
dataLen, {см.выше}
DocdepIndex0, {см.выше}
0, {номер индеска - см.выше}
client); {системная}

//А выводит '0 810'
if status<>B_KEY_VALUE_NOT_FOUND then
showmessage(inttostr(status)+' '+floattostr(docdeprecord.crncode)) else
showmessage('Не найдено');

Если в том же вызове BTRVID B_GET_FIRST заменить на B_GET_GE (GREATER OR EQUAL), BTRVID возвращает 2 (IO Error). Ничего не понимаю: записи с crncode>840 точно есть (код валюты 978 - евро)

golsa... попробуй номер индекса = 1 (вдруг с 1 нумерация).

Эврика!

Я-то ориентировался на DDF, считая, что там должна быть абсолютно точно расписана структура таблица, включая индексы. А на самом деле получается, что нулевой индекс в ДДФ-е пропущен. Т.е. в DDF на месте 0-го индекса стоит 1-ый, по которому я и пытался сделать поиск. Спасибо за помощь!

Все-таки проблемы не кончились. Когда в программе я нахожу по индексу первую запись, далее начинаю в цикле выбирать все записи, удовлетворяющие заданному условию. Так вот, после нескольких сот итераций (записей) снова вываливается статус=2 (IO_Error) (причем для конкретного условия при каждом запуске нормально выбирается одно и то же число записей). Не могу понять, что ему нужно на этот раз.

//условие поиска
DocdepIndex8.datetrf:=74726;
DocdepIndex8.mainddp_auto:=$0;
DocdepIndex8.conv_auto:=$0;

//находим первую строку
fillchar(DocdepRecord , SizeOf(DocdepRecord), #0);
dataLen := sizeof(Docdep_STRUCT);
status := BTRVID(B_GET_GE, PosBlock, DocdepRecord, dataLen, DocdepIndex8,
8, client);

//просматриваем все записи, удовлетворяющие условию поиска
while (status=B_NO_ERROR) and (status<>9) and (docdeprecord.datetrf=74726) do begin
fillchar(DocdepRecord , SizeOf(DocdepRecord), #0);
dataLen := sizeof(Docdep_STRUCT);

status := BTRVID(B_GET_NEXT,PosBlock,DocdepRecord,
dataLen, DocdepIndex8, 8, client);
label1.Caption:=inttostr(i);
label2.Caption:=inttostr(status);
application.ProcessMessages;
i:=i+1;
end;