Пакование таблиц dBASE 3

Delphi , Базы данных , DBASE и DBF

Для упаковки таблицы dBASE, открытой с помощью TTable, воспользуйтесь функцией BDE DbiPackTable. Для этого достаточно сделать две операции:

1. Добавьте в секцию uses следующие модули:

   { Для Delphi 1.0: } DBITYPES, DBIPROCS и DBIERRS;
   { Для Delphi 2.0: } BDE;

2. Затем вызовите BDE функцию DbiPackTable следующим образом:

Check(DbiPackTable(Table1.DbHandle, Table1.Handle, Nil, szDBASE, TRUE)); 

Примечания:

• Таблица должна быть открыта в эксклюзивном режиме.
• При вызове функций API BDE используйте процедуру Check. Check в случае ошибки при вызове BDE генерирует исключительную ситуацию.

Here is the translation of the text into Russian:

Что это код делает? Этот код используется для сжатия (компрессии) таблицы dBASE с помощью движка баз данных Borland (BDE).

Как он работает?

1. В первой шаге добавляются необходимые модули в раздел uses:
   • Для Delphi 1.0: DBITYPES, DBIPROCS и DBIERRS
   • Для Delphi 2.0: BDE
2. Затем код вызывает функцию DbiPackTable из API BDE для сжатия таблицы.

Синтаксис вызова DbiPackTable следующий:

Check( DbiPackTable(Table1.DbHandle, Table1.Handle, Nil, szDBASE, TRUE) );

Вот что каждый параметр делает:

• Table1.DbHandle: Обратный handle базы данных таблицы для сжатия.
• Table1.Handle: Обратный handle таблицы для сжатия.
• Nil: Пустой указатель (не используется в этом случае).
• szDBASE: Строка,specifying алгоритм сжатия для использования (в этом случае, "DBASE").
• TRUE: Логическое значение, указывающее, что сжатие должно быть выполнено в эксклюзивном режиме (т.е., таблица должна быть открыта эксклюзивно).

Примечания:

• Таблица должна быть открыта эксклюзивно перед вызовом DbiPackTable.
• Если возникает ошибка при вызове функции API BDE, процедура Check будет генерировать исключение.

В целом, этот код предоставляет простой способ сжатия таблицы dBASE с помощью движка баз данных Borland.

Для упаковки таблицы dBASE, открытой с помощью TTable, необходимо добавить в секцию uses соответствующие модули и вызвать функцию BDE DbiPackTable с использованием процедуры Check для обработки ошибок.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DBASE и DBF ::