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



Содержание  Назад  Вперед