SvrAPI для непродвинутых. Часть 2

или как получить информацию об открытом сетевом ресурсе в Win'9x

Вступление.

Эта статья является логическим продолжением "SvrAPI для непродвинутых или как открыть доступ к сетевому ресурсу" . Многое, что было в ней затронуто, в этой статье уже рассматриваться не будет. Поэтому предварительно лучше все-таки прочитать предыдущую статью.

Итак, о чем пойдет речь. Мы уже умеем открывать доступ к сетевому ресурсу. Теперь хотелось бы получить информацию об уже открытых сетевых ресурсах. Для этих целей в SvrAPI применяется функция NetShareGetInfo . Однако аргументы этой функции предполагают, что мы уже знаем имя удаленной машины и имена имеющиеся в ней доступных сетевых устройств. Однако, это не всегда так... Можно, конечно, все посмотреть стандартными средствами Windows, например, проводником или открыть сетевое окружение... Да по большому счету, все что мы пытаемся напрограммировать уже давно сделано... Ну, да ладно, вернемся к нашим баранам. Для наглядности изобретем еще один велосипед - напишем небольшую программку позволяющую получать значения, которые приобретает сетевое устройство при открытии к нему доступа.

Первый предварительный шаг - получение имен доступных сетевой машины. Второй предварительный шаг - получение имен доступных сетевых устройств. Постучимся в двери - третий предварительный шаг. Ну и, наконец, последнее - получение информации о конкретном сетевом устройстве.

Шаг первый. Получение имен доступных сетевых машин.

Для получения имен доступных сетевых машин воспользуемся функцией SHBrowseForFolder . Эта функция проживает в модуле ShlObj.pas, модуль автоматически не подключается, поэтому в клаузу Uses надо "ручками" добавить ShrObj. Сама функция имеет всего один аргумент - указатель на структуру типа TBrowseInfo.

    TBrowserInfo = Record
    hwndOwner : Integer;

    //хендл "хозяина" диалогового окна

    pidlRoot : PItemIDList;

    //указатель на спец.структуру - о ней ниже

    pszDisplayName : PChar;

    //сюда получим имя компьютера

    lpszTitle : PChar;

    //заголовок диалогового окна

    ulFlags : Integer;

    //флаг, указывающий, что именно покажет диалоговое окно

    lpfn : TFNBFFCallBack;

    //адрес процедуры, обрабатывающей действия пользователя - Nil

    lParam : Integer;

    //доп. параметр для lpfn - 0

    iImage : Integer;

    //номер иконки в списке системных иконок

Чтобы получить pidlRoot надо использовать еще одну функцию - SHGetSpecialFolderLocation
Ну, начали!

    Function

     TForm1.GetComputerNetName:

    String

    ;

    Var

    RootItemIDList:PItemIDList;

    //идентификатор объекта в пространстве имен проводника

    BrowseInfo:TBrowseInfo;

    //структура, в которой содержится информация о диалоге

    Buffer:PChar;

    //сюда получим имя компьютера

    Begin

    Result:=

    ''

    ;

    //получим нужный идентификатор
    //PItemIDList, CSIDL_NETWORK - в сетевом окружении

    If Not

    (SHGetSpecialFolderLocation(0,CSIDL_NETWORK,RootItemIDList)=NO_ERROR)
    Then

    Exit

    ;

    //подготовим буфер, в который получим имя компьютера

    GetMem(Buffer,Max_Path);
    FillChar(BrowseInfo,SizeOf(BrowseInfo),0);

    //подготовим структуру TBrowseInfo

    With

     BrowseInfo

    Do

    Begin

     {With BrowseInfo}
    hwndOwner:=Application.Handle;

    //хозяин окна - наше приложение

    pidlRoot:=RootItemIDList;

    //полученный ранее идентификатор объекта в списке объектов проводника

    pszDisplayName:=Buffer;

    //имя компьютера будем принимать в Buffer

    lpszTitle:=

    'Подключенные компьютеры'

    ;

    //заголовок диалога

    ulFlags:=BIF_BROWSEFORCOMPUTER;

    //будут показаны имена только компьютеров

    End

    ; {With BrowseInfo}

    //выполним нужную функцию

    If

     SHBrowseForFolder(BrowseInfo)=Nil

    Then Exit

    ;
    Result:=String(Buffer);

    //вот оно - сетевое имя компьютера

    FreeMem(Buffer);

    end

    ;

Шаг второй. NetShareEnum - получение имен сетевых ресурсов.

Зная доступное сетевое имя машины, с помощью функции NetShareEnum мы можем получить список имен доступных сетевых устройств этой машины. Вышеуказанная функция помещает информацию о сетевом ресурсе в массив элементов типа TShareInfo50. Размерность этого массива определяется константой MaxNetArrayItems равной 512, т.е. максимально возможное число открытых сетевых ресурсов для одной машины не может превышать 512. Вот прототип этой функции:

    Function

     NetShareEnum(const pszServer: PChar; sLevel: SmallInt;
    pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;

    var

     pcTotalAvail: Word): DWORD;

    где:

    pszServer - сетевое имя машины;
    sLevel - уровень доступа, для Win'9X всегда 50;
    pbBuffer - указатель буфера, в который будет
                помещен массив с информацией о сетевых ресурсах
    cbBuffer - размер этого буфера;
    pcEntriesRead - количество доступных сетевых ресурсов;
    pcTotalAvail - общее количество байт, считанных функцией.

Так как мы рассматриваем работу NetShare* функций на конкретном примере, немного модифицируем функцию, в нашем случае процедуру, получающую информацию о доступных сетевых ресурсах. В качестве аргумента нашей процедуры передадим переменную типа TStrings, в которую будем помещать имена сетевых ресурсов.

    Procedure

     TForm1.FillShareEnum(Items:TStrings);

    Var

    ShareInfo:Array[0..MaxNetArrayItems-1] Of TShareInfo50;
    EntriesRead, TotalAvial:Word;
    Res:Integer;
    N:Integer;

    Begin

    Items.Clear;

    //почистим Items

    FillChar(ShareInfo,SizeOf(ShareInfo),

    #0

    );

    //заполним буфер нолями

    Res:=NetShareEnum(PChar(

    '\\'

    +edComputerNetName.Text),50,@ShareInfo,SizeOf(ShareInfo),
    EntriesRead,TotalAvial);

    //имя сетевой машины возьмем из строки ввода,
    //предварительно озаглавив его двумя обратными слэшами

    If

     Res = No_Error

    Then

    //функция выполнена без ошибок

    For

     N:=0

    To

     EntriesRead -1

    Do

    //пройдемся по буферу считанных имен ресурсов

    If Not

     (

    String

    (ShareInfo[N].shi50_netname)='')

    Then

    Items.Add(String(ShareInfo[N].shi50_netname));

    //добавим имя машины в список

    End

    ;

В принципе, обрабатывая ShareInfo[N], мы уже можем видеть все параметры открытого доступа для сетевого ресурса. На этом можно было бы и остановиться. Но... пойдем дальше.

Шаг третий. NetShareGetInfo - получение информации о сетевом ресурсе.

Зная имя сетевой машины и имя конкретного сетевого ресурса, мы можем получить достаточно подробную информацию об этом ресурсе, но не более, чем может это предоставить переменная TShareInfo50, описание которой дано в первой статье . Функция NetShareGetInfo в отличие от ранее описанной имеет одну особенность - мы должны заранее указать размер считываемых байт. Для этого пойдем на небольшую хитрость - сначала посмотрим сколько байт в памяти занимает информация о ресурсе, а затем укажем это количество в качестве размерности буфера. Ну и напишем нашу функцию с учетом конкретной прикладной задачи. В аргументы функции поместим имя машины и имя ресурса, а в качестве результата выдадим определенную нами (см. листинг программы ) переменную типа TShareEvent.
Но, вначале прототип самой функции:

    Function

     NetShareGetInfo(const pszServer: PChar; const pszNetName: PChar;
    sLevel: SmallInt; pbBuffer: Pointer; cbBuffer: Word; var pcTotalAvail:
    Word): DWORD;

    где:

    pszServer - имя сетевой машины;
    pszNetName - имя сетевого ресурса;
    sLevel - уровень доступа;
    pbBuffer - указатель на буфер, в нашем случае указатель
                        на буфер типа TShareInfo50;
    cbBuffer - размерность буфера;
    pcTotalAvail - количество считанных байт.

А теперь пример ее использования.

    Function TForm1.GetShareInfo(ComputerNetName,
                      ResourceNetName:String):TShareEvent;
    Var pbBuffer:^TShareInfo50;

    //указатель на буфер

    Buf:TShareInfo50;

    //сам буфер

    Res:Integer;
    pcTotalAvail:Word;

     //количество считанных байт

    Begin

    With

     Result

    Do

    //почистим результат функции

    Begin

    res:=0;
    ReadOnlyPassword:=

    ''

    ;
    FullAccessPassword:=

    ''

    ;
    Comments:=

    ''

    ;
    Path:=

    ''

    ;

    End

    ;
    FillChar(Buf,SizeOf(Buf),#0);

    //заполним буфер нолями
    //ничего не укажем о нашем буфере и выполним функцию, в результате чего
    //получим в переменную pcTotalAvail количество считанных байт.

    NetShareGetInfo(PChar(ComputerNetName),
    PChar(ResourceNetName),50,Nil,0,pcTotalAvail);

    //инициализируем буферный указатель и дадим ему нужное количество памяти

    GetMem(pbBuffer,pcToTalAvail);

    //поместим в буфер имя сетевого ресурса, зачем не знаю - имя мы уже и так
    //указываем, но без этого функция почему-то не работает,
    //по крайней мере у меня

    StrPCopy(pbBuffer^.shi50_netname,ResourceNetName);

    //выполним функцию еще раз уже указав параметры буфера

    Res:=NetShareGetInfo(PChar(ComputerNetName),PChar(ResourceNetName),
    50,pbBuffer,pcTotalAvail,pcTotalAvail);

    If

     Res = 0

    Then

    //все в порядке

    Begin

    //передадим данные из указателя в "обычную" переменную

    Buf:=pbBuffer^;

    //заполним результат полученными значениями

    Result.ReadOnlyPassword:=String(Buf.shi50_ro_password);
    Result.FullAccessPassword:=String(Buf.shi50_rw_password);
    Result.Comments:=String(Buf.shi50_remark);
    Result.Path:=String(Buf.shi50_path);

    End

    ;

    //освободим указатель

    FreeMem(pbBuffer);

    End

    ;

Все бы хорошо. Но... Есть одно "но". Сетевая машина не покажет Вам параметры своих сетевых устройств, пока не услышит "Сезам, откройся!".

Шаг четвертый. "Сезам, откройся! Я - магический ADMIN$".

Вообще-то в рассматриваемой программе это не четвертый шаг, а второй. Но для описания работы программы будет лучше, если будем ее рассматривать именно в такой последовательности. Да, еще - рассказ о сетевом имени ADMIN$ был в предыдущей статье , поэтому - сразу к делу.

    Procedure

     TForm1.ConnectAdmin;

    Var

    CompName:

    String

    ;
    Res:Integer;
    lpNetResource:TNetResource;
    ComputerName:

    Array

    [0..MAX_COMPUTERNAME_LENGTH]

    Of

     Char;
    BufSize:Integer;

    Begin

    //получим имя локальной машины

    BufSize:=MAX_COMPUTERNAME_LENGTH + 1;
    GetComputerName(@ComputerName,BufSize);
    CompName:=String(ComputerName);

    //если имя локальной машины совпадает с сетевым именем машины,
    //значит идет запрос о сетевом ресурсе локальной машины -
    //в этом случае ADMIN$ не нужен

    If

     AnsiUpperCase(CompName)= AnsiUpperCase(edComputerNetName.Text)

    Then Exit

    ;

    //заполним нолями значение указателя

    ZeroMemory(@lpNetResource,SizeOf(lpNetResource));

    //укажем нужные значения

    With

     lpNetResource

    Do

    Begin

    dwType:=RESOURCETYPE_ANY;
    lpRemoteName:=

    ''

    ;
    lpRemoteName:=PChar(

    '\\'

    +edComputerNetName.Text+

    '\ADMIN$'

    +

    #0

    );

    End

    ;

    //Сезам, откройся!

    Res:=WNetAddConnection3(Application.Handle,
    lpNetResource,Nil,Nil,CONNECT_INTERACTIVE);

    //Сезам, к сожалению не открылся...

    If Not

     (Res= NO_ERROR)

    Then

    Begin

    ShowMessage('

    Without connected resource ''ADMIN$'' a work impossible!'

    );
    Application.Terminate;

    End

    ;

    End

    ;

Шаг пятый и последний. Листинг программы.

Что надо положить на форму смотрите в описании TForm1 = class(TForm) или откройте вложенный в качестве примера проект программы.

    unit

     Unit1;

    interface

    uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls, ShlObj, Buttons;

    //необходимые константы

    const

        LM20_NNLEN = 12;
        SHPWLEN = 8;
        SHI50F_RDONLY = 1;
        SHI50F_FULL = 2;
        STYPE_DISKTREE = 0;

        MaxNetArrayItems=512;

    //формируем тип для записи с необходимыми параметрами

    type

    //для Win'9x

    TShareInfo50 =

    packed record

        shi50_netname: array[0..LM20_NNLEN] of Char;

    //сетевое имя

        shi50_type: Byte;

    //тип ресурса

        shi50_flags: Short;

    //флаг доступа

        shi50_remark: PChar;

    // комментарий

        shi50_path: PChar;

    // путь к ресурсу

        shi50_rw_password: array[0..SHPWLEN] of Char;

    //пароль полного доступа

        shi50_ro_password: array[0..SHPWLEN] of Char;

    //пароль "только чтение" доступа

    end

    ;

    TShareEvent =

    Record

    //информация о сетевом ресурсе

        Res:Integer;
        ReadOnlyPassword:String;
        FullAccessPassword:String;
        Comments:String;
        Path:String;

    End

    ;

    TForm1 =

    class

    (TForm)
        edComputerNetName: TEdit;
        Button1: TButton;
        ComboBox1: TComboBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        lbReadOnlyPassword: TLabel;
        edReadOnlyPassword: TEdit;
        lbFullAccessPassword: TLabel;
        edFullAccessPassword: TEdit;
        lbComments: TLabel;
        edComments: TEdit;
        lbPhysicalPath: TLabel;
        edPhysicalPath: TEdit;
        Label1: TLabel;
        Label2: TLabel;

    procedure

     Button1Click(Sender: TObject);

    procedure

     BitBtn1Click(Sender: TObject);

    procedure

     BitBtn2Click(Sender: TObject);

    private

            { Private declarations }

    Procedure

     FillShareEnum(Items:TStrings);

    Function

     GetComputerNetName:

    String

    ;

    Function

     GetShareInfo(ComputerNetName,ResourceNetName:String):TShareEvent;

    Procedure

     ConnectAdmin;

    public

            { Public declarations }

    end

    ;

    var

        Form1: TForm1;

    Function

     NetShareGetInfo(const pszServer: PChar; const pszNetName: PChar;
        sLevel: SmallInt; pbBuffer: Pointer; cbBuffer: Word;
        var pcTotalAvail: Word): DWORD; stdcall; External

    'svrapi.dll'

     name

    'NetShareGetInfo'

    ;

    Function

     NetShareEnum(const pszServer: PChar; sLevel: SmallInt;
        pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
        var pcTotalAvail: Word): DWORD; stdcall; external

    'svrapi.dll'

    ;

    implementation

    {$R *.DFM}

    Procedure

     TForm1.ConnectAdmin;

    Var

    CompName:String;
    Res:Integer;
    lpNetResource:TNetResource;
    ComputerName:Array[0..MAX_COMPUTERNAME_LENGTH] Of Char;
    BufSize:Integer;

    Begin

    //получим имя локальной машины

    BufSize:=MAX_COMPUTERNAME_LENGTH + 1;
    GetComputerName(@ComputerName,BufSize);
    CompName:=String(ComputerName);

    //если имя локальной машины совпадает с сетевым именем машины,
    //значит идет запрос о сетевом ресурсе локальной машины -
    //в этом случае ADMIN$ не нужен

    If

     AnsiUpperCase(CompName)= AnsiUpperCase(edComputerNetName.Text)

    Then

    Exit

    ;

    //заполним нолями значение указателя

    ZeroMemory(@lpNetResource,SizeOf(lpNetResource));

    //укажем нужные значения

    With

     lpNetResource Do

    Begin

    dwType:=RESOURCETYPE_ANY;
    lpRemoteName:=

    ''

    ;
    lpRemoteName:=PChar(

    '\\'

    +edComputerNetName.Text+

    '\ADMIN$'

    +

    #0

    );

    end

    ;

    //Сезам, откройся!

    Res:=WNetAddConnection3(Application.Handle,
    lpNetResource,Nil,Nil,CONNECT_INTERACTIVE);

    //Сезам, к сожалению не открылся...

    If

     Not(Res= NO_ERROR) Then

    Begin

    ShowMessage(

    'With out connected resource ''ADMIN$'' a work impossible!'

    );
    Application.Terminate;

    end

    ;

    end

    ;

    Function

     TForm1.GetShareInfo(ComputerNetName,
    ResourceNetName:String):TShareEvent;

    Var

    pbBuffer:^TShareInfo50;

    //указатель на буфер

    Buf:TShareInfo50;

    //сам буфер

    Res:Integer;
    pcTotalAvail:Word;

    //количество считанных байт

    Begin

    With

     Result

    Do

    //почистим результат функции

    Begin

    res:=0;
    ReadOnlyPassword:=

    ''

    ;
    FullAccessPassword:=

    ''

    ;
    Comments:=

    ''

    ;
    Path:=

    ''

    ;

    end

    ;
    FillChar(Buf,SizeOf(Buf),#0);

    //заполним буфер нолями
    //ничего не укажем о нашем буфере и выполним функцию, в результате чего
    //получим в переменную pcTotalAvail количество считанных байт.

    NetShareGetInfo(PChar(ComputerNetName),
    PChar(ResourceNetName),50,Nil,0,pcTotalAvail);

    //инициализируем буферный указатель и дадим ему нужное количество памяти

    GetMem(pbBuffer,pcToTalAvail);

    //поместим в буфер имя сетевого ресурса, зачем не знаю - имя мы уже и так
    //указываем, но без этого функция почему-то не работает,
    //по крайней мере у меня

    StrPCopy(pbBuffer^.shi50_netname,ResourceNetName);

    //выполним функцию еще раз уже указав параметры буфера

    Res:=NetShareGetInfo(PChar(ComputerNetName),
    PChar(ResourceNetName),50,pbBuffer,pcTotalAvail,pcTotalAvail);

    If

     Res = 0

    Then

    //все в порядке

    Begin

    //передадим данные из указателя в "обычную" переменную

    Buf:=pbBuffer^;

    //заполним результат полученными значениями

    Result.ReadOnlyPassword:=String(Buf.shi50_ro_password);
    Result.FullAccessPassword:=String(Buf.shi50_rw_password);
    Result.Comments:=String(Buf.shi50_remark);
    Result.Path:=String(Buf.shi50_path);

    end

    ;

    //освободим указатель

    FreeMem(pbBuffer);

    end

    ;

    Procedure

     TForm1.FillShareEnum(Items:TStrings);

    Var

    ShareInfo:Array[0..MaxNetArrayItems-1] Of TShareInfo50;
    EntriesRead, TotalAvial:Word;
    Res:Integer;
    N:Integer;

    Begin

    Items.Clear;

    //почистим Items

    FillChar(ShareInfo,SizeOf(ShareInfo),#0);

    //заполним буфер нолями

    Res:=NetShareEnum(PChar(

    '\\'

    +edComputerNetName.Text),50,@ShareInfo,SizeOf(ShareInfo),
    EntriesRead,TotalAvial);

    //имя сетевой машины возьмем из строки ввода,
    //предварительно озаглавив его двумя обратными слэшами

    If

     Res = No_Error

    Then

    //функция выполнена без ошибок

    For N:=0 To EntriesRead -1

    Do

    //пройдемся по буферу считанных имен ресурсов

    If

     Not (String(ShareInfo[N].shi50_netname)=

    ''

    ) Then
    Items.Add(String(ShareInfo[N].shi50_netname));

    //добавим имя машины в список

    end

    ;

    Function

     TForm1.GetComputerNetName:String;

    Var

    RootItemIDList:PItemIDList;

    //идентификатор объекта в пространстве имен проводника

    BrowseInfo:TBrowseInfo;

    //структура, в которой содержится информация о диалоге

    Buffer:PChar;

    //сюда получим имя компьютера

    Begin

    Result:=

    ''

    ;

    //получим нужный идентификатор
    //PItemIDList, CSIDL_NETWORK - в сетевом окружении

    If

     Not(SHGetSpecialFolderLocation(0,CSIDL_NETWORK,RootItemIDList)=NO_ERROR)

    Then Exit

    ;

    //подготовим буфер, в который получим имя компьютера

    GetMem(Buffer,Max_Path);
    FillChar(BrowseInfo,SizeOf(BrowseInfo),0);

    //подготовим структуру TBrowseInfo

    With

     BrowseInfo Do

    Begin

     {

    With

     BrowseInfo}
    hwndOwner:=Application.Handle;

    //хозяин окна - наше приложение

    pidlRoot:=RootItemIDList;

    //полученный ранее идентификатор
    // объекта в списке объектов проводника

    pszDisplayName:=Buffer;

    //имя компьютера будем принимать в Buffer

    lpszTitle:=

    'Подключенные компьютеры'

    ;

    //заголовок диалога

    ulFlags:=B

    If

    _BROWSEFORCOMPUTER;

    //будут показаны имена только компьютеров

    end

    ; {

    With

     BrowseInfo}

    //выполним нужную функцию

    If

     SHBrowseForFolder(BrowseInfo)=Nil

    Then

    Exit

    ;
    Result:=String(Buffer);

    //вот оно - сетевое имя компьютера

    FreeMem(Buffer);

    end

    ;

    Procedure

     TForm1.Button1Click(Snder: TObject);

    Begin

    edComputerNetName.Text:=GetComputerNetName;
    FillShareEnum(ComboBox1.Items);
    ComboBox1.ItemIndex:=0;

    end

    ;

    Procedure

     TForm1.BitBtn1Click(Sender: TObject);

    Var

    ShareEvent:TShareEvent;

    Begin

    If

     (edComputerNetName.Text=

    ''

    ) Or (ComboBox1.Text=

    ''

    ) Then

    Begin

    edComputerNetName.SetFocus;

    Exit

    ;

    end

    ;
    ConnectAdmin;
    ShareEvent:=GetShareInfo(

    '\\'

    +edComputerNetName.Text,ComboBox1.Text);
    edReadOnlyPassword.Text:=ShareEvent.ReadOnlyPassword;
    edFullAccessPassword.Text:=ShareEvent.FullAccessPassword;
    edComments.Text:=ShareEvent.Comments;
    edPhysicalPath.Text:=ShareEvent.Path;

    end

    ;

    Procedure

     TForm1.BitBtn2Click(S

    end

    er: TObject);

    Begin

    Close;

    end

    ;

    end

    .