Jump to content

2 Dia do ACBr

Visite Stands dos Patrocinadores
Control iD, CS Devices, Elgin, Gertec, Bematech, Jetway, PlugMobile, Epson, Custom e Sweda
Inscreva-se

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

bfbraz

SOAP + THTTPReqResp usar sem Certificado

Recommended Posts

Prezados, boa noite

estou fazendo uma integração SOAP usando THTTPReqResp (conforme a as rotinas do ACBr), mas preciso que não peça o certificado pois o WS não usa. 

tem como fazer?

Obrigado galera

 

minha rotina

var
  SoapClient: THTTPReqResp;
  URL, xmlDados: string;
  Acao        : TStringList;
  Stream      : TMemoryStream;
  StrStream   : TStringStream;
  RetornoWS, RetWS: string;

begin
  xmlDados := '<?xml version="1.0" encoding="utf-8"?>'+
              '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" '+
                'xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">'+
                  '<soap12:Body>'+
                     '<Login>'+
                       '<LoginRequest>'+
                         '<Versao>1</Versao>'+
                         '<Usuario>[email protected]</Usuario>'+
                         '<Senha>usuario#sistemaweb</Senha>'+
                       '</LoginRequest>'+
                     '</Login>'+
                  '</soap12:Body>'+
              '</soap12:Envelope>';


  Acao      := TStringList.Create;
  Stream    := TMemoryStream.Create;
  Acao.Text := xmlDados;

  SoapClient:= THTTPReqResp.Create(nil);
  //ConfiguraReqResp( SoapClient );
  try

    SoapClient.URL := 'https://sistemaweb.com/Services/LogonService.asmx';
    SoapClient.UseUTF8InHeader := True;
    SoapClient.SoapAction := 'http://schemas.ipc.adm.br/sistemaweb/logon/Login';
    SoapClient.Execute(Acao.Text, Stream);

    StrStream := TStringStream.Create('');
    StrStream.CopyFrom(Stream, 0);

    RetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
    RetWS     := GetRetornoWS(acLogin, RetornoWS);

    StrStream.Free;
  finally

  end;

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...