Ir para conteúdo
lindemayer2802

IdHTTPConexao erro Comando Post

Recommended Posts

Ola Senhores,

 

Ao excutar o comando Post do Componente IdHTTP1 (delphi 7) , no e.message do Exception retorna

 

"Could not load key, check password" ou "Error connecting with SSL"

 

alguem que ja esteve com esse retorno, poderia me dar uma orientação.

 

Obrigado.

 

 

trecho do fonte abaixo:

 

 

ParametrosWeb.Add('client_id=' + '******');
ParametrosWeb.Add('client_secret=' + '************************);
ParametrosWeb.Add('grant_type=password');
ParametrosWeb.Add('username=' + pLogin ');
ParametrosWeb.add('password='+ UPPERCase( StrMD5('*****')));
IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv3;
IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient;

 

IdSSLIOHandlerSocket1.SSLOptions.CertFile       :=  'C:\EstoqMan PRO\enudsk\CAcert.pem';   ;
IdSSLIOHandlerSocket1.SSLOptions.RootCertFile   :=  'C:\EstoqMan PRO\enudsk\WSScert.pem'; 
IdSSLIOHandlerSocket1.SSLOptions.KeyFile  :=  'C:\EstoqMan PRO\enudsk\WSSkey.pem'; 

 

 

with IdHTTPConexao do
            begin
               IOHandler := IdSSLIOHandlerSocket1;
               Request.ContentType := 'application/x-www-form-urlencoded';  //'application/json';
               try
                  Retorno :=  Post( pWebService, ParametrosWeb);
               except
                on E: Exception do
                  ShowMessage('Erro: '#13#10 + e.Message + ' ----- ' + IdHTTPConexao.ResponseText  );
               end;
            end;

 

 

 

 

 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.