Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Red face 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

Última edición por darkamerico fecha: 12-10-2023 a las 17:49:25.
Responder Con Cita
  #2  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
¿Y
Código Delphi [-]
q_DetBuscal.FieldByName('documento').asString
trae algún valor?
Responder Con Cita
  #3  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Cita:
Empezado por pgranados Ver Mensaje
¿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
Responder Con Cita
  #4  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
¿Y si le pasas al stringstream solo texto también te lo retorna vacío?

Código Delphi [-]
Lista:= TStringStream.Create('Hola Mundo');
Responder Con Cita
  #5  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Cita:
Empezado por pgranados Ver Mensaje
¿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.
Responder Con Cita
  #6  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
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
Responder Con Cita
  #7  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Cita:
Empezado por pgranados Ver Mensaje
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:
Responder Con Cita
  #8  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Contenido nil

Objeto Nil:

https://ibb.co/M1Zhtqy

La Unidad Completa esta aquí: uUbicaDoc.zip

El Evento en cuestion es gridResBuscaCellClick;

Última edición por darkamerico fecha: 12-10-2023 a las 19:03:53.
Responder Con Cita
  #9  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
Un error, en lugar de "<>" era "=" pero deja reviso el unit para ver que pasa
Responder Con Cita
  #10  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Red face

Cita:
Empezado por pgranados Ver Mensaje
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
Responder Con Cita
  #11  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
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);
Responder Con Cita
  #12  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
video del problema

Cita:
Empezado por pgranados Ver Mensaje
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
Responder Con Cita
  #13  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
Ya veo, ¿tienes teamviewer o algún otro programa de conexión remota?
Responder Con Cita
  #14  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Si amigo

Cita:
Empezado por pgranados Ver Mensaje
Ya veo, ¿tienes teamviewer o algún otro programa de conexión remota?
Anydesk ID: 346 471 409
Responder Con Cita
  #15  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
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);
Responder Con Cita
  #16  
Antiguo 12-10-2023
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 268
Poder: 14
darkamerico Va por buen camino
Resuelto

Cita:
Empezado por pgranados Ver Mensaje
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
Responder Con Cita
  #17  
Antiguo 12-10-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Poder: 3
pgranados Va por buen camino
Genial, otra forma mas elegante que la mía de resolverlo
Saludos y buen día !
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como puedo saber cuando un usuario pasa de un campo a otro? Navegante OOP 3 11-07-2019 19:47:28
referencia a un objeto no establecida como instancia de un objeto Beare MySQL 4 30-12-2015 16:49:54
¡Uy!, que se pasa... Casimiro Notevi La Taberna 15 03-07-2012 19:07:36
Cargar imagen en Un TImage guardada en campo Blob o Objeto OLE en accsess gulder Varios 1 28-11-2008 19:54:43
Crystal Reports - campo Objeto OLE TONIAM Impresión 0 29-06-2006 13:40:56


La franja horaria es GMT +2. Ahora son las 01:35:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi