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

Retrieve the description of the specified database from the configuration file.

This example uses the following input:

 ShowDatabaseDesc('IBLOCAL');

 

The procedure is defined as:

procedure ShowDatabaseDesc(DBName: string);

const

 DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 +

   'Text: %s'#13#10'Physical Name/Path: %s';

var

 dbDes: DBDesc;

begin

 Check(DbiGetDatabaseDesc(PChar(DBName), @dbDes));

with dbDes do

   ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));

end;