F�rum Converter Json to Object #516227

09/04/2015

Ol�!

Tenho uma rotina que faz a convers�o JsonObjeto e o contr�rio tamb�m. Tenho usado esta rotina sem problemas com datasnap, por�m agora que estou implementando para Android estou com a mensagem de erro "Internal: Cannot instantiate type...". Acredito ser por causa do uso de RRTI mas n�o consegui achar a solu��o para isso.

Fun��o:

{==========================================
 Converte JSON para Objeto
 ==========================================}
class function TJsonUtil.JSONToObject<T>(AJSON: TJSONValue): T;
begin
   if AJSON is TJSONNull then
      Exit(nil);

   if not Assigned(JSONUnMarshal) then
      JSONUnMarshal := TJSONUnMarshal.Create;

   result := T(JSONUnMarshal.UnMarshal(AJSON));

end;

No FireMonkey:

procedure TForm3.FormCreate(Sender: TObject);
var
   oProxy   : TSMClient;
   ajsn     : TJSONArray;
   consulta : TConsultaMobile;
begin
   try
      ajsn     := TJSONArray.Create;
      ajsn     := oProxy.buscarMobileConsultas;

      if ajsn.Count > 0 then
         begin
            consulta := TConsultaMobile.Create;
            
            //Aqui � onde ocorre o erro
            consulta := TJsonUtil.JSONToObject<TConsultaMobile>(ajsn.Items[0]);

            FreeAndNil(consulta);
         end
      else
         begin
          
      end;
   finally
      oProxy.Free; 
   end;
end;

PS - Delphi XE 6

Rafael Cruz

Curtir t�pico

+ 0

Responder