Delphi XE5 Android - Sincronização

Esta vídeo aula tem como objetivo ensinar como criar um projeto FireMonkey Android utilizando SQLite para guardar informações de banco de dados localmente. 



Também é mostrado como sincronizar os dados do SQLite com o servidor (MySql), tudo com a utilização dos padrões de orientação a objeto e visando o menor consumo em banda de internet. Espero que gostem, qualquer dúvida, sugestão ou comentário basta comentar aqui ou no meu blog. Abraços e bons estudos.

Para download deste fonte, clique aqui.

Para acessar todo o repositório, clique aqui.

Segue o código de conversão entre JSON em classe e vice-versa:

function ComprasToJSON(Obj: TSuaClasse): TJSONValue;
var
  m: TJSONMarshal;
begin
  if Assigned(ListaCompra) then
  begin
    m := TJSONMarshal.Create(TJSONConverter.Create);
    try
      Exit(m.Marshal(Obj));
    finally
      m.Free;
    end;
  end
  else
    Exit(TJSONNull.Create);
end;

function JSONToCompras(Json: TJSONValue): TSuaClasse;
var
  unm: TJSONUnMarshal;
begin
  if Json is TJSONNull then
    Exit(nil)
  else
  begin
    unm := TJSONUnMarshal.Create;
    try
      Exit(unm.Unmarshal(Json) as TSuaClasse);
    finally
      unm.Free;
    end;
  end;
end;