execute ibeblock
as
begin
  /*
      Скрипт тестирования передачи xml-пакета на SOAP-сервер по https-протоколу.
      На SOAP-сервере установлено ограничение времени жизни пакета - 5 мин.
      Поэтому тестовый сервер его не примет, так как время его годности истекло,
      а рабочий отвергнет потому что авторизация по имени пользователя
      и ключу пакета не соответствуют действующим на нем парам login-password.
      Но в любом случае сервер должен будет вернуть краткий ответ в формате xml с указанием на ошибку.
      1-й сервер тестовый работающий по http-протоколу.
      2-й - рабочий, работающий по https-протоколу.
      3-й - адрес http->https шлюза транслирующего пакеты на рабочий сервер по https-протоколу
      и возвращающий его ответы в рамках http-соединения.
      Для теста скрипта и установки соединения с тем или иным сервером необходимо
      раскомментировать соответствующую строчку скрипта где URL = 'URL=.../soap/', а другие - закомментировать.
  */
  ------------------------------------------------------------------------------
  -- 1. URL тестового SOAP-сервера с которым можно устанавливать соединение по http-протоколу:
  -- URL    = 'URL=http://lkreestr.nostroy.anonamis.ru/soap/';
  ------------------------------------------------------------------------------
  -- 2. URL рабочего SOAP-сервера с которым требует устанавливать соединение по https-протоколу:
   URL    = 'URL=https://lkreestr.nostroy.ru/soap/';
  ------------------------------------------------------------------------------
  -- 3. URL https->http шлюза, который ведет передает пакет на фактический адрес
  -- сервера https://lkreestr.nostroy.ru/soap/ по https-протоколу и возвращает его ответ:
  -- URL    = 'URL=http://lkreestr.a-wm.ru/soap/';
  ------------------------------------------------------------------------------
  -- Формируем пустой xml-пакет
  xml    = ibec_LoadFromFile('C:\xml_pack_test.xml');
  xml    =
            '<soap:Envelope  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'||ibec_CRLF||
            '                xmlns:xsd="http://www.w3.org/2001/XMLSchema"'||ibec_CRLF||
            '                xmlns:soap="http://www.w3.org/2003/05/soap-envelope"'||ibec_CRLF||
            '                xmlns:soap1="http://lkreestr.nostroy.anonamis.ru/soap/"'||ibec_CRLF||
            '                xmlns:oas1="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">'||ibec_CRLF||
            '    <soap:Header>'||ibec_CRLF||
            '        <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">'||ibec_CRLF||
            '            <wsse:UsernameToken wsu:Id="UsernameToken-75855DDDE5C6F6DC9A14939136016553">'||ibec_CRLF||
            '                <wsse:Username>operator_010</wsse:Username>'||ibec_CRLF||
            '                <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">18162Ad/sRD9/m6Fn3Sm1bYizYU=</wsse:Password>'||ibec_CRLF||
            '                <wsse:Nonce EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">SnRPL1ovU1FtWHgrQ2pxMw==</wsse:Nonce>'||ibec_CRLF||
            '                <wsu:Created>2018-07-25T00:10:36+03:00</wsu:Created>'||ibec_CRLF||
            '            </wsse:UsernameToken>'||ibec_CRLF||
            '        </wsse:Security>'||ibec_CRLF||
            '    </soap:Header>'||ibec_CRLF||
            '    <soap:Body>'||ibec_CRLF||
            '        <soap1:memberCreateOrUpdate soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">'||ibec_CRLF||
            '        <data xsi:type="soap:data" xmlns:soap="http://lkreestr.nostroy.anonamis.ru/soap/"/>'||ibec_CRLF||
            '        <ul xsi:type="soap:ul" xmlns:soap="http://lkreestr.nostroy.anonamis.ru/soap/"/>'||ibec_CRLF||
            '        <ip xsi:type="soap:ip" xmlns:soap="http://lkreestr.nostroy.anonamis.ru/soap/"/>'||ibec_CRLF||
            '        <rights xsi:type="soap:rights" xmlns:soap="http://lkreestr.nostroy.anonamis.ru/soap/"/>'||ibec_CRLF||
            '        <soap:right_suspensions xsi:type="soapenc:Array" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"/>'||ibec_CRLF||
            '        <soap:insurances xsi:type="soapenc:Array" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"/>'||ibec_CRLF||
            '        <soap:checks xsi:type="soapenc:Array" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"/>'||ibec_CRLF||
            '        </soap1:memberCreateOrUpdate>'||ibec_CRLF||
            '    </soap:Body>'||ibec_CRLF||
            '</soap:Envelope>';
  xml = ibec_AnsiStringToUTF8( :xml );
  ------------------------------------------------------------------------------
  -----  Пробуем соединиться с сервером и отправить пакет методом POST
  try
      -- устанавливаем соединение с сервером
      HTTP = ibec_http_OpenSession( :URL );

      try
        -- пробуем передать пакет
        ibec_http_Post( :HTTP, :xml );
      except
        -- читаем код статуса http-соединения:
        SCode = ibec_http_StatusCode( :HTTP );
        -- выводим сообщение об ошибке:
        ibec_ShowMessage( ibec_Format('Системный сбой при передаче xml-пакета на SOAP-Сервер!'||ibec_CRLF ||ibec_CRLF ||
                                      'Тип сбоя: "%s"'||ibec_CRLF ||ibec_CRLF ||
                                      'Сообщение сервера об ошибке:'||ibec_CRLF ||'%s'||'%s'
                                      ,ibec_err_Name, ibec_err_Message,
                                      ibec_IIF(
                                       ( SCode = 500 ) and (ibec_err_Message = 'Internal Service Error'),
                                        ibec_CRLF ||ibec_CRLF || 'Подсказка: '||ibec_CRLF || 'Возможно нарушена струкутра пакета или SOAP-сервер '||
                                                                                             'изменил схему данных!',
                                        '')));
      end
      -- читаем код статуса http-соединения
      SCode         = ibec_http_StatusCode( :HTTP );

      if ( SCode = 200 ) then
        begin
             -- если код статуса соединения =200 - значит соединение успешно установлено
             -- и соответственно ответ сервера не будет пустым, сохраняем его в переменную SOAP_Response:
             SOAP_Response = ibec_http_Data(HTTP);
             SOAP_Response = ibec_UTF8ToAnsiString(:SOAP_Response);
        end
        else -- соедиенение с сервером не было установлено:
            SOAP_Response = 'не удалось соединиться с SOAP-сервером';

  finally
        if ( HTTP <> 0 )
            then ibec_http_CloseSession( HTTP );
  end;

      -- выводим результат теста:
      ibec_ShowMessage( ibec_Coalesce(:SOAP_Response,'<сбой при получении ответа от SOAP-сервера>') );
end