//Pra realizar a consulta:
function ConsultarXmlSngpc(email, senha, cnpj, hash: string): String;
var
lRequest: IRequest;
lResponse: IResponse;
begin
Result := '';
try
//Gera o token
BEARER_TOKEN := GetTokenSNGPC(email, senha );
API_BASE_URL := 'https://sngpc-api.anvisa.gov.br';
//Cria a requisição
lRequest := CreateRequest(API_BASE_URL + '/v1/FileXml/ConsultaDadosArquivoXml', true);
lRequest.Accept('text/plain');
lRequest.ContentType('text/plain');
lRequest.TokenBearer(BEARER_TOKEN);
lResponse := lRequest.BaseURL(API_BASE_URL+'/v1/FileXml/ConsultaDadosArquivoXml/'+email+'/'+cnpj+'/'+hash)
.Accept('application/json')
.Get;
{ Verifica a resposta }
if lResponse.StatusCode = 200 then
begin
showmessage('Resposta da API: ' + lResponse.Content);
Result := lResponse.Content;
end
else
begin
showmessage('Resposta da API: ' + lResponse.Content);
end;
except
on E: Exception do
begin
showmessage('Erro na resposta: ' + E.Message);
end;
end;
end;
