• Jueves 14 de Noviembre de 2024, 08:03

Autor Tema:  Re: mostrar una imegen guardada en una base de datos  (Leído 1635 veces)

carlos_lue

  • Miembro activo
  • **
  • Mensajes: 83
    • Ver Perfil
Re: mostrar una imegen guardada en una base de datos
« en: Viernes 12 de Septiembre de 2003, 21:48 »
0
hola a todos, mis problema es que no se como guardar las imagenes en acces para poder mostrarlas en un TImage, lo que no se es con qué extension debe ser la imagen.

de antemano gracias a todos.

_Viktor

  • Miembro MUY activo
  • ***
  • Mensajes: 271
    • Ver Perfil
    • http://AyudaCBuilder.foros.st
mostrar una imegen guardada en una base de datos
« Respuesta #1 en: Jueves 18 de Septiembre de 2003, 03:35 »
0
// Cargando con un Query

 
Código: Text
  1.  
  2. //-------------------------------------------------------------
  3. void __fastcall TForm1::Button3Click(TObject *Sender)
  4. {
  5.     Query->Active = false;
  6.     Query->SQL->Text = "select * from image_testn"
  7.                        "where string_field = 'androm.bmp'";
  8.     Query->Active = true;
  9.  
  10.      std::auto_ptr<TMemoryStream> stream (new TMemoryStream);
  11.     Queryimage_field->SaveToStream(stream.get());
  12.  
  13.         stream->Position = 0;
  14.     stream->SaveToFile("androm.bmp");
  15.  
  16.         stream->Position = 0;
  17.     Image1->Picture->Bitmap->LoadFromStream(stream.get());
  18.  
  19.     Query->Active = false;
  20. }
  21.  
  22.  
  23. //-------------------------------------------------------------
  24. //
  25.  
  26.  
  27.  

Ahora con un Table...
 
Código: Text
  1.  
  2. void __fastcall TForm1::Button3Click(TObject *Sender)
  3. {
  4.      Table->Open();
  5.  
  6.     std::auto_ptr<TMemoryStream> stream (new TMemoryStream);
  7.     Tableimage_field->SaveToStream(stream.get());
  8.  
  9.      stream->Position = 0;
  10.     stream->SaveToFile("androm.bmp");
  11.  
  12.      stream->Position = 0;
  13.     Image1->Picture->Bitmap->LoadFromStream(stream.get());
  14.  
  15.     Table->Close();
  16. }
  17.  
  18.  

Suerte en eso!!!
http://ayudacbuilder.foros.st/
_Viktor _Yañez_
"Ser inteligente no es ser mas, solo equivocarse menos y no usar visual basic"

http]