SOAP клиент для web-сервиса npchk.nalog.ru

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : [url]http://npchk.nalog.ru:80/FNSNDSCAWS?wsdl[/url]
// Encoding : UTF-8
// Version  : 1.0
// (06.02.2015 11:31:58 - 1.33.2.5)
// ************************************************************************ //
 
unit FNSNDSCAWS;
 
interface
 
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
 
type
 
  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:NdsRequest      - "http://ws.unisoft/FNSNDSCAWS/Request"
  // !:NdsResponse     - "http://ws.unisoft/FNSNDSCAWS/Response"
 
 
  // ************************************************************************ //
  // Namespace : [url]http://ws.unisoft[/url]
  // soapAction: NdsRequest
  // transport : [url]http://schemas.xmlsoap.org/soap/http[/url]
  // binding   : FNSNDSCAWSBinding
  // service   : FNSNDSCAWS
  // port      : FNSNDSCAWS_Port
  // URL       : [url]http://npchk.nalog.ru:80/FNSNDSCAWS[/url]
  // ************************************************************************ //
  FNSNDSCAWS_Port = interface(IInvokable)
  ['{4F17B962-874C-C8B5-315F-940BBF480736}']
    function  NdsRequest(const np_in: NdsRequest): NdsResponse; stdcall;
  end;
 
function GetFNSNDSCAWS_Port(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): FNSNDSCAWS_Port;
 
 
implementation
 
function GetFNSNDSCAWS_Port(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): FNSNDSCAWS_Port;
const
  defWSDL = 'http://npchk.nalog.ru:80/FNSNDSCAWS?wsdl';
  defURL  = 'http://npchk.nalog.ru:80/FNSNDSCAWS';
  defSvc  = 'FNSNDSCAWS';
  defPrt  = 'FNSNDSCAWS_Port';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as FNSNDSCAWS_Port);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;
 
 
initialization
  InvRegistry.RegisterInterface(TypeInfo(FNSNDSCAWS_Port), 'http://ws.unisoft', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(FNSNDSCAWS_Port), 'NdsRequest');
  InvRegistry.RegisterInvokeOptions(TypeInfo(FNSNDSCAWS_Port), ioLiteral);
 
end.

  TNdsRequest = class(TRemotable)
  public
      constructor Create(XMLNode: IXMLNode);
      function ObjectToSOAP(RootNode, ParentNode: IXMLNode; const ObjConverter:
                            IObjConverter; const Name, URI: InvString; ObjConvOpts:
                            TObjectConvertOptions; out RefID: InvString): IXMLNode; override;
  private
      fXMLNode: IXMLNode;
  end;
 
  TNdsResponse = class(TRemotable);

constructor TNdsRequest.Create(XMLNode: IXMLNode);
begin
    fXMLNode := XMLNode;
end;
 
function TNdsRequest.ObjectToSOAP(RootNode, ParentNode: IXMLNode; const ObjConverter:
                            IObjConverter; const Name, URI: InvString; ObjConvOpts:
                            TObjectConvertOptions; out RefID: InvString): IXMLNode;
begin
    RootNode := fXMLNode.ChildNodes.FindNode('NdsRequest');
    ParentNode := RootNode.ChildNodes.FindNode('NP');
 
    ObjConvOpts := ObjConvOpts + [ocoDontPrefixNode];
 
    Result := inherited ObjectToSOAP(RootNode, ParentNode, ObjConverter, 'State', 'http://ws.unisoft', ObjConvOpts, RefID);
end;

RemClassRegistry.RegisterXSInfo(TypeInfo(TNdsRequest), 'http://ws.unisoft', 'NdsRequest');

    IdHTTP1: TIdHTTP;
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  //Переменные, используемые в коде взаимодействия с веб-службой.
  SUtf8 : UTF8String; //type UTF8String = AnsiString.
  MsReq, MsResp, Ms : TMemoryStream; //Байтовые потоки с данными SOAP запроса и SOAP ответа.
 
  //Переменные, используемые при анализе XML данных SOAP ответа веб-службы.
  S : String;
  i, j : Integer;
  INode, IAttr : IXMLNode;
  IList : IXMLNodeList;
begin
  //----------------------------------------
  //1. Подготовка.
  //----------------------------------------
 
  //Очистка и инициализация.
  IdHTTP1.Request.Clear;
  IdHTTP1.Response.Clear;
  Ms     := nil;
  MsReq  := nil;
  MsResp := nil;
  Memo2.Clear;
 
  try
    //Содержание SOAP запроса берём из Memo1.
    S := Trim(Memo1.Text);
    {
    Memo1.Text:
    <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:req="http://ws.unisoft/FNSNDSCAWS/Request">
      <soapenv:Header/>
      <soapenv:Body>
        <req:NdsRequest>
          <!--1 to 10000 repetitions:-->
          <!-- <req:NP INN="?" KPP="?" DT="?"/> -->
          <req:NP INN="525202471833"/>
          <req:NP INN="525202471834"/>
        </req:NdsRequest>
      </soapenv:Body>
    </soapenv:Envelope>
    }
    //Перекодируем текст в UTF-8 кодировку.
    SUtf8 := Utf8Encode(S);
    //Запись SOAP запроса в байтовый поток.
    MsReq := TMemoryStream.Create;
    MsReq.Write(SUtf8[1], Length(SUtf8));
 
    //Формируем заголовок HTTP запроса.
    IdHTTP1.ProtocolVersion := pv1_1;
    IdHTTP1.Request.CustomHeaders.Add('Accept-Encoding: gzip,deflate');
    IdHTTP1.Request.ContentType := 'text/xml;charset=UTF-8';
    IdHTTP1.Request.CustomHeaders.Add('SOAPAction: "NdsRequest"');
    IdHTTP1.Request.Connection := 'Keep-Alive';
    IdHTTP1.Request.ProcessHeaders;
 
    //Создаём байтовый поток для записи ответа веб-службы.
    MsResp := TMemoryStream.Create;
 
    //----------------------------------------
    //2. Взаимодействие с веб-службой.
    //----------------------------------------
 
    //Посылаем запрос веб-службе и получаем от неё ответ.
    MsReq.Position := 0; //Потоковый указатель устанавливаем на начало потока.
    IdHTTP1.Post('http://npchk.nalog.ru:80/FNSNDSCAWS', MsReq, MsResp);
 
    //----------------------------------------
    //3. Анализ ответа веб-службы.
    //----------------------------------------
 
    {Печатаем в Memo XML код SOAP ответа. Для этого сначала данные потока-ответа
    переписываем в строку UTF-8, а затем выполняем преобразование текста в ANSI
    или UNICODE кодировку в зависимости от версии Delphi.}
    //Запись данных ответа в строку UTF-8.
    SetLength(SUtf8, MsResp.Size);
    MsResp.Position := 0; //Потоковый указатель устанавливаем на начало потока.
    MsResp.Read(SUtf8[1], Length(SUtf8));
    //Перекодируем текст в ANSI или UNICODE кодировку, в зависимости от версии Delphi.
    S := Utf8Decode(SUtf8);
    //Форматируем полученный XML код и показываем его в Memo.
    Memo2.Lines.Add('----------');
    Memo2.Lines.Add('Ответ веб-службы:');
    Memo2.Lines.Add( Trim(FormatXMLData(S)) );
 
    //Теперь анализируем ответ веб-службы. Для этого можно воспользоваться экземпляром
    //TXMLDocument. Или можно с помощью действий со стоками извлечь нужные данные.
 
    //Обработка с помощью экземпляра TXMLDocument.
 
    //Загружаем XML данные в XML документ.
    MsResp.Position := 0;
    XMLDocument1.LoadFromStream(MsResp, xetUTF_8);
    {Настраиваем XML документ.
    -[doNodeAutoCreate] - запрет на автоматическое создание узлов при попытке чтения.
    -[doAutoSave] - запрет на автоматическое сохранение изменений при закрытии документа.}
    XMLDocument1.Options := XMLDocument1.Options - [doNodeAutoCreate, doAutoSave];
    XMLDocument1.Active := True; //Включаем разбор DOM модели.
 
    //Извлекаем из XML сведения о контрагентах и распечатываем их в Memo2.
    Memo2.Lines.Add('----------');
    Memo2.Lines.Add('Сведения о контрагентах:');
    //Элемент документа <S:Envelope>.
    INode := XMLDocument1.DocumentElement;
    //Первый вложенный элемент <S:Body>.
    INode := INode.ChildNodes.FindNode('S:Body');
    {Далее, в следствии какого-то бага, наверное, по вызову FindNode('NdsResponse')
    элемент <NdsResponse> не обнаруживается. :-) В связи с этим пришлось
    действовать через вызов Get(). Будем считать, что для <S:Body> первым
    вложенным элементом является элемент <NdsResponse>.}
    //Получаем список элементов, которые вложены в <NdsResponse> .
    IList := INode.ChildNodes.Get(0).ChildNodes;
    Memo2.Lines.Add('Количество элементов: ' + IntToStr(IList.Count));
    for i := 0 to IList.Count - 1 do //Перебор элементов списка.
    begin
      INode := IList.Get(i); //Очередной элемент.
      S := '<' + INode.NodeName + '>: ';
      for j := 0 to INode.AttributeNodes.Count - 1 do //Перебор атрибутов.
      begin
        IAttr := INode.AttributeNodes.Get(j); //Очередной атрибут.
        if j > 0 then
          S := S + '; ';
        S := S + IAttr.NodeName + '="' + IAttr.NodeValue + '"';
      end;
      Memo2.Lines.Add(S);
    end;
  finally
    FreeAndNil(Ms);
    FreeAndNil(MsReq);
    FreeAndNil(MsResp);
  end;
end;
 
end.