como faço para mandar o que esta em um edit para o json

22/06/2020

8

como faço para mandar o que esta em um edit para o json vou por minha programação aqui utilizo delphi 10
procedure TCA_0004.Bbtn_GravarClick(Sender: TObject);
var
code : Integer;
sResponse : String;
Json : String;
JsonToSend : TStringStream;
begin
Json := '{"cnpj" : "1234567891012", "descricao" : "teste@teste.com.br"}';
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://reconhecimento-facial.jelastic.saveincloud.net/empresas', 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;
Responder

Post mais votado

24/06/2020

Boa noite, chefe você tem uma variável Json do tipo String, então basta concatenar o que estiver nos seus edit's.
Exemplor.: Json := '{"cnpj" : " ' + edtCNPJ .Text + ' ", "descricao" : " ' + edtDescricao.Text + ' "}';
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar