F�rum Error connection with ssl - Delphi 7 Indy 10 #589791

13/12/2017

Oi pessoal, tudo bem?

Estou consumindo um WS REST utilizando Delphi 7 com Indy 10.

Est� me retornando este erro.

Utilizo os mesmos componentes ( IdHttp e IdSSLIOHandlerSocketOpenSSL ) para consumir um outro WS em SOAP e passa de boa tendo as DLL''s ( libeay32 e ssleay32 ) na mesma pasta da DLL

Segue c�digo:

var
  sRetorno, sParametros : TStringStream;
begin

  idHttp1.Request.ContentType := ''application/json'';
  idHttp1.Request.CustomHeaders.Add(''Content-Type:application/json'');
  idHttp1.Request.CustomHeaders.Add(''merchant_id:meu_usuario'');

  idHttp1.Response.ContentType := ''application/json'';

  sRetorno := TStringStream.Create('''');
  sParametros :=  TStringStream.Create(  ''{'' +
                  ''"merchant_usn":"12042142155",'' +
                  ''"order_id":"12042142155",'' +
                  ''"installments":"1",'' +
                  ''"installment_type":"4",'' +
                  ''"authorizer_id":"2",'' +
                  ''"amount":"1000"'' +
                  ''}'' );

  try
    IdHTTP1.Post( ''https://esitef-homologacao.softwareexpress.com.br/e-sitef/api/v1/transactions/'', sParametros, sRetorno );
    mmo1.Lines.Add( sRetorno.DataString );
  except

      IdHTTP1.Post( ''https://esitef-homologacao.softwareexpress.com.br/e-sitef/api/v1/transactions/'', sParametros, sRetorno );
      mmo1.Lines.Add( sRetorno.DataString );

  end;

  ShowMessage( ''Fim'' );

Obrigado!

Fernando Tremonti

Curtir t�pico

+ 0

Responder

Posts

14/12/2017

Kelvin Andrade

Ol� Fernando,

Parece que voc� esqueceu de citar o erro ou n�o ficou claro. Para que algu�m consiga entender melhor, aconselho que mostre o erro. Espero ter ajudado!

Responder

Gostei + 0