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

Покер в нашей стране, как все мы помним, недавно объявили вне закона. Но любители этой игры не унывают – ведь суровое постановление стало мощным толчком для развития покера виртуального! Играть в него официально не разрешили, но пока и не запретили, так что российские покеристы могут играть сразу за несколькими виртуальными столами сутки напролет.


14 марта 2010 · Железки, Фото

Проблема с принтером Epson Stylus Photo T50 Как я уже писал приобрел принтер T50 от Эпсон с СНПЧ. Так как себестоимость печати копеешная не отказываю себе в удовольствии распечатать любые картинки и фотки. Но возникла недольшая проблема. Принтер Epson Е50 начал немного пачкать бумагу. Причем пачкать так, будто на подающий бумагу вал попадают чернила. Я […]


Метки

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

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

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

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 равно еще хуже Касперского . Иди в жопу с ним
  • просто_чайник: Не люблю этот антивирус. Заметил такую особенность. Если обновить базы в начале работы, довольно часто...
  • Елена: Самое главное. Файл для совместной работы открыть нельзя! Если надо что-то отредактировать — только...
  • Виктор: Поставили мне на работе эту замечательную программку. Работать невозможно, ужасные тормоза. Стали...

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

Ссылки