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

Obtain the name of the language driver for the TDatabase component Database1 and display its name in a dialog box.

 

procedure TForm1.Button1Click(Sender: TObject);

var

 LName: DBIName;

begin

if (DbiGetLdNameFromDB(Database1.Handle, nil, LName) = DBIERR_NONE) then

   ShowMessage('Language driver name: ' + LName)

else

   ShowMessage(No-go');

end;