Отправлено: 16.03.21 21:55. Заголовок: Облачные сервисы (WebDAV, CalDAV &Co)

После некоторого разбирательства с прогой удалось организовать импорт из ICAL-файлов и экспорт в оные. Но тут шеф захотел, чтобы был прямой контакт с CalDav через интернет. Я знаю, что на питоне такое возможно. На дельфине и даже Xojo (RealBasic) тоже - через спецбиблиотеку. Но как реализовать подключение к облачному сервису в Harbour/Minigui?

Возможно ли это вообще?

 Отправлено: 17.03.21 07:00. Заголовок: Dr. Oldwarez Посмот..

Dr. Oldwarez
Посмотрите hb ...\contrib\hbtip\... и поиск по *.prg "http " в MiniGui\samples

 Отправлено: 17.03.21 07:35. Заголовок: PS Если сервер htpps..

PS
Если сервер htpps, то смотрите curl утилиту (в ней был сертификат ssl)

 Отправлено: 17.03.21 09:52. Заголовок: SergKis пишет: смот..

SergKis пишет:

цитата:

смотрите curl утилиту

+
И в дополнение Use a webdav service with curl

Если получится с curl, то следующим шагом может стать переход на contrib\hbcurl

 Отправлено: 17.03.21 10:03. Заголовок: SergKis пишет: Если..

SergKis пишет:

цитата:

Если сервер htpps, то смотрите curl утилиту (в ней был сертификат ssl)

про https: тут писали http://clipper.borda.ru/?1-4-0-00000774-000-10001-0-1570774946

 Отправлено: 18.03.21 13:03. Заголовок: Это по скачиванию ве..

Это по скачиванию веб-страниц и считыванию данных с них. У меня немножко другой случай. Не веб-страница, а календарь. И много классов, которые я не нахожу в своей документации. Например TIpClientHttp, THtmlDocument. Скачал специально harbour c примерами и там в contrib\hbcurl что-то про выгрузку данных на ftp, но никак уж про CalDav. Да и формат там отнюдь не веб-страничный.

 Отправлено: 18.03.21 14:04. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Скачал специально harbour c примерами и там в contrib\hbcurl что-то про выгрузку данных на ftp, но никак уж про CalDav.

Там что-то про использование libcurl (инициализация, заполнение структур) на примере работы с ftp.
Другие примеры на C можно найти на странице проекта.

Use a webdav service with curl - это о чем?

 Отправлено: 18.03.21 16:08. Заголовок: Не знаю, что такое C..

Не знаю, что такое CalDav и не вспомню навскидку о webdav, но предложение SergKis использовать curl мне кажется перспективным. Поиск на Яндексе по 'curl webdav' дает кучу ссылок - т.е., curl с webdav работает.
Я обычно советую использовать не hbcurl, чтобы не тратить время на его изучение, а запускать непосредственно утилиту командной строки curl.exe, передавая ей файл с нужными параметрами.

 Отправлено: 18.03.21 20:57. Заголовок: Про CalDAV здесь Cal..

Про CalDAV здесь CalDAV

Но мне бы всё-таки хотелось встроенную библиотеку для удобства дистрибуции. Изучить я смогу. Только дайте мне документацию, а то hbd я не знаю, чем прочесть. И несколько примеров.

 Отправлено: 18.03.21 22:45. Заголовок: Dr. Oldwarez Рекоме..

Dr. Oldwarez
Рекомендую начать с curl, можно найти описание и даже примеры, а встроенную библиотеку, придется изучать по исходникам.
Вот практически первый ответ на запрос google: "curl.exe и caldav запросы" https://www.atmail.com/blog/caldav-carddav/

 Отправлено: 19.03.21 15:54. Заголовок: Скачал этот CURL теп..

Скачал этот CURL
теперь вот вопрос, что ставить в PROPFIND

curl -k --user "${login}:${password}" -X PROPFIND "https://owncloud.jujens.eu/remote.php/caldav/calendars/jujens/defaultcalendar"

Вместо https://owncloud.jujens.eu/remote.php/caldav/calendars/jujens/defaultcalendar

У меня в календаре на вкладке Subscription выходят пять адресов

CalDAV Subscription URL

CalDAV Account URL

WebDAV/ICS Subscription URL

Feed URL

Embed Script


Что именно ставить туда?

 Отправлено: 19.03.21 16:43. Заголовок: Попробуйте первых 3,..

Попробуйте первых 3, добавьте только параметр -O (в тек. каталоге файл)

 Отправлено: 19.03.21 19:26. Заголовок: SergKis пишет: Попр..

SergKis пишет:

цитата:

Попробуйте первых 3, добавьте только параметр -O (в тек. каталоге файл)

Выходит так

c:\curl\bin>curl -k -o --user "${USERNAME}:${PASSWORD}" -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7" 
 Warning: The file name argument '--user' looks like a flag. 
 curl: (3) URL using bad/illegal format or missing URL 
 <?xml version="1.0" encoding="utf-8"?> 
 <d:error xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns"> 
   <s:exception>Sabre\DAV\Exception\NotAuthenticated</s:exception> 
   <s:message>No basic authentication headers were found</s:message> 
   <s:sabredav-version>1.8.12</s:sabredav-version> 
 </d:error>

 Отправлено: 19.03.21 20:59. Заголовок: Dr. Oldwarez флаг -..

Dr. Oldwarez
флаг --user правильно задан ?
curl -u username:password ...

 Отправлено: 19.03.21 22:06. Заголовок: SergKis пишет: флаг..

SergKis пишет:

цитата:

флаг --user правильно задан ?

Скорее всего правильно: флаги -u и --user равноценны.

"${USERNAME}:${PASSWORD}" - пытается получить значения из переменных окружения (хотя хз, что там на самом деле).

а вот -o - вывод в файл, а не stdout
после -o должен следовать аргумент имя локального файла, он не указан
поэтому и получили Warning: The file name argument '--user' looks like a flag

 Отправлено: 19.03.21 22:29. Заголовок: Петр пишет хотя хз, ..

Петр пишет

цитата:

хотя хз, что там на самом деле

Именно это и говорил, раз получили такое сообщение Warning:...

цитата:

после -o должен следовать аргумент имя локального файла, он не указан

после -o да, после -O не обязательно, если не указан берет имя файла из адреса без пути (для пробы и тестов пробовать можно)

 Отправлено: 19.03.21 22:44. Заголовок: SergKis пишет: посл..

SergKis пишет:

цитата:

после -o да

Ну так у него -o
а вот "${USERNAME}:${PASSWORD}" - это что-то не из винды, непонятно может msys использует.

Интересно что это значит:

цитата:

curl: (3) URL using bad/illegal format or missing URL

У меня при
curl -k -oout.txt -O --user "${USERNAME}:${PASSWORD}" -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7"
получилось
<?xml version="1.0" encoding="utf-8"?>
<d:error xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns">
<s:exception>Sabre\DAV\Exception\NotAuthenticated</s:exception>
<s:message>Username or password does not match</s:message>
<s:sabredav-version>1.8.12</s:sabredav-version>
</d:error>
что в принципе правильно

 Отправлено: 19.03.21 23:00. Заголовок: Петр пишет Интересно..

Петр пишет

цитата:

Интересно что это значит:

Из показанной выше ссылке curl и CalDav (google перевод) понял, что на сервере надо иметь рег. запись и по ней
делать пошаговые запросы, получая адреса. Возможно, сообщение, как следствие не коннекта, не сталкивался с таким.
Пробовал работу с ftp и передавать, получать json данные с чужим сервером.

 Отправлено: 19.03.21 23:04. Заголовок: Петр пишет: У меня..

Петр пишет:

цитата:

У меня при curl -k -oout.txt -O --user "${USERNAME}:${PASSWORD}" -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7" получилось <?xml version="1.0" encoding="utf-8"?> <d:error xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns"> <s:exception>Sabre\DAV\Exception\NotAuthenticated</s:exception> <s:message>Username or password does not match</s:message> <s:sabredav-version>1.8.12</s:sabredav-version> </d:error> что в принципе правильно

Вроде что-то получилось

curl -k -o test.xml --user USERNAME:PASSWORD -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/principals/illya@kleeblatt.com/"

Вышло

 
 <?xml version="1.0" encoding="utf-8"?> 
 <d:multistatus xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns" xmlns:cal="urn:ietf:params:xml:ns:caldav" xmlns:cs="http://calendarserver.org/ns/" xmlns:card="urn:ietf:params:xml:ns:carddav"> 
 <d:response><d:href>/rpc.php/principals/illya@kleeblatt.com/</d:href><d:propstat><d:prop><d:getlastmodified>Fri, 19 Mar 2021 20:06:47 GMT</d:getlastmodified><d:resourcetype><d:principal/> 
 </d:resourcetype></d:prop><d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response></d:multistatus>

Теперь, как, собственно говоря, войти в календарь и просмотреть его содержимое?

 Отправлено: 19.03.21 23:11. Заголовок: SergKis пишет: Возм..

SergKis пишет:

цитата:

Возможно, сообщение, как следствие не коннекта,

Вот нашел API error: curl: (3) URL using bad/illegal format or missing URL

 Отправлено: 19.03.21 23:23. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Вроде что-то получилось curl -k -o test.xml --user USERNAME:PASSWORD -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/principals/illya@kleeblatt.com/"

Куда этот url ссылается?

Эту часть почему отбросили
/calendar~GhGVum1xWexaffEfhiVkNN7

 Отправлено: 19.03.21 23:29. Заголовок: Dr. Oldwarez пишет Т..

Dr. Oldwarez пишет

цитата:

Теперь, как, собственно говоря, войти в календарь и просмотреть его содержимое?

цитата:

<d:multistatus xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns" xmlns:cal="urn:ietf:params:xml:ns:caldav" xmlns:cs="http://calendarserver.org/ns/" xmlns:card="urn:ietf:params:xml:ns:carddav">

Похожее видел в той статье

 
 <?xml version="1.0"?> 
 <d:multistatus xmlns:d="DAV:" xmlns:s="https://sabredav.org/ns" xmlns:cal="urn:ietf:params:xml:ns:caldav" xmlns:cs="https://calendarserver.org/ns/" xmlns:card="urn:ietf:params:xml:ns:carddav"> 
 ... 
 Но у нас также есть еще одна интересная информация, возвращенная в теле запроса, а именно другая коллекция, которую мы можем изучить: /calendars/user@demo.atmail.com/ 
 Мы будем выполнять рекурсию, насколько это возможно, с глубиной, установленной на бесконечность, но передаем некоторые данные запроса, чтобы указать, что нас интересуют только объекты календаря, и чтобы вернуть только URL-адрес, тип ресурса и отображаемое имя коллекции: 
 $ curl --user "user@demo.atmail.com:ThePassword" -sD /dev/stderr -H "Content-Type: application/xml" -X PROPFIND -H "Depth: infinity" --data '<d:propfind xmlns:d="DAV:" xmlns:cs="https://calendarserver.org/ns/"><d:prop><d:resourcetype /><d:displayname /></d:prop></d:propfind>' https://demo-server.atmail.com:8443/calendars/user@demo.atmail.com/ | xmllint -format - 
 ... 
 

и т.д. по статье, наверно, так

 Отправлено: 19.03.21 23:43. Заголовок: Петр пишет:  цитат..

Петр пишет:

цитата:

цитата: Вроде что-то получилось curl -k -o test.xml --user USERNAME:PASSWORD -X PROPFIND "https://webmail.kleeblatt.com/rpc.php/principals/illya@kleeblatt.com/" Куда этот url ссылается? Эту часть почему отбросили /calendar~GhGVum1xWexaffEfhiVkNN7

Добавил потерянную часть. И вот

<?xml version="1.0" encoding="utf-8"?> 
 <d:multistatus xmlns:d="DAV:" xmlns:s="http://sabredav.org/ns" xmlns:cal="urn:ietf:params:xml:ns:caldav"  
 xmlns:cs="http://calendarserver.org/ns/" xmlns:card="urn:ietf:params:xml:ns:carddav"><d:response> 
 <d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/</d:href> 
 <d:propstat><d:prop><d:resourcetype><d:collection/><cal:calendar/></d:resourcetype></d:prop> 
 <d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response><d:response><d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics</d:href> 
 <d:propstat><d:prop><d:getlastmodified>Sat, 13 Mar 2021 16:58:11 GMT</d:getlastmodified> 
 <d:getcontentlength>500</d:getcontentlength><d:resourcetype/><d:getetag>"bb0f09c6bf34469cad5f872725ed93b9"</d:getetag> 
 <d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop><d:status>HTTP/1.1 200 OK</d:status> 
 </d:propstat></d:response> 
 <d:response><d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics</d:href> 
 <d:propstat><d:prop><d:getlastmodified>Thu, 04 Mar 2021 16:51:14 GMT</d:getlastmodified><d:getcontentlength>515</d:getcontentlength><d:resourcetype/> 
 <d:getetag>"c1daa4a100ad72550dc468e539047aac"</d:getetag><d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop> 
 <d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response><d:response> 
 <d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/VM3wwLrVEm3Zwn-UkKAzXra.ics</d:href> 
 <d:propstat><d:prop><d:getlastmodified>Thu, 04 Mar 2021 16:51:33 GMT</d:getlastmodified><d:getcontentlength>577</d:getcontentlength> 
 <d:resourcetype/><d:getetag>"da02d9cfbc83085498615e55e87d25ea"</d:getetag><d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop><d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response> 
 <d:response><d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/e5aab12a-1a2a-4309-96d4-cccb1b67d9ba.ics</d:href> 
 <d:propstat><d:prop><d:getlastmodified>Mon, 08 Mar 2021 06:59:00 GMT</d:getlastmodified><d:getcontentlength>659</d:getcontentlength> 
 <d:resourcetype/><d:getetag>"ff0f3e0392c3a16579e8b87442f60ff4"</d:getetag> 
 <d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop><d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response> 
 <d:response><d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics</d:href><d:propstat> 
 <d:prop><d:getlastmodified>Mon, 15 Mar 2021 12:56:41 GMT</d:getlastmodified><d:getcontentlength>546</d:getcontentlength><d:resourcetype/> 
 <d:getetag>"fa79fe0b28dea03c0db457af39980eae"</d:getetag><d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop> 
 <d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response><d:response> 
 <d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/83sEK6nFBn4-TQ1XcZoPvWz.ics</d:href><d:propstat><d:prop> 
 <d:getlastmodified>Mon, 15 Mar 2021 12:52:23 GMT</d:getlastmodified><d:getcontentlength>526</d:getcontentlength><d:resourcetype/> 
 <d:getetag>"11735b683c59f7e3c0a60842c1df4101"</d:getetag><d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype></d:prop> 
 <d:status>HTTP/1.1 200 OK</d:status></d:propstat></d:response></d:multistatus>

 Отправлено: 20.03.21 00:02. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Я так понял, это список ICS файлов. Теперь надо открывать каждый ICS по отдельности, чтобы получить записи календаря?

Наверное. Попробуйте стащить один и поработать с ним оффлайн.

 Отправлено: 20.03.21 00:18. Заголовок: Dr. Oldwarez пишет Д..

Dr. Oldwarez пишет

цитата:

Добавил потерянную часть. И вот

Смотреть без переноса трудно, но похоже (по статье) это коллекция календарей, опять по статье след. шаг

цитата:

Итак, заглянем внутрь одной из этих коллекций (календарей). Выберем календарь «Дни рождения» и посмотрим, что там: $ curl --user "user@demo.atmail.com:ThePassword" -sD /dev/stderr -H "Content-Type: application/xml" -X PROPFIND -H "Depth: infinity" https://demo-server.atmail.com:8443/calendars/user@demo.atmail.com/02f29dd9516f1f0c415527e0a60cb3f7/ | xmllint -format - ...ответ В данном случае это календарное событие, и мы можем сказать об этом через свойство: <d: getcontenttype> текст / календарь; charset = utf-8; компонент = vevent </ d: getcontenttype> Наконец, давайте извлечем это событие с помощью обычного старого HTTP GET и посмотрим, что у нас есть: curl --user "user@demo.atmail.com:ThePassword" -i -X GET https://demo-server.atmail.com:8443/calendars/user@demo.atmail.com/02f29dd9516f1f0c415527e0a60cb3f7/33992bd8-d3fe-4b07-baaf-c43d0042fae8.ics HTTP/1.1 200 OK Server: nginx/1.16.1 Date: Sat, 09 May 2020 05:28:59 GMT Content-Type: text/calendar; charset=utf-8; component=vevent Content-Length: 554 Connection: keep-alive Last-Modified: Sat, 09 May 2020 01:24:06 GMT ETag: "d34b216dac0dcf327a3cf2d79f95a226" X-Content-Type-Options: nosniff BEGIN:VCALENDAR VERSION:2.0 PRODID:-//apiserver//API Server DAV//EN BEGIN:VEVENT UID:33992bd8-d3fe-4b07-baaf-c43d0042fae8 DTSTART;VALUE=DATE:20200506 DTEND;VALUE=DATE:20200507 CREATED:20190124T104704Z DTSTAMP:20190128T234044Z LAST-MODIFIED;X-VOBJ-FLOATINGTIME-ALLOWED=TRUE:20200503T203005 RRULE:FREQ=YEARLY;INTERVAL=1;WKST=MO SEQUENCE:30 STATUS:CONFIRMED SUMMARY:Dad's Birthday TRANSP:OPAQUE BEGIN:VALARM ACKNOWLEDGED:20190128T234044Z ACTION:DISPLAY DESCRIPTION:Default Description TRIGGER:-P1D END:VALARM END:VEVENT END:VCALENDAR

по статье такие действия для извл. данных

 Отправлено: 20.03.21 00:34. Заголовок: SergKis пишет: Смот..

SergKis пишет:

цитата:

Смотреть без переноса трудно

Code Beautify

 Отправлено: 20.03.21 00:54. Заголовок: Петр пишет Code Beau..

Петр пишет

цитата:

Code Beautify

Через эту штуку и надо сюда выкладывать, а то страницы расползлись по ширине хз как, центрованные цитаты вправо улетели
далеко за пределы экрана, не говоря о самом тексте

 Отправлено: 20.03.21 10:01. Заголовок: Надеюсь топикстартер..

Надеюсь топикстартер (или модератор) пост №259 удалит, а №260 отформатирует как следует.

 Отправлено: 20.03.21 21:14. Заголовок: Петр пишет:  Отпр..

Петр пишет:

цитата:

Отправлено: Сегодня 10:01. Заголовок: Надеюсь топикстартер.. - новое! Надеюсь топикстартер (или модератор) пост №259 удалит, а №260 отформатирует как следует.

Подформатировал пост 259. 260 удалил как дубликат. Извините за созданные проблемы - я просто не имею опыта с xml файлами

 Отправлено: 21.03.21 09:56. Заголовок: SergKis пишет: Смот..

SergKis пишет:

цитата:

Смотреть без переноса трудно, но похоже (по статье) это коллекция календарей, опять по статье след. шаг  цитата: Итак, заглянем внутрь одной из этих коллекций (календарей). Выберем календарь «Дни рождения» и посмотрим, что там: $ curl --user "user@demo.atmail.com:ThePassword" -sD /dev/stderr -H "Content-Type: application/xml" -X PROPFIND -H "Depth: infinity" https://demo-server.atmail.com:8443/calendars/user@demo.atmail.com/02f29dd9516f1f0c415527e0a60cb3f7/ | xmllint -format - ...ответ В данном случае это календарное событие, и мы можем сказать об этом через свойство: <d: getcontenttype> текст / календарь; charset = utf-8; компонент = vevent </ d: getcontenttype> Наконец, давайте извлечем это событие с помощью обычного старого HTTP GET и посмотрим, что у нас есть: curl --user "user@demo.atmail.com:ThePassword" -i -X GET https://demo-server.atmail.com:8443/calendars/user@demo.atmail.com/02f29dd9516f1f0c415527e0a60cb3f7/33992bd8-d3fe-4b07-baaf-c43d0042fae8.ics HTTP/1.1 200 OK Server: nginx/1.16.1 Date: Sat, 09 May 2020 05:28:59 GMT Content-Type: text/calendar; charset=utf-8; component=vevent Content-Length: 554 Connection: keep-alive Last-Modified: Sat, 09 May 2020 01:24:06 GMT ETag: "d34b216dac0dcf327a3cf2d79f95a226" X-Content-Type-Options: nosniff BEGIN:VCALENDAR VERSION:2.0 PRODID:-//apiserver//API Server DAV//EN BEGIN:VEVENT UID:33992bd8-d3fe-4b07-baaf-c43d0042fae8 DTSTART;VALUE=DATE:20200506 DTEND;VALUE=DATE:20200507 CREATED:20190124T104704Z DTSTAMP:20190128T234044Z LAST-MODIFIED;X-VOBJ-FLOATINGTIME-ALLOWED=TRUE:20200503T203005 RRULE:FREQ=YEARLY;INTERVAL=1;WKST=MO SEQUENCE:30 STATUS:CONFIRMED SUMMARY:Dad's Birthday TRANSP:OPAQUE BEGIN:VALARM ACKNOWLEDGED:20190128T234044Z ACTION:DISPLAY DESCRIPTION:Default Description TRIGGER:-P1D END:VALARM END:VEVENT END:VCALENDAR по статье такие действия для извл. данных

Да, я понял. Но сначала нужно весь список ics-ов считать в массив внешним циклом, а потом каждый ics ещё просмотреть, чтобы получить из него данные календарей.
Это очень много вызовов curl и автоматически созданных промежуточных файлов получается.

Нельзя ли так, чтобы сразу подключение и считывание прямо программой, минуя многочисленные промежуточные стадии?

И как в Harbour считывать данные из XML в массив?

 Отправлено: 21.03.21 12:01. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Но мне бы всё-таки хотелось встроенную библиотеку для удобства дистрибуции. Изучить я смогу. Только дайте мне документацию, а то hbd я не знаю, чем прочесть. И несколько примеров.

Dr. Oldwarez пишет:

цитата:

Нельзя ли так, чтобы сразу подключение и считывание прямо программой, минуя многочисленные промежуточные стадии?

Добейтесь конечного результата с curl, а тогда будете оптимизировать.
Сейчас у вас нет ни знаний, ни умений на свои хотелки.
Все придет, может быть, а может и не быть.

К тому же инсталлятор весом меньше 1 Га в наше время моветон

 Отправлено: 21.03.21 12:15. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

И как в Harbour считывать данные из XML в массив?

Все просто - считываете данные из XML и добавляете в массив.

В Harbour нет встроенных функций для роботы с XML, в отличии от того же json или cvs, ini.

Значит у вас есть выбор

1) Можете просто разбирать строку с помощью строковых функций;
2) Можете использовать библиотеку hbexpat из contrib, примеры там же;
3) Можете использовать библиотеку hbmxml из contrib, примеры там же;
4) Можете использовать библиотеку hbxml из состава Minigui, пример SAMPLES\Advanced\XmlDemo и др;
5) Можете использовать стандартные технологии MS OLE и Msxml, пример SAMPLES\Advanced\GoogleCharts;
и т.д. и т.п.

 Отправлено: 21.03.21 13:59. Заголовок: Петр пишет Можете пр..

Петр пишет

цитата:

Можете просто разбирать строку с помощью строковых функций;

Простой пример выкусить из xml поста 259

 
    LOCAL cXml := "_ics.xml"      // файл с данными из поста 259 
    LOCAL cBuf := hb_memoread(cXml) 
    LOCAL aBuf, nI 
  
    IF CRLF $ cBuf ; cBuf := StrTran(cBuf, CRLF, "") 
    ENDIF 
  
    aBuf := hb_ATokens(cBuf, "<d:response><d:href>") 
  
    ? aBuf 
    FOR nI := 1 TO Len(aBuf) 
        cBuf := aBuf[nI] 
        ? nI, left(cBuf, AT("</", cBuf)-1) 
    NEXT 
 ... 
 результат 
 ARRAY[8]  
 1  ''  
 2  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/    
 3  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics    
 4  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics    
 5  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/VM3wwLrVEm3Zwn-UkKAzXra.ics    
 6  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/e5aab12a-1a2a-4309-96d4-cccb1b67d9ba.ics   
 7  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics    
 8  /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/83sEK6nFBn4-TQ1XcZoPvWz.ics    
 

 Отправлено: 21.03.21 14:12. Заголовок: Dr. Oldwarez пишет Н..

Dr. Oldwarez пишет

цитата:

Нельзя ли так, чтобы сразу подключение и считывание прямо программой, минуя многочисленные промежуточные стадии?

Если пройдете по статье еще раз, то увидите, что каждый вызов curl это запрос к серверу и обработка результата и
снова запрос ..., т.е. и без curl будет точно такая же схема работы. Если оформите запрос в ф-ю (вызов curl и обработка результата)
с возвратом результата, то если (может и не понадобится) потом надо будет переделаете на исп. lib

 Отправлено: 21.03.21 14:53. Заголовок: PS Давать календари ..

PS
Давать календари надо будет в цивилизованном виде, т.е.
таблица dbf\array - "список календарей" -> выбираем -> запрос[ы] curl к серверу -> ответ и
таблица dbf\array - "события календаря"
если работа online, при offline тот же путь выборки и куда то сохранить первичные запросы
(потом обновлять, если ics меняли)

 Отправлено: 21.03.21 15:25. Заголовок: PS2 Чуть усложнил и ..

PS2
Чуть усложнил и получил таблицу календарей в массиве Скрытый текст

/* * MINIGUI - Harbour Win32 GUI library Demo */ #define _HMG_OUTLOG #include "hmg.ch" #define SHOW_TITLE "Read list ics calendar from xml" REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866 REQUEST HB_CODEPAGE_UTF8 REQUEST DBFCDX, DBFFPT REQUEST DBFNTX, DBFDBT //////////////////////////////////////////////////////////////////////////// FUNCTION Main() LOCAL cXml := "_ics.xml" LOCAL cBuf := hb_memoread(cXml) LOCAL aBuf, nI, cI, nK, cK, nN LOCAL aIcs := {} SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN rddSetDefault( "DBFCDX" ) SET CENTURY ON SET DATE GERMAN SET DATE FORMAT "DD.MM.YY" SET DELETED OFF SET EXCLUSIVE ON SET EPOCH TO 2000 SET AUTOPEN ON SET EXACT ON SET SOFTSEEK ON SET NAVIGATION EXTENDED SET FONT TO "Arial", 11 SET OOP ON fErase(".\_MsgLog.txt") IF CRLF $ cBuf ; cBuf := StrTran(cBuf, CRLF, "") ENDIF aBuf := hb_ATokens(cBuf, "<d:response><d:href>") ? aBuf, "Адреса:" nN := 0 FOR nI := 1 TO Len(aBuf) cI := aBuf[nI] nK := AT("</", cI) cK := trim(left(cI, nK-1)) IF right(cK, 4) == ".ics" nN += 1 AAdd(aIcs, { cK, "", "ics "+hb_ntos(nN) }) ENDIF ? nI, cK NEXT ? aBuf := hb_ATokens(cBuf, "<d:propstat><d:prop><d:getlastmodified>") ? aBuf, "Модификация:" nN := 0 FOR nI := 1 TO Len(aBuf) cI := aBuf[nI] cK := "" IF ! "<?xml " $ cI nN += 1 nK := AT("</", cI) cK := left(cI, nK-1) aIcs[nN][2] := cK ENDIF ? nI, cK NEXT ? ? "ICS =", aIcs ?v aIcs ? RETURN NIL Результат ARRAY[8] Адреса: 1 '' 2 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/ 3 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics 4 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics 5 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/VM3wwLrVEm3Zwn-UkKAzXra.ics 6 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/e5aab12a-1a2a-4309-96d4-cccb1b67d9ba.ics 7 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics 8 /rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/83sEK6nFBn4-TQ1XcZoPvWz.ics ARRAY[7] Модификация: 1 '' 2 Sat, 13 Mar 2021 16:58:11 GMT 3 Thu, 04 Mar 2021 16:51:14 GMT 4 Thu, 04 Mar 2021 16:51:33 GMT 5 Mon, 08 Mar 2021 06:59:00 GMT 6 Mon, 15 Mar 2021 12:56:41 GMT 7 Mon, 15 Mar 2021 12:52:23 GMT ICS = ARRAY[6] 1 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics", "Sat, 13 Mar 2021 16:58:11 GMT", "ics 1"} 2 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics", "Thu, 04 Mar 2021 16:51:14 GMT", "ics 2"} 3 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/VM3wwLrVEm3Zwn-UkKAzXra.ics", "Thu, 04 Mar 2021 16:51:33 GMT", "ics 3"} 4 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/e5aab12a-1a2a-4309-96d4-cccb1b67d9ba.ics", "Mon, 08 Mar 2021 06:59:00 GMT", "ics 4"} 5 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics", "Mon, 15 Mar 2021 12:56:41 GMT", "ics 5"} 6 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/83sEK6nFBn4-TQ1XcZoPvWz.ics", "Mon, 15 Mar 2021 12:52:23 GMT", "ics 6"}

 Отправлено: 21.03.21 15:30. Заголовок: SergKis пишет: Дава..

SergKis пишет:

цитата:

Давать календари надо будет в цивилизованном виде, т.е. таблица dbf\array - "список календарей" -> выбираем -> запрос[ы] curl к серверу -> ответ и таблица dbf\array - "события календаря" если работа online, при offline тот же путь выборки и куда то сохранить первичные запросы (потом обновлять, если ics меняли)

Спасибо за помощь!

Я уже понял, примерно, как это. Но вот вопрос: если календарь заполнен и в нём 500 событий, это что, надо 500 раз соединяться? Такого DDOSа не выдержат ни сеть, ни комп. Профильтровать их тоже не получится - пока не откроешь ICS, его параметры будут неизвестны.

 Отправлено: 21.03.21 15:43. Заголовок: Dr. Oldwarez пишет Т..

Dr. Oldwarez пишет

цитата:

Такого DDOSа не выдержат ни сеть, ни комп.

Это не DDOS, а REST API спец. механизм для доступа и обмена данными, смело используйте

цитата:

Профильтровать их тоже не получится - пока не откроешь ICS, его параметры будут неизвестны.

Если сохранять в dbf, то можно опираться на дату модификации сначала ics, потом события при изм. календаря
Если нет команды получить все события, получаем по одному

 Отправлено: 21.03.21 15:59. Заголовок: Dr. Oldwarez пишет Н..

Dr. Oldwarez пишет

цитата:

Но вот вопрос: если календарь заполнен и в нём 500 событий, это что, надо 500 раз соединяться?

Вы не сделали запроса к конкретному ics, после списка, по статье, я так понял, должны получить на календарь список всех событий
с датой создания и модификации. Т.е. если уже в dbf занесли данные, то можно выбрать из списка только изменненные и по ним
делать запрос для получения данных VEVENT и изменять dbf только по ним

 Отправлено: 21.03.21 16:04. Заголовок: SergKis пишет: Если..

SergKis пишет:

цитата:

Если нет команды получить все события, получаем по одному

А мне надо именно, что ВСЕ события получить. Дата модификации неинформативна. Не дата модификации мне нужна, а дата и время события. Это и есть первичный ключ в моём локальном календаре

 Отправлено: 21.03.21 16:08. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

А мне надо именно, что ВСЕ события получить.

Так втащите весь календарь на локальный комп (за один запрос), а потом синхронизируйте его с сервером
Пример с GET делали или нет?

 Отправлено: 21.03.21 16:39. Заголовок: Dr. Oldwarez пишет А..

Dr. Oldwarez пишет

цитата:

А мне надо именно, что ВСЕ события получить. Дата модификации неинформативна. Не дата модификации мне нужна, а дата и время события. Это и есть первичный ключ в моём локальном календаре

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

 Отправлено: 21.03.21 20:57. Заголовок: Петр пишет: Да втащ..

Петр пишет:

цитата:

Да втащите весь календарь на локальный комп (за один запрос), а потом синхронизируйте его с сервером Пример с GET делали или нет?

Сделал

curl -o test2.txt --user USERNAME:PASSWORD -i -X GET https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/

И вот...

HTTP/1.1 200 OK 
 Date: Sun, 21 Mar 2021 17:51:23 GMT 
 Server: Apache 
 X-Powered-By: PHP/7.3.27 
 Expires: Thu, 19 Nov 1981 08:52:00 GMT 
 Cache-Control: no-store, no-cache, must-revalidate 
 Pragma: no-cache 
 Vary: Accept-Encoding 
 Set-Cookie: PHPSESSID=e5ud2bc6fab8mv59hf8hanbhd8; path=/ 
 Set-Cookie: horde_secret_key=e5ud2bc6fab8mv59hf8hanbhd8; path=/; domain=webmail.kleeblatt.com; HttpOnly 
 Set-Cookie: default_horde_view=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; Max-Age=0; path=/; domain=webmail.kleeblatt.com 
 X-Powered-By: PleskLin 
 Transfer-Encoding: chunked 
 Content-Type: text/html; charset=utf-8 
  
 <html> 
 <head> 
   <title>Index for calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/ - SabreDAV 1.8.12-stable</title> 
   <style type="text/css"> 
   body { Font-family: arial} 
   h1 { font-size: 150% } 
   </style> 
         <link rel="shortcut icon" href="/rpc.php/?sabreAction=asset&assetName=favicon.ico" type="image/vnd.microsoft.icon" /></head> 
 <body> 
   <h1>Index for calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/</h1> 
   <table> 
     <tr><th width="24"></th><th>Name</th><th>Type</th><th>Size</th><th>Last modified</th></tr> 
     <tr><td colspan="5"><hr /></td></tr><tr> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com"> 
     <img src="/rpc.php/?sabreAction=asset&assetName=icons%2Fparent.png" width="24" alt="Parent" /></a></td> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com">..</a></td> 
     <td>[parent]</td> 
     <td></td> 
     <td></td> 
     </tr><tr> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics"> 
     <img src="/rpc.php/?sabreAction=asset&assetName=icons%2Ffile.png" alt="" width="24" /></a></td> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics">w7klsLDepGCBYAA7Gmr4GIe.ics</a></td> 
     <td>text/calendar; charset=utf-8</td> 
     <td>500</td> 
     <td>2021-03-13T16:58:11+00:00</td> 
     </tr><tr> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics"> 
     <img src="/rpc.php/?sabreAction=asset&assetName=icons%2Ffile.png" alt="" width="24" /></a></td> 
     <td><a href="/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics">8gpZuoZBJQDnLlr-66brhHG.ics</a> 
     </td> 
     <td>text/calendar; charset=utf-8</td>

 Отправлено: 21.03.21 21:21. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

curl -o test2.txt --user USERNAME:PASSWORD -i -X GET https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/

И что мы пытались скачать ?!

Присобачьте к url имя календаря, например, seukIp8ajv0rOXXx8IG4Q9j.ics

... GET https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics

 Отправлено: 21.03.21 22:30. Заголовок: Петр пишет: Присоб..

Петр пишет:

цитата:

Присобачьте к url имя календаря, например, seukIp8ajv0rOXXx8IG4Q9j.ics ... GET https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics

Йееес!!!
Получилось!

 
 BEGIN:VCALENDAR 
 VERSION:2.0 
 X-WR-CALNAME:Kalender von illya@kleeblatt.com 
 PRODID:-//The Horde Project//Horde iCalendar Library//EN 
 BEGIN:VEVENT 
 DTSTART:20210318T140000Z 
 DTEND:20210318T150000Z 
 DTSTAMP:20210321T192856Z 
 UID:20210315125442.qQtI4Rdk7FakWsfY8RiLVTg@webmail.kleeblatt.com 
 CREATED:20210315T125442Z 
 LAST-MODIFIED:20210315T125641Z 
 SUMMARY:Testing of Import 
 DESCRIPTION:Not so easy, but I will try to do it 
 LOCATION:Somewhere on the Earth 
 CLASS:PUBLIC 
 STATUS:CONFIRMED 
 TRANSP:OPAQUE 
 END:VEVENT 
 END:VCALENDAR 
 

 Отправлено: 22.03.21 09:28. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Йееес!!! Получилось!

Вери велл..
Результат применения PROPFIND / GET к колекции мы видели.
Сделайте еще PROPFIND для календаря

... PROPFIND https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics

 Отправлено: 23.03.21 19:16. Заголовок: Петр пишет: Вери ве..

Петр пишет:

цитата:

Вери велл.. Результат применения PROPFIND / GET к колекции мы видели. Сделайте еще PROPFIND для календаря ... PROPFIND https://webmail.kleeblatt.com/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics

 
 <?xml version="1.0" encoding="utf-8"?> 
 <d:multistatus 
 	xmlns:d="DAV:" 
 	xmlns:s="http://sabredav.org/ns" 
 	xmlns:cal="urn:ietf:params:xml:ns:caldav" 
 	xmlns:cs="http://calendarserver.org/ns/" 
 	xmlns:card="urn:ietf:params:xml:ns:carddav"> 
 	<d:response> 
 		<d:href>/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics</d:href> 
 		<d:propstat> 
 			<d:prop> 
 				<d:getlastmodified>Mon, 15 Mar 2021 12:56:41 GMT</d:getlastmodified> 
 				<d:getcontentlength>546</d:getcontentlength> 
 				<d:resourcetype/> 
 				<d:getetag>"fa79fe0b28dea03c0db457af39980eae"</d:getetag> 
 				<d:getcontenttype>text/calendar; charset=utf-8</d:getcontenttype> 
 			</d:prop> 
 			<d:status>HTTP/1.1 200 OK</d:status> 
 		</d:propstat> 
 	</d:response> 
 </d:multistatus> 
 

И что дальше?

 Отправлено: 23.03.21 20:16. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

И что дальше?

Все. Спасибо.
Дальше сами, согласно техзадания шефа.

 Отправлено: 23.03.21 20:21. Заголовок: Dr. Oldwarez пишет И..

Dr. Oldwarez пишет

цитата:

И что дальше?

Теперь, как минимум, знаете устройство календаря (по запросам), т.е.
1. Список календарей (пост 259)
2. Оглавление календаря (список событий, предыдущий ваш пост 267). Идентификатор события <d:getetag>"fa79fe0b28dea03c0db457af39980eae"</d:getetag>
3. Содержимое календаря (GET запрос), правда вы дали его в усеченном виде, т.к. нет идентификатора события
События оглавления содержат дату <d:getlastmodified>Mon, 15 Mar 2021 12:56:41 GMT</d:getlastmodified> и
Содержимое события содержит дату LAST-MODIFIED:20210315T125641Z
Т.е. получая Оглавление календаря, а не все содержимое, можно знать менялось событие в календаре на сервере, сравнивая со значением в dbf
и брать с сервера только измененные данные (содержимое).

 Отправлено: 23.03.21 21:45. Заголовок: SergKis пишет: Соде..

SergKis пишет:

цитата:

Содержимое события содержит дату LAST-MODIFIED:20210315T125641Z Т.е. получая Оглавление календаря, а не все содержимое, можно знать менялось событие в календаре на сервере, сравнивая со значением в dbf и брать с сервера только измененные данные (содержимое).

О, точно, как же я сразу до этого не додумался? Надо всё фильтровать по дате последнего обновления, которая также должна храниться в INI
Тогда фильтруются только те ICSы, которые не были актуализированы в прошлый раз. И ещё маленький вопрос напоследок. Как с помощью CURL GET сделать так, чтобы НЕСКОЛЬКО событий вывелось в один файл

А то у меня так (Strings - список названий ics, TEMPDIR - директория временных файлов, создаваемых в процессе подключения к календарю):

 
 ... 
 FOR k:=1 TO LEN(aStrings) 
 	cCURL2:='curl -o '+cTempDIR+IIF(RIGHT(cTempLW,1)="\",'','\')+'temp_'+STRZERO(k,4)+'.txt --user '+cCALLOgin+':'+cCALPWD+' -i -X GET '+cCalName+; 
 		IIF(RIGHT(cCalName,1)='/','','/')+aStrings[k] 
 	RUN(cCurl2) 
 NEXT k 
 ... 
 

То есть, каждый ICS на одно событие генерит свой собственный файл. Нельзя ли так, чтобы несколько событий отправлялись в один файл? (Настроить вывод на дозапись вместо открытия нового файла)

 Отправлено: 23.03.21 21:57. Заголовок: Dr. Oldwarez пишет Н..

Dr. Oldwarez пишет

цитата:

Нельзя ли так, чтобы несколько событий отправлялись в один файл?

Зачем ?
Есть a := Directory(<маска>)
и собирайте, если надо или проще по одному элементу отрабатывать массив a

 Отправлено: 23.03.21 22:27. Заголовок: PS А может так ? FO..

PS
А может так ?

 
  FOR k:=1 TO LEN(aStrings)  
        cOut := cTempDIR+IIF(RIGHT(cTempLW,1)="\",'','\')+'temp_'+STRZERO(k,4)+'.txt' 
        fErase(cOut) 
  	cCURL2:='curl -o '+cOut+' --user '+cCALLOgin+':'+cCALPWD+' -i -X GET '+cCalName+;  
  		IIF(RIGHT(cCalName,1)='/','','/')+aStrings[k]  
  	RUN(cCurl2)  
         IF file(cOut) 
            // обработка 
         ELSE 
            ? k, "Error", cOut 
         ENDIF 
  NEXT k 

 Отправлено: 25.03.21 13:54. Заголовок: SergKis пишет: ICS..

SergKis пишет:

цитата:

ICS = ARRAY[6] 1 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/w7klsLDepGCBYAA7Gmr4GIe.ics", "Sat, 13 Mar 2021 16:58:11 GMT", "ics 1"} 2 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/8gpZuoZBJQDnLlr-66brhHG.ics", "Thu, 04 Mar 2021 16:51:14 GMT", "ics 2"} 3 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/VM3wwLrVEm3Zwn-UkKAzXra.ics", "Thu, 04 Mar 2021 16:51:33 GMT", "ics 3"} 4 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/e5aab12a-1a2a-4309-96d4-cccb1b67d9ba.ics", "Mon, 08 Mar 2021 06:59:00 GMT", "ics 4"} 5 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/seukIp8ajv0rOXXx8IG4Q9j.ics", "Mon, 15 Mar 2021 12:56:41 GMT", "ics 5"} 6 {"/rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7/83sEK6nFBn4-TQ1XcZoPvWz.ics", "Mon, 15 Mar 2021 12:52:23 GMT", "ics 6"}

Отлично! У меня получилось.
Теперь вот вопрос по формату времени. Мой шеф проживает в зоне CET (Гринвич+1). Я - в зоне EET. И хотелось бы привести это всё к одному формату, принятому в ICS:
YYYYMMDDTHHMMSSZ
И тогда уже можно сделать выбор по дате - только тех, кто позже даты последней автосинхронизации, заносимой в регистр автоматически при нажатии на кнопку "Синхронизация"

 Отправлено: 25.03.21 15:35. Заголовок: Dr. Oldwarez пишет И..

Dr. Oldwarez пишет

цитата:

И хотелось бы привести это всё к одному формату, принятому в ICS:

Для этого, вроде, все есть

 
 c := DtoS(Date()) 
 m := {} 
 FOR i := 1 TO 12 ; AAdd(m, left(cMonth(StoD( left(c,4)+strzero(i,2)+"01" )), 3)) 
 NEXT 
 a := hb_ATokens("Mon, 15 Mar 2021 12:56:41 GMT"," ") 
 cDay := a[2] 
 cMes := a]3] 
 cGod := a[4] 
 cTim := a[5] 
 cMes := StrZero(AScan(m, cMes), 2) 
 cTim := StrTran(cTim, ":", "") 
 cDat := cGod+cMes+cDay+cTim 
 

 Отправлено: 25.03.21 17:16. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Отлично! У меня получилось.

В цикле выполнить вызов curl?
Поздравляю.

 Отправлено: 25.03.21 20:59. Заголовок: Петр пишет: В цикле..

Петр пишет:

цитата:

В цикле выполнить вызов curl? Поздравляю.

Этак вот

 
 PROCEDURE SyncDlg() 
 LOCAL cXML:=cTempDIR+IIF(RIGHT(cTempLW,1)="\",'','\')+'listall_ics.xml' 
 LOCAL cRun:='curl -k -o '+cXML+' --user '+cCALLOgin+':'+cCALPWD+' -X PROPFIND "'+cCALName+'"' 
 LOCAL cBuf:="",aBuf:={},nI:=1,aStrings:={},aICS:={},j:=1,cCURL2:="",aHeaders:={"CALENDAR","CHANGE DATE","NUMBER"},aLen:={700,150,80} 
 LOCAL nN:=1,cK:="",cI:="" 
 LOCAL aDimLen := {280,80,50,80,50,200,350} 
 LOCAL aDimHeaders:={"Subject","Start Date", "Start Time","End Date","End Time","Location","Description"},aCalStr:={},aDim:={} 
 LOCAL cLocation:="",cDescription:="",cSubject:="",dStartDate:=CTOD(""),cStartTime:="00:00",dEndDate:=CTOD(""),cEndTime:="00:00",; 
 	cStartDateTime:="",cEndDateTime:="" 
 RUN (cRun) 
 cBuf := hb_memoread(cXml) 
  
 IF CRLF $ cBuf 
 	cBuf := StrTran(cBuf, CRLF, "") 
 ENDIF 
  
 aBuf := hb_ATokens(cBuf, "<d:response><d:href>") 
  
     nN := 0 
     FOR nI := 1 TO Len(aBuf) 
         cI := aBuf[nI] 
         nK := AT("</", cI) 
         cK := trim(left(cI, nK-1)) 
         IF right(cK, 4) == ".ics" 
            nN += 1 
            AAdd(aIcs, { cK, "", "ics "+hb_ntos(nN) }) 
         ENDIF 
  
     NEXT 
  
  
     aBuf := hb_ATokens(cBuf, "<d:propstat><d:prop><d:getlastmodified>") 
  
  
     nN := 0 
     FOR nI := 1 TO Len(aBuf) 
         cI := aBuf[nI] 
         cK := "" 
         IF ! "<?xml " $ cI 
            nN += 1 
            nK := AT("</", cI) 
            cK := left(cI, nK-1) 
            aIcs[nN][2] := cK 
         ENDIF 
  
     NEXT 
  
 FOR i:=1 TO LEN(aICS) 
 	//IF aICS[ i ][2]> 
 	AADD(aStrings,SUBSTR(aICS[ i ][1],RAT("/",aICS[ i ][1])+1)) 
 	//ENDIF 
 NEXT i 
 FOR k:=1 TO LEN(aStrings) 
      cOut := cTempLW+IIF(RIGHT(cTempLW,1)="\",'','\')+'temp_'+STRZERO(k,4)+'.txt' 
      fErase(cOut) 
 	cCURL2:='curl -o '+cOut+' --user '+cCALLOgin+':'+cCALPWD+' -i -X GET '+cCalName+; 
   		IIF(RIGHT(cCalName,1)='/','','/')+aStrings[k] 
 	RUN(cCurl2) 
 	IF FILE(cOut) 
 		aCalStr:=hb_ATokens(MEMOREAD(cOut),CRLF) 
 			FOR nBuf:=1 TO LEN(aCalStr) 
 				IF aCalStr[nBuf]="DTSTART" 
 					cDateTime:=SUBSTR(aCalStr[nBuf],AT(":",aCalStr[nBuf])+1) 
 					dStartDate:=STOD(LEFT(cDateTime,8)) 
 					cStartTime:=SUBSTR(cDateTime,10,2)+":"+SUBSTR(cDateTime,12,2) 
 				ENDIF 
 				IF aCalStr[nBuf]="DTEND" 
 					cEndDateTime:=SUBSTR(aCalStr[nBuf],AT(":",aCalStr[nBuf])+1) 
 					dEndDate:=STOD(LEFT(cEndDateTime,8)) 
 					cEndTime:=SUBSTR(cEndDateTime,10,2)+":"+SUBSTR(cEndDateTime,12,2) 
 				ENDIF 
 				IF aCalStr[nBuf]="SUMMARY" 
 					cSubject:=SUBSTR(aCalStr[nBuf],AT(":",aCalStr[nBuf])+1) 
 				ENDIF 
 				IF aCalStr[nBuf]="LOCATION" 
 					cLocation:=SUBSTR(aCalStr[nBuf],AT(":",aCalStr[nBuf])+1) 
 				ENDIF 
 				IF aCalStr[nBuf]="DESCRIPTION" 
 					cDescription:=SUBSTR(aCalStr[nBuf],AT(":",aCalStr[nBuf])+1) 
 				ENDIF 
 			NEXT nBuf 
 			AADD(aDim,{cSubject,dStartDate,cStartTime,dEndDate,cEndTime,cLocation,cDescription}) 
             // Obrabotka 
 	ENDIF 
 NEXT k 
  
 DEFINE WINDOW wndSync; 
 	AT 50,0; 
 	WIDTH 1020 HEIGHT 670; 
 	CHILD; 
 	TITLE "Calendar synchronization" 
 IF LEN(aDim)>0 
 DEFINE TBROWSE brwImport; 
 	AT 10,10; 
 	WIDTH 950 HEIGHT 350; 
 	GRID 
 brwImport:=SetArrayTo("brwImport","wndSync",aDim) 
 END TBROWSE 
 ENDIF 
 END WINDOW 
 ACTIVATE WINDOW wndSync 
 

 Отправлено: 25.03.21 21:00. Заголовок: Петр пишет: К тому ..

Петр пишет:

цитата:

К тому же инсталлятор весом меньше 1 Га в наше время моветон

Вот только моему шефу этого не говорите. Для него это как красная тряпка для быка

 Отправлено: 26.03.21 07:51. Заголовок: Dr. Oldwarez Поправ..

Dr. Oldwarez
Поправьте в посте 270 [ i ] без пробелов (это служебный тэг), на [ i ] с пробелами, искажение текста не будет

 Отправлено: 26.03.21 07:56. Заголовок: Dr. Oldwarez пишет В..

Dr. Oldwarez пишет

цитата:

Вот только моему шефу этого не говорите. Для него это как красная тряпка для быка

цитата:

В Windows 10 build 17063 и более поздних версиях теперь включен Curl, так что вы можете запускать его непосредственно из Cmd.exe или PowerShell.exe.

 Отправлено: 26.03.21 10:10. Заголовок: SergKis пишет: Попр..

SergKis пишет:

цитата:

Поправьте в посте 270 [ i ] без пробелов (это служебный тэг), на [ i ] с пробелами, искажение текста не будет

я поправил

 Отправлено: 26.03.21 13:44. Заголовок: SergKis пишет:  ци..

SergKis пишет:

цитата:

цитата: В Windows 10 build 17063 и более поздних версиях теперь включен Curl, так что вы можете запускать его непосредственно из Cmd.exe или PowerShell.exe.

И это радует. А то придётся уже через libcurl продираться.

 Отправлено: 26.03.21 17:59. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Этак вот

Спасибо, прямо вот так взять процедуру и использовать не получится, но все же.
Позвольте дать несколько советов.

1) Вот так будет лучше
PROCEDURE SyncDlg(cTempDIR,cTempLW,cCALLOgin,cCALPWD,cCALName)
Если вы захотите использовать функцию еще где-нибудь, сделать это будет проще.

2) Используйте опции компилятора -w3 -es2
Это позволит вам избежать ошибок и код, возможно, работать будет быстрее.

Например мы получили Variable 'NN' is assigned but not used in function 'SYNCDLG(9)'
Действительно,
LOCAL nN:=1
и дальше
nN := 0
Значение nN, присвоенное при инициализации переменной не используется.

Вы можете в MinGUI добавить опции в батфайл для сборки
compile.bat myprogram /s -w3 /s -es2 %1 %2 %3 %4 %5 %6 %7 %8 %9
или прямо указать в коде

#pragma -w3
#pragma -es2

 Отправлено: 26.03.21 18:08. Заголовок: 3) По возможности ис..

3) По возможности используйте стандартные функции Harbour. Это поможет избежать ошибок, свойственных пользовательскому коду,
а также увеличит переносимость программ (кода) на другие платформы.

Ну и часто код выглядит лучше

LOCAL cXML:=cTempDIR+IIF(RIGHT(cTempLW,1)="\",'','\')+'listall_ics.xml'
==
LOCAL cXML:=cTempDIR+hb_DirSepAdd(cTempLW)+'listall_ics.xml'

 Отправлено: 26.03.21 19:39. Заголовок: SergKis пишет: Для ..

SergKis пишет:

цитата:

Для этого, вроде, все есть c := DtoS(Date()) m := {} FOR i := 1 TO 12 ; AAdd(m, left(cMonth(StoD( left(c,4)+strzero(i,2)+"01" )), 3)) NEXT a := hb_ATokens("Mon, 15 Mar 2021 12:56:41 GMT"," ") cDay := a[2] cMes := a]3] cGod := a[4] cTim := a[5] cMes := StrZero(AScan(m, cMes), 2) cTim := StrTran(cTim, ":", "") cDat := cGod+cMes+cDay+cTim

Вот что-то у меня совсем не то. aICS[ i ][2] - это и есть полный формат даты с днями недели и месяцами.

 
 FOR i:=1 TO LEN(aICS) 
 	IF DTIMETOS(aICS[ i ][2],1)>DTOS(dSyncDate)+'T'+STRTRAN(cSyncTime,":","")+'00Z' 
 		AADD(aStrings,SUBSTR(aICS[ i ][1],RAT("/",aICS[ i ][1])+1)) 
 	ENDIF 
 NEXT i 
 

И функция конвертации

FUNCTION DTIMETOS(cFull,nUTC) 
 LOCAL c := DtoS(Date()),m := {},a:=ARRAY(7),cDat:='',cDay:='',cMonth:='',cYear:='',cTime:='' 
 FOR i := 1 TO 12 
 	AAdd(m, left(cMonth(StoD( left(c,4)+strzero(i,2)+"01" )), 3)) 
 NEXT 
  
 a := hb_ATokens(cFull," ") 
 IF LEN(a)>=5 
 cDay := a[2] 
 cMonth := a[3] 
 cYear := a[4] 
 cTime := a[5] 
 cMonth := StrZero(AScan(m, cMonth), 2) 
 cTime := StrTran(cTime, ":", "") 
 ENDIF 
 cDat := cYear+cMonth+cDay+'T'+cTime+'00Z' 
 RETURN CDat 
 

При попытке обратиться к ней из IF выдаёт дикие ошибки обращения к массиву. Хотя значения в поле BROWSE выводит нормально. Это почему так?

 Отправлено: 26.03.21 19:41. Заголовок: Петр пишет: 3) По в..

Петр пишет:

цитата:

3) По возможности используйте стандартные функции Harbour. Это поможет избежать ошибок, свойственных пользовательскому коду, а также увеличит переносимость программ (кода) на другие платформы. Ну и часто код выглядит лучше LOCAL cXML:=cTempDIR+IIF(RIGHT(cTempLW,1)="\",'','\')+'listall_ics.xml' == LOCAL cXML:=cTempDIR+hb_DirSepAdd(cTempLW)+'listall_ics.xml'

Да, намного удобнее использовать готовые функции, а не изобретать велосипед. Но где к ним найти мануал?

 Отправлено: 26.03.21 20:12. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Да, намного удобнее использовать готовые функции, а не изобретать велосипед. Но где к ним найти мануал?

Например здесь

 Отправлено: 26.03.21 20:55. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

При попытке обратиться к ней из IF выдаёт дикие ошибки обращения к массиву. Хотя значения в поле BROWSE выводит нормально. Это почему так?

А что у вас в программе с настройками
set language to ??
или
hb_langSelect(??)

А заодно и set date to проверьте

 Отправлено: 26.03.21 20:55. Заголовок: Dr. Oldwarez пишет П..

Dr. Oldwarez пишет

цитата:

При попытке обратиться к ней из IF выдаёт дикие ошибки обращения к массиву. Хотя значения в поле BROWSE выводит нормально. Это почему так?

 
 FUNCTION DTIMETOS(cFull,nUTC)  
  LOCAL c := DtoS(Date()),m := {},a:=ARRAY(7),cDat:='',cDay:='',cMonth:='',cYear:='',cTime:=''  
  LOCAL i 
  FOR i := 1 TO 12  
 i перекрылось из процедуры выше с 
 FOR i:=1 TO LEN(aICS) 
 

 Отправлено: 26.03.21 21:10. Заголовок: SergKis пишет: В Wi..

SergKis пишет:

цитата:

В Windows 10 build 17063 и более поздних версиях теперь включен Curl

Я раньше использовал внешний Curl, потом в Минигуи перешел на внутренний, пока что проблем нет.
Есть ли у внешнего преимущества?

 Отправлено: 26.03.21 21:15. Заголовок: rvu пишет: Я раньше..

rvu пишет:

цитата:

Я раньше использовал внешний Curl, потом в Минигуи перешел на внутренний, пока что проблем нет. Есть ли у внешнего преимущества?

Внутренний - это libcurl?

 Отправлено: 26.03.21 21:35. Заголовок: Короче, curl написан..

Короче, curl написан с использованием функций libcurl

Парсер командной строки + функциональность libcurl

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

 Отправлено: 26.03.21 22:31. Заголовок: SergKis пишет: FUNC..

SergKis пишет:

цитата:

FUNCTION DTIMETOS(cFull,nUTC) LOCAL c := DtoS(Date()),m := {},a:=ARRAY(7),cDat:='',cDay:='',cMonth:='',cYear:='',cTime:='' LOCAL i FOR i := 1 TO 12 i перекрылось из процедуры выше с FOR i:=1 TO LEN(aICS)

Кстати, вот вам наглядный пример почему нужно использовать -w3 -es2

 Отправлено: 27.03.21 00:12. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

IF DTIMETOS(aICS[ i ][2],1)>DTOS(dSyncDate)+'T'+STRTRAN(cSyncTime,":","")+'00Z'

Мне кажется - это не правильный подход.
В добавок к используемому еще со времен Clipper скалярному типу данных date, в Harbour добавлена поддержка типа timestamp (datetime).

tValue := t"2013-11-06;15:14:45"
tValue := hb_DateTime()

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

Поэтому правильнее будет написать функции конвертации ICS DateTime в Harbour TIMESTAMP (DateTime) и наоборот.

 Отправлено: 27.03.21 00:18. Заголовок: Один из возможных ва..

Один из возможных вариантов реализации

цитата:

// "Mon, 15 Mar 2021 12:56:41 GMT" FUNCTION DTimeToTS(cFull, cLang) LOCAL m := GET_MONTHS(cLang) LOCAL cMonth LOCAL aDateTime aDateTime := hb_ATokens(hb_defaultValue(cFull, "")," ") IF LEN(aDateTime) >= 5 cMonth := StrZero(AScan(m, aDateTime[3]), 2) RETURN hb_StrToTS(hb_strFormat("%s-%s-%s %s", aDateTime[4], cMonth, aDateTime[2], aDateTime[5])) ENDIF RETURN hb_StrToTS("") STATIC FUNCTION GET_MONTHS(cL) LOCAL cLang LOCAL i, n, aMonths[12], dt := Date() dt -= Day(dt) - 1 cLang := hb_langSelect(cL) FOR i := 1 TO 12 n := Month( dt ) aMonths[ n ] := Left(CMonth(dt), 3) dt += 31 dt -= Day(dt) - 1 NEXT hb_langSelect(cLang) RETURN aMonths

 Отправлено: 27.03.21 00:28. Заголовок: Проверочный код (кон..

Проверочный код (консоль)

цитата:

//C:\MiniGUI\SAMPLES\MySamples\DateTime\demo.prg REQUEST HB_LANG_RU REQUEST HB_CODEPAGE_RU1251 REQUEST HB_CODEPAGE_RU866 FUNCTION main() hb_cdpSelect( "RU1251" ) hb_langSelect("RU") hb_setTermCP( "RU866", "RU1251" ) ?? CMonth(hb_DateTime()) ? ? hb_DateTime() ? DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en") ? hb_DateTime() > DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en") RETURN 0

Если вы используете harbour из поставки MiniGUI ваш compile.bat должен выглядеть так

цитата:

call ..\..\..\batch\compile.bat demo /c %1 %2 %3 %4 %5 %6 %7 %8 %9

PS. почему я спрашивал про set language to .. догадаетесь сами.

 Отправлено: 27.03.21 01:06. Заголовок: 4) Вызов внешних про..

4) Вызов внешних программ

RUN (cRun)

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

Но команда RUN - это обертка встроенной __Run(), а эта функция совместима с Clipper и результатов не возвращает.
Значит нужно использовать hb_Run()

#define CURLE_OK 0

nResult := hb_Run(cRun)

IF nResult == CURLE_OK
// Все хорошо, начинаем обработку данных
ELSE
// Обработчик ошибок
END
Список кодов ошибок, которые может вернуть curl

P.S. Для своего проекта можно позаимствовать hbcurl.ch из contrib\hbcurl даже не используя hbcurl

 Отправлено: 27.03.21 01:20. Заголовок: 5) Использование hb..

5) Использование hb_StrFormat

цитата:

#define _DIR_BIN_ (hb_DirBase() + "utils") .. LOCAL cArgs LOCAL cCurlOpt := "--no-progress-meter -k" LOCAL cLogin := "illya@kleeblatt.com" LOCAL cPwd := "**********" LOCAL cCalDav := "https://webmail.kleeblatt.com" LOCAL cHRef := "rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7" ... // Формируем строку вызова cArgs := hb_StrFormat(; '%s\curl %s -u%s:%s -X PROPFIND "%s%s"', _DIR_BIN_, cCurlOpt, cLogin, cPwd, cCalDav, cHRef) ? cArgs

Крайне удобно и позволяет переопределять строку аргументов on the fly.

 Отправлено: 27.03.21 01:42. Заголовок: Петр пишет Один из в..

Петр пишет

цитата:

Один из возможных вариантов реализации

TimeStamp возможный вариант , но он содержит миллисекунды за Timestamp.123, т.е.
нельзя делать hhb_DateTime() == DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en")
На мой взгляд, с ics больше подходит строковый формат, только без всяких T и 00Z внутри,
если иметь ввиду индексы с участием строковых дат и событий календаря, то ключ получается
проще в работе, если учесть хранение в dbf данных в символьном виде (физически), то нет лишних
телодвижений rdd по преобразованию данных. Вид даты "2021031512541" больше подходит в данном
случае, а TimeStamp в типах =@T или производных от них. Но это мое понимание ситуации.

 Отправлено: 27.03.21 01:54. Заголовок: SergKis пишет: нель..

SergKis пишет:

цитата:

нельзя делать hhb_DateTime() == DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en")

Это еще почему?

ts := hb_StrToTS("2021-03-15 12:56:41")
? ts == DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en")

TimeStamp в harbour поддерживает ISO 8601 и совместим с большинством реализаций.
Операции с TimeStamp быстрее строковых операций.

Но вольному воля..

 Отправлено: 27.03.21 02:20. Заголовок: Петр пишет ? hb_dat..

Петр пишет [quote]`
? hb_datetime()
результат
2021-03-27 01:04:47.133

цитата:

Операции с TimeStamp быстрее строковых операций

Разговор о решениях с isc. Составьте выражения ключей индекса и ключей для scope
- выбрать выполненное за год\месяц\квартал\неделя\день ...
- выбрать не выполненное за год\месяц\квартал\неделя\день ...
...
строковые решения будут проще. А так конечно, решать не нам, что и как делать

 Отправлено: 27.03.21 10:52. Заголовок: SergKis пишет: FUN..

SergKis пишет:

цитата:

FUNCTION DTIMETOS(cFull,nUTC) LOCAL c := DtoS(Date()),m := {},a:=ARRAY(7),cDat:='',cDay:='',cMonth:='',cYear:='',cTime:='' LOCAL i FOR i := 1 TO 12 i перекрылось из процедуры выше с FOR i:=1 TO LEN(aICS)

Вот спасибо!!!
Заработало!

Теперь надо встречное движение делать - из DBF в календарь. Это означает, генерить пакет ics-ов и забрасывать их в календарь уже хорошо знакомым CURLом. Выбирать все, чья автозаносимая дата создания позже даты последней синхронизации. Можно их в один ics запихнуть, или опять каждому событию - по своему ICSу, и потом уже циклом закидывать их в календарь.

 Отправлено: 27.03.21 10:57. Заголовок: Петр пишет: TimeSta..

Петр пишет:

цитата:

TimeStamp в harbour поддерживает ISO 8601 и совместим с большинством реализаций. Операции с TimeStamp быстрее строковых операций. Но вольному воля..

TimeStamp - это хорошо, но в формате DBF, созданном в мохнатом 1983 году нет поддержки таких полей. Тогда было только отдельное поле типа даты и строковое короткое поле для времени. Можно создать переменную типа DateTime, а в базу данных её как сохранить? Это тебе не Oracle (ещё одна "любимая" программа моего шефа), где можно пользовательские типы лепить.

 Отправлено: 27.03.21 14:18. Заголовок: SergKis пишет: стро..

SergKis пишет:

цитата:

строковые решения будут проще

Возможно для кого-то и проще. Но и сложного там ничего нет
Скрытый текст

цитата: REQUEST HB_LANG_RU REQUEST HB_CODEPAGE_RU1251 REQUEST HB_CODEPAGE_RU866 REQUEST DBFCDX PROCEDURE Main() LOCAL tBottomDate, tTopDate USE events NEW INDEX ON hb_TSToStr(_FIELD->DUE) TO Due tTopDate := hb_DateTime(2021, 5, 1) tBottomDate := hb_DateTime(2021, 6, 15) SET SCOPETOP TO hb_TSToStr(tTopDate) SET SCOPEBOTTOM TO hb_TSToStr(tBottomDate) GO TOP DO WHILE .NOT. EOF() ? FIELD->UID, FIELD->DUE SKIP +1 ENDDO RETURN INIT PROCEDURE OnInit() LOCAL aStru LOCAL cFileDbf := hb_DirBase() + "events.dbf" LOCAL nI hb_cdpSelect( "RU1251" ) hb_langSelect("RU") hb_setTermCP( "RU866", "RU1251" ) rddSetDefault("DBFCDX") SET DATE FORMAT TO "DD.MM.YYYY" IF .NOT. DbExists(cFileDbf) aStru := {} AADD( aStru, {"UID", "C", 36, 0} ) AADD( aStru, {"DUE", "@", 8, 0} ) DbCreate(cFileDbf, aStru, "DBFCDX", .t., "EVENTS", , "RU1251" ) FOR nI := 1 TO 1000 dbAppend() FIELD->UID := "5981ddad-f421-47ea-bd2d-f442865b" + STRZERO(nI, 4) FIELD->DUE := hb_StrToTS(hb_strFormat("%04d-%02d-%02d", YEAR(DATE()), hb_RandomInt(1,12), hb_RandomInt(1,28))) NEXT nI dbCloseAll() ENDIF RETURN

 Отправлено: 27.03.21 17:26. Заголовок: Петр пишет Но и слож..

Петр пишет

цитата:

Но и сложного там ничего нет

Что то не срослось ваш demo.prg чуть модифицированный под hmg сборкуСкрытый текст

/* * MINIGUI - Harbour Win32 GUI library Demo */ #define _HMG_OUTLOG #include "hmg.ch" REQUEST HB_LANG_RU REQUEST HB_CODEPAGE_RU1251 REQUEST HB_CODEPAGE_RU866 REQUEST DBFCDX PROCEDURE Main() LOCAL tBottomDate, tTopDate hb_cdpSelect( "RU1251" ) hb_langSelect("RU") hb_setTermCP( "RU866", "RU1251" ) Sets() USE events NEW INDEX ON hb_TSToStr(_FIELD->DUE) TO Due tTopDate := hb_DateTime(2021, 5, 1) tBottomDate := hb_DateTime(2021, 6, 15) SET SCOPETOP TO hb_TSToStr(tTopDate) SET SCOPEBOTTOM TO hb_TSToStr(tBottomDate) ? "Scope =",tTopDate, tBottomDate, OrdKeyCount() GO TOP DO WHILE .NOT. EOF() ? RecNo(), FIELD->UID, FIELD->DUE SKIP 1 ENDDO RETURN FUNC Sets() LOCAL aStru LOCAL cFileDbf := hb_DirBase() + "events.dbf" LOCAL nI rddSetDefault("DBFCDX") SET DATE FORMAT TO "DD.MM.YYYY" IF .NOT. DbExists(cFileDbf) aStru := {} AADD( aStru, {"UID", "C", 36, 0} ) AADD( aStru, {"DUE", "@", 8, 0} ) AADD( aStru, {"DTM", "=", 8, 0} ) DbCreate(cFileDbf, aStru, "DBFCDX", .t., "EVENTS", , "RU1251" ) FOR nI := 1 TO 100 dbAppend() FIELD->UID := "5981ddad-f421-47ea-bd2d-f442865b" + STRZERO(nI, 4) FIELD->DUE := hb_StrToTS(hb_strFormat("%04d-%02d-%02d", YEAR(DATE()), hb_RandomInt(1,12), hb_RandomInt(1,28))) NEXT nI GO TOP ? cFileDbf, "LastRec =", LastRec() DO WHILE !EOF() ? RecNo(), FIELD->UID, FIELD->DUE, FIELD->DTM SKIP ENDDO ? dbCloseAll() ENDIF RETURN Nil

Результат работы в _MsgLog.txt Скрытый текст

C:\MiniGuiBcc58\SAMPLES\_Test\_hb_datetime\events.dbf LastRec = 100 1 '' 00:00 2021-03-27 16:17:16.458 2 '' 00:00 2021-03-27 16:17:16.458 3 '' 00:00 2021-03-27 16:17:16.458 4 '' 00:00 2021-03-27 16:17:16.458 5 '' 00:00 2021-03-27 16:17:16.458 6 '' 00:00 2021-03-27 16:17:16.458 7 '' 00:00 2021-03-27 16:17:16.458 8 '' 00:00 2021-03-27 16:17:16.458 9 '' 00:00 2021-03-27 16:17:16.458 10 '' 00:00 2021-03-27 16:17:16.458 11 '' 00:00 2021-03-27 16:17:16.458 12 '' 00:00 2021-03-27 16:17:16.458 13 '' 00:00 2021-03-27 16:17:16.458 14 '' 00:00 2021-03-27 16:17:16.458 15 '' 00:00 2021-03-27 16:17:16.458 16 '' 00:00 2021-03-27 16:17:16.458 17 '' 00:00 2021-03-27 16:17:16.458 18 '' 00:00 2021-03-27 16:17:16.458 19 '' 00:00 2021-03-27 16:17:16.458 20 '' 00:00 2021-03-27 16:17:16.458 21 '' 00:00 2021-03-27 16:17:16.458 ... 90 '' 00:00 2021-03-27 16:17:16.458 91 '' 00:00 2021-03-27 16:17:16.458 92 '' 00:00 2021-03-27 16:17:16.458 93 '' 00:00 2021-03-27 16:17:16.458 94 '' 00:00 2021-03-27 16:17:16.458 95 '' 00:00 2021-03-27 16:17:16.458 96 '' 00:00 2021-03-27 16:17:16.458 97 '' 00:00 2021-03-27 16:17:16.458 98 '' 00:00 2021-03-27 16:17:16.458 99 '' 00:00 2021-03-27 16:17:16.458 100 '' 00:00 2021-03-27 16:17:16.459 Scope = 2021-05-01 2021-06-15 0

 Отправлено: 27.03.21 17:35. Заголовок: Dr. Oldwarez пишет М..

Dr. Oldwarez пишет

цитата:

Можно создать переменную типа DateTime, а в базу данных её как сохранить?

Почитайте http://clipper.borda.ru/?1-4-20-00000851-000-0-0-1598558733

 Отправлено: 27.03.21 17:58. Заголовок: SergKis пишет: Что ..

SergKis пишет:

цитата:

Что то не срослось ваш demo.prg

Мне не удалось повторить в консольном приложении ваш удивительный результат.
И не удалось откомпилировать "модифицированный под hmg сборку"

 Отправлено: 27.03.21 18:03. Заголовок: Петр пишет И не удал..

Петр пишет

цитата:

И не удалось откомпилировать "модифицированный под hmg сборку"

demo.hbp

 
 # Keys compile 
 #-prgflag=-w2 -es1  
  
 # Enable multi/single-thread Harbour VM 
 -mt  
  
 # Incremental-compilation mode 
 -inc 
  
 # folder where are all * .obj 
 -workdir=OBJ 
  
 # Name EXE-module 
 -odemo 
  
 # to list all * .prg 
 demo.prg 
  
 # project Resources 
 #demo.rc 
  
 # paths to the main and extension *.Lib 
 -lminigui 
 

Compile.bat

 
 ..\..\..\BATCH\hbmk2.bat demo.hbp 
 

 Отправлено: 27.03.21 18:07. Заголовок: PS C:\MiniGuiBcc..

PS
C:\MiniGuiBcc58\BATCH\minigui.cfg

 
 # Basic configuration for Compile.bat 
 MG_CMP=harbour 
 MG_BCC=c:\borland\bcc58 
 MG_ROOT=c:\miniguiBcc58 
 

 Отправлено: 27.03.21 18:34. Заголовок: Петр пишет: И не уд..

Петр пишет:

цитата:

И не удалось откомпилировать "модифицированный под hmg сборку"

call ..\..\..\batch\compile.bat demo /c %1 %2 %3 %4 %5 %6 %7 %8 %9

Забыл /c удалить.
Удалось Прикольно..

Закомментировал
//#include "hmg.ch"
Добавил /c
И результат ожидаемый.
Я честно не знаю, что там в minigui сломалось. В топку?!

 Отправлено: 27.03.21 18:47. Заголовок: Замените FIELD по те..

Замените FIELD по тексту на _FIELD
Из топки или подождать?

 Отправлено: 27.03.21 18:52. Заголовок: Петр пишет Я честно ..

Петр пишет

цитата:

Я честно не знаю, что там в minigui сломалось. В топку?!

К сожалению, в топке и уже давно консольные и wvt приложения
Вот я и говорю, что со строковыми проще
USE ...
INDEX ON _FIELD->UID+_FILED->DATASTART TAG START
INDEX ON _FIELD->UID+_FILED->DATAEND TAG END
INDEX ON _FIELD->UIDNO TAG ID

Запрос в GETBOX-ах
cUID := ...
dDT1 := ...
dDT2 := ...
SET SCOPE TO cUID+DtoS(dDT1), cUID+DtoS(dDt2)
GO TOP

 Отправлено: 27.03.21 19:00. Заголовок: Петр пишет Замените ..

Петр пишет

цитата:

Замените FIELD по тексту на _FIELD

Хотел из совсем убрать, причем сразу, но не сделал ... и да, сработало, но осталось не заполнено время в DUE ...

 Отправлено: 27.03.21 19:11. Заголовок: PS Показ в колонках ..

PS
Показ в колонках решается через oCol:cPicture := "@R 9999-99-99 99:99:99"

 Отправлено: 27.03.21 20:03. Заголовок: Петр пишет: Заменит..

Петр пишет:

цитата:

Замените FIELD по тексту на _FIELD

Да, некрасиво получается
FIELD->UID := "5981ddad-f421-47ea-bd2d-f442865b" + STRZERO(nI, 4)
=>
_HMG_SYSDATA[404] := '->UID := "5981ddad-f421-47ea-bd2d-f442865b" + STRZERO(nI, 4)'