IRBIS64.dll — различия между версиями

Материал из Wikipedia
Перейти к: навигация, поиск
 
(не показаны 23 промежуточные версии этого же участника)
Строка 1: Строка 1:
==Инициализация контекста для работы с базами данных ИРБИС==
+
<tt>IRBIS64.dll</tt> – программная библиотека для доступа к [[Базы данных ИРБИС|базам данных ИРБИС 64]] и обработки данных с использованием [[Язык форматирования системы ИРБИС|языка форматирования]].
  
// Инициализировать IrbisSpace.
+
<tt>IRBIS64.dll</tt> использует менеджер памяти ShareMem.
// Инициализация IrbisSpace необходима перед первым вызовом функции IrbisInitMST.
+
 
  function Irbisinit: PIrbisSpace; export;
+
==Общий порядок работы с базами данных ИРБИС с помощью библиотеки <tt>IRBIS64.dll</tt>==
 +
 
 +
Для работы с базами данных ИРБИС с помощью библиотеки <tt>IRBIS64.dll</tt> предусмотрен следующий порядок:
 +
* Инициализировать переменную типа <tt>TIrbisSpace</tt> с помощью функции <tt>IrbisInit</tt>. Эта переменная предназначена для хранения контекста работы с базой и требуется при вызове большинства функций библиотеки <tt>IRBIS64.dll</tt>.
 +
* Инициализировать структуры <tt>isisucw</tt> и <tt>isisacw</tt> с помощью функции <tt>irbis_uatab_init</tt>. Эти структуры требуются для корректной работы некоторых команд форматирования.
 +
* Открыть базу данных с помощью функций <tt>IrbisInitMST</tt>, <tt>IrbisInitTerm</tt>, <tt>IrbisInitInvContext</tt>.
 +
* Работать с открытой базой данных.
 +
* Закрыть базу данных с помощью функций <tt>IrbisCloseMst</tt>, <tt>IrbisCloseTerm</tt> или <tt>IrbisClose</tt>.
 +
 
 +
Для проверки успешности выполнения <tt>IrbisInitMST</tt>, <tt>IrbisInitTerm</tt> и других функций библиотеки <tt>IRBIS64.dll</tt> принято определять константу '''<tt>ZERO = 0</tt>'''.
 +
 
 +
// Инициализировать запись <tt>TIrbisSpace</tt> и вернуть указатель на неё.
 +
  function IrbisInit: PIrbisSpace; export;
  
 
  // Открыть файлы MST и XRF.
 
  // Открыть файлы MST и XRF.
  // SP: IrbisSpace (предварительно инициализированный с помощью функции Irbisinit),
+
// Параметры:
  // DataBase: полный путь к файлам MST и XRF с указанием имени файла, но без расширения (предполагается, что эти файлы находятся в одной папке, одинаково называются и отличаются расширением).
+
  // SP – указатель на переменную типа TIrbisSpace;
  // ANumberShelfs: количество полок.
+
  // DataBase полный путь к файлам MST и XRF с указанием имени файла, но без расширения
 +
// (предполагается, что эти файлы находятся в одной папке, одинаково называются и отличаются
 +
// расширением);
 +
  // ANumberShelfs количество полок.
 +
// В случае успешного открытия возвращает ZERO.
 
  function IrbisInitMST(SP: PIrbisSpace; DataBase: Pchar; ANumberShelfs: integer): integer; export;
 
  function IrbisInitMST(SP: PIrbisSpace; DataBase: Pchar; ANumberShelfs: integer): integer; export;
  
==Инициализация контекста для работы с записью (документом)==
+
// Открыть инверсный файл.
 +
// Параметры:
 +
// SP – указатель на переменную типа TIrbisSpace;
 +
// DataBase – полный путь к инверсному файлу с указанием имени файла, но без расширения.
 +
// В случае успешного открытия возвращает ZERO.
 +
function IrbisInitTerm(SP: PIrbisSpace; DataBase: Pchar): integer; export;
 +
 
 +
После окончания работы с библиотекой <tt>IRBIS64.dll</tt> необходимо освободить занятые во время работы ресурсы с помощью процедуры <tt>IrbisClose</tt>.
 +
 
 +
''Примечание: процедура <tt>IrbisClose</tt> в том числе запускает процедуры <tt>IrbisCloseMST</tt>, <tt>IrbisCloseTerm</tt>.''
 +
 
 +
// Освободить ресурсы, занятые во время работы с библиотекой <tt>IRBIS64.dll</tt>:
 +
// закрыть файлы, освободить память.
 +
// Параметры:
 +
// SP – указатель на переменную типа TIrbisSpace.
 +
procedure IrbisClose(SP: PIrbisSpace); export;
 +
 
 +
// Закрыть файлы MST и XRF.
 +
// Параметры:
 +
// SP – указатель на переменную типа TIrbisSpace.
 +
procedure IrbisCloseMST(SP: PIrbisSpace); export;
 +
 
 +
// Закрыть инверсный файл.
 +
// Параметры:
 +
// SP – указатель на переменную типа TIrbisSpace.
 +
procedure IrbisCloseTerm(SP: PIrbisSpace); export;
 +
 
 +
==Работа с записями==
 +
 
 +
function IrbisMaxMFN(PS: PIrbisSpace): longint; export;
 +
 
 +
Вернуть число, равное максимальному номеру MFN из имеющихся в базе записей + 1. Это тот номер MFN, который будет присвоен первой новой записи, добавленной в базу.
  
// базовая функция чтения записи без блокировки (аналог RECORD)
 
 
  function IrbisRecord(PS: PIrbisSpace; Shelf, mfn: longint): integer; export;
 
  function IrbisRecord(PS: PIrbisSpace; Shelf, mfn: longint): integer; export;
 +
 +
Читать из базы данных запись с указанным MFN и поместить на полку.
 +
 +
Параметры:
 +
* SP – указатель на переменную типа TIrbisSpace.
 +
* Shelf – полка, на которую будет помещена запись.
 +
* mfn – MFN записи, которую необходимо прочитать.
 +
* В случае успешного выполнения возвращает ZERO.
 +
 +
''Примечание: аналог функции RECORD в ISIS.''
 +
 +
Пример – перебор всех записей в базе данных:
 +
var
 +
  mfn, maxMFN: Integer;
 +
  rr: Integer;
 +
begin
 +
  maxMFN := IrbisMaxMfn(CurSpace);
 +
  for mfn := 1 to maxMFN - 1 do begin
 +
    rr := IrbisRecord(CurSpace, 0, mfn);
 +
    if rr <> ZERO then continue;
 +
    ...
 +
  end;
 +
 +
===Чтение записи===
 +
 +
function IrbisMFN(PS: PIrbisSpace; shelf: integer): longint; export;
 +
 +
Вернуть MFN записи, находящейся на полке.
 +
 +
function IrbisNFields(PS: PIrbisSpace; Shelf: integer): integer; export;
 +
 +
Вернуть количество вхождений полей (считая также повторения).
 +
 +
''Примечание: аналог NFIELDS.''
 +
 +
function Irbisnocc(PS: PIrbisSpace; Shelf, met: integer): integer; export;
 +
 +
Вернуть число повторений поля с заданной меткой.
 +
 +
''Примечание: аналог NOCC.''
 +
 +
function Irbisfldtag(PS: PIrbisSpace; Shelf, nf: integer): integer; export;
 +
 +
Вернуть метку поля по порядковому номеру поля в записи.
 +
 +
''Примечание: аналог FLDTAG.''
 +
 +
function IrbisFieldN(PS: PIrbisSpace; shelf, met, occ: integer): integer; export;
 +
 +
Возвращает порядковый номер поля с заданной меткой. Если поле отсутствует в записи, то возвращает 0.
 +
 +
''Примечание: аналог функции FIELDN в ISIS.''
 +
 +
function IrbisField(PS: PIrbisSpace; shelf, nf: integer; subfields: PChar): Pchar; export;
 +
 +
Получает элемент данных записи, помещённой на полку с помощью вызова IrbisRecord или аналога ISISRLOCK.
 +
 +
Параметры:
 +
* nf – порядковый номер;
 +
* subfields – подполе или подполя (указываются только символы, идентифицирующие подполе, без знака ^).
 +
 +
''Примечание: аналог функции FIELD в ISIS.''
 +
 +
Пример чтения подполя ^B 1-го повторения 952-го поля записи с указанным mfn:
 +
 +
var
 +
  rr: Integer;
 +
begin
 +
  rr := IrbisRecord(CurSpace, 0, mfn);
 +
  if rr <> ZERO then exit;
 +
 
 +
  s := string(IrbisField(CurSpace, 0, IrbisFieldN(CurSpace, 0, 952, 1), 'B'));
 +
 +
===Изменение записи===
 +
 +
// nf - порядковый номер поля в справочнике
 +
// если nf<1 или nf>кол-ва полей, то поле добавляется последним
 +
// возврат: 0 - успешное завершение <>0 - не успешное
 +
// АНАЛОГ ISIS FLDADD
 +
function Irbisfldadd(PS: PIrbisSpace; Shelf,met, nf: integer; pole: Pchar): integer;export;
 +
 +
// замена поля
 +
// возврат: 0 - успешно; <>0 - неуспешно
 +
// если pole=nil ('') - удаляет!!
 +
// аналог FLDREP
 +
function Irbisfldrep(PS: PIrbisSpace; Shelf,nf: integer; pole: Pchar): integer;export;
 +
 +
// опустошает запись
 +
function Irbisfldempty(PS:PIrbisSpace;Shelf:integer):integer;export;
 +
 +
// изменитьномер записи
 +
function Irbischangemfn(PS: PIrbisSpace; shelf,newmfn: integer):integer;export;
 +
 +
===Добавление новой записи===
 +
 +
// формирование заготовки для новой записи с номером Amfn
 +
function Irbisnewrec(PS: PIrbisSpace; shelf: integer): integer; export;
 +
 +
==Функции форматёра==
 +
 +
[[Язык форматирования системы ИРБИС#Форматёр|Форматёр]] – модуль, реализующий набор функций для обработки данных с использованием [[Язык форматирования системы ИРБИС|языка форматирования]].
 +
 +
// Задать формат для дальнейшей обработки.
 +
// Line - формат.
 +
function Irbis_InitPFT(PS: PIrbisSpace; Line: PChar): integer; far;
 +
 +
// Выполнить формат.
 +
// shelf - полка с записью
 +
// FmtExitDLL = 'IRBIS64'
 +
// PS.workerbuf - результат выполнения формата.
 +
function Irbis_Format(PS: PIrbisSpace; shelf, alt_shelf, trm_shelf, LwLn: Integer; FmtExitDLL : PChar): integer; far;
 +
 +
Пример использования языка форматирования с динамически формируемой записью (без сохранения в БД):
 +
<nowiki>
 +
var
 +
  IrbisSpace: PIrbisSpace;
 +
  value: String;
 +
  formatResult: String;
 +
begin
 +
 +
...
 +
 +
Irbisnewrec(IrbisSpace, 0);
 +
Irbisfldadd(IrbisSpace, 0, 952, 0, PChar('^b' + value));
 +
Irbis_InitPFT(IrbisSpace, '&uf(''+3C'',"TXT="v952^b)');
 +
Irbis_Format(IrbisSpace, 0, 1, 0, MAXRECORD, 'IRBIS64');
 +
SetString(formatResult, IrbisSpace.workerbuf, strlen(IrbisSpace.workerbuf));
 +
</nowiki>
  
 
==Функции работы с инверсным файлом==
 
==Функции работы с инверсным файлом==
Строка 59: Строка 233:
 
  function IrbisFindPosting(PS: PIrbisSpace; const Term: PChar; const posting: TifpItemPosting): integer; export;
 
  function IrbisFindPosting(PS: PIrbisSpace; const Term: PChar; const posting: TifpItemPosting): integer; export;
  
==Функции работы с полями прочитанной записи БЕЗ ФИЗИЧЕСКОЙ ЗАПИСИ==
+
Пример поиска термина в инверсном файле при помощи функции Irbisfind:
 
+
  <nowiki>
// Возвращает: порядковый номер поля с заданной меткой или 0, если поле отсутствует в записи.
+
  procedure example(IrbisSpace: PIrbisSpace; prefixedTermin: String);
  // Аналог функции FIELDN в ISIS.
+
  var
  function IrbisFieldN(PS: PIrbisSpace; shelf, met, occ: integer): integer; export;
+
  isLongTermin: Boolean;
 
+
  prefixedTermin_: String;
  // Получить элемент данных записи, полученной с помощью вызова IrbisRecord или аналога ISISRLOCK.
+
  res: Integer;
// Аналог функции FIELD в ISIS.
+
  irbisKey: TIrbisKey;
// Где:
+
  currentKey: String;
// nf - порядковый номер;
+
begin
// subfields - подполе или подполя (указываются только символы, идентифицирующие подполе, без зннака ^).
+
  isLongTermin := length(prefixedTermin) >= LONGTERM;
function IrbisField(PS: PIrbisSpace; shelf, nf: integer; subfields: PChar): Pchar; export;
+
  if not isLongTermin then begin  // искомый термин может поместиться в словаре
 
+
    prefixedTermin_ := prefixedTermin;
// nf - порядковый номер поля в справочнике
+
  end else begin                // искомый термин не может поместиться в словаре
// если nf<1 или nf>кол-ва полей, то поле добавляется последним
+
    prefixedTermin_ := Copy(prefixedTermin, 0, LONGTERM);
// возврат: 0 - успешное завершение <>0 - не успешное
+
  end;
// АНАЛОГ ISIS FLDADD
+
 
function Irbisfldadd(PS: PIrbisSpace; Shelf,met, nf: integer; pole: Pchar): integer;export;
+
  res := IrbisFind(IrbisSpace, irbisKey);
 
+
  if (res = ZERO) and (not isLongTermin) then begin
// замена поля
+
    // термин найден
// возврат: 0 - успешно; <>0 - неуспешно
+
  end else begin
// если pole=nil ('') - удаляет!!
+
    // Термин не найден, но искомый термин такой длины,
// аналог FLDREP
+
    // что если и был помещён в словарь, то оказался обрезан.
function Irbisfldrep(PS: PIrbisSpace; Shelf,nf: integer; pole: Pchar): integer;export;
+
    // Попробуем перебрать термины индексного файла,
 
+
    // которые могут быть началом искомого термина.
// аналог NFIELDS
+
    while true do begin
function Irbisnfields(PS: PIrbisSpace;Shelf:integer): integer;export;
+
      SetString(currentKey, irbisKey, strlen(irbisKey));
 
 
// вернуть число повторений поля с даной меткой
 
// аналог NOCC
 
function Irbisnocc(PS: PIrbisSpace; Shelf,met: integer): integer;export;
 
  
// вернуть метку поля по порядковому номеру поля в записи
+
      // если найденный термин индексного файла не соответствует началу искомого термина,
// аналог FLDTAG
+
      // то прекращаем перебор
function Irbisfldtag(PS: PIrbisSpace; Shelf,nf: integer): integer; export;
+
      if not havePrefix(prefixedTermin_, currentKey, False) then
 
+
        break;
// опустошает запись
+
     
function Irbisfldempty(PS:PIrbisSpace;Shelf:integer):integer;export;
+
      // перебрать записи, на которые указывают постинги
 
+
      for i := 1 to IrbisNPosts(IrbisSpace) do begin
 
+
        // откроем запись
// формирование заготовки для новой записи с номером Amfn
+
        if IrbisNxtPost(IrbisSpace) <> 0 then break;
function Irbisnewrec(PS: PIrbisSpace; shelf: integer): integer; export;
+
        if IrbisPosting(IrbisSpace, 1) <= 0 then
 
+
          continue;
// изменитьномер записи
+
        if IrbisRecord(IrbisSpace, shelf, IrbisPosting(IrbisSpace, 1)) <> ZERO then
function Irbischangemfn(PS: PIrbisSpace; shelf,newmfn: integer):integer;export;
+
          continue;
 
+
       
 
+
        // здесь можно читать содержимое записи, чтобы проверить, содержит ли запись искомый длинный термин.
// номер документа в базе
+
      end;
function Irbismfn(PS: PIrbisSpace;shelf:integer): longint;export;
+
     
 
+
      // Если термин был последним в индексном файле, то прекращаем перебор
// номер следующей НОВОЙ запис в базе = (максим - 1)
+
      if res = -203 then break;
function Irbismaxmfn(PS: PIrbisSpace): longint;export;
+
     
 +
      // Взять следующий термин из индексного файла
 +
      res := Irbisnxtterm(IrbisSpace, irbisKey);
 +
    end;
 +
  end;
 +
</nowiki>
  
 
==Функции, осуществляющие запись в БД==
 
==Функции, осуществляющие запись в БД==
Строка 137: Строка 312:
 
  function IrbisRecUnLockTime(IrbisSpace:PIrbisSpace;mfn:integer;seconds:integer):integer;export;
 
  function IrbisRecUnLockTime(IrbisSpace:PIrbisSpace;mfn:integer;seconds:integer):integer;export;
  
[[Категория:Программные библиотеки ИРБИС]]
+
==Ссылки==
 +
 
 +
См. также:
 +
* [[Базы данных ИРБИС]]
 +
* [[Язык форматирования системы ИРБИС]]
 +
* [[UNIFOR]]
 +
 
 +
[[Категория:Программные модули ИРБИС]]
 +
[[Категория:Базы данных ИРБИС]]
 +
[[Категория:ИРБИС 64]]

Текущая версия на 14:19, 24 октября 2014

IRBIS64.dll – программная библиотека для доступа к базам данных ИРБИС 64 и обработки данных с использованием языка форматирования.

IRBIS64.dll использует менеджер памяти ShareMem.

Общий порядок работы с базами данных ИРБИС с помощью библиотеки IRBIS64.dll

Для работы с базами данных ИРБИС с помощью библиотеки IRBIS64.dll предусмотрен следующий порядок:

  • Инициализировать переменную типа TIrbisSpace с помощью функции IrbisInit. Эта переменная предназначена для хранения контекста работы с базой и требуется при вызове большинства функций библиотеки IRBIS64.dll.
  • Инициализировать структуры isisucw и isisacw с помощью функции irbis_uatab_init. Эти структуры требуются для корректной работы некоторых команд форматирования.
  • Открыть базу данных с помощью функций IrbisInitMST, IrbisInitTerm, IrbisInitInvContext.
  • Работать с открытой базой данных.
  • Закрыть базу данных с помощью функций IrbisCloseMst, IrbisCloseTerm или IrbisClose.

Для проверки успешности выполнения IrbisInitMST, IrbisInitTerm и других функций библиотеки IRBIS64.dll принято определять константу ZERO = 0.

// Инициализировать запись TIrbisSpace и вернуть указатель на неё.
function IrbisInit: PIrbisSpace; export;
// Открыть файлы MST и XRF.
// Параметры:
// SP – указатель на переменную типа TIrbisSpace;
// DataBase – полный путь к файлам MST и XRF с указанием имени файла, но без расширения
// (предполагается, что эти файлы находятся в одной папке, одинаково называются и отличаются
// расширением);
// ANumberShelfs – количество полок.
// В случае успешного открытия возвращает ZERO.
function IrbisInitMST(SP: PIrbisSpace; DataBase: Pchar; ANumberShelfs: integer): integer; export;
// Открыть инверсный файл.
// Параметры:
// SP – указатель на переменную типа TIrbisSpace;
// DataBase – полный путь к инверсному файлу с указанием имени файла, но без расширения.
// В случае успешного открытия возвращает ZERO.
function IrbisInitTerm(SP: PIrbisSpace; DataBase: Pchar): integer; export;

После окончания работы с библиотекой IRBIS64.dll необходимо освободить занятые во время работы ресурсы с помощью процедуры IrbisClose.

Примечание: процедура IrbisClose в том числе запускает процедуры IrbisCloseMST, IrbisCloseTerm.

// Освободить ресурсы, занятые во время работы с библиотекой IRBIS64.dll:
// закрыть файлы, освободить память.
// Параметры:
// SP – указатель на переменную типа TIrbisSpace.
procedure IrbisClose(SP: PIrbisSpace); export;
// Закрыть файлы MST и XRF.
// Параметры:
// SP – указатель на переменную типа TIrbisSpace.
procedure IrbisCloseMST(SP: PIrbisSpace); export;
// Закрыть инверсный файл.
// Параметры:
// SP – указатель на переменную типа TIrbisSpace.
procedure IrbisCloseTerm(SP: PIrbisSpace); export;

Работа с записями

function IrbisMaxMFN(PS: PIrbisSpace): longint; export;

Вернуть число, равное максимальному номеру MFN из имеющихся в базе записей + 1. Это тот номер MFN, который будет присвоен первой новой записи, добавленной в базу.

function IrbisRecord(PS: PIrbisSpace; Shelf, mfn: longint): integer; export;

Читать из базы данных запись с указанным MFN и поместить на полку.

Параметры:

  • SP – указатель на переменную типа TIrbisSpace.
  • Shelf – полка, на которую будет помещена запись.
  • mfn – MFN записи, которую необходимо прочитать.
  • В случае успешного выполнения возвращает ZERO.

Примечание: аналог функции RECORD в ISIS.

Пример – перебор всех записей в базе данных:

var
  mfn, maxMFN: Integer;
  rr: Integer;
begin
  maxMFN := IrbisMaxMfn(CurSpace);
  for mfn := 1 to maxMFN - 1 do begin
    rr := IrbisRecord(CurSpace, 0, mfn);
    if rr <> ZERO then continue;
    ...
  end;

Чтение записи

function IrbisMFN(PS: PIrbisSpace; shelf: integer): longint; export;

Вернуть MFN записи, находящейся на полке.

function IrbisNFields(PS: PIrbisSpace; Shelf: integer): integer; export;

Вернуть количество вхождений полей (считая также повторения).

Примечание: аналог NFIELDS.

function Irbisnocc(PS: PIrbisSpace; Shelf, met: integer): integer; export;

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

Примечание: аналог NOCC.

function Irbisfldtag(PS: PIrbisSpace; Shelf, nf: integer): integer; export;

Вернуть метку поля по порядковому номеру поля в записи.

Примечание: аналог FLDTAG.

function IrbisFieldN(PS: PIrbisSpace; shelf, met, occ: integer): integer; export;

Возвращает порядковый номер поля с заданной меткой. Если поле отсутствует в записи, то возвращает 0.

Примечание: аналог функции FIELDN в ISIS.

function IrbisField(PS: PIrbisSpace; shelf, nf: integer; subfields: PChar): Pchar; export;

Получает элемент данных записи, помещённой на полку с помощью вызова IrbisRecord или аналога ISISRLOCK.

Параметры:

  • nf – порядковый номер;
  • subfields – подполе или подполя (указываются только символы, идентифицирующие подполе, без знака ^).

Примечание: аналог функции FIELD в ISIS.

Пример чтения подполя ^B 1-го повторения 952-го поля записи с указанным mfn:

var
  rr: Integer;
begin
  rr := IrbisRecord(CurSpace, 0, mfn);
  if rr <> ZERO then exit;
  
  s := string(IrbisField(CurSpace, 0, IrbisFieldN(CurSpace, 0, 952, 1), 'B'));

Изменение записи

// nf - порядковый номер поля в справочнике
// если nf<1 или nf>кол-ва полей, то поле добавляется последним
// возврат: 0 - успешное завершение <>0 - не успешное
// АНАЛОГ ISIS FLDADD
function Irbisfldadd(PS: PIrbisSpace; Shelf,met, nf: integer; pole: Pchar): integer;export;
// замена поля
// возврат: 0 - успешно; <>0 - неуспешно
// если pole=nil () - удаляет!!
// аналог FLDREP
function Irbisfldrep(PS: PIrbisSpace; Shelf,nf: integer; pole: Pchar): integer;export;
// опустошает запись
function Irbisfldempty(PS:PIrbisSpace;Shelf:integer):integer;export;
// изменитьномер записи
function Irbischangemfn(PS: PIrbisSpace; shelf,newmfn: integer):integer;export;

Добавление новой записи

// формирование заготовки для новой записи с номером Amfn
function Irbisnewrec(PS: PIrbisSpace; shelf: integer): integer; export;

Функции форматёра

Форматёр – модуль, реализующий набор функций для обработки данных с использованием языка форматирования.

// Задать формат для дальнейшей обработки.
// Line - формат.
function Irbis_InitPFT(PS: PIrbisSpace; Line: PChar): integer; far;
// Выполнить формат.
// shelf - полка с записью
// FmtExitDLL = 'IRBIS64'
// PS.workerbuf - результат выполнения формата.
function Irbis_Format(PS: PIrbisSpace; shelf, alt_shelf, trm_shelf, LwLn: Integer; FmtExitDLL : PChar): integer; far;

Пример использования языка форматирования с динамически формируемой записью (без сохранения в БД):

 var
   IrbisSpace: PIrbisSpace;
   value: String;
   formatResult: String;
 begin
 
 ...
 
 Irbisnewrec(IrbisSpace, 0);
 Irbisfldadd(IrbisSpace, 0, 952, 0, PChar('^b' + value));
 Irbis_InitPFT(IrbisSpace, '&uf(''+3C'',"TXT="v952^b)');
 Irbis_Format(IrbisSpace, 0, 1, 0, MAXRECORD, 'IRBIS64');
 SetString(formatResult, IrbisSpace.workerbuf, strlen(IrbisSpace.workerbuf));
 

Функции работы с инверсным файлом

Поисковый ключ term должен иметь длину >=255 используйте тип TKey.

// Найти термин term.
// Возвращает:
// 0 - термин найден
// TERM_NOT_EXISTS = -202 в term - следующий термин
// TERM_LAST_IN_LIST = -203  в term - #0
// TERM_FIRST_IN_LIST = -204  в term - первый термин словаря
function Irbisfind(PS: PIrbisSpace; term: Pchar): integer; export;
// дать следующий термин
// возврат 0 и term TERM_LAST_IN_LIST и #0
function Irbisnxtterm(PS: PIrbisSpace; term: Pchar): integer; export;
// дать предидущий термин
// возврат 0 и term TERM_FIRST_IN_LIST и #0
function Irbisprevterm(PS: PIrbisSpace; term: Pchar): integer; export;
// Возвращает число ссылок на термин.
// Функция предназначена для использования после вызова Irbisfind.
function Irbisnposts(PS: PIrbisSpace): longint; export;
// Разобрать ссылку на: mfn, tag, occ, cnt.
// Возможные значения opt:
// opt = 1 функция возвращает mfn (номер записи);
// opt = 2 функция возвращает tag (метка поля);
// opt = 3 функция возвращает occ (повторение поля);
// opt = 4 функция возвращает cnt (номер слова).
// Возвращает: в случае успеха положительное значение (больше ноля).
function IrbisPosting(PS: PIrbisSpace; opt: smallint): longint; export;
// инициализация работы со ссылками - не вызывается напрямую процедура скрыта в FIND
function Irbisinitpost(PS: PIrbisSpace): integer; export;
// Перейти к следующей ссылке.
// Возвращает: 0 - успешно выполнено; -1 - конец списка.
function IrbisNxtPost(PS: PIrbisSpace): integer; export;
// установить указатель постингов на заданном чтобы читать дальше NXTPost с него!!!
function IrbisFindPosting(PS: PIrbisSpace; const Term: PChar; const posting: TifpItemPosting): integer; export;

Пример поиска термина в инверсном файле при помощи функции Irbisfind:

 procedure example(IrbisSpace: PIrbisSpace; prefixedTermin: String);
 var
   isLongTermin: Boolean;
   prefixedTermin_: String;
   res: Integer;
   irbisKey: TIrbisKey;
   currentKey: String;
 begin
   isLongTermin := length(prefixedTermin) >= LONGTERM;
   if not isLongTermin then begin   // искомый термин может поместиться в словаре
     prefixedTermin_ := prefixedTermin;
   end else begin                 // искомый термин не может поместиться в словаре
     prefixedTermin_ := Copy(prefixedTermin, 0, LONGTERM);
   end;
   
   res := IrbisFind(IrbisSpace, irbisKey);
   if (res = ZERO) and (not isLongTermin) then begin
     // термин найден
   end else begin
     // Термин не найден, но искомый термин такой длины,
     // что если и был помещён в словарь, то оказался обрезан.
     // Попробуем перебрать термины индексного файла,
     // которые могут быть началом искомого термина.
     while true do begin
       SetString(currentKey, irbisKey, strlen(irbisKey));

       // если найденный термин индексного файла не соответствует началу искомого термина,
       // то прекращаем перебор
       if not havePrefix(prefixedTermin_, currentKey, False) then
         break;
       
       // перебрать записи, на которые указывают постинги
       for i := 1 to IrbisNPosts(IrbisSpace) do begin
         // откроем запись
         if IrbisNxtPost(IrbisSpace) <> 0 then break;
         if IrbisPosting(IrbisSpace, 1) <= 0 then
           continue;
         if IrbisRecord(IrbisSpace, shelf, IrbisPosting(IrbisSpace, 1)) <> ZERO then
           continue;
         
         // здесь можно читать содержимое записи, чтобы проверить, содержит ли запись искомый длинный термин.
       end;
       
       // Если термин был последним в индексном файле, то прекращаем перебор
       if res = -203 then break;
       
       // Взять следующий термин из индексного файла
       res := Irbisnxtterm(IrbisSpace, irbisKey);
     end;
   end;
 

Функции, осуществляющие запись в БД

// опустошение БД
function IrbisDBEmptyTime(IrbisSpace:PIrbisSpace;seconds:integer):integer;export;
// заблокировать БД
function IrbisLockDBTime(IrbisSpace:PIrbisSpace;seconds:integer):integer;export;
// снять блокировку БД
function IrbisUnLockDBTime(IrbisSpace:PIrbisSpace;seconds:integer):integer;export;
// базовая функция записи с полки с актуализацией и разблокировкой
function IrbisRecUpdateTime(IrbisSpace:PIrbisSpace;Shelf:integer;KeepLock:integer;Updif:boolean;seconds:integer;
  var result_update:integer;var result_updif:integer):integer;export;
// базовая функция актуализации записи
function IrbisRecIfUpdateTime(IrbisSpace:PIrbisSpace;Shelf, mfn:integer;seconds:integer):integer;export;
// базовая функция блокировки записи
// аналог RECORD
function IrbisRecLockTime(IrbisSpace: PIrbisSpace; Shelf,mfn: longint;seconds:integer): integer;export;
// базовая функция разблокировки записи
function IrbisRecUnLockTime(IrbisSpace:PIrbisSpace;mfn:integer;seconds:integer):integer;export;

Ссылки

См. также: