Campo RTF no pasa a objeto StringStream

[pgranados]

Siéndote honesto no veo el error, en una forma hice lo siguiente y funciono

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringStream;
  datos: string;
begin
  datos:= 'HOLA';
  Lista:= TStringStream.Create(datos);
end;

Intenta agregar antes de crear el stringStream

Código Delphi [-]
FreeAndNil(contenido);

[darkamerico]

Empezado por pgranados

Siéndote honesto no veo el error, en una forma hice lo siguiente y funciono

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringStream;
  datos: string;
begin
  datos:= 'HOLA';
  Lista:= TStringStream.Create(datos);
end;

Intenta agregar antes de crear el stringStream

Código Delphi [-]
FreeAndNil(contenido);

---------------------------------------------------

Amigo, aquí hice un pequeño video para reproducir el problema
Problema

[pgranados]

Ya veo, ¿tienes teamviewer o algún otro programa de conexión remota?

[darkamerico]

Empezado por pgranados

Ya veo, ¿tienes teamviewer o algún otro programa de conexión remota?

Anydesk ID: 346 471 409

[pgranados]

Aqui te paso el codigo para generar el txt

Código Delphi [-]
procedure GuardarTextoEnArchivo(const texto: string; const nombreArchivo: string);
var
  archivo: TextFile;
begin
  AssignFile(archivo, nombreArchivo);
  Rewrite(archivo);
  Write(archivo, texto);
  CloseFile(archivo);
end;

texto le pasas el valor del field y en nombre archivo la ruta de donde se guardara con el nombre y la extensión

y ya después de cargar la info te recomiendo eliminar el archivo

DeleteFile(miarchivo);

[darkamerico]

Empezado por pgranados

Aqui te paso el codigo para generar el txt

Código Delphi [-]
procedure GuardarTextoEnArchivo(const texto: string; const nombreArchivo: string);
var
  archivo: TextFile;
begin
  AssignFile(archivo, nombreArchivo);
  Rewrite(archivo);
  Write(archivo, texto);
  CloseFile(archivo);
end;

texto le pasas el valor del field y en nombre archivo la ruta de donde se guardara con el nombre y la extensión

y ya después de cargar la info te recomiendo eliminar el archivo

DeleteFile(miarchivo);

Estimado amigo, lo resolvi de esta manera:

...
TBlobField(q_DetBusca1.FieldByName('documento')).SaveToStream(Contenido);
Contenido.Position := 0;
docView.Lines.LoadFromStream(Contenido);
...

Gracias y gracias

[pgranados]

Genial, otra forma mas elegante que la mía de resolverlo
Saludos y buen día !