Envio para API via POST Request no Delphi

30/08/2023

Bom dia, meus amigos!
Ser� que poderiam me ajudar neste impasse, por favor?
Estou testando uma API para cadastro de exames em hambiente de homologa��o.
Eu tento gerar um json no delphi para o envio deste exame, mas me retorna erro ao consum�-lo, mas me retorna erro.
Estou tentando o envio desta forma:

//POST
Json:= ''[{''+
      ''"TipoExame":"''+vTipo+''","Indicacao":"''+vIndicacao+''","ArquivosExame":"''+pdfLista.Text+''",''+
      ''"DataExame":"''+vDataExame+''","NumeroControle":"''+vNumControle+''",''+
      ''"Medico":{"Nome":"''+vMedico+''","Crm":"''+vCRM+''","Sexo":"''+vSexoMedico+''"},''+
      ''"Paciente":{"Nome":"''+vNome+''","Altura":"''+FloatToStr(vAltura)+''","Peso":"''+FloatToStr(vPeso)+''",''+
      ''"Rg":"''+vRG+''","Cpf":"''+vCPF+''","Sexo":"''+vSexo+''","DataNascimento:"''+vDataNasc+''"},''+
      ''"EmpresaSolicitante":{"Nome":"''+Empresa+''"}''+
      ''}]'';

    RESTRequestCadastro.AddBody(Json, TRESTContentType.ctAPPLICATION_JSON);
    RESTRequestCadastro.Execute;

O exemplo que me deram, foi este:

[
	{
		TipoExame (Obrigat�rio):	string
		Indicacao (Obrigat�rio):	string
		ArquivosExame:	
			[
				string [URL]
			]
		DataExame (Obrigat�rio):	string (date-time (yyyy-mm-dd))
		NumeroControle:				string
		Medico:	
			{
				Nome:				string
				Crm:				string
				Sexo:				string
			}
		Paciente (Obrigat�rio):	
			{
				Nome:				string
				Altura:				number (double)
				Peso:				number (double)
				Rg:					string
				Cpf:				string
				Sexo (*):			string
				DataNascimento:		string (date-time (yyyy-mm-dd))
			}
		EmpresaSolicitante (Obrigat�rio):	
			{
				Nome:				string
			}
	}
]

Desde j� agrade�o a todos que puderem me ajudar e acredito que a ajuda possa vir a ser �til para mais algu�m. Forte abra�o!

Caio Guimar�es

Curtir t�pico + 0

Responder

Posts

01/09/2023

Alisson

//POST
Json:= ''[{''+
      ''"TipoExame":"''+vTipo+''","Indicacao":"''+vIndicacao+''","ArquivosExame":"''+pdfLista.Text+''",''+
      ''"DataExame":"''+vDataExame+''","NumeroControle":"''+vNumControle+''",''+
      ''"Medico":{"Nome":"''+vMedico+''","Crm":"''+vCRM+''","Sexo":"''+vSexoMedico+''"},''+
      ''"Paciente":{"Nome":"''+vNome+''","Altura":"''+FloatToStr(vAltura)+''","Peso":"''+FloatToStr(vPeso)+''",''+
      ''"Rg":"''+vRG+''","Cpf":"''+vCPF+''","Sexo":"''+vSexo+''","DataNascimento:"''+vDataNasc+''"},''+
      ''"EmpresaSolicitante":{"Nome":"''+Empresa+''"}''+
      ''}]'';

    RESTRequestCadastro.AddBody(Json, TRESTContentType.ctAPPLICATION_JSON);
    RESTRequestCadastro.Execute;

O exemplo que me deram, foi este:

[
	{
		TipoExame (Obrigat�rio):	string
		Indicacao (Obrigat�rio):	string
		ArquivosExame:	
			[
				string [URL]
			]
		DataExame (Obrigat�rio):	string (date-time (yyyy-mm-dd))
		NumeroControle:				string
		Medico:	
			{
				Nome:				string
				Crm:				string
				Sexo:				string
			}
		Paciente (Obrigat�rio):	
			{
				Nome:				string
				Altura:				number (double)
				Peso:				number (double)
				Rg:					string
				Cpf:				string
				Sexo (*):			string
				DataNascimento:		string (date-time (yyyy-mm-dd))
			}
		EmpresaSolicitante (Obrigat�rio):	
			{
				Nome:				string
			}
	}
]

Desde j� agrade�o a todos que puderem me ajudar e acredito que a ajuda possa vir a ser �til para mais algu�m. Forte abra�o!

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;

Fonte: blog.tyttosoft.com.br

Responder

Gostei + 0