{ test.pas }
program Test;

{$IfDef VER80}
uses SnipTool, SnipData, SysUtils, WinTypes, WinProcs,
     DbiProcs, DbiTypes, DbiErrs;
{$Else}
uses WinTypes, WinCrt, Strings, DbiProcs, DbiTypes, DbiErrs,
     SnipTool, SnipData;
{$EndIf}

{=====================================================================
   Procedure:
           TestCode();

   Description:
           This file provides a framework to use when writing new
           IDAPI code.
 ===================================================================== }

var
    hDb: hDBIDb;        { Handle to the database }

begin
    Screen('*** Test ***');
    Screen('');

    Screen('    Initializing IDAPI...');
    if (InitAndConnect(hDb) <> DBIERR_NONE) then { Terminate example if }
    begin                                        { Initialization fails }
        Screen('');
        Screen('*** End of Example ***');
        exit;
    end;

    Screen('    Set the directory which is used by the database...');
    ChkRslt(DbiSetDirectory(hDb, pCHAR(szTblDirectory)), DBIERR_NONE,
            '    Error - SetDirectory.');

    { Put test code here }
    Screen('');
    Screen('    Put test code here');
    Screen('');

    Screen('    Close the Database and exit IDAPI...');
    CloseDbAndexit(hDb);

    Screen('');
    Screen('*** End of Example ***');
end.