forum.clarionlife.net

Ал писал(а): 29 Сентябрь 2017, 9:15

gopstop2007 писал(а): 28 Сентябрь 2017, 22:16 - с помощью libcurl возможно оставлять копии отправленных сообщении на smtp сервере

- если исх."свои", можно завести доп.адресок и AddRecipient(Clip(CopyTo...))
- если вх."чужие", можно поиграть imap c 'COPY'

gopstop2007 писал(а): 13 Июнь 2020, 12:31 сайт http://ean13.info

     Loc:ST1 = "8001090837424"   ! ЭТО ЗАПРОС ПО ШТРИХ-КОДУ

     Curl &= NEW(TCurlClass)
     Curl.Init()

     Curl.SetSSLVersion(CURL_SSLVERSION_DEFAULT)          
     Curl.SetSSLVerifyHost(false)
     Curl.SetSSLVerifyPeer(false)

     Curl.SetOpt(CURLOPT_CONNECTTIMEOUT,20)  ! МАСКИРУЕМСЯ ПОД РАБОЧУЮ ПЧЕЛУ (БРОУЗЕР)
     Loc:xRes = Curl.SetUserAgent('Mozilla/1.22 (compatible; MSIE 10.0; Windows 3.1)')

     Curl.AddHttpHeader('Content-Type: application/json; charset=utf-8')
     Curl.SetHttpHeaders()

     Loc:RespBuffer &= NewDynStr()  ! ЭТО БУФЕР ДЛЯ ПОЛУЧЕНИЯ ОТВЕТА     
                                    
     ! СОБСТВЕННО ВЫПОЛНЯЕМ ЗАПРОС                                     
     Loc:xRes = curl.SendRequest('https://barcodes.olegon.ru/api/card/name/' & Loc:ST1,'',Loc:RespBuffer)

     If Loc:xRes = CURLE_OK
        If Loc:RespBuffer.StrLen() > 0        
           В Loc:RespBuffer.Str() - ОТВЕТ СЕРВИСА, КОНВЕРТИРУЕМ В ANSI И РАСПАРСИВАЕМ
        end
     elsIf Loc:xRes = -1
        Message(' Неизвестная ошибка запроса: ' & Clip(Left(Loc:xRes)))
     else
        Message(' Ошибка запроса: ' & Clip(Left(Loc:xRes)) & '| ' & Curl.StrError(Loc:xRes))
     end
     
     ! Ну и вырубаем всё, что понаоткрывали    

     DisposeDynStr(Loc:RespBuffer)
     Loc:RespBuffer &= Null

     Curl.CleanUp()
     Dispose(Curl)
     

Дед Пахом писал(а): 13 Июнь 2020, 14:22 Чтобы выполнить этот запрос, надо

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

  curl.Init()
  curl.SendRequest(...)

правда, я пробовал, ключ фейковый.

Игорь Столяров писал(а): 13 Июнь 2020, 14:28
Работал я с ним. Это просто очередное вымораживание бабла жителями одной соседней страны …
Есть аналогичный бесплатный сервис - вот здесь уже реальное наполнение базы, но тоже есть проблемка …
А код, примерно, такой …
......
Абсолютно всё аналогично и с http://ean13.info - просто замените запрос.

gopstop2007 писал(а): 14 Июнь 2020, 18:29 Какой ключ фейковый?

Дед Пахом писал(а): 14 Июнь 2020, 18:33

gopstop2007 писал(а): 14 Июнь 2020, 18:29 Какой ключ фейковый?

Из Вашего примера.

Игорь Столяров писал(а): 13 Июнь 2020, 14:28

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

 
     Curl.SetOpt(CURLOPT_CONNECTTIMEOUT,20)  ! МАСКИРУЕМСЯ ПОД РАБОЧУЮ ПЧЕЛУ (БРОУЗЕР)
     Loc:xRes = Curl.SetUserAgent('Mozilla/1.22 (compatible; MSIE 10.0; Windows 3.1)')

Игорь Столяров писал(а): 13 Июнь 2020, 14:28 Абсолютно всё аналогично и с http://ean13.info - просто замените запрос.

gopstop2007 писал(а): 15 Июнь 2020, 8:04 это зачем, есть проблемы?

gopstop2007 писал(а): 15 Июнь 2020, 8:04 Ваш сайт возвращает ответ - работает, мой ean13.info выдает ошибку

Игорь Столяров писал(а): 15 Июнь 2020, 9:43 Да, есть. Некоторые сервисы не любят когда их долбят из CURL. Например те, что живут за счёт показа рекламы в броузере.
Как я упоминал, в сервисе из моего примера тоже есть эта проблема + там владелец сервиса с повышенной тревожностью.
Ему постоянно кажется что все только и хотят, что поиметь запросами его прелесть - базу товаров с штрих-кодами …

gopstop2007 писал(а): 15 Июнь 2020, 10:18 название + все атрибуты по товару

gopstop2007 писал(а): 13 Июнь 2020, 12:31 code=3145891578706 – код запрошенного товара
key= xccvgf5kh43 – ключ

Дед Пахом писал(а): 15 Июнь 2020, 11:48 Я про этот фейковый ключ

gopstop2007 писал(а): 13 Июнь 2020, 12:31 code=3145891578706 – код запрошенного товара
key= xccvgf5kh43 – ключ

gopstop2007 писал(а): 15 Июнь 2020, 12:32 Как в curl можно после SendRequest сохранить результат в xml файл? Чтобы потом его разобрать.