Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Вызов TUTILITY

Delphi , Базы данных , Paradox

Вызов TUTILITY


var
  Session: hTUses;
  i: integer;
  ErrorCode: word;
  ResultCode: word;

procedure BdeError(ResultCode: Word);
begin
  if ResultCode <> 0 then
    raise Exception.CreateFmt('BDE ошибка %x', [ResultCode]);
end;

begin
  try
    BdeError(DbiInit(nil));
    BdeError(TUInit(@Session));

    for i := 1 to High(TableNames) do
    begin
      WriteLn('Проверка ' + TableNames[i]);

      ResultCode := TUVerifyTable(Session, @TableNames[i, 1], szPARADOX,
        'TABLERRS.DB', nil, TU_Append_Errors, ErrorCode);
      BdeError(ResultCode);

      if ErrorCode = 0 then
        WriteLn('Успешно')
      else
        WriteLn('ОШИБКА! -- Для информации смотри TABLERRS.DB!');

      WriteLn('');
    end;
  finally
    BdeError(TUExit(Session));
    BdeError(DbiExit);
  end;
end.

Статья Вызов TUTILITY раздела Базы данных Paradox может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Paradox ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
07.12.2019 00:13:40/0.019183158874512/0