Советы по 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. |
