| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Seg Mai 21, 2018 4:46 pm Assunto: Consumir este endereco https://www.receitaws.com.br/v1/cnpj/ |
 |
|
| Código: | procedure TForm1.BuscaEmpresaCNPJ(aNumeroCNPJ: String);
var
IdHTTP1: TIdHTTP;
Lista: TStringList;
LHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
Lista := TStringList.Create;
try
IdHTTP1 := TIdHTTP.Create(nil);
try
LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
IdHTTP1.IOHandler := LHandler;
Lista.Delimiter := '&';
Lista.StrictDelimiter := True;
/// Estou usando o HTTPDecode da unit HTTPApp
Lista.DelimitedText := idHTTP1.URL.URLDecode
(idHTTP1.Get('https://www.receitaws.com.br/v1/cnpj/' +
aNumeroCNPJ));
Label1.Caption := Lista.Values['nome'];
finally
LHandler.Free;
end;
finally
IdHTTP1.Free;
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end; |
Tentei criar algo para delphi aqui, mais não rolou
Gerou o erro
| Código: | ---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdOSSLCouldNotLoadSSLLibrary with message 'Could not load SSL library.'.
---------------------------
Break Continue Help
---------------------------
|
e este
| Código: | ---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 105'.
---------------------------
Break Continue Help
---------------------------
|
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
 |
anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
