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