Club Builder

[Emilio]

Hola a todo el mundo. Hay va mi pregunta:

Estoy trabajando con una base de datos en SQL Server Y tine un campo de tipo BLOB donde gusrdamos imagenes. Para guardar y ver estas imagenes usamos un TDBImage. El problema es que el TDBImage no me permite introducir imagenes JPG. ¿De qué forma puedo hacer esto?

Gracias de antemano

[Marky]

Si mal no tecuerdo el control TDBImage no permite recuperar archivos .jpg asi que yo para cargar imágenes utilizo el siguiente código aplicable a un TImage (Que para el caso es lo mismo)

**********************
GRABAR IMAGEN EN TABLA
**********************
if(DialogoImagen->Execute())
{
AnsiString NombreArchivo="",Extension="";
NombreArchivo=DialogoImagen1->FileName;
Extension.SetLength(4);
fnsplit(NombreArchivo.c_str(),NULL,NULL,NULL,Extension.c_str());
Extension=Extension.LowerCase();
if (Extension==".jpg")
{
try
{
//Portada es un TImage
Portada->Picture->LoadFromFile(DialogoImagen->FileName);
//TablaPortada es del tipo TGraphicField
TablaPortada->LoadFromFile(DialogoImagen->FileName);
}catch(...)
{
MessageBox(Handle,"No es posible cargar la imagen.","Error",MB_ICONERROR+MB_OK);
}
}
else
{
MessageBox(Handle,"Para reducir el tamaño de los datos\nsolamente se admiten imágenes con formato JPG (*.jpg)","Error",MB_ICONERROR+MB_OK);
}

**************************************
CARGAR IMAGEN DESDE TABLA EN UN TIMAGE
**************************************
//debes incluir la libreria jpeg.hpp
TJPEGImage *JPeg;
TMemoryStream *Corriente;
JPeg = new TJPEGImage;
Corriente = new TMemoryStream;

//TablaPortada es del tipo TGraphicField
TablaPortada->SaveToStream(Corriente);
Corriente->Seek(0,soFromBeginning);
JPeg->LoadFromStream(Corriente);

//Portada es un TImage
Portada->Picture->Assign(JPeg);
Corriente->Free();
JPeg->Free();

Eso es todo. Espero que el código te sea de utilidad. Un saludo.