libcurl for Clarion

[Дед Пахом]

Вроде все основные функции закрыл:
- выгрузка файлов с сервера
- загрузка файлов на сервер
- HTTP GET/POST с возможностью прочитать ответ сервера
- Поддержка SSL

Тестировал на протоколах http, https, ftp, sftp, ftpes.

Краткий туториал в файле \doc\How-To.txt.

[pansoft]

Дали бы мне ссылочку на url, которая файлы принимает...

На фтр закачал чужую библиотеку в папку curl. Может чем поможет. При запуске не находит какой-то фаил...

[Дед Пахом]

v1.02 доступна.
Чтобы отправить файл на http, пишем

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

  curl.Init()
  
  res = curl.PostFile(url, 'xml_file', 'client.xml', respfile)
  IF res = CURLE_OK
    MESSAGE('Success, see file '& CLIP(respfile) &' for details', 'Post test', ICON:Asterisk)
  ELSIF res = -1
    MESSAGE('curl_formadd failed: errcode '& res, 'Post test', ICON:Asterisk)
  ELSE
    MESSAGE('PostFile failed: '& curl.StrError(res), 'libcurl', ICON:Exclamation)
  END

Есть пример в папке examples\PostFile.

А также простенький FTP менеджер (app для C10). Пока он не умеет копировать папки...

[pansoft]

Дед Пахом, best!

[Игорь Столяров]

А также простенький FTP менеджер (app для C10).

Подскажите пожалуйста, а как удалить файл по имени через cURL в sFTP разделе ?
Вчера весь вечер пытался разобраться сам. Честно.
Но видимо пока это выше моего понимания ... Спасибо.

[Admin]

Ну грубо говоря вот так:

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

curl_setopt($ch, CURLOPT_QUOTE, array("DELE /path/to/file.ext")); 

Но как это реализуется классом х.з.

[Admin]

v1.02 доступна.

Подозреваю что тут

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

curl_slist_append(SELF.plist, szData)

нужно написать

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

SELF.plist = curl_slist_append(SELF.plist, szData)

Иначе, SELF.plist всегда = 0

[morkovin]

На фтр закачал чужую библиотеку в папку curl. Может чем поможет. При запуске не находит какой-то фаил...

Не хватает libcurl.lib, который производится LibMaker-ом от нужной версии libcurl.dll.

p.s. Продукт от ДедаПахома сейчас безусловный тренд месяца(имхо)

[Admin]

Не хватает libcurl.lib

в папку \libcurl-master\lib\ смотреть пробовали?

[Дед Пахом]

Подозреваю что тут

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

curl_slist_append(SELF.plist, szData)

нужно написать

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

SELF.plist = curl_slist_append(SELF.plist, szData)

Иначе, SELF.plist всегда = 0

Спасибо, исправлю!

[Дед Пахом]

Подскажите пожалуйста, а как удалить файл по имени через cURL в sFTP разделе ?

Сам ещё не знаю

[Дед Пахом]

Подскажите пожалуйста, а как удалить файл по имени через cURL в sFTP разделе ?Сам ещё не знаю

Вот так:

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

!pUrl is ftp://user@95.96.97.98, pFilename is /home/files/testfile.txt
TCurlFtpClass.DeleteFile      PROCEDURE(STRING pUrl, STRING pFilename)
ftpcmd                          TCurlSList
res                             CURLcode, AUTO
  CODE
  ftpcmd.Append('DELE '& pFilename)
  res = SELF.SetQuote(ftpcmd)  
  IF res <> CURLE_OK
    RETURN res
  END

  res = SELF.SetOpt(CURLOPT_URL, pUrl)
  IF res <> CURLE_OK
    RETURN res
  END
  
  RETURN SELF.Perform()

В новой версии будет класс TCurlFtpClass, специально для FTP

[Admin]

Исправление что я писал сделать нужно или не будет работать SELF.SetQuote(ftpcmd), по идее.

[Дед Пахом]

Исправление что я писал сделать нужно или не будет работать SELF.SetQuote(ftpcmd), по идее.

Да, исправление нужно, хотя и в таком виде _одна_ запись в slist попадает, последняя.

[Игорь Столяров]

Пытаюсь работать с библиотекой ... у меня есть большие подозрения, что работа ведется по протоколу FTP, а не SSH.
При кол-ве файлов в разделе с превышением лимита FTP, LoadRemoteDir() возвращает ошибку.
Проверил несколько раз - могу загнать в раздел файлы и дать данные раздела на сервере для проверки.

[Дед Пахом]

Проверил несколько раз - могу загнать в раздел файлы и дать данные раздела на сервере для проверки.

Давай конечно.