<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiOpenFileList

Return a list of files contained within the database.

This example uses the following input:

 fDbiOpenFileList(Database1.handle, '*.*', MyFileList);

 

The procedure is:

procedure fDbiOpenFileList(hDB: hDbiDb; Wild: String; var FileList: TStringList);

var

 TmpCursor: hdbicur;

 TmpFileDesc: FileDesc;

 rslt: dbiResult;

begin

 Check(DbiOpenFileList(hDB, PChar(Wild), TmpCursor));

 FileList.Clear;

repeat

   rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @TmpFileDesc, nil);

  if (rslt <> DBIERR_EOF) then begin

     FileList.Add(StrPas(TmpFileDesc.szfilename) + '.' +

       StrPas(TmpFileDesc.szext))

  end;

until (rslt <> DBIERR_NONE);

 Check(DbiCloseCursor(TmpCursor));

end;