Можно ли считать информацию с сайта

gasjuk

Хотела посоветоваться с вами.Дело в том,что на конкретном сайте каждый месяц выкладывается список лжепредриятий.
Заказчик просит ,хорошо,что просит,а пока не требует,чтобы при заведении основных записей поставщика и создании контрактов в SAP,
шла сверка с этим списком и в случае нахождения совпадения выдавать предупреждение.Насколько реально выполнить эту просьбу?

ArmAnn

Вполне реально.
Закачиваете к себе страничку, например с помощью ФМ HTTP2_GET, разбираете и вытаскиваете оттуда список предприятий. Складываете в свой справочник, а там уже используете где и как хотите

gasjuk

Функция HTTP2_GET отрабатывет,дает видимо какие-то записи в 2 таблицах,но в виде
ℼ佄呃偙⁅呈䱍倠䉕䥌⁃ⴢ⼯㍗⽃䐯䑔䠠䵔⁌⸴‰牔湡楳楴湯污⼯久㸢㰊呈䱍㰾䕈䑁ਾ琼瑩敬䰾湥慴爮㩵쌠›⼼楴汴㹥戼獡⁥慴杲瑥∽瑟灯㸢㰊䕍䅔渠浡㵥䕄䍓䥒呐佉⁎潣瑮湥㵴∢ਾ氼湩⁫敲㵬猢潨瑲畣⁴捩湯•牨晥∽瑨
敲㵬污整湲瑡⁥祴数愽灰楬慣楴湯爯獳砫汭琠瑩敬刽卓栠敲㵦瑨灴⼺氯湥慴爮⽵獲⽳ਾ氼湩⁫敲㵬猢慥捲≨琠灹㵥愢灰楬慣楴湯漯数獮慥捲摨獥牣灩楴湯砫汭•楴汴㵥䰢湥慴刮≵栠敲㵦栢瑴㩰⼯敬瑮⹡畲爯猯慥捲⹨
✭瀫獯䑉਻††敲畴湲琠畲㭥素㰊猯牣灩㹴ਊ㰊栯慥㹤㰊佂奄戠䍧汯牯眽楨整洠牡楧睮摩桴〽洠牡楧桮楥桧㵴‰ਾ㰊䅔䱂⁅汣獡㵳桳灡慫挠汥卬慰楣杮〽挠汥偬摡楤杮〽眠摩桴ㄽ〰‥潢摲牥〽ਾ吼⁒䅶楬湧琽灯ਾ
Дальше что с этим безобразием делать?
Наверно как-то перекодировать?

ArmAnn

gasjuk написал(а):

Дальше что с этим безобразием делать?
Наверно как-то перекодировать?

Понятия не имею

По идее вы должны были получить HTML страничку в виде текста, а раз получили какую то фигню - значит надо разбираться, причем желательно на месте. Так что тут я уже помочь не смогу, копайте сами

John Doe

После HTTP2_GET доработать напильником.

Code:

  call function 'HTTP2_GET'
    exporting
      absolute_uri                = url
    importing
      response_entity_body_length = length
    tables
      response_entity_body        = http_load_data
      response_headers            = http_load_headers
    exceptions
      others                      = 1.
  
  call function 'SCMS_BINARY_TO_XSTRING'
    exporting
      input_length = length
    importing
      buffer       = xml_in
    tables
      binary_tab   = http_load_data
    exceptions
      others       = 1.
  
  call function 'SMUM_XML_PARSE'
    exporting
      xml_input = xml_in
    tables
      xml_table = xml_out
      return    = return.

DKiyanov

Кодировка похоже не правильная - конвертнуть надо

Code:

FORM response2str TABLES blob USING blob_length str.
  DATA: converter TYPE REF TO cl_abap_conv_obj.
  DATA: xstr TYPE xstring.
  FIELD-SYMBOLS <x> TYPE x.

* Почемуто если коннектится чериз SAPHTTPA то кодирока нормальная получается
  IF y1cx_send-http_rfc <> 'SAPHTTPA'.
    LOOP AT blob.
      CONCATENATE str blob INTO str.
    ENDLOOP.
    str = str(blob_length).
    EXIT.
  ENDIF.

  ASSIGN blob TO <x> CASTING.
  LOOP AT blob.
    CONCATENATE xstr <x> INTO xstr IN BYTE MODE.
  ENDLOOP.
  xstr = xstr(blob_length).

  CREATE OBJECT converter
    EXPORTING
      incode           = '1504' " кодировка на сайте Windows 1251 (если у вашего другая - поменяйте)
      miss             = 'S' " prc_miss
      broken           = 'M' " prc_broken
      use_f1           = 'X'
      substc           = '00035' " prc_sapno
    EXCEPTIONS
      invalid_codepage = 1
      internal_error   = 2.

  CALL METHOD converter->convert
    EXPORTING
      inbuff         = xstr
      inbufflg       = 0
      outbufflg      = 0
    IMPORTING
      outbuff        = str
    EXCEPTIONS
      internal_error = 1
      OTHERS         = 2.
ENDFORM.                    "convert

ArmAnn

DKiyanov написал:

Кодировка похоже не правильная - конвертнуть надо

Дело не в кодировке - действительно HTTP2_GET возвращает такую хрень, которую еще надо раскодировать

gasjuk

К сожалению не получилось ни одним из предложенных способов

Konstantin Anikeev

gasjuk написал(а):

К сожалению не получилось ни одним из предложенных способов

Не сочтите за рекламу, но вот тут можно посмотреть, как получить данные с помощью обычного HTTP запроса...

John Doe

Я тоже что-то засомневался теперь. Выложил работающий в моей системе код по считыванию валют с сайта ЦБ РФ. Понятно, что велосипед очередной, но попробовать можно.

gasjuk

John Doe вы настоящий умница,ваша программа работает классно,у меня только вопрос,видимо глупый,как вы узнали URL ,
который подали в программе в функцию 'HTTP2_GET'.
Подскажите пожалуйста.

John Doe

С сайта ЦБ РФ. Получение данных, используя xml. Находится в техническом разделе.

gasjuk

Спасибо большое,сейчас попробую поискать в своем сайте.

John Doe

Можете url скинуть? Для интереса посмотреть хочу.

Добавил: вероятно, что подготовленные в xml данные на своем сайте Вы не найдете. Тогда остается просто перегнать бинарник в текст и самостоятельно парсить html.

Code:

  DATA: texttab TYPE TABLE OF text255.
  CALL FUNCTION 'SCMS_BINARY_TO_TEXT'
    EXPORTING
      input_length = length
    TABLES
      binary_tab   = http_load_data
      text_tab     = texttab.

gasjuk

Да,что-nj здесь нет объяснения как считать в XML.
http://inis.taxkz.kz/false_pred.html
http://inis.taxkz.kz/false_pred_041209.htm
! адрес - даты обновлений списков,2-сами списки.
может у вас получится
С уважением к вам

Правила форума

Можно ли считать информацию с сайта

Кто сейчас на конференции