Para enviar uma solicitação POST para uma API em Delphi, você pode usar a biblioteca Indy (Internet Direct) para realizar a solicitação HTTP. Aqui está um exemplo de como fazer isso:
uses SysUtils, Classes, IdHTTP; procedure SendPOSTRequest(const URL: string; const POSTData: string); var IdHTTP1: TIdHTTP; RequestBody: TStringStream; begin IdHTTP1 := TIdHTTP.Create(nil); RequestBody := TStringStream.Create(POSTData); try IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; IdHTTP1.Request.CustomHeaders.Add('Authorization: Bearer SeuTokenAqui'); // Se necessário, adicione cabeçalhos de autenticação // Realize a solicitação POST IdHTTP1.Post(URL, RequestBody); finally IdHTTP1.Free; RequestBody.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // Exemplo de dados a serem enviados no corpo da solicitação POST // Substitua isso com seus próprios dados em formato URL-encoded SendPOSTRequest('https://api.example.com/endpoint', 'param1=valor1¶m2=valor2'); end;
Neste exemplo:
Importamos a unidade IdHTTP para usar o componente TIdHTTP.
Criamos uma função SendPOSTRequest que recebe a URL da API e os dados a serem enviados no corpo da solicitação POST como uma string.
Dentro da função, configuramos o tipo de conteúdo da solicitação como application/x-www-form-urlencoded, que é um formato comum para dados POST. Você também pode configurar outros cabeçalhos de autenticação, se necessário.
Usamos o método Post do TIdHTTP para enviar a solicitação POST para a URL especificada, passando os dados no RequestBody.
No evento OnClick de um botão (Button1 neste exemplo), chamamos a função SendPOSTRequest para enviar uma solicitação POST de exemplo para a API. Você deve substituir os dados de exemplo pelo conteúdo real que deseja enviar para a API.
Lembre-se de que você deve configurar a URL da API e os dados a serem enviados de acordo com os requisitos da API que está acessando. Além disso, você pode precisar adicionar outras configurações de cabeçalho ou autenticação, dependendo da API. Certifique-se também de incluir as bibliotecas Indy no seu projeto Delphi para usar o componente TIdHTTP.
Utilizamos cookies e outras tecnologias semelhantes para melhorar a sua experiência no nosso site.
Ao continuar navegando, você declara que está de acordo com a nossa política de privacidade.
Copyright © TyttoSoft 2018 | Desenvolvido por www.TyttoSoft.com.br