Consultas Veiculares via API

Consulta Placa Fipe - APi grátis

Documentação: https://documenter.getpostman.com/view/24382542/2s8YeptYeo#intro
Maiores informações da API, acesse https://apigratis.com.br/

Download IDE

Lazarus 2.2.4 by FPC 3.2.2: https://www.lazarus-ide.org/index.php?page=downloads
Delphi Community Edition: https://www.embarcadero.com/br/products/delphi/starter/free-download
Visual Studio Code: https://code.visualstudio.com/download
Visual Studio 2022 Comunidade: https://visualstudio.microsoft.com/pt-br/downloads/

Example code em VSCode | CSharp

var request = new HttpRequestMessage();
request.RequestUri = new Uri("https://placa-fipe.apibrasil.com.br/placa/consulta");
request.Method = HttpMethod.Post;
request.Headers.Add("Accept", "*/*");
request.Headers.Add("User-Agent", "Thunder Client (https://www.thunderclient.com)");
var bodyString = "{\"placa\":\"FMR7534\"}\r";
var content = new StringContent(bodyString, Encoding.UTF8, "application/json");
request.Content = content;
var response = await client.SendAsync(request);
var result = await response.Content.ReadAsStringAsync();
if (response.IsSuccessStatusCode)
{
    fipe veiculo = new fipe();
    log.AppendText(DateTime.Now.ToString() + "| placa encontrada. \n\r");
    var FipeJsonString = await response.Content.ReadAsStringAsync();
    veiculo = JsonConvert.DeserializeObject<fipe>(FipeJsonString);
    Marca.Text     = veiculo.Marca;
    Municipio.Text = veiculo.municipio;
    Renavam.Text   = veiculo.renavam;]
    Chassi.text    = veiculo.chassi;
    Ano.Text       = veiculo.ano;
    Modelo.Text    = veiculo.modelo;
    //--add demais registros;
}
else
{   
   log.AppendText(DateTime.Now.ToString() + "| placa não encontrada. \n\r"); 
}

Demo em Delphi

consulta FIPE e consulta Dados

Demo em Lazarus

Requisitos:
Lazarus: Indy;
Delphi : TRest;

*dados retornados e plataforma apigratis.com.br, responsabilidade da api do serviço pelo seu idealizador e proprietário, porém apenas utilizado neste exemplo de consulta usando Rest e Indy.