Campo RTF no pasa a objeto StringStream

[darkamerico]

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

[pgranados]

¿Y

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

trae algún valor?

[darkamerico]

Empezado por pgranados

¿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

[pgranados]

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

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

[darkamerico]

Empezado por pgranados

¿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.

[pgranados]

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

[darkamerico]

Empezado por pgranados

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:

[darkamerico]

Objeto Nil:

https://ibb.co/M1Zhtqy

La Unidad Completa esta aquí: uUbicaDoc.zip

El Evento en cuestion es gridResBuscaCellClick;

[pgranados]

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

[darkamerico]

Empezado por pgranados

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

[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 !