Ver Mensaje Individual
  #6  
Antiguo 30-01-2006
Avatar de Jonnathan
Jonnathan Jonnathan is offline
Miembro
 
Registrado: may 2005
Ubicación: Isla de Margarita, Venezuela
Posts: 64
Reputación: 20
Jonnathan Va por buen camino
Hola Picard, hace tiempo me toco hacer varios programas con bases de datos en Access que tenían imágenes y se que es un dolor de cabeza porque la forma como guarda las imagenes Access dentro del campo es diferente a la forma como la leen los componentes de Delphi. Al final terminé haciendo un pequeño programita en Delphi para guardar las imágenes sin usar el Access.

Es simple y lo puedes hacer rápido colocando un control TImage, un DBImage, un TOpenPictureDialog, un TDBGrid (para saber en cual registro estas ubicado) y los usuales TTable y TDatasource.
Código Delphi [-]
//1.- Navegas en tu tabla con el DBGrid y pones el registro que te interesa en modo de edicion 
Table->Edit();
//2.- Usas el TOpenPictureDialog para navegar por el disco duro buscando la imagen 
OpenPictureDialog->Execute();
//3.- Cargas la imagen en el TImage con 
Image->LoadFromFile(OpenPictureDialog->FileName);
//4.- Asignas la imagen cargada en el TImage al DBImage mediante
DbImage->Field->Assign(Image->Picture->Bitmap);
//5.- Guardas tu registro 
Table->Post();
Advertencias: Guardar imágenes grandes en la base de datos afectará seriamente el rendimiento de la misma. Los archivos JPEG son comprimidos pero se guardarán descomprimidos en el campo Blob de la tabla.
__________________
"En el siglo de la estupidez todas las casas comienzan por la fachada" (Fuckowsky)
Planeta Insólito, La Pluma Inspirada

Última edición por Jonnathan fecha: 30-01-2006 a las 21:18:58.
Responder Con Cita