OPENSSL

[antonio]

Estou tentando usar o OpenSSL com a finalidade de fazer a consulta do CTE, para ler os dados do certificado de um determinado diretório

{$IFDEF ACBrCTeOpenSSL}

HTTP.Document.LoadFromStream(Stream);

ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/cte/wsdl/CteConsulta/cteConsultaCT"');

HTTP.HTTPMethod('POST', FURL);

StrStream := TStringStream.Create('');

StrStream.CopyFrom(HTTP.Document, 0);

FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));

FRetWS := SeparaDados( FRetornoWS, 'cteConsultaCTResult');

StrStream.Free

Tenho

dois problemas

1) Não sei que qual parte do programa tem que ler o certificado de um determinado diretorio estou

inicializando o numero do certificado e a senha diretamente no programa

2) Na parte do programa acima o retorno esta vindo vazio, sem nenhuma mensagem de erro, o o resultado fo FRetWS, está vindo vazio

Agradeço qualquer ajuda

Antonio