Configurar TIdhttp método GET

[SisComp - Proc. de Dados]

Bom dia.

Preciso de uma ajuda dos amigos do fórum, preciso enviar uma requisição GET para obter as licenças de um cliente.

No header preciso passar uma Authorization:Basic, conforme imagem abaixo:

  vHTTP:= TIdHTTP.Create(nil);
  vOpenSSL:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  vOpenSSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
  vHTTP.IOHandler := vOpenSSL;

  vHTTP.Request.CustomHeaders.AddValue('Authorization:Basic ', pLogin);

  vHTTP.Request.Method := 'GET';
  vHTTP.Request.ContentType := 'application/json';
  vHTTP.Request.Charset := 'UTF-8';
  vHTTP.GET(vBaseURL+'/licencas');

Estou obtendo o erro em anexo:

 

[Daniel Simoes]

Porque não usar a Synapse, que se encontra na pasta Terceiros do ACBr ? 

Ou ainda o ACBrHTTP, que é basesdo na Synapse, mas já tem suporte para Proxys e Redirecionamentos 

É bem simples, veja exemplos de uso, com GET em HTTPS nos componente da pasta ACBrTCP,  como por exemplo o ACBrIBGE

[SisComp - Proc. de Dados]

23 minutos atrás, Daniel Simoes disse:

Porque não usar a Synapse, que se encontra na pasta Terceiros do ACBr ? 

Ou ainda o ACBrHTTP, que é basesdo na Synapse, mas já tem suporte para Proxys e Redirecionamentos 

É bem simples, veja exemplos de uso, com GET em HTTPS nos componente da pasta ACBrTCP,  como por exemplo o ACBrIBGE

Bom dia.

Tentei localizar o ACBrHTTP e não encontrei. Faço a instalação dos componentes do ACBr utilizando o instalativo que vem na pasta Trunk. Devo fazer a instalação do ACBrHTTP de forma manual?

Na listagem dos pacotes do instalativo não consta o ACBrHTTP.

Como devo proceder?

[Daniel Simoes]

Ele não é um componente, mas sim uma classe.. se não me engano ele fica em ACBrSocket.pas

 

[SisComp - Proc. de Dados]

17 minutos atrás, Daniel Simoes disse:

Ele não é um componente, mas sim uma classe.. se não me engano ele fica em ACBrSocket.pas

 

Obrigado pela ajuda Daniel, no meu caso, necessito passar no header do Request um parâmetro Authorization: Basic xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx , sabe me dizer se com o ACBrHTTP é possível?

 

[Daniel Simoes]

No ACBrHTTP, a propriedade HTTPSend contém a classe da Synapse, e o Header é um simples TStringList... Veja o exemplo em ACBrConsultaCNPJ.pas

    WriteStrToStream( HTTPSend.Document, PostStr );
    HTTPSend.MimeType := 'application/x-www-form-urlencoded';
    HTTPSend.Cookies.Add('flag=1');
    HTTPSend.Headers.Add('Referer: https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_solicitacao3.asp');
    HTTPPost('https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/valida.asp');