Campo RTF no pasa a objeto StringStream
 

Saludos amigos,
Cuando deseo cargar el contenido RTF de un campo tipo longtext, pasa lo siguiente cuando correo paso a paso:

Paso 1:
https://ibb.co/QmCsLYw

Paso 2:
https://ibb.co/xL6Thtt

Estoy usando la siguiente versión del servidor: 10.4.28-MariaDB - mariadb.org binary distribution
Uso Delphi 10.3 Rio

Agradecería mucho su ayuda

¿Y

Código Delphi [-]
q_DetBuscal.FieldByName('documento').asString

trae algún valor?

Si claro, trae datos. Eso se puede apreciar en la imagen del paso 1.

Gracias por responder

¿Y si le pasas al stringstream solo texto también te lo retorna vacío?

Código Delphi [-]
Lista:= TStringStream.Create('Hola Mundo');

ooo igualmente se pierde el valor hmmm, brother usas WhatsApp? mi numero es +51956940019, ya no se que mas moverle.

Yo checaría si "contenido" ya fue creado previamente

Código Delphi [-]
if contenido <> nil then
contenido := TStringStream.Create('Hola Mundo');

Revísalo y nos informas

El objeto contenido es nil:

Contenido nil
 

Objeto Nil:

https://ibb.co/M1Zhtqy

La Unidad Completa esta aquí: uUbicaDoc.zip

El Evento en cuestion es gridResBuscaCellClick;

Un error, en lugar de "<>" era "=" pero deja reviso el unit para ver que pasa

Amigo, si deseas un extracto de la tabla documento, de la BD secretaria aqui te la doy:

Tabla documento

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);

video del problema
 

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

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

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

Si amigo
 

Anydesk ID: 346 471 409

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);

Resuelto
 

Estimado amigo, lo resolvi de esta manera:

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

Gracias y gracias

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