HTTPRIO - É necessário um certificado para ... autenticação

[Fabrício Melo]

Adquirimos recentemente a nossa versão do XE2 e começamos a migrar nossas aplicações, na versão 2010, o processo de envio e consulta ao serviço da Prefeitura de Goiânia NFS-e funciona perfeitamente, mas no XE2 eu tenho a mensagem abaixo, alguém saberia me responder o que mudou, e como devo proceder no XE2, o certificado esta funcionando corretamente na NF-e compilada no XE2 usando ACBr.

procedure TFormX.ButtonXClick(Sender: TObject);

var

servico: NFSeSoap; //https://nfse.goiania.go.gov.br/ws/nfse.asmx?WSDL'>https://nfse.goiania.go.gov.br/ws/nfse.asmx?WSDL

strMensagem: string;

begin

servico := GetNFSeSoap( False, '', HTTPRIO );

strMensagem := servico.ConsultarNfseRps( Trim(xmlConsulta.Text) );

ShowMessage(strMensagem);

end;

---------------------------

Debugger Exception Notification

---------------------------

Project Project4.exe raised exception class ESOAPHTTPException with message 'É necessário um certificado para concluir a autenticação do cliente - URL:https://nfse.goiania.go.gov.br/ws/nfse.asmx - SOAPAction:http://nfse.goiania.go.gov.br/ws/ConsultarNfseRps'.

---------------------------

Break Continue Help

---------------------------

[EMBarbosa]

que X2? Não seria Delphi XE2?

[Fabrício Melo]

Corrigido para Delphi "XE2", aguardo resposta sobre o problema.

Grato.

[Fabrício Melo]

Abaixo um dos novos recursos do componente HTTPRIO, mas não consegui acessar o certificado em tempo de execução, algum sabem onde encontro informações ou exemplo de como usar essas novas opções?

//HTTPRIO.HTTPWebNode.ClientCertificate;

....HTTPRIO.HTTPWebNode.ClientCertificate.CertName := Cert.SubjectName;

....HTTPRIO.HTTPWebNode.ClientCertificate.Issuer := Cert.IssuerName;

....HTTPRIO.HTTPWebNode.ClientCertificate.SerialNum := Cert.SerialNumber;´

Só passar os dados acima, não resolve o erro.

http://docwiki.embarcadero.com/Librarie ... ertificate

[EMBarbosa]

Já vou dizendo que não tenho muita experiência com essa área de acesso SOAP e afins. Mas da ajuda que você mesmo passou o link, veja:

Note: The design-time support only stores away the SerialNum of the ClientCertificate, and not the certificate itself. In other words, if you deploy the application to another machine, which does not contain the certificate selected at design time, it will be impossible, at run time, to retrieve the ClientCertificate and send it to the server.

Ou seja, parece que não vai conseguir em run time fazer isso. Não com essa propriedade.

[Fabrício Melo]

Estou ciente, o meu grilo é porque no delphi 2010 funciona e só falta essa aplicação NFS-e Gyn pra migrar para o XE2...

Vou continuar tentando aqui, mas se alguém souber de alguma coisa, agradeço.

Grato a todos!

[lucas.belo]

Conseguiu resolver?