IMetabaseManager.Drivers

Копировать пример

Sub UserProc;
Var
    Man: IMetabaseManager;
    Drivers: IDbDrivers;
    Driver: IDbDriver;
    i, c: Integer;
Begin
    Man := MetabaseManagerFactory.Active;
    Drivers := Man.Drivers;
    c := Drivers.Count;
    For i := 0 To c - 1 Do
        Driver := Drivers.Item(i);
        Debug.WriteLine("Наименование: " + Driver.Name + "; Идентификатор: " + Driver.Id + "; Ключ: " + Driver.Key.ToString);
    End For;
End Sub UserProc;