Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Вызов TUTILITY
BTW, у кого-нибудь есть пример вызова TUTILITY DLL из Delphi?


   
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.
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 583 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]