Tratamiento de base de datos con Imagenes

[Neftali [Germán.Estévez]]

Acabo de sunirlo como truco a la Web, pero mientras está, éstan son las rutinas para grabar y recuperar un JPEG de una tabla Paradox:

Código Delphi [-]
 // Cargar el contenido de un campo GRAPHIC de paradox a un TImage
 procedure TForm1.JpegBlobToImage();
 var
   Stream: Tblobstream;
   img: Tjpegimage;
 begin
   // Cargar el campo Blob en un Stream
   Stream := Tblobstream.Create(TBlobField(Table1.fieldbyname('Imagen')), bmRead);
   // Crear la Imagen
   img := Tjpegimage.Create();
   // Cargar la imagen con el Stream
   img.loadfromstream(Stream);
   // Pasarla a un control IMage
   image1.picture.assign(img);
   // Liberar
   img.free;
   Stream.free;
 end;
 
 // Cargar el contenido de un TImage a un campo GRAPHIC de Paradox
 procedure TForm1.ImageToJpegBlob();
 var
   Stream: Tblobstream;
   img: Tjpegimage;
 begin
   // Crear un Stream "apuntando" al campo Blob
   Stream := Tblobstream.Create(TBlobField(Table1.fieldbyname('Imagen')), bmReadWrite);
   // Crear la imagen
   img := tjpegimage.create;
   // Asignar el TImage a la Imagen
   img.Assign(image1.picture);
   // Guardarlo en el Stream
   img.savetostream(Stream);
   // Liberar
   img.free;
   Stream.Free;
 end;

Para utilizarlos aquí un ejempo:

Código Delphi [-]
 procedure TForm1.btGrabarClick(Sender: TObject);
 begin
   // Grabar el registr
   Table1.Edit;
   Table1.FieldByName('Nombre').AsString := DBEdit1.Text;
   ImageToJpegBlob();
   Table1.Post;
 end;
 
 procedure TForm1.btLoadClick(Sender: TObject);
 begin
   JpegBlobToImage();
 end;