POST и GET запросы

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Re: POST и GET запросы

Сообщение Admin »

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

                      PROGRAM
                      MAP
                        MODULE('Curl API')
                          curl_easy_init(),LONG,RAW,PASCAL
                          curl_easy_setopt(LONG Handle, LONG Option, LONG PointerToStructure),LONG,PROC,RAW,PASCAL
                          curl_easy_cleanup(LONG Handle),LONG,PROC,RAW,PASCAL
                          curl_easy_strerror(LONG CURLCode),*CSTRING,RAW,PASCAL
                        END
                      END

CURLOPT_URL           EQUATE(10002)

Curl                  LONG
Url                   CSTRING(256)

  CODE
  Curl = curl_easy_init()
  IF Curl
    Url = 'http://www.aport.ru'
    CURLCode# = curl_easy_setopt(Curl,CURLOPT_URL,ADDRESS(Url))
    IF CURLCode# THEN MESSAGE(curl_easy_strerror(CURLCode#)) END
    ! ...
    ! и т.д.
  END
  curl_easy_cleanup(Curl)
Не очень шарю в СИ что бы переводить весь код на клару. Там работы с коллбеками и поинтерами много. Муть для меня.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
George
Активист
Сообщения: 111
Зарегистрирован: 04 Август 2009, 10:48
Благодарил (а): 2 раза

Re: POST и GET запросы

Сообщение George »

Admin, спасибо !
George
Активист
Сообщения: 111
Зарегистрирован: 04 Август 2009, 10:48
Благодарил (а): 2 раза

Re: POST и GET запросы

Сообщение George »

Admin писал(а):

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

                      PROGRAM
                      MAP
                        MODULE('Curl API')
                          curl_easy_init(),LONG,RAW,PASCAL
                          curl_easy_setopt(LONG Handle, LONG Option, LONG PointerToStructure),LONG,PROC,RAW,PASCAL
                          curl_easy_cleanup(LONG Handle),LONG,PROC,RAW,PASCAL
                          curl_easy_strerror(LONG CURLCode),*CSTRING,RAW,PASCAL
                        END
                      END

CURLOPT_URL           EQUATE(10002)

Curl                  LONG
Url                   CSTRING(256)

  CODE
  Curl = curl_easy_init()
  IF Curl
    Url = 'http://www.aport.ru'
    CURLCode# = curl_easy_setopt(Curl,CURLOPT_URL,ADDRESS(Url))
    IF CURLCode# THEN MESSAGE(curl_easy_strerror(CURLCode#)) END
    ! ...
    ! и т.д.
  END
  curl_easy_cleanup(Curl)
Не очень шарю в СИ что бы переводить весь код на клару. Там работы с коллбеками и поинтерами много. Муть для меня.
Данный код выдает ошибку "failed writing received data to disk/application". В чем проблема ?
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Re: POST и GET запросы

Сообщение Admin »

Во первых это только часть примера как вы понимаете.
Как lib файл сгенерировали для исходника? lib на curl
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
George
Активист
Сообщения: 111
Зарегистрирован: 04 Август 2009, 10:48
Благодарил (а): 2 раза

Re: POST и GET запросы

Сообщение George »

Admin писал(а):Во первых это только часть примера как вы понимаете.
Как lib файл сгенерировали для исходника? lib на curl
При помощи Libmaker.
Ответить