Bom dia, consegui consumir o servidor de SC, desta forma, modificando o exemplo: "ACBrNFe_Exemplo",
Da pra usar direto o metodo enviar do componente ACBrNFe1 se preferir....
Mais usei as classes básicas, pois acredito que o pessoal vai adicionar isso ao componente futuramente...
procedure TfrmACBrNFe.Button1Click(Sender: TObject);
var
sAcao, sURL, sSoapAction, sMimeType, sAuthorizationHeader: String;
Web: TDFeHttpOpenSSL;
pai:TDFeSSL;
begin
sAcao :=
'<?xml version="1.0" encoding="utf-8"?>'+
'<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'+
' <soap:Body>'+
' <NfeDownloadContab xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1">'+
' <pXml>'+
' <distNFeSC versao="1.0" xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1">'+
' <tpAmb>2</tpAmb>'+
' <verAplic>appcliente 2.5</verAplic>'+
' <cUF>42</cUF>'+
' <CNPJ>DOCUMENTO_CNPJ</CNPJ>'+
' <solRel>'+
' <indXML>1</indXML>'+
' <indAtor>3</indAtor>'+
' <ultNuNSU>'+ediultNuNSU.Text+'</ultNuNSU>'+
' </solRel>'+
' </distNFeSC>'+
' </pXml>'+
' </NfeDownloadContab>'+
' </soap:Body>'+
'</soap:Envelope>';
sURL := 'https://hom.satnfe.sef.sc.gov.br/ws/distribuicao/nfedownload.asmx';
sSoapAction :='http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1/NfeDownloadContab';
sMimeType := 'text/xml';
sAuthorizationHeader := '';
try
pai := TDFeSSL.Create;
pai.ArquivoPFX := edtCaminho.Text;
pai.Senha := edtSenha.Text;
{
Web.SSLType := LT_TLSv1_2;
Web.SSLCryptClass :=
Web.SSLXmlSignLib := xsLibXml2;
Web.SSLHttpLib := httpOpenSSL;
}
pai.SSLType := LT_TLSv1_2;
pai.SSLCryptLib := TSSLCryptLib(cbCryptLib.ItemIndex);
pai.SSLHttpLib := TSSLHttpLib(cbHttpLib.ItemIndex);
pai.SSLXmlSignLib := TSSLXmlSignLib(cbXmlSignLib.ItemIndex);
pai.UseCertificateHTTP := true;
pai.CarregarCertificado;
pai.ProxyHost := '192.168.0.1';
pai.ProxyPort := '3128';
Web := TDFeHttpOpenSSL.Create(pai);
MemoResp.Lines.Text := Web.Enviar(sAcao, sURL, sSoapAction,
sMimeType, sAuthorizationHeader);
finally
FreeAndNil(web);
FreeAndNil(pai);
end;
{assim tambem funciona, mais preferi usar os objetos mais basico...
MemoResp.Lines.Text := ACBrNFe1.SSL.Enviar(sAcao, sURL, sSoapAction,
sMimeType, sAuthorizationHeader);
}
pgRespostas.ActivePageIndex := 0;
end;
