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