Obtener Texto plano de un campo blob

[roman]

Parece que lo que tienes en el campo BLOB es un texto en formato RTF. De ser así quizá te sirva traspasar el BLOB a un control RichEdit. La propiedad Lines.Text del RichEdit dará entonces el texto plano.

No es una solución muy elegante pero funciona.

// Saludos

[Manuel]

Empezado por roman

Parece que lo que tienes en el campo BLOB es un texto en formato RTF. De ser así quizá te sirva traspasar el BLOB a un control RichEdit. La propiedad Lines.Text del RichEdit dará entonces el texto plano.

No es una solución muy elegante pero funciona.

// Saludos

Gracias Roman por responder mi consulta, realice lo que me dijiste:

RichEdit1.Lines.Text := TAnotacionesANOTACION.Value;
texto := RichEdit1.Lines.Text;

pero sigue cargandose la variable texto con esto:

','{\rtf1\ansi\deff0\deftab720{\fonttbl{\
f0\fswiss MS Sans
Serif;}{\f1\froman\fcharset2
Symbol;}{\f2\fswiss\fcharset1 MS
Sans Serif;}{\f3\fswiss\fcharset1 MS
Sans Serif;}}
{\colortbl\red0\green0\blue0;}
\deflang2058\pard\plain\f3\fs16
Entrevista con apoderada para
informar sobre rendimiento de su hija.
\par }

?????, no se que pasará

[roman]

Hay dos cosas: en primer lugar el texto antes de la llave '{' de apertura sobra, aunque parece ser que se te pasó al pegar aquí el texto.

Por otro lado, parece que no puedes asignar directamente el texto a Lines.Text sino que debes hacerlo a través de un stream.

Yo lo hice así:

Código Delphi [-]
var
  Stream: TStringStream;

begin
  Stream := TStringStream.Create(Blob);
  try
    Stream.Seek(0, soFromBeginning);
    RichEdit1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

donde Blob sería una variable string con el contenido del campo blob.

Con esto debe cargarse correctamente el texto (con todo y formato) en el RichEdit y ahora sí, RichEdit1.Lines.Text debe contener el texto plano.

Otra cosa, aunque no sé en específico el caso de Interbase, las componentes TBlobField tienen el método SaveToStream con lo que podrías pasar directamente del campo al StringStream.

// Saludos

[Manuel]

Empezado por roman

Hay dos cosas: en primer lugar el texto antes de la llave '{' de apertura sobra, aunque parece ser que se te pasó al pegar aquí el texto.

Por otro lado, parece que no puedes asignar directamente el texto a Lines.Text sino que debes hacerlo a través de un stream.

Yo lo hice así:

Código Delphi [-]
var
  Stream: TStringStream;

begin
  Stream := TStringStream.Create(Blob);
  try
    Stream.Seek(0, soFromBeginning);
    RichEdit1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

donde Blob sería una variable string con el contenido del campo blob.

Con esto debe cargarse correctamente el texto (con todo y formato) en el RichEdit y ahora sí, RichEdit1.Lines.Text debe contener el texto plano.

Otra cosa, aunque no sé en específico el caso de Interbase, las componentes TBlobField tienen el método SaveToStream con lo que podrías pasar directamente del campo al StringStream.

// Saludos

Gracias una vez más roman: realice lo que me dijiste así:

Stream := TStringStream.Create(TAnotacionesANOTACION.Value);
try
Stream.Seek(0, soFromBeginning);
RichEdit1.Lines.LoadFromStream(Stream);
finally
Stream.Free;
end;
texto := RichEdit1.Lines.Text;

Donde TAnotacionesANOTACION.Value es el campo con el campo blob pero se sigue cargando como rtf, seguramente debería funcionar así, pero por algun motivo sigue así, gracias por la ayuda una vez más.

[geovany]

hola Manuel mira yo tengo el mismo problema que tu pero al reves yo no puedo obtener el texto enriquecido y me devuelvce texto plano asi que podriamos intercambiar trozos de codigo para que cadaquien tenga lo contrario no

[EduardRC]

Mirar la propiedad 'PlainText' del RichEdit.

Saludos

[srneo]

Por favor cuando hagan referencia a componentes especifiquen en que paleta se encuentran los mismos, ya que si bien hay muchos que resultan muy conocidos, hay otros que no tanto grax