![]() |
Guardar Imagen en SQL
Holas
Ando medio lento y necesito vuestra ayudita... Quiero almacenar una imagen en un base de datos de SQL. Campo de tipo Image Quiero traspasar la imagen que esta en un componente TImagen (sFot) Cargue la foto en el TImagen con componente TOpenPictureDialog Aqui el proceso para guardar el registro, en donde tambien quiero guardar la foto DM_Datos : Formulario tipo DataModule AQ_Insert : AdoQuery
revise los foros y encontre lo siguiente, pero no lo entendi
|
Prueba:
DM_Datos.AQ_Insert.Parameters[15].LoadFromFile('c:\sample.jpg', ftBlob); donde 'c:\sample.jpg' es el fichero que tiene la foto |
Cita:
donde BuscaFoto es un componente de tipo OpenPictureDialogo. Lo que tomo de ella es la ruta donde esta ubicada la foto Ahora el error que me indica es [dcc32 Error] frmCreaActSocios.pas(143): E2003 Undeclared identifier: 'ftBlob' |
Este te deberia funcionar
TBlobField(DM_Datos.AQ_Insert.Parameters[15]).LoadFromFile(BuscaFoto.filename); |
Cita:
me sigue dando error :(:confused:
Error [dcc32 Error] frmCreaActSocios.pas(143): E2003 Undeclared identifier: 'TBlobField' [dcc32 Error] frmCreaActSocios.pas(143): E2066 Missing operator or semicolon |
TBlobField está definido en la unidad DB o Data.DB dependiendo de la versión de Delphi con la que estés trabajando.
Pon que use esa unit en la parte del uses de interface y debería tirar |
Cita:
Gracias :D |
Me faltaría realizar ahora el proceso inverso, es decir, saber como traspaso la foto que esta en la base de datos a un componente de tipo TImage?
|
Yo lo hago así:
Saludos |
Cita:
|
Si, pero yo utilizo Firebird no se si el SQL que utilizas tu usa los mismos parametros, pero puedes ajustarlo.
Este proceso esta puesto en un DBEdit que al cambiar borra la foto en temporal y recarga la nueva Saludos |
Otra forma
Hola buenas noches BlueSteel
Yo lo hago de esta forma (Lo q esta marcado con rojo, es lo q talvez necesites).
Y aqui...la leo de la tabla para q se muestre en un componente TImage
En la tabla declaras un campo tipo BLOB Binary....bueno eso en Firebird. Espero te sirva el ejemplo. Saludos. |
La franja horaria es GMT +2. Ahora son las 03:23:42. |
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