Salvar Texto formatado !

Delphi

04/01/2005

Pessoal, Tenho RichEdit e modifico uma parte do texto, negrito, itálico, alinhamentos. Mas quando salvo o texto no banco essas mudanças não aparecem, fica sem formato. alguem pode me ajudar !

O Banco é Firebird e o campo da tabela que recebe o texto é assim:

HISTORICO BLOB SUB_TYPE 2 SEGMENT SIZE 4096 NOT NULL,


Jefmene

Jefmene

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

04/01/2005

que código você está usando para salvar to banco?

talvez você tivesse que salvar no banco usando o

RichEdit.Lines.SaveToStream...


GOSTEI 0
Jefmene

Jefmene

04/01/2005

Estou Usando,
QRY_Cadastro.FieldByName(´HISTORICO´).AsString :=RE_Historico.Lines.Text;


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

04/01/2005

Eu já tinha respondido algodo tipo, mas acho que a mensagem foi perdida, então tente isso, nunca testei pra ver se funciona

para salvar:

var
  Stream: TStream;
begin
  Stream := TStream.Create;
  try
    RichEdit.Lines.SaveToStream(Stream);
    TBlobField(Campo).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;


para carregar:

var
  Stream: TStream;
begin
  Stream := TStream.Create;
  try
    TBlobField(Campo).SaveToStream(Stream);
    RichEdit.Lines.LoadFromStream(Stream);      
  finally
    Stream.Free;
  end;
end;


bom, teste ai e veja se funciona


GOSTEI 0
Jefmene

Jefmene

04/01/2005

Valeu irmão pela dica.


GOSTEI 0
POSTAR