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

Публикация № 65747

Разработка - Практика программирования

4
Иногда возникает ситуация когда надо знать 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С буду благодарен если напишет как это сделать.

4

Специальные предложения

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

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

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

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

См. также

Приватный блокчейн и 1С популярно 5

Статья no Нет файла Бесплатно (free) Практика программирования Блокчейн

Две предыдущие публикации на эту тему были сфокусированы преимущественно на технической стороне вопроса. Кроме того, их содержание оказалось понятным не каждому специалисту. В этой статье я постараюсь обяснить для всех и, что говорится, «на пальцах»: что такое приватный блокчейн, когда и зачем его следует применять и на что обратить внимание при использовании этой технологии в 1С.

02.09.2019    1463    mkalimulin    140       

Кодогенерация и метагенерация в 1С 24

Статья Программист Нет файла Бесплатно (free) Практика программирования Математика и алгоритмы Разработка

В своем докладе на конференции INFOSTART EVENT 2018 EDUCATION Дмитрий Белозеров рассказал о разработке инструмента, позволяющего программно работать с метаданными 1С и писать скрипты для выполнения тех же действий, которые выполняет разработчик в конфигураторе –  с какими сложностями и нюансами пришлось столкнуться, и что получилось в итоге.

26.08.2019    3947    kirovsbis    28       

Интеграция сценарного тестирования в процесс разработки 81

Статья Программист Нет файла Бесплатно (free) Практика программирования Разработка

Разработчик системы «Тестер» Дмитрий Решитко в своем докладе на конференции INFOSTART EVENT 2018 EDUCATION показывает, что процесс тестирования можно очень плотно интегрировать в процесс разработки, что внедрение тестирования – это возможность развития программиста как такового, позволяющая ему упорядочивать ход мыслей и оставаться «в фокусе». Навыки построения процесса кодирования на стыке с тестированием сокращают время на концентрацию, освобождают от страха перед изменениями и улучшают память разработчика.

08.07.2019    4364    grumagargler    7       

Управляй качеством кода 1С с помощью SonarQube 220

Статья Программист Нет файла Россия Бесплатно (free) Практика программирования Разработка

Управляй техническом долгом проектов 1С с помощью SonarQube. В статье рассматривается пример применения SonarQube при разработке.

07.07.2019    15892    olegtymko    191       

Выгрузка документа по условию 5

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Разработка

Что делать, если документы нужно выгружать не все подряд, а по какому-то фильтру: статусу, дате, набору условий... А что если он соответствовал этим условиям, а потом перестал? А если потом опять начал? Такие ситуации заставили попотеть не одного программиста.

25.04.2019    4721    m-rv    2       

Как прикрутить ГУИД к регистру сведений 23

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Перенос данных из 1C8 в 1C8 Разработка

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

16.04.2019    7233    m-rv    16       

О времени и 1С 206

Статья Программист Нет файла Бесплатно (free) Практика программирования Разработка

Основы и особенности работы со временем в 1С. Как избавиться от боли при работе в разных часовых поясах. Что такое момент времени. И другое.

01.04.2019    15083    YPermitin    58       

Пример создания bridge (http api - tcp) для ККТ "Касса №1" ("К1-Ф") 5

Статья Системный администратор Программист Нет файла Россия Кассовые операции Бесплатно (free) Практика программирования Разработка ККМ

Пример создания bridge (http api - tcp) для ККТ "Касса №1" ("К1-Ф"). Данная статья будет полезна интеграторам, программистам, тем кто работает (интегрирует, разрабатывает) различное ТО либо железки. Версия и релиз технологической платформы не имеет значения.

17.03.2019    2932    dmarenin    0       

Быстрее чем INSERT! BULK-операции и примеры использования 112

Статья Системный администратор Программист Нет файла Бесплатно (free) Производительность и оптимизация (HighLoad) Практика программирования Разработка Внешние источники данных Перенос данных из 1C8 в 1C8

Microsoft SQL Server поддерживает так называемые BULK-операции, используемые для быстрого изменения больших объемов данных в базе. В статье пойдет речь о практических примерах их использования. Все примеры сделаны в контексте платформы 1С (а как иначе).

09.03.2019    9632    YPermitin    38       

Как писать понятные коммиты 67

Статья Программист Нет файла Россия Бесплатно (free) Практика программирования Разработка

Как писать сообщения коммитов так, чтобы потом не было мучительно больно.

06.03.2019    7790    Scorpion4eg    34       

Расширяем свой багаж 2

Статья Программист Нет файла Бесплатно (free) Практика программирования Разработка

Алгоритм решения возможной нетиповой задачи на собеседовании.

29.01.2019    3268    scientes    15       

Подготовка ребёнка* к ЕГЭ по информатике. Часть четвертая 4

Статья Программист Нет файла Бесплатно (free) Практика программирования Разработка

Решение систем логических уравнений повышенного уровня сложности.

25.01.2019    3033    vasilev2015    0       

Подготовка ребенка* к ЕГЭ по информатике. Часть вторая 2

Статья Программист Нет файла Бесплатно (free) Практика программирования

Примеры на Паскале. Если сам родитель* - поддержи ! Если сам водила - посигналь !

19.01.2019    3266    vasilev2015    0       

Подготовка к ЕГЭ сына - школьника (по информатике) 9

Статья Программист Нет файла Бесплатно (free) Практика программирования

Примеры на Паскале. Если сам отец - поддержи ! Если сам водила - посигналь !

17.01.2019    3779    vasilev2015    50       

Быстрая отладка экранных форм документов и справочников 19

Статья Программист Нет файла Бесплатно (free) Практика программирования

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

18.12.2018    4561    milkers    19       

1С + asterisk (автоматический обзвон) часть 1 38

Статья Системный администратор Программист Нет файла Россия Бесплатно (free) Практика программирования WEB Телефония, SIP

Пример реализации автообзвона (с обработкой ответа на отвечающей стороне) с использованием ami asterisk. Данная статья может быть полезна программистам, интеграторам, администраторам. Версия и релиз технологической платформы не имеет значения.

29.11.2018    7174    dmarenin    9       

Автоматические и управляемые блокировки применительно к типовым конфигурациям 1С 125

Статья Программист Нет файла v8 v8::blocking 1cv8.cf Бесплатно (free) Математика и алгоритмы Практика программирования

Основные принципы работы с режимами автоматических и управляемых блокировок в 1С Предприятие 8. Теория и применение в типовых конфигурациях: БП, УТ, ЕРП

10.11.2018    20685    ids79    40       

Развитие 1С программиста 50

Статья Программист Нет файла Бесплатно (free) Практика программирования Личная эффективность

Делюсь своим опытом и видением развития 1С программиста.

17.10.2018    13447    pashamak    62       

Вспомогательные инструкции в коде 1С 104

Статья Программист Нет файла v8 1cv8.cf Бесплатно (free) Практика программирования

Помогаем редактору кода 1С помогать нам писать и анализировать код.

15.10.2018    20329    tormozit    100       

Записки про metadata.js 53

Статья Программист Нет файла Бесплатно (free) Практика программирования

Отличительные особенности разработки на metadata.js

31.07.2018    9064    1c-intelligence    59       

Учебный курс. Повышение качества разработки. Ошибки программы 96

Статья Программист Нет файла Бесплатно (free) Практика программирования Математика и алгоритмы Рефакторинг и качество кода

Учебный курс по теории и практике программирования. Бесплатно. В виде структурированного текста. Лекции № 3,4,5. Эти лекции посвящены ошибкам программ, их классификации и способам исправления

10.07.2018    15720    Артано    90       

Автоматизируй это! 148

Статья Системный администратор Программист Нет файла Бесплатно (free) Практика программирования

Здравствуйте. Меня зовут Виталий Онянов. Я работаю в компании ФТО. Мы занимаемся внедрением и поддержкой ERP-систем, в том числе и на 1С. Сегодня я хотел бы поделиться нашим опытом автоматизации своих задач и рассказать о том, какие регламентные задания мы настраиваем на серверах наших клиентов. Возможно, кому-то покажется, что это совсем простые и очевидные вещи, но я в своей работе периодически вижу разработчиков, которые делают какие-то задачи руками изо дня в день, и мне бы хотелось донести до них мысль о том, что многие из этих задач можно и нужно автоматизировать.

02.07.2018    16058    Tavalik    12       

Повышаем эффективность разработки правил обмена 122

Статья Программист Нет файла v8 КД ОС Бесплатно (free) Практика программирования Перенос данных из 1C8 в 1C8

Как повысить скорость и качество разработки правил обмена? Как вести групповую разработку правил обмена? Как облегчить сопровождение правил обмена после передачи в эксплуатацию? Об этом и многом другом вы можете узнать из этой статьи.

25.06.2018    19185    olegtymko    43       

Как сделать запрос на изменение данных 75

Статья Программист Нет файла v8 v8::Запросы 1cv8.cf Бесплатно (free) Практика программирования

В статье приведены особенности внутренней архитектуры и примеры работы с расширением языка запросов 1С.

01.06.2018    21078    m-rv    21       

Учебный курс. Повышение качества разработки. Вводная лекция, часть 2 49

Статья Программист Нет файла Бесплатно (free) Практика программирования Математика и алгоритмы

Учебный курс по теории и практике программирования. Бесплатно. В виде структурированного текста. Лекция №2. Эта лекция посвящена абстракциям, их свойствами и практическому применению в рамках классических парадигм программирования.

24.05.2018    10646    Артано    36       

Строим графы средствами 1С (без GraphViz) 42

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования

Множество статей на Инфостарте описывают, как работать с компонентой GraphViz, чтобы построить ориентированный граф. Но практически нет материалов, как работать с такими графами средствами 1С. Сегодня я расскажу, как красиво строить графы с минимальным пересечением. Нам этот метод пригодился для отрисовки алгоритмов в БИТ.Финансе, т.к. типовой механизм не устраивал. Еще это может быть полезно для визуализации различных зависимостей: расчета себестоимости, графы аффилированности компаний и т.д. Надеюсь, эта статья поможет сделать мир 1С красивее и гармоничней:) Итак, поехали...

23.05.2018    16841    slozhenikin_com    19       

Распределение расходов пропорционально продажам 9

Статья Программист Пользователь Нет файла v8 v8::ОУ УТ10 УУ Финансовый учет и бюджетирование (FRP) Учет доходов и расходов Бесплатно (free) Практика программирования

Финансовая модель. Распределение административных расходов по подразделениям пропорционально продажам за месяц. Дополнительные реквизиты против бизнес-процессов!

13.05.2018    11249    Rustig    9       

Велостыли: Регламентные задания 15

Статья Программист Нет файла Россия Бесплатно (free) Практика программирования

Переделывая очередное «Костыльное» решение, в голову пришла мысль, собрать все странные решения в одну статью, чтобы была некая библиотека о том, как делать не надо (Навеяно вредными советами). Потом понял, что в одну статью не получится все записать, начну с регламентных заданий. Поясню, в данную статью попали примеры из жизни, которые так или иначе реализованы на механизме регламентных заданий, при этом совершенно не всегда этот подход в принципе оправдан.

09.05.2018    10205    dsdred    28       

Веб-разработка на 1Script. Глава 2 64

Статья Программист Нет файла Бесплатно (free) Практика программирования WEB

Продолжение учебника по веб-разработке с помощью фреймворка Oscript.Web. Структура приложения, основные объекты, URL-маршрутизация, универсальная консоль серверов 1С.

22.04.2018    12024    Evil Beaver    27       

Доброе программирование, или сказки для программистов 8

Статья Программист Нет файла Бесплатно (free) Практика программирования

Я попробовал составить список хорошего и доброго, что помогает читающему код жить легче. Возможно, остальные программисты меня поддержат))

03.03.2018    6166    Gladkov_Anton    9       

Минимализмы 3 350

Статья Программист Нет файла v8 Бесплатно (free) Практика программирования Универсальные функции

Очередная серия "минимализмов" [http://infostart.ru/public/306536/, https://infostart.ru/public/460935/]. Также, как и в предыдущих статьях, здесь приведена подборка коротких оригинальных авторских решений некоторых задач. Ранее эти решения были разбросаны по моим комментариям к чужим публикациям.

19.02.2018    35382    ildarovich    44       

Веб-разработка на 1Script. Глава 1 250

Статья Программист Нет файла Бесплатно (free) Практика программирования

Разрабатывать веб-приложения должно быть просто. И для этого 1С-ник не должен страдать, изучая десятки и сотни побочных технологий. В конце прошлого года я анонсировал разработку движка веб-приложений на языке 1С. Я планирую выпустить серию статей, оформленных в виде книги, или серии блог-постов, в которых постепенно будут описаны методики разработки сайтов на нашем любимом языке программирования – 1С.

12.02.2018    25505    Evil Beaver    97       

Версионирование правил обмена в Git 64

Статья Программист Нет файла Windows Бесплатно (free) Практика программирования

Статья рассказывает о принципах работы скриптов, позволяющих применять систему контроля версий git и подход gitflow для версионирования правил обмена.

15.12.2017    12917    bforce    22