Последнее обновление: 23 мая 2015 в 14:58
Подпишись на RSS
rss Подпишитесь на RSS, чтобы всегда быть в курсе событий.
2 февраля 2009 · Новости

Компания AOL, та самая , которая придумала и внедрила в массы такой сервис как ICQ в очередной раз, как они сами говорят — с целью борьбы с альтернативными клиентами изменила протокол для своей программы ICQ.


3 декабря 2013 · Игрушки

Когда начинаешь гулять с коляской понимаешь по настоящему какие у нас плохие пешеходные дорожки, в каком они убитом состоянии, какое отвратительное освещение на улицах. Вот и решил запилить подсветку для коляски, благо материалы для этого продаются на каждом углу. Как это выглядит ночью. Во первых, подсветку детской коляски нужно чем-то питать. Долго думать не стал […]


Метки

Метки записей
Оптимизация Армия сертфикаты Скачать 1С дравер MySQL скачать редактирование DBF Взлом Взлом 1С печать от поставщика Asus Eee Пошаговая свертка Oracle Обзоры Интернет Оборудование свертка Печатные формы бесплатно Командная строка свертка торговли XPE Интренет Юмор реестр Фото Свертка 1С узнать пароль Экстремальные игры Отчет Видео Деньги переустановка windows Проблемы Вирусы Отзывы LiveCD Dr.Web удаляем пароли просроченная дебиторская задолженность Драйвера office 2003 Windows XP Финансы пакетный запуск 1С Экономика office 2007 Делаем LiveCD Драйвер ODBC скачать Сайты Методика свертки 1С Drivers заблокирован мошенничество взломать пароль Спорт СМС 1с реестр перенумарация сайт вирус восстановить нумерацию уменьшить размер базы антивирус Обработки Установка Windows Новая форма счет-Фактуры удаление документов Кино Жизнь Интерент партии Отношения антивирусы вирус SMS Свертка базы 1С Интересные места Программы Документы на почту Подключить 1С к MySQL Альпинизм Автомобили Бухгалтерия Игры Спутниковое ТВ сбились номера документов связь расчет ПЗД скачать конвертер office 2003-2007 Лирика автоматизация Вся Вопросы Добавить новую метку Свертка по партиям Мужчина и женщина Анализ ПДЗ Файлы 1С Система Zver DVD программы для слепых гаджеты портативный аккумулятор открыть xlsx docx вирус эмулирует нажатие Win Программы для 1С HP Pavilion dv6000 свертка в картинках контент-провайдер Работа ZverCD Удаление партий сверка базы 1С Ошибки 1С homachi локальная сеть через интернет перенос документов новости код защита Структура 1С Взлом 1 СМС оплата автозапуск jaws День жестянщика Загрузка с компакт - диска 1с и MySQL
23 мая 2015

Как работать с Яндекс Диском из 1С

Автор статьи: , 23 мая 2015 в рубрике , Вопросы и ответы. . Просмотров: 3 451

i Как работать с Яндекс Диском из 1С

До недавнего времени работала конструкция, использующая WebDAV, код 1С выглядел примерно так:

Приемник = "https://ЛОГИН:ПАРОЛЬ@webdav.yandex.ru/ИМЯФАЙЛА.XML";
Приемник = "c:\ИМЯФАЙЛА.XML";
КопироватьФайл(Источник, Приемник);

Где,

ЛОГИН — имя пользователя на Яндекс-Диске,
ПАРОЛЬ — соответственно, пароль пользователя,
Но недавно я обнаружил, что Яндекс диск включил SSL — шифрование и вышеприведенный код перестал работать.

Для моих наработок необходим более простой способ обмена.

Я пришел к выводу, что можно подключать Яндекс-Диск как локальный диск в операционную систему. Этот способ даже предпочтительнее, так как дает более широкие возможности при работе с яндексом. В этом случае мы работаем с ЯД как с обычным локальным диском и получаем в свое распоряжение весь инструментарий 1С для работы с файлами. Приведу несколько примеров:

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

1. Подключаем ЯД с помощью команды операционной системы


ЗапуститьПриложение("net use ИМЯДИСКА: \\webdav.yandex.ru@SSL /USER:ЛОГИН ПАРОЛЬ");

ИМЯДИСКА — буква диска в системе (нужно чтобы была не занята, например «Q»)

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

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

Поэтому используем следующий способ

2. Подключаем ЯД с ожиданием подключения

WshShell = Новый COMОбъект("WScript.Shell");
WshShell.Run("net use ИМЯДИСКА: \\webdav.yandex.ru@SSL /USER:ЛОГИН ПАРОЛЬ", 1, 10);

10 — время ожидания ответа в секундах.

3. Копируем один файл

КопироватьФайл(ПутьФайлаЛокально,ПутьФайлаНаЯД);

или

КопироватьФайл("C:\test.xml",R:\test.xml);

4. Копировать несколько файлов

НайденныеФайлы = НайтиФайлы("C:\","*.*");
Для Каждого файл из НайденныеФайлы Цикл
КопироватьФайл(Файл.ПолноеИмя,"Q:\"+Файл.Имя);
КонецЦикла;

5. Удалить файлы

НайденныеФайлы = НайтиФайлы("Q:\","*.*");
Для Каждого файл из НайденныеФайлы Цикл
УдалитьФайлы("Q:\"+Файл.Имя);
КонецЦикла;

6. Отключить диск, опять с помощью команды ОС

ЗапуститьПриложение("net use ИМЯДИСКА: /delete");

И так далее…





Оставить комментарий

*

Блог программиста 1С. Программирование 1С
Если Вас что-то заинтересовало или возникли вопросы, пишите.
petr@evseev.ru
Skype - evseev_petr
ICQ - 262808698

Сохраните меня в социальных сервисах

Комментарии

Присоединяйтесь к обсуждению
  • Леха: Мало того, что это говно-антивирус требует .Net Framework не ниже 4.0, так он еще пожирает ресурсы компьютера,...
  • tommy: AVG равно еще хуже Касперского . Иди в жопу с ним
  • просто_чайник: Не люблю этот антивирус. Заметил такую особенность. Если обновить базы в начале работы, довольно часто...
  • Елена: Самое главное. Файл для совместной работы открыть нельзя! Если надо что-то отредактировать — только...
  • Виктор: Поставили мне на работе эту замечательную программку. Работать невозможно, ужасные тормоза. Стали...

Избранное видео

Ссылки