Guardar Imagen con DataSet

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

¿Pero estás utilizando la clase TDataset o alguno de sus derivados?
¿Qué componentes usas para conectarte?

[Casimiro Noteví]

Empezado por Neftali

¿Pero estás utilizando la clase TDataset o alguno de sus derivados?
¿Qué componentes usas para conectarte?

¿Y qué base de datos?, creo que nuestro amigo mantraxer21 necesita leer la guía de estilo de clubdelphi.

[mantraxer21]

Para conectarme ocupo TibDataBase con su TibTransaction que estan agrupados en el Datamodule

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

Empezado por mantraxer21

Para conectarme ocupo TibDataBase con su TibTransaction que estan agrupados en el Datamodule

¿Y para acceder a la tabla de Alumnos? ¿IBTable, IBQuery,...?

[mantraxer21]

¨Para acceder a la tabla alumnos, solo ocupo el TibDataSet (Firebird 2.5)

[rrf]

Hola.

Aquí te incluyo 2 ejemplos de código para guardar desde un TIBDataset (campo blob) a un TImage y viceversa.

Son sacados de un programa que hice hace mucho tiempo para practicar y aprender a usarlo y espero que te sean útiles.

El primer ejemplo es para guardar la imagen desde un campo Blob a un TImage y se pone en marcha cuando se cambia de una ficha a otra, por ejemplo, en un DBGrid:

Código Delphi [-]
uses Jpeg, ... ;

...

procedure TDModule1.DSetAfterScroll(DataSet: TDataSet);
var
  MS1  : TMemoryStream ;
  JPEG1   : TJPEGImage;
begin
                   // Después de moverse x el DataSet (ej. en un DBGRid)
                   // actualiza la información
                   //------------------------------------

 //------------------------------- Meter la Imagen al Image1   --------------
    try

      // Vacía la imagen por si esa fila no contiene imagen; pues
      // de no hacerlo, se vería la imágen de la última ficha que sí tenía imagen
      Ppal.image1.Picture.Assign ( NIL ) ;

      MS1 := TMemoryStream.Create  ;
      DSetBlobImag.SaveToStream (MS1) ;
      MS1.Position := 0 ;

      if MS1.Size > 0     // Si el campo contiene alguna información
      then
        begin
          JPEG1 := TJpegImage.Create;
          JPEG1.LoadFromStream( MS1 );

          if not JPEG1.Empty           // Si tiene contenido, lo copia
           then Ppal.image1.Picture.Assign ( JPEG1 ) ;
        end ;


    finally
      JPEG1.Free;
      MS1.Free;
    end;

end;

Este es para guardar la imágen desde el TImage al campo blob:

Código Delphi [-]
procedure TEdita_Reg.BConfirmarClick(Sender: TObject);
var
  MS1  : TMemoryStream ;
begin

             //=========== GUARDAR IMAGEN en el campo blob ======================
  TRY
     MS1 := TMemorySTream.create ;
     if (image1.Picture.Height > 0 ) or   // IMAGE1 no está vacía
         (image1.Picture.Width  > 0 )
       then
         begin
           image1.picture.Graphic.SaveToStream (ms1)  ;
           ms1.Position := 0 ;
           DModule1.DSetBLOBIMAG.LoadFromStream ( ms1 ) ;
         end
       else                                         // IMAGE1 está vacía
         DModule1.DSetBLOBIMAG.Clear ;

  FINALLY
    MS1.free;
  END ;

  DModule1.DSet.Post ;
  DModule1.Transac.CommitRetaining ;

end;

El código original lo obtuve buscando mucho en este foro e internet y lo adapté un poco.

Quizás se ajuste a lo que buscas, aunque creo que lo normal es usar los componentes TDBImage que ahorran mucho código porque enlazan directamente con el IBDataset.

Salu2.

[bulc]

Empezado por rrf

Hola.

Aquí te incluyo 2 ejemplos de código para guardar desde un TIBDataset (campo blob) a un TImage y viceversa.

Son sacados de un programa que hice hace mucho tiempo para practicar y aprender a usarlo y espero que te sean útiles.

El primer ejemplo es para guardar la imagen desde un campo Blob a un TImage y se pone en marcha cuando se cambia de una ficha a otra, por ejemplo, en un DBGrid:

Código Delphi [-]uses Jpeg, ... ; ... procedure TDModule1.DSetAfterScroll(DataSet: TDataSet); var MS1 : TMemoryStream ; JPEG1 : TJPEGImage; begin // Después de moverse x el DataSet (ej. en un DBGRid) // actualiza la información //------------------------------------ //------------------------------- Meter la Imagen al Image1 -------------- try // Vacía la imagen por si esa fila no contiene imagen; pues // de no hacerlo, se vería la imágen de la última ficha que sí tenía imagen Ppal.image1.Picture.Assign ( NIL ) ; MS1 := TMemoryStream.Create ; DSetBlobImag.SaveToStream (MS1) ; MS1.Position := 0 ; if MS1.Size > 0 // Si el campo contiene alguna información then begin JPEG1 := TJpegImage.Create; JPEG1.LoadFromStream( MS1 ); if not JPEG1.Empty // Si tiene contenido, lo copia then Ppal.image1.Picture.Assign ( JPEG1 ) ; end ; finally JPEG1.Free; MS1.Free; end; end;


Este es para guardar la imágen desde el TImage al campo blob:

Código Delphi [-]procedure TEdita_Reg.BConfirmarClick(Sender: TObject); var MS1 : TMemoryStream ; begin //=========== GUARDAR IMAGEN en el campo blob ====================== TRY MS1 := TMemorySTream.create ; if (image1.Picture.Height > 0 ) or // IMAGE1 no está vacía (image1.Picture.Width > 0 ) then begin image1.picture.Graphic.SaveToStream (ms1) ; ms1.Position := 0 ; DModule1.DSetBLOBIMAG.LoadFromStream ( ms1 ) ; end else // IMAGE1 está vacía DModule1.DSetBLOBIMAG.Clear ; FINALLY MS1.free; END ; DModule1.DSet.Post ; DModule1.Transac.CommitRetaining ; end;


El código original lo obtuve buscando mucho en este foro e internet y lo adapté un poco.

Quizás se ajuste a lo que buscas, aunque creo que lo normal es usar los componentes TDBImage que ahorran mucho código porque enlazan directamente con el IBDataset.

Salu2.

Hola. ¿Serviría este código para un campo ADO-Access. No consigo sacar un gráfico de la Tabla y verlo. Intento hacerlo en un TImage, pasando el campo a un TADOBlobStream, para dimensionarlo.
¿Puedes sugerirme algo?