json delphi aplicação

18/06/2020

0

estou fzd isso aqui no delphi 10 porem queria saber se no no cnpj e no descricão teria como salvar o que esta em um dbedit por exemplo de cnpj estar 11111111111 escriver o que eta em um teedit teria comoo fazer isso ?
procedure TForm1.Button3Click(Sender: TObject);
var
code : Integer;
sResponse : String;
Json : String;
JsonToSend : TStringStream;
begin
Json := '{"cnpj" : "11111111111", "descricao" : "123testar"}';
JsonToSend := TStringStream.Create( UTF8Encode(Json) );
try
HTTP.Request.Method := 'POST';
HTTP.Request.ContentType := 'application/json';
HTTP.Request.ContentEncoding := 'utf-8';

try
sResponse := HTTP.Post('http://minhaurl.com.br', JsonToSend);
except
on E: Exception do
begin
mmResultado.Lines.Add('Error on request: '#13#10 + e.Message);
Exit;
end;
end;

mmResultado.lines.clear;
mmResultado.lines.add(sResponse);
finally
JsonToSend.Free();
end;
end;
Lucas

Lucas

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar