{ tbllist.pas }
program TblList;

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

{=====================================================================
   Function:
           TableList();
 
   Description:
           This example shows how to get a list of tables which are
           in the working directory for the STANDARD database. 
 ===================================================================== }

var
    hDb: hDBIDb;             { Handle to the Database }
    hCur: hDBICur;           { Handle to the list of tables }
const
    uNumRecs: UINT16 = 100;  { Maximum number of records to
                                       display }

begin

    Screen('*** Getting a list of available tables ***');

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

    Screen('    Setting the default Database directory...');
    ChkRslt(DbiSetDirectory(hDb, pCHAR(szTblDirectory)), DBIERR_NONE,
            '    Error - SetDirectory.');

    Screen('    Get a list of the available tables...');
    ChkRslt(DbiOpenTableList(hDb, TRUE, TRUE, nil, hCur),
            DBIERR_NONE, '    Error - OpenTableList.');
            
    if Assigned (hCur) then
    begin
        { If the cursor is valid, display the information }
        Screen('    Display the available tables (up to '+
               IntToStr(uNumRecs)+')...');
        Screen('');

        ChkRslt(DbiSetToBegin(hCur), DBIERR_NONE,
                '    Error - SetToBegin.');

        DisplayInMemoryTable(hCur, uNumRecs);

        ChkRslt(DbiCloseCursor(hCur), DBIERR_NONE,
                '    Error - CloseCursor.');
    end;

    Screen('');
    Screen('    Get a list of the available files...');
    ChkRslt(DbiOpenFileList(hDb, nil, hCur),
            DBIERR_NONE, '    Error - OpenFileList.');

    { Determine if a valid hCursor was returned. }
    if Assigned (hCur) then
    begin
        Screen('    Display the available files (up to '+
               IntToStr(uNumRecs)+')...');
        Screen('');

        ChkRslt(DbiSetToBegin(hCur), DBIERR_NONE,
                '    Error - SetToBegin.');

        DisplayInMemoryTable(hCur, uNumRecs);

        ChkRslt(DbiCloseCursor(hCur), DBIERR_NONE,
                '    Error - CloseCursor.');
    end;

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

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

end.