VPF::Версия Btrieve - Форум программистов

lotax

Дата 7.9.2005, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Привет всем, не подскажете, как программно узнать версию Btrieve.

--------------------

Говори, что думаешь и думай, что говоришь.

lotax

Дата 21.11.2005, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Если долго мучится, что-нибудь получится:

Код


uses BtrConst, BtrAPI32;
type
  CLIENT_ID = packed record
    networkandnode : array[1..12] of char;
    applicationID  : array[1..3] of char;
    threadID       : smallint;
  end;

  VERSION_STRUCT = packed record
    version   : smallint;
    revision  : smallint;
    MKDEId    : char;
  end;

function GetVersionBtr:String;
var
  posBlock1     : string[128];
  dataLen       : word;
  keyBuf1       : string[255];
  keyNum        : smallint;
  status        : smallint;
  i             : smallint;
  client        : CLIENT_ID;
  versionBuffer : array[1..3] of VERSION_STRUCT;
const
  MY_THREAD_ID        = 50;
begin
 KeyNum := 0;
 Status := B_NO_ERROR;
 FillChar(client.networkAndNode, sizeof(client.networkAndNode), #0);
 Client.applicationID := 'MT' + #0;
 Client.threadID := MY_THREAD_ID;
 Fillchar(versionBuffer, sizeof(versionBuffer), #0);
 DataLen := sizeof(versionBuffer);
 Status := BTRVID(B_VERSION,posBlock1,versionBuffer,dataLen,keyBuf1[1],keyNum,client);
 if status = B_NO_ERROR then
   for i := 1 to 1 do
     with versionBuffer[i] do
        if (version > 0) then
         GetVersionBtr := IntToStr(version) + '.' +IntToStr(revision) + ' ' + MKDEId;
end;

... все намного проще, чем ожидалось smile

--------------------

Говори, что думаешь и думай, что говоришь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »