Socorro (Richedit) Ugente!!!
Galera, por favor tô pedindo arrego, já tentei de diversas maneiras mas nao estou conseguindo passar conteudo de um componente Richedit formatado (negrito, centralizado et.) para dentro de um campo Blob do interbase e depois recupera-lo sem perder a formatacao. Na realidade eu consigo salvar dentro do campo, de uma forma que nao visualizo formatado. Só que ao tentar fazer o inverso ou seja passar de dentro do campo para o mesmo componente vem tudo desarrumado e de forma esquisita.
Estou utilizando o exemplo que vem junto com o delphi (demos - Richedit)
Quem se habilita a me ajudar resolver este problema.
Desde já agradeco
Estou utilizando o exemplo que vem junto com o delphi (demos - Richedit)
Quem se habilita a me ajudar resolver este problema.
Desde já agradeco
Prosystem
Curtidas 0
Respostas
Carnette
08/07/2003
Tente melhorar este código
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(Stream);
Stream.Seek(0,soFromBeginning);
TBlobField(SuaTabela.FieldByName(´SeuCampo´)).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(Stream);
Stream.Seek(0,soFromBeginning);
TBlobField(SuaTabela.FieldByName(´SeuCampo´)).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
GOSTEI 0