Советы по Delphi

         

Вызов TUTILITY


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

varSession: hTUses;i: integer;ErrorCode: word;ResultCode: word;
procedure BdeError(ResultCode: Word);beginif ResultCode <> 0 thenRaise Exception.CreateFmt('BDE ошибка %x', [ResultCode]);end;
begintryBdeError(DbiInit(nil));BdeError(TUInit(@Session));
for i := 1 to High(TableNames) dobeginWriteLn('Проверка ' + TableNames[i]);
ResultCode := TUVerifyTable(Session, @TableNames[i, 1], szPARADOX, 'TABLERRS.DB', nil, TU_Append_Errors, ErrorCode);BdeError(ResultCode);
if ErrorCode = 0 thenWriteLn('Успешно')elseWriteLn('ОШИБКА! -- Для информации смотри TABLERRS.DB!');
WriteLn('');end;finallyBdeError(TUExit(Session));BdeError(DbiExit);end;end.
[000379]



Содержание раздела