Acessar endereço SSL usando certificado digital.

[andreyjardim]

Bom dia.

Tenho um servidor PHP rodando em https://saojoaodelrei.nfiss.com.br/Cert.php. Esta URL quando acessada utilizando-se um certificado digital, retorna o CN do certificado reconhecido pelo servidor. Até aí tudo bem.

Minha dúvida é referente ao uso do ACBR para poder acessar este endereço. Via TIdHTTP com os devidos IOHandler eu acesso o endereço, mas gostaria de usar o ACBR para conexão para poder usar o A1 ou A3.

Preciso de um pseudocódigo que funcione mais ou menos assim:

var
    Componente : TComponente; // Qual usar?
    Resposta : String (ou TStringStream);
Begin

    Componente := new TComponente();
    Componente.URL := 'https://saojoaodelrei.nfiss.com.br/Cert.php';
    
    //Configurar Componente para usar o A1 ou A3 (PFX, etc)...
    //Li algo sobre ACBRNFE1.Configuracoes.Certificados mas não foi pra frente.
    Componente.SSL := ACBRNFE1.Configuracoes.SSL;
    
    Resposta := Componente.GET(); // Ou Post para enviar arquivos
End;  

 

Para o problema em questão não estou precisando de integração de nota fiscal, mas apenas que a conexão https utilize o SSL para ser reconhecido no servidor. Alguém poderia me ajudar?

Desde já agradeço.

 

 

 

[Daniel Simoes]

Não usamos a Indy... mas sim a Synapse

http://www.ararat.cz/synapse/doku.php/public:howto:httpdownload

http://www.ararat.cz/synapse/doku.php/public:howto:sslplugin

http://www.ararat.cz/synapse/doku.php/public:howto

[andreyjardim]

Boa tarde. Fiz alguns testes com Synapse. Eu já o usava desde 2009, mas achei mais complicado. Acabei fazendo um exemplo usando WinHTTP que me atendeu a princípio. De qualquer maneira agradeço.

uses WinHTTP_TLB;
var
   http: IWinHttpRequest;
   szUrl: WideString;
begin

   szUrl := 'https://saojoaodelrei.nfiss.com.br/Cert.php';
   http := CoWinHttpRequest.Create;

   http.open('GET', szUrl, False);
   http.send(EmptyParam);

   if (http.status = 200) then
       ShowMessage(http.responseText);
end;

 

Att