libcurl for Clarion

Программы на Clarion, шаблоны, библиотеки и пр.
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
morkovin
Ветеран
Сообщения: 850
Зарегистрирован: 20 Июль 2005, 13:53
Откуда: Volgograd, Russia
Контактная информация:

libcurl for Clarion

Сообщение morkovin »

Код: Выделить всё

CURL_SSLVERSION_TLSv1         EQUATE(1) !/* TLS 1.x */
CURL_SSLVERSION_SSLv2         EQUATE(2)
CURL_SSLVERSION_SSLv3         EQUATE(3)
CURL_SSLVERSION_TLSv1_0       EQUATE(4)
CURL_SSLVERSION_TLSv1_1       EQUATE(5)
CURL_SSLVERSION_TLSv1_2       EQUATE(6)
CURL_SSLVERSION_TLSv1_3       EQUATE(7)
из этих все перебрал. Не работает. Та же ошибка
Может надо это как-то вставить

Код: Выделить всё

CURLOPT_TLSAUTH_USERNAME      EQUATE(204 + CURLOPTTYPE_STRINGPOINT)     !Set a username for authenticated TLS
CURLOPT_TLSAUTH_PASSWORD      EQUATE(205 + CURLOPTTYPE_STRINGPOINT)     !Set a password for authenticated TLS
CURLOPT_TLSAUTH_TYPE          EQUATE(206 + CURLOPTTYPE_STRINGPOINT)     !Set authentication type for authenticated TLS
WBR, morkovin

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 2535
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

libcurl for Clarion

Сообщение Дед Пахом »

Вызовите эту функцию как есть, без изменений. Должны получить ошибку "Failure when receiving data from the peer".

Код: Выделить всё

Send::Morkovin                PROCEDURE()
curl                            TCurlMailClass
res                             CURLcode
  CODE
  curl.Init()

!  curl.SetDefaultProtocol('smtp')
  curl.Server('mail.volganet.ru', 587)
  curl.Account('md@volganet.ru', '12345')
  curl.From('M.D. <md@volganet.ru>')
  curl.AddRecipient('mia@mail.ru') !to/cc/bcc
  
  curl.UseSSL(CURLUSESSL_ALL)
  curl.SetSSLVersion(CURL_SSLVERSION_TLSv1)

  curl.SetSSLVerifyPeer(FALSE)  !curl --insecure
  curl.SetSSLVerifyHost(FALSE)  !curl --insecure
  
  curl.Subject('TEST')
  curl.Body('TEST')

  res = curl.Send()
  
  IF res = CURLE_OK
    MESSAGE('Email sent', 'SendMail', ICON:Asterisk)
  ELSE
    MESSAGE('Send failed: '& curl.StrError(res), 'SendMail', ICON:Exclamation)
  END
С уважением, ДП

Аватара пользователя
morkovin
Ветеран
Сообщения: 850
Зарегистрирован: 20 Июль 2005, 13:53
Откуда: Volgograd, Russia
Контактная информация:

libcurl for Clarion

Сообщение morkovin »

Дед Пахом писал(а):
03 Ноябрь 2020, 17:15
Должны получить ошибку "Failure when receiving data from the peer".
Да, получил эту ошибку через минуты 2-3
WBR, morkovin

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 2535
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

libcurl for Clarion

Сообщение Дед Пахом »

morkovin писал(а):
03 Ноябрь 2020, 17:57
Да, получил эту ошибку через минуты 2-3
Странно, у меня моментально всё отрабатывает.
Тем не менее, попробуйте подставить вместо фейковых свои атрибуты Account и From.
С уважением, ДП

Аватара пользователя
morkovin
Ветеран
Сообщения: 850
Зарегистрирован: 20 Июль 2005, 13:53
Откуда: Volgograd, Russia
Контактная информация:

libcurl for Clarion

Сообщение morkovin »

Дед Пахом писал(а):
03 Ноябрь 2020, 18:11
morkovin писал(а):
03 Ноябрь 2020, 17:57
Да, получил эту ошибку через минуты 2-3
Странно, у меня моментально всё отрабатывает.
Тем не менее, попробуйте подставить вместо фейковых свои атрибуты Account и From.
Попробовал. То же самое - долго висит, а потом та же ошибка
WBR, morkovin

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 2535
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

libcurl for Clarion

Сообщение Дед Пахом »

Что DebugView говорит?
С уважением, ДП

Аватара пользователя
morkovin
Ветеран
Сообщения: 850
Зарегистрирован: 20 Июль 2005, 13:53
Откуда: Volgograd, Russia
Контактная информация:

libcurl for Clarion

Сообщение morkovin »

Дед Пахом писал(а):
03 Ноябрь 2020, 18:29
Что DebugView говорит?
Вложения
TYCOON.txt
(6.92 КБ) 12 скачиваний
WBR, morkovin

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 2535
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

libcurl for Clarion

Сообщение Дед Пахом »

А, он у Вас по протоколу http пытается соединиться. Добавьте вызов curl.SetDefaultProtocol('smtp') после Init(), или поставьте libcurl поновее, там этот вызов зашит в Init().
С уважением, ДП

Аватара пользователя
morkovin
Ветеран
Сообщения: 850
Зарегистрирован: 20 Июль 2005, 13:53
Откуда: Volgograd, Russia
Контактная информация:

libcurl for Clarion

Сообщение morkovin »

Дед Пахом писал(а):
03 Ноябрь 2020, 18:53
А, он у Вас по протоколу http пытается соединиться. Добавьте вызов curl.SetDefaultProtocol('smtp') после Init()
Ура! Спасибо! Всё заработало! :D
WBR, morkovin

Ответить