Работа с WebDAV Яндекс диска на Delphi. Часть 1(Установка Synapse).

В статье рассмотрено работа с сервисами Яндекс диска с помощью Delphi и библиотеки Synapse, исходники будут написаны в Delphi XE6.

В первой части рассматривается уствновка библиотеки Synapse

Добрый день уважаемый гость сайта, сегодня я решил немного «побаянить» - работа с WebDav это тема обслюнявленная и основательно разобранная уже не одну тысячу раз, но для таких как я «особо одаренных» думаю будет не лишним еще раз пробежаться по ней J.
Собственно сама проблема: на днях встал вопрос сохранения важных документов на стороннем хранилище, благо даже в нашем захолустье теперь проблемы с интернетом более менее решились и сохранять документы было решено на яндекс диск…
Порывшись в интернете я нашел несколько статей по работе с яндекс диском средствами Delphi (здесь я бы хотел остановится на библиотеке Synapse), все просто и понятно…. но не до конца, где-то не могут отправить файл на яндекс диск, где-то очеееень туманно объясняют принцип работы и в конце концов предлагают использовать платные компоненты. Наиболее точное и полное описание работы я нашел на сайте www.webdelphi.ru, его я и взял за каркас.
Итак начнем, скачиваем библиотеку Synapse , в папке с установленной Delphi - C:\Program Files (x86)\Embarcadero\Studio\14.0\lib\ предварительно создадим папку Synapse (на Windows 7+ не имеет значение где создать папку, даже после переустановки Windows  всегда эту папку можно вытащить из директории Windows.old) в созданную папку мы и распаковываем архив скаченной библиотеки.

и распакуем в нее архив Synapse. Далее нужно уточнить Delphi что мы ей хотим добавить библиотеку, для этого переходим в пункт меню ToolOptions

В открывшемся меню ищем Delphi OptionsLibrary в Library Path нужно указать путь куда мы распакавали файлы Synapse и нажимаем Ok.

При написании первого проекта с библиотекой Synapse нас ждет ошибка, проблема в том что в Delphi XE6 нет переменных TimeSeparator и ShortMonthNames, а без них не возможно скомпилировать модуль synautil.pas

Для исправления используем переменные класса TFormatSettings.TimeSeparator и TFormatSettings.ShortMonthNames, или можно просто скачать исправленный synautil.pas и заменить им файл в директории
C:\Program Files (x86)\Embarcadero\Studio\14.0\lib\synapse\source\lib

Скачать исправленный  synautil.pas

Icon of Synautil Synautil (56.1 KiB)

Скачать библиотеку Synapse с исправленным файлом

Icon of Synapse Synapse (1.0 MiB)

There are no comments