Club Builder

[Angel]

He estado viendo el código que ha puesto César en Blob y JPG en base de datos y no he logrado que funcione pero porque no entiendo muy bien la forma de usar la rutina.

Tengo definido un campo Foto en una Tabla en un CREATE TABLE como Foto BLOB SUB_TYPE 0 SEGMENT SIZE 240. ¿Cómo tendría que escribir la instrucción

[ercea]

Hola Ángel, hace poco que estuve con este tema teninedo quebraderos de cabeza jeje, bueno mira te pongo mi código, se trata de guardar una imagen en la bd sobre unas máquinas:

[Angel]

Bueno, me está dando algún problema al compilar la función para cargar en un TImage. Me dice, literalmente, [C++ Error] Socio.cpp(92): E2034 Cannot convert 'TJPEGImage *' to 'TJPEGImage'. La línea a la que hace referencia es el return:

[ercea]

El fallo creo que esta en el prototipo de la función, devuelves un TJPEGImage, cuadno debería de devolver un TJPEGImage *, de hecho viendo tu función debería de devolver un TJPEGImage *, cambialo y creo que te funcionará sin problemas

saludos!

[Angel]

Pues no logro que me grabe ninguna imagen. El código que tengo es este:

1. Para grabar


Código:

void __fastcall TfSocio::AddFotoClick(TObject *Sender) {      if (Fotos->Execute())      {           Socios->Edit();           static_cast<TBlobField>(Socios->FieldByName("Foto"))->LoadFromStream(ImagenToStream(Fotos->FileName));           Socios->Post();      } } //--------------------------------------------------------------------------- TMemoryStream * __fastcall TfSocio::ImagenToStream(AnsiString cImagen) {      TJPEGImage *jpg = new TJPEGImage();      TMemoryStream *StreamTmp = new TMemoryStream;      AnsiString Ext = ExtractFileExt(cImagen);            if (UpperCase(Ext.Trim()) == ".GIF" ||   // GIF          UpperCase(Ext.Trim()) == ".WMF" ||   // wmf          UpperCase(Ext.Trim()) == ".EMF" ||   // emf          UpperCase(Ext.Trim()) == ".ICO" ||   // ICO          UpperCase(Ext.Trim()) == ".BMP" ||   // bmp          UpperCase(Ext.Trim()) == ".JPG" ||   // jpg          UpperCase(Ext.Trim()) == ".JPEG")    // jpeg      {           const int HIMETRIC_INCH   = 2540;           TImage *imagen = new TImage(NULL);           IPicture *pPicture = NULL;           OleLoadPicturePath( StringToOleStr(cImagen), NULL, 0, 0, IID_IPicture, (void**)&pPicture);           if (pPicture)  // Carga la imagen en el TImage temporal           {                imagen->Picture = NULL;                long ancho, alto;                pPicture->get_Width(&ancho);                pPicture->get_Height(&alto);                imagen->Picture->Bitmap->Width = MulDiv(ancho, GetDeviceCaps(imagen->Canvas->Handle, LOGPIXELSX), HIMETRIC_INCH);                imagen->Picture->Bitmap->Height = MulDiv(alto, GetDeviceCaps(imagen->Canvas->Handle, LOGPIXELSY), HIMETRIC_INCH);                RECT rect = imagen->ClientRect;                pPicture->Render(imagen->Canvas->Handle, 0, 0, imagen->Picture->Bitmap->Width, imagen->Picture->Bitmap->Height, 0, alto, ancho, -alto, &rect);                pPicture->Release();                jpg->Assign(imagen->Picture->Bitmap);                jpg->SaveToStream(StreamTmp);           }      }      return(StreamTmp); } //---------------------------------------------------------------------------


2. Para leer


Código:

if (Query->FieldByName("Foto")->AsString != "") //si no tiene foto, no se hace nada {      TJPEGImage *JPeg;      JPeg = BlobToJpg(static_cast <TBlobField>(Query->FieldByName(Query->FieldDefs->Items[nItem]->Name)));      Imagen->Picture->Assign(JPeg); } //--------------------------------------------------------------------------- TJPEGImage* __fastcall TfSocio::BlobToJpg(TBlobField *CampoBLOB) {      if (!CampoBLOB->Value.IsEmpty())      {           TJPEGImage *JPeg = new TJPEGImage;           TMemoryStream *StreamTmp = new TMemoryStream;           CampoBLOB->SaveToStream(StreamTmp); //sacamos el jpg y se convierte a stream           StreamTmp->Seek(0,soFromBeginning);           JPeg->LoadFromStream(StreamTmp);           return(JPeg);      }      else           return(NULL); } //---------------------------------------------------------------------------

No me da ningún error de compilación ni nada, pero no graba nada. Y está comprobado que al salir de la función ImagenToStream, StreamTmp no está vacío. Según el debug del programa, en la prueba que he hecho me da estos datos:

FCapacity > 8192 (0x00002000)
FMemory > :001B8F18
FSize > 6487 (0x00001957)
FPosition > 6487 (0x00001957)

por lo que supongo que la imagen sí se ha cargado en memoria.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[rivo]

wenas, yo una vez para una aplicacion inserte imagenes en una base de de datos, en mi caso era interbase, pero quizas te sirva de algo, aqui te lo pongo.

yo añadi la libreria #include <jpeg> en la cabecera.

insercion : (pathi es un edit que contiene la direcion absoluta de la imagen)

[Angel]

¡¡¡Perfecto!!! Sólo me ha dado un error en una línea: Image2->Picture->Bitmap->Empty; Lo he cambiado por Imagen->PIcture->Assign(NULL).

Muchas gracias rivo, y disfruta del Sella
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[rivo]

de nada!!, lo disfrutare, jajaja

[pariente]

Hola a todos.

Estoy intentando meter en la base de datos una imagen, estoy utilizando la solucion que puso rivo en este post pero no me funciona, el primer error que me da esque no me reconoce la libreria jpeg, no se de donde conseguirla, otra duda que tengo esque no se a la hora de crear la tabla donde meto el campo de la imgen de que tipo tengo que declararla.

Utilizo mysql 5.0 y mysqldac.

El codigo que pongo para guardar la imagen es el siguiente:

[Cesar C. Salazar Gonzalez]

Saludos Angel realmente no habia visto el post. te paso las funciones que uso para el tratamiento de las imagenes y me ha funcionado sin ningun problema

Recuerda usar los archivos de Cabecera correspondiente para que funcione el JPG

[Angel]