Ir para conteúdo

lindemayer2802

Members
  • Total de itens

    1
  • Registro em

  • Última visita

Posts postados por lindemayer2802


  1. 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;

     

     

     

     

     

     

     

     

×

Informação importante

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