IMetabaseDeviceDescriptors.Count

Синтаксис Fore

Count: Integer;

Синтаксис Fore.NET

Count: integer;

Описание

Свойство Count возвращает количество устройств в списке доступных для печати принтеров.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку Metabase.

Sub Macro;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MP: IMetabasePolicy;
    DP: IMetabaseDevicePolicy;
    DevDess: IMetabaseDeviceDescriptors;
    DevDes: IMetabaseDeviceDescriptor;
    i:integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    MP := Ms.Policy;
    DP := MP.PrintersPolicy;
    DevDess := DP.Enumerate;
    For i:=0 To DevDess.Count-1 Do
        DevDes:= DevDess.Item(0);
        Debug.WriteLine(DevDes.DeviceName);
        Debug.WriteLine(DevDes.Key);
        Debug.WriteLine("----------------");
    End For;
End Sub Macro;

После выполнения примера в окно консоли будет выведено наименование и ключ устройства.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Metabase;
...

Public Shared Sub Macro(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MP: IMetabasePolicy;
    DP: IMetabaseDevicePolicy;
    DevDess: IMetabaseDeviceDescriptors;
    DevDes: IMetabaseDeviceDescriptor;
    i:integer;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    MP := Ms.Policy;
    DP := MP.PrintersPolicy;
    DevDess := DP.Enumerate();
    For i:=0 To DevDess.Count-1 Do
        DevDes:= DevDess.Item[0];
        System.Diagnostics.Debug.WriteLine(DevDes.DeviceName);
        System.Diagnostics.Debug.WriteLine(DevDes.Key);
        System.Diagnostics.Debug.WriteLine("----------------");
    End For;
End Sub;

После выполнения примера в окно консоли будет выведено наименование и ключ устройства.

См. также:

IMetabaseDeviceDescriptors