Интерфейс прикладного программирования ВDЕ
procedure TMainForm.FormShow(Sender: TObject);
begin
hDB: = Nil; hCur: = Nil;
Dbilnit(Nil); // Инициализация системы
BDE DbiOpenDatabase // Открытие базы данных
(
'DBDEMOS', // Псевдоним базы данных
Nil, // Тип базы данных
dbiReadWrite, // Режим редактирования данных
dbiOpenShared, // Режим разделения данных
Nil, // Пароль
0, // Число дополнительных параметров
Nil, // Перечень полей для доп. параметров
Nil, // Список доп. параметров
hDB // Дескриптор базы данных
);
DbiSetPrivateDir('с:\temp'); // Определение временного каталога
DbiOpenTable // Открытие таблицы
(
hDB, // Дескриптор базы данных
PChar('COUNTRY'), // Название таблицы
PChar(szParadox), // Тип таблицы (только для локальных БД)
Nil, // Название индекса (необязательный)
Nil, // IndexTagName – только для dBASE
0, // 0 – использовать первичный индекс
dbiReadWrite, // Режим редактирования данных
dbiOpenShared, // Режим разделения данных
xltField, // Режим трансляции данных
False, // Признак одностороннего перемещения курсора
Nil, // Дополнительные параметры
hCur // Дескриптор курсора таблицы);
DbiGetCursorProps // Определение параметров курсора
(
hCur, // Дескриптор курсора таблицы
CursProps // Структура параметров курсора
);
GetMem // Вьщеление памяти под буфер записи
(
RecBuf,
CursProps.iRecbufSize*SizeOf(Byte));
DbiSetToBegin(hCur); // Установка курсора в начало набора данных
DbiGetNextRecord // Перемещение на первую запись
(
hCur, // Дескриптор курсора таблицы
dbiNoLock, // Режим ограничения доступа
RecBuf, // Буфер записи
Nil // Параметры записи);
DbiGetField // Получение значения поля
(
hCur, // Дескриптор курсора таблицы
1, // Номер поля в структуре таблицы
RecBuf, // Буфер записи
@FValue, // Переменная, в которую передается значение
IsEmpty // Признак пустой ячейки);
MainForm.CountryEdit.Text: = FValue;
DbiGetField(hCur, 2, RecBuf, @FValue, IsEmpty);
MainForm.CapitalEdit.Text: = FValue;
end;
procedure TMainForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin try
finally
FreeMem(RecBuf);
// Освобождение памяти буфера записи
DbiCloseCursor(hCur);
// Закрытие курсора
DbiCloseDatabase(hDB); // Закрытие базы данных
DbiExit; // Закрытие сеанса работы с ВОЕ
end
end;