Tenho uma API em PHP e estou desenvolvendo um App Mobile com o Delphi Firemonkey, e preciso consumir os dados JSON que a minha API retorna.
Gostaria de saber como eu faço o endereçamento na parte do cliente para acessar essa API, pois estou usando (para testes) uma string que contém o caminho que quero testar. Algo como URL := 'http://192.168.1.3/api/v1/atendimentoscliente/1'.
Até o momento, consegui pegar o JSON que a minha API retorna, e estou fazendo da seguinte maneira:
1 - Criei uma UNIT para tratar da requisição REST, e o código está assim:
unit uRestConnect;
interface
uses
REST.Client, REST.Json, JSON;
type
TRest = class
private
FClient : TRESTClient;
FRequest : TRESTRequest;
FResponse : TRESTResponse;
FURL : String;
public
constructor Create;
destructor Destroy;
function Result(Recurso: String; Parametros: array of string): String;
end;
implementation
{ TRest }
constructor TRest.Create;
begin
Self.FURL := 'http://192.168.1.3/api/v1/';
Self.FClient := TRESTClient.Create(nil);
Self.FRequest := TRESTRequest.Create(nil);
Self.FResponse := TRESTResponse.Create(nil);
Self.FClient.BaseURL := Self.FURL;
Self.FClient.AutoCreateParams := True;
Self.FRequest.AutoCreateParams := True;
Self.FRequest.HandleRedirects := True;
Self.FRequest.Client := Self.FClient;
Self.FRequest.Response := Self.FResponse;
end;
destructor TRest.Destroy;
begin
Self.FClient.Free;
Self.FRequest.Free;
Self.FResponse.Free;
end;
function TRest.Result(Recurso: string; Parametros: array of string): String;
var
I: Integer;
begin
for I := 0 to Length(Parametros)-1 do
begin
Recurso := Recurso + '/' + Parametros[i];
end;
Self.FRequest.Resource := Recurso;
Self.FRequest.Execute;
Result := Self.FResponse.JSONText;
end;
end.
E e tenho um formulário básico com um botão e um Memo onde está sendo exibido o conteúdo do JSON que eu recupero da API. O evento do botão está dessa maneira:
procedure TForm1.btnBuscarClick(Sender: TObject);
var
Rest : TRest;
Cliente : TCliente;
Response : String;
begin
Rest := TRest.Create;
Cliente := TCliente.Create;
Response := Rest.Result('atendimentoscliente', EdIdCliente.Text);
MemoAtendimentos.Text := Response;
end;
Agora, gostaria de saber como faço para que esse JSON seja convertido em um objeto de uma classe do meu modelo.