mORMot Open Source

procedure TForm1.HandleJsonClientError(const Sender: IJsonClient; const Response: TJsonResponse; const ErrorMsg: shortstring);
begin
  fehlerAufgetreten := true;
  ShowMessage('Error: ' + ErrorMsg);
end;

function GetPet(PetId: integer): string;
var
  Pet: TPet;
  jerror: TOnJsonClientError;
begin
 Pet := Client.GetPetById(PetId);
 jerror := Form1.HandleJsonClientError;
 Form1.fehlerAufgetreten := false;
 Client.fClient.Request('GET', '/api/pet/%', [PetId], [], [],Pet, TypeInfo(TPet) ,jerror);
  if not Form1.fehlerAufgetreten then
    Result := 'ID:' + InttoStr(Pet.Id) + ', Name:' + Pet.Name + ', Status:' + GetEnumName(TypeInfo(TEnumPetStore1), Ord(Pet.Status)) //+ ' Fotourl:' + Pet.PhotoUrls[0];
end;