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

Return a list of driver names available to the client application.

This example uses the following input:

 fDbiOpenDriverList(DriverList);

 

The procedure is:

procedure fDbiOpenDriverList(var DriverList: TStringList);

var

 TmpCursor: hdbicur;

 Driver: DRVType;

 rslt: dbiResult;

begin

 Check(DbiOpenDriverList(TmpCursor));

 DriverList.Clear;

repeat

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

  if (rslt <> DBIERR_EOF) then begin

     DriverList.Add(StrPas(Driver.szType))

  end;

until rslt <> DBIERR_NONE;

 Check(DbiCloseCursor(TmpCursor));

end;