|
|
|
|
Delphi 1
Вызов 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.
|
|
|
|
|
|