Получение UNC пути в 1С

15.02.10

База данных - Инструменты администратора БД

Иногда возникает ситуация когда надо знать UNC путь к какому либо файлу

Итак, я столкнулся с ситуацией когда необходимо знать UNC путь к базе данных.

 

Universal Naming Convention — универсальное соглашение об именовании

Имя, соответствующее соглашению об универсальном назначении имен, полное имя ресурса в сети, включающее имя сервера и имя совместно используемого ресурса; для каталогов или файлов могут также включать полный путь к этому ресурсу.

Синтаксис для Universal Naming Convention (UNC), как путь к сетевому ресурсу, представляется следующим:

\\server_name\share_name[\path]

где «share_name» — это сетевое имя общей папки, а «path» — путь к файлу из общей папки (необязательный параметр).

UNC путь «\\Srv1\Folder1\Sub1\report.doc» показывает, что документ report.doc расположен в подпапке — Sub1, общей сетевой папки по имени — Folder1, на файловом сервере по имени — Srv1.

В общем не нашел как это возможно получить средствами 1С. Пришлось извратиться, да не сильно..

Вам понадобиться: 

1. Dynwrapx.dll Можно взять с сайта http://www.scriptcoding.info/dynwrapx.html#addons.

2. Регистрация в как OLE  в системе Dynwrapx.dl

команда: regsvr32 \\ПутьКФайлу\Dynwrapx.dll

3. Регистрация методов 

 

DX = новый COMОбъект("DynamicWrapperX");

 //Регистрация нужной процедуры из библиотеки Mpr.dll

DX.Register(" Mpr.dll", " WNetGetUniversalName", "i=pupu", "r=l");

 

  Промежуток  = Путь;

 

    // Объявляем буфер 

    ppBuffer = DX.StrPtr(DX.Space(260));

    // Передаю пустую строку с 1 символом 

    ppBufferSize = DX.StrPtr(DX.Space(1));

 

    // Получаем UNC путь

    // DWORD WNetGetUniversalName(

    //  __in     LPCTSTR lpLocalPath, //Передаем строку как есть

    //  __in     DWORD dwInfoLevel,   //1 - UNIVERSAL_NAME_INFO_LEVEL  2 - REMOTE_NAME_INFO_LEVEL

    //  __out    LPVOID lpBuffer,     //Передаем адресс буфера для заполнения строкой

    //  __inout  LPDWORD lpBufferSize //Передаем адресс буфера для помещения туда полученного размера 

    //);

    // более подробно на сайте microsoft: http://msdn.microsoft.com/en-us/library/aa385474(VS.85).aspx

    ppReturn_Erorr = DX.WNetGetUniversalName(Промежуток,1,ppBuffer,ppBufferSize);

 

    ////////////////////

    // ОПИСАНИЕ ОШИБОК 

    ERROR_BAD_DEVICE            = 1200;

    //The string pointed to by the lpLocalPath parameter is invalid.

    ERROR_CONNECTION_UNAVAIL    = 1201;

    //There is no current connection to the remote device, but there is a remembered (persistent) connection to it.

    ERROR_EXTENDED_ERROR        = 1208;

    //A network-specific error occurred. Use the WNetGetLastError function to obtain a description of the error.

    ERROR_MORE_DATA             = 234;

    //The buffer pointed to by the lpBuffer parameter is too small. The function sets the variable pointed to by the lpBufferSize parameter to the required buffer size. More entries are available with subsequent calls.

    ERROR_NOT_SUPPORTED         = 50;

    //The dwInfoLevel parameter is set to UNIVERSAL_NAME_INFO_LEVEL, but the network provider does not support UNC names. (None of the network providers support this function.)

    ERROR_NO_NET_OR_BAD_PATH    = 1203;

    //None of the network providers recognize the local name as having a connection. However, the network is not available for at least one provider to whom the connection may belong.

    ERROR_NO_NETWORK            = 1222;

    //The network is unavailable.

    ERROR_NOT_CONNECTED         = 2250;

    //The device specified by the lpLocalPath parameter is not redirected.

 

    Если ppReturn_Erorr = 0 Тогда

 

        // Получение значения результата из буфера

        Результат = СокрЛП(DX.StrGet(ppBuffer)) ;

 

        Если Не ПустаяСтрока(СокрЛП(Результат))

            И СокрЛП(Результат) <> СокрЛП(Путь) Тогда 

            // Для символа первые не определяются отрежим их

            Путь = Прав(Результат,СтрДлина(Результат)-2);

        КонецЕсли;

        // Необходимо очистить ppBuffer,pBytesReturned

        ppBuffer = Неопределено;

        ppBufferSize = Неопределено;

 

    ИначеЕсли ppReturn_Erorr = ERROR_NOT_CONNECTED Тогда

        Ошибка = "The device specified by the lpLocalPath parameter is not redirected.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_NO_NETWORK Тогда

        Ошибка = "The network is unavailable.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_NO_NET_OR_BAD_PATH Тогда

        Ошибка = "None of the network providers recognize the local name as having a connection. 

        |However, the network is not available for at least one provider to whom the connection may belong.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

     ИначеЕсли ppReturn_Erorr = ERROR_NOT_SUPPORTED Тогда

        Ошибка = "The dwInfoLevel parameter is set to UNIVERSAL_NAME_INFO_LEVEL, but the network provider does not support UNC names. 

        |(None of the network providers support this function.)";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_MORE_DATA Тогда

        Ошибка = "The buffer pointed to by the lpBuffer parameter is too small. The function sets the variable pointed to by the lpBufferSize parameter to the required buffer size. 

        |More entries are available with subsequent calls.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_EXTENDED_ERROR Тогда

        Ошибка = "A network-specific error occurred. Use the WNetGetLastError function to obtain a description of the error.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_CONNECTION_UNAVAIL Тогда

        Ошибка = "There is no current connection to the remote device, but there is a remembered (persistent) connection to it.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    ИначеЕсли ppReturn_Erorr = ERROR_BAD_DEVICE Тогда

        Ошибка = "The string pointed to by the lpLocalPath parameter is invalid.";

        Сообщить("Ошибка преобразования к UNC: " + Ошибка);     

    Иначе

        Сообщить("Неизвестная ошибка преобразования к UNC"); 

    КонецЕсли;

 

 

 

Данным кодом можно получить F:\... -> \\Server\...

Меня данная фигня спасла .. Если кто знает как получать UNC путь средствами 1С буду благодарен если напишет как это сделать.

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2956    12    1    

34

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 8000 руб.

10.11.2023    3488    11    1    

33

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177712    1073    0    

848

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27365    79    146    

59

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61307    88    59    

73

"Менеджер потоков 2.1": УПП: "Восстановление партий"

Инструменты администратора БД Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Платные (руб)

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11738    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    31104    31    18    

47

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10973    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. SiAl 76 16.02.10 14:02 Сейчас в теме
А поиграться с выводом net share или использовать WMI не гуд? Думаю кода было бы меньше.
2. khorevaa 113 17.02.10 11:08 Сейчас в теме
(1) Да кода не так уж и много в основном код отладки ошибок ..
Да и чет не в курсе как получить UNС через net share или WMI.
Главное что бы путь возвращался в 1С )
3. Kurt 110 17.02.10 12:28 Сейчас в теме
Не понял. Зачем так сложно? ... или не понял :)
В 1С 7.7 есть следующие полезные вещи:

КаталогИБ() - Возвращает имя каталога базы данных (изначально вроде об этом шла речь?). Если база запущена по сетевому пути, то UNC путь вам и вернет. (Если база запущена с подключенного сетевого диска, то извините, этот диск вам и покажет)

РасположениеФайла(<Путь>,<Имя>) - Данный метод следует использовать только в модуле формы внешнего отчета. Если отчет запущен из сети, то UNC путь вам и вернет в переменной Путь, а в переменную Имя - соответственно имя работающего отчета.

ну вот как-то так.
4. khorevaa 113 03.03.10 08:36 Сейчас в теме
(3) К сожалению вы говорите о 7.? мне же данное действо надо сделать в 8.1. В 8.1 отсутствует "РасположениеФайла", а КаталогИБ не подходит т.к. необходимо получить не путь к базе которая запущена, а UNC путь к внешней базе данных на ADS. Вот поэтому и был я вынужден "извращатся" :D
5. pavlo 30.06.10 14:17 Сейчас в теме
а если юзаешь обработку файлов через ФС.НайтиСледующийФайл() и т.д. в 7.7. никакое расположениеФайла() и КаталогИБ() не поможет :( идея не плохая, но мне имхо кажется как то муторно :) но своих пока идей нет, думаю.... ;)
6. AVKitov 19.11.20 12:54 Сейчас в теме
я возможно не понял смысла вышеописанных действий, но UNC путь, это просто путь к папке по сети. то-есть мы, создаем папку, расшариваем и видим путь к файлу.
Прикрепленные файлы:
Оставьте свое сообщение