unit uDADriverInfo;

{----------------------------------------------------------------------------}
{ Data Abstract Library - Core Library                                       }
{                                                                            }
{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
{ platform: Win32, Linux                                                     }
{                                                                            }
{ (c)opyright RemObjects Software. all rights reserved.                      }
{                                                                            }
{ Using this code requires a valid license of the Data Abstract              }
{ which can be obtained at http://www.remobjects.com.                        }
{----------------------------------------------------------------------------}

{$I DataAbstract.inc}

interface

uses
  uDADriverManager;

procedure ShowDriverInfo(aDriverManager: TDADriverManager);

implementation

uses
  SysUtils,
{$IFDEF FPC}
 FPgtkExt,
{$ENDIF}
{$IFDEF MSWINDOWS}
  Dialogs;
{$ENDIF}
{$IFDEF LINUX}
QDialogs;
{$ENDIF}

procedure ShowDriverInfo(aDriverManager: TDADriverManager);
var
  s: string;
  i: integer;
begin
  if (aDriverManager.DriverCount = 0) then
    MessageDlg('No drivers are currently loaded', mtWarning, [mbOK], 0)
  else begin
    s := 'The following ' + IntToStr(aDriverManager.DriverCount) + ' drivers are currently loaded:'#13;
    for i := 0 to (aDriverManager.DriverCount - 1) do begin
      with aDriverManager.DriverInfo[i] do begin
        if (Handle = 0) then
          s := s + #13 + Format('%s - %s %d.%d (Statically Linked)',
            [Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion])

        else
          s := s + #13 + Format('%s - %s %d.%d (%s)',
            [Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion, FileName]);
      end;
    end;

    MessageDlg(s, mtInformation, [mbOK], 0);
  end;
end;

end.