forum.clarionlife.net

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

H  Class(Chttp) 
Loc:Server CString(260) 
Loc:Port    Long 
Loc:Page   CString(260)

             ! Это просто примеры параметров, никакого смысла сюда не заложено 
             Loc:Server = 'yandex.ru' 
             Loc:Port = 80 
             Loc:Page = 'test/index.php' 
             ! Заказываем соединение 
             H.Connect(Loc:SERVER,Loc:Port)
             If H.Error
                Message('Ошибка соединения с ' & Loc:SERVER & ':' & Loc:PORT & '|' & H.Error,'Внимание!')
                return 
             End
             ! Добавляем переменную JSON 
             H.AddData('JSON',Loc:JSONText) 
             ! И отправляем 
             H.PostData(Loc:Page)
             If H.Error
               Message('Ошибка передачи данных:' & H.Error,'Внимание!')
               H.Disconnect()
               Return 
             Else 
                  ! Сейчас в поле H.Response лежит ответ сервера, он не стандартизирован... 
             END 

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

  PROGRAM


  PRAGMA('project(#compile libcurl.clw)')
  PRAGMA('project(#pragma link(libcurl.lib))')

  INCLUDE('libcurl.inc')

  MAP
  END

curl                          TCurlClass
res                           CURLcode
url                           STRING(256)
argname                       STRING(32)
infile                        STRING(256)
respfile                      STRING(256)

  CODE

  curl.Init()
  
  url = 'http://myserver/index.php'
  argname = 'userfile'
  infile = 'test.json'
  respfile = 'post_response.json'
  
  res = curl.PostFile(url, argname, infile, 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