Problemas con imágenes en Delphi 6

Exporté una tabla de Access a Paradox5, uno de los campos de ésta tabla son imágenes. Realicé una aplicación en Delphi 6 para manejar esa tabla Paradox pero cuando intento ver la imagen mediante un cuadro DBImage me sale el error "Imagen bitmap no válida", ¿habrá solución para esto? Ya que sino tendría que copiar y pegar imagen por imagen y son muchísimas.
Desde ya muchas gracias.
Saludos.
Walter
PD: aclaro por las dudas que las imágenes en access no estaban vinculadas sino incrustadas y aparte no tengo los archivos de dichas figuras como para rutearlas en el código del Delphi. Las imágenes son formato bmp.
Respuesta
1
Hi,
Mira, lo que tengo hecho yo (que costo bastante) es para visualizar imágenes guardadas en formato JPEG en una tabla de una base de datos mySQL utilizando Delphi 5.
Yo pienso que te va a a servir perfectamente. El código utilizado para agregar o insertar un registro imagen es el siguiente:
**************************
buf:=Tmemorystream.create;
try
foto.Picture.Graphic.SaveToStream(buf);
buf.Seek(0, soFromBeginning);
if (FotoNueva) then
begin
dm1.qcartel.insert;
dm1.qcartelid_titulo.Value := dm1.qtitulos['ID_TITULO'];
end
else
dm1.qcartel.edit;
dm1.qcartelcartel.LoadFromStream(buf);
dm1.qcartel.post;
finally
buf.free;
end;
****************************
El objeto "dm1" es un DataModule donde guardo todos los objetos de datos.
Fíjate que utilizo la propiedad Graphic en el objeto foto lo que me devuelve un JPEG. Si utilizas Bitmap estarías guardando un BMP.
Para visualizar la imagen utilizo un TImage común, no un TDBImage. Este ultimo tiene muchas restricciones.
Este es el código que utilizo:
****************************************
jp := TJpegImage.Create;
buf := TMemoryStream.Create;
dm1.qcartel.open;
if not(dm1.qcartel.eof) then
begin
try
dm1.qcartelcartel.SaveToStream(buf);
buf.Seek(0, soFromBeginning);
jp.LoadFromStream(buf);
Foto.Picture.Assign(jp);
finally
end;
end
else
begin
foto.Width := 100;
foto.Height := 100;
end;
buf.free;
jp.free;
****************************************
Lo que tuve que hacer fue agregar los campos que voy a utilizar ID_TITULO y CARTEL en el TQuery (qcartel) que utilizo. Esto es necesario porque tienes que aclararle que el tipo de datos de CARTEL (BlobType) es un ftBlob.
Ahh!, con una tabla de Access también funciona.
Nahuelon..
Muchas gracias por tu respuesta, pero tengo un problema, el programa no puede llevar un TQuery ya que cuando se ejecuta la aplicación el query genera un archivo temporario en la misma carpeta donde se encuentra la aplicación y lo que estoy haciendo es para que se ejecute únicamente desde un CD o sea que me tiraría un error al querer generar el temporario.
De todos modos muchísimas gracias por tu atención.
Saludos
Walter
Hi,
Mira, obviamente podes usar cualquiera de los componentes para llamar a la tabla de la base de datos (TTable, TAdoTable, TQuery). No todos crean este archivo que decís.
Pruébalo... por favor si ya encontraste la solución finaliza la pregunta.
Cualquier consulta que tengas no dudes en preguntarme.
Nahuelon..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Eliminar registros sin usar DBNavigator

Me gustaría que me explicases como se hace en delphi lo de borrar un regisdtro específico de una tabla usando código(consulta SQL o otra manera) sin usar la opción Delete del DBNavigator de Delphi.
1 respuesta

Texto RTF con RichEdit

Quiero guardar el texto con formato (.rtf) de un RichEdit en una base de datos, sin perder dicho formato. Yo sólo lo consigo con el teclado copiando y pegando en un DBRichEdit. Me gustaría hacerlo de una forma más profesional.
1 respuesta

Actualizar dbgird

Inserto con un adoquery con parámetros en tiempo de ejecución, pero el dbgrid no me actualiza los datos, es decir no me muestra el valor que e ingresado, ¿Cómo pudo hacer que el dbgrid lo muestre? ¿Solo cuando cierrro mi programa, al volverlo a abrir...
3 respuestas

¿Listas, colecciones...?

Mi pregunta es meramente teórica. Necesito un consejo. Estoy realizando un proyecto relacionado con la música. En el integro aspectos visuales a través de las librería GLScene. Me encuentro con una duda teórica.: El usuario debe poder crear en tiempo...
3 respuestas

Haciendo Pack de tablas con Delphi

Estoy iniciándome en Delphi y estoy tratando de hacer una aplicación en donde borro algunos registros de una tabla de Dbase simplemente aplicando Delete. Pero al visualizar la tabla con el Database Desktop de Delphi me encuentro con que no se ha...
1 respuesta

Unidad con objetos

Espero que te vaya todo bien. Tengo un pequeño problema. Estoy haciendo una unidad de FTP, en la que creo una instancia del objeto TidFtp. Tengo varios procedimientos, conectar, desconectar, enviar, recibir, los cuales funcionan bien. El problema...
1 respuesta

De Excel a Paradox

Estoy realizando una aplicación con delphi 6 y tengo la necesidad de importar datos de una hoja de calculo de Excel a una tabla de Paradox y hasta el momento no he encontrado le forma de hacerlo, encontré un set de componentes de importación de datos...
1 respuesta

¿Cómo puedo realizar una búsqueda en una tabla de la base de datos con Delphi?

Otra vez yo molestándote la vida, mira que necesito buscar un registro en una tabla, por ejemplo en la de clientes, pero no se como buscar por el nombre del cliente, utilizo el siguiente código, que lo he armado como creo que se debe realizar la...
1 respuesta

Enviar un click del mouse

Soy un poco novato en Delphi y me gustaría saber como puedo hacer para enviar un click del mouse sin tener que utilizar el puntero real del mouse. O sea que mi aplicación no dependa del mouse y yo pueda estar haciendo otra cosa mientras la aplicación...
1 respuesta

Pasos correctos para eliminar un registro con un table

Para eliminar un registro con un table ¿Cuáles son los pasos correctos? ¿Es así o me equivoco? Tblhistvnt.Delete; tblhistvnt.post; tblhistvnt.Refresh;
4 respuestas