Передача файла методом POST через winhttprequest в RSL

• Передача файла методом POST через winhttprequest в RSL ( Andrew01  20.01.2017 09:50 )
  Оценка:5(1)

  Добрый день!
  Собственно сабж, кто и как реализовывал эту задачу?
  
  >> Ответить
  • в примерах есть ( KaMPiLeR  20.01.2017 12:15 )
    Оценка:5(1)

    https://isupport.softlab.ru/portal/samples/sample.asp?Id=472
    вот выдернул:
    
    

    macro FixAddrDadata(addr: string): string
      var ob = CreateObject ("rsax","TRsAxServer","RsAxServer",True).CreateComObject("MSXML2.ServerXMLHTTP"); 
      //addr=OemToUTF(addr);
      ob.open("POST","https://dadata.ru/api/v2/clean/address?",false); 
      //ob.SetProxy(2, "192.168.0.xxx:3128");
      ob.SetTimeouts(3000, 3000, 3000, 3000);
      ob.setRequestHeader("Content-Type", "application/json");
      ob.setRequestHeader("Accept", "application/json");
      ob.setRequestHeader("Authorization", "Token ПолучитеТокен");//в личном кабинете DADATA.RU
      ob.setRequestHeader("X-Secret", "ПолучитеСекретныйКод");
      ob.send("[\""+addr+"\"]"); 
      var r=ob.ResponseText;
      //r=UTFToOem(r);
      return(r);
      OnError
        Return -1;
    end;
    

    
    >> Ответить
    • Благодарю за информацию. ( Andrew01  24.01.2017 08:25 )
      Оценка:5(1)

      Есть ли пример загрузки файла через multipart/form-data ?
      Система на JSON.
      
      >> Ответить
      • обсуждение на 1с )) ( KaMPiLeR  27.01.2017 12:23 )
        Оценка:5(1)

        http://www.forum.mista.ru/topic.php?id=783271
        >> Ответить
        • Благодарю. Есть еще ( Andrew01  30.01.2017 09:04 )
          Оценка:5(1)

          http://phpclub.ru/detail/article/http_request
          подробное описание протокола HTTP с примерами разных запросов.
          >> Ответить
          • В общем получилось взаимодействие с системой JSON ( Andrew01  11.04.2017 11:34 )
            Оценка:5(1)

            Если кому полезно.
            
            import rcw;
            
            ob = CreateObject ("rsax","TRsAxServer","RsAxServer",True);
            WinHttp = ob.CreateComObject("WinHttp.WinHttpRequest.5.1");
            
            server = URL;
            
            WinHttp.Open("POST",server,false);
            WinHttp.Send(Строка JSON);
            или
            WinHttp.Open("POST/GET",server + Строка JSON,false);
            if (WinHttp.Send())
            println(WinHttp.ResponseText);
            end;
            
            при передаче ошибочной строки JSON - WinHttp.Send не отработается и выведет ошибку соединения, должен быть корректный запрос на сервер.
            в ответе(ResponseText) уже можно легко написать парсинг, при работе со строками
            (Index(), StrLen, SubStr и т.д.)
            
            >> Ответить
            • а чтобы WinHttp.WinHttpRequest.5.1 был как ком объект - какая компонента должна быть установлена ( KaMPiLeR  19.07.2017 13:31 )
              Оценка:5(1)

              на сервере?
              
              
              >> Ответить
              • сам спросил - сам ответил )) офиса не было. поставил офис и ок. ( KaMPiLeR  19.07.2017 14:20 )
                Оценка:5(1)

                Not specified
                >> Ответить