Persistencia de layout com TdxLayoutControl

Delphi

23/05/2011

Boa noite,

Estou desenvolvendo uma aplicação na qual gerencio o layout utilizando o componente "TdxLayoutControl"da DevExpress, porém, estou tendo dificuldades para persistir a estrutura do layout em um banco de dados ( utilizando stream ). Alguém já trabalhou com esse componente? ele chega a preencher o blob no banco, porém, quando tento carregar nada acontece.
Segue os passos utilizados:

Seto a propriedade "Customization" para true, permitindo meu usuario modificar o layout (lcPrincipal.Customization := True)

Segue codigo para salvar:

    cdsLayout.Insert;

    ms:= TMemoryStream.Create;
    try
      lcPrincipal.SaveToStream(ms);
      ms.Seek(0,0);
      TBlobField(cdsLayout.FieldByName('LAYOUT')).LoadFromStream(ms);

      cdsLayout.Post;
      cdsLayout.ApplyUpdates(0);
    finally
      FreeandNil(ms);
    end;

Segue codigo para carregar:

  cdsLayout.Open;
  ms:= TMemoryStream.Create;
  TBlobField(cdsLayout.FieldByName('LAYOUT')).SaveToStream(ms);
  ms.Seek(0,0);
  lcPrincipal.LoadFromStream(ms);
  FreeAndNil(ms);

Aguardo retorno.
Grato,
Rafael Pisani

Rafael Pisani

Curtidas 0

Respostas

José

José

23/05/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR