F�rum Serializar Classe em Xml [Delphi XE7] #503878

09/12/2014

Boa Tarde

N�o estou conseguindo serializar uma classe em Xml no delphi, no Csharp j� utilizei e achei bem simples, por�m no Delphi n�o consigo, pois n�o sei como fazer, estou pesquisando sobre RTTI, mas n�o encontro nenhum exemplo b�sico, algu�m tem algum exemplo de como fazer esse procedimento?

Lucas Ramos

Curtir t�pico

+ 0

Responder

Posts

09/12/2014

Lucas Ramos

Boa Tarde At� o momento consegui gerar o Xml de uma classe simples, por�m se na classe conter um array de outra classe nesse meu m�todo n�o ir� funcionar, estou vendo um jeito de descer um n�vel, se algu�m tiver uma opini�o.

function TForm1.SerializarObjetoXml(pObject: TObject): String;
var
      tmpObjeto  : TObject;

      i : Integer;

      ctxRtti  : TRttiContext;
      typeRtti : TRttiType;
      propRtti : TRttiProperty;

      lRetorno : String;
begin
     ctxRtti  := TRttiContext.Create;
     tmpObjeto:= pObject;
     typeRtti := ctxRtti.GetType(tmpObjeto.ClassType);

     lRetorno := String.Empty;

     lRetorno := lRetorno + '<' + tmpObjeto.ClassName + '>';

     for propRtti in typeRtti.GetProperties do
     begin
          lRetorno := lRetorno + '<'+ propRtti.Name +'>' + propRtti.GetValue(tmpObjeto).ToString + '</'+ propRtti.Name +'>';
     end;

     lRetorno := lRetorno + '</' + tmpObjeto.ClassName + '>';

     result := lRetorno;
end;

Responder

Gostei + 0