Foros Club Delphi - guardar una imagen a firebird con delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - guardar una imagen a firebird con delphi (https://www.clubdelphi.com/foros/showthread.php?t=86527)

guardar una imagen a firebird con delphi

BUENAS TARDES TENGO ESTES CODIGO QUE ENCONTRE PARA ALMACENAR IMAGENES ESTOY UTILIZANDO IBQUERY PARA ALMACENAR LA IMAGEN PERO NO FUNCIONA PORQUE
SALE UN ERROR EN jpg.Assign(bmp); ESTOY UTILIZANDO DELPHI 2010 gracias por su ayuda

Código Delphi [-]implementation

{$R *.dfm}

uses jpeg;

var jpg: TJPEGImage;

procedure TForm1.FormCreate(Sender: TObject);
begin
 jpg := TJPEGImage.Create;        // Creamos el objeto que "entiende" al JPEG

end;

// Guardar la foto en la tabla
procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; Stream: TStream;
begin
 if not OpenDialog1.Execute then Exit;

 bmp := TBitmap.Create;           // Creamos el objeto que "entiende" al Bitmap
 bmp.LoadFromFile(OpenDialog1.FileName);  // cargamos la imagen
 jpg.Assign(bmp);                 // signamos la imagen BMP al objeto del JPEG
 bmp.Destroy;                     // y liberamos el objeto. }

 ADOTable1.Open;                  // Abrimos la tabla
 ADOTable1.Insert;                // Insertamos una nueva tupla
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite); // Asignamos el BLOB a un stream
 jpg.SaveToStream(Stream);        // y guardamos la imagen como JPEG (convertido), en el stream
 Stream.Destroy;                  // liberamos.
 ADOTable1.Post;                // Guardamos.

end;

// cargar la foto de la tabla.
procedure TForm1.Button2Click(Sender: TObject);
var  Stream: TStream;
begin
 ADOTable1.Open;                 // Abrimos la tabla
 ADOTable1.Last;                 // Nos vamos a la última tupla para ver la ultima imagen añadida.
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmRead); // Lo mismo que el anterior caso pero ahora en modo de escritura.
 jpg.LoadFromStream(Stream);     // Cargamos el BLOB al objeto JPEG
 Stream.Destroy;                 // liberamos...
 Image2.Picture.Assign(jpg);     // y asignamos la imagen al TPicture.

 end;

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Hola koiji.

Cita:

Empezado por koiji (Mensaje 480390)

BUENAS TARDES TENGO ESTES CODIGO QUE ENCONTRE PARA ALMACENAR IMAGENES ESTOY UTILIZANDO IBQUERY...

Código Delphi [-]  Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite);

Pero... ¿ Estas usando componentes IBX o ADO ?

Saludos :)

los componentes son IBX gracias espero tus respuestas ecfisa

Cita:

Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas

Código SQL [-]CREATE TABLE IMAGENES2 (
    ID     INTEGER NOT NULL,
    IMAGE  BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

Hola koiji.

Cita:

Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas

Entonces un ejemplo para almacenar imágenes de tipo JPG con el componente TIBQuery de IBX:

Código Delphi [-]...
implementation

uses JPeg;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Filter:= 'Archivo de imágen | *.JPG;*.JPEG';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  J: TJPEGImage;
  MS: TMemoryStream;
begin
  if OpenDialog1.Execute then
  begin
    J:= TJPEGImage.Create;
    MS:= TMemoryStream.Create;
    try
      J.LoadFromFile(OpenDialog1.FileName);
      J.SaveToStream(MS);
      MS.Position:= 0;
      IBQuery1.Close;
      IBQuery1.SQL.Text:= 'INSERT INTO IMAGENES2(ID,IMAGE) VALUES(:ID,:IMG)';
      IBQuery1.ParamByName('ID').AsInteger:= 13;
      IBQuery1.ParamByName('IMG').LoadFromStream(MS, ftBlob);
      IBQuery1.ExecSQL;
    finally
      J.Free;
      MS.Free;
    end;
  end;
end;

Saludos :)

Hola ecfisa un ultimo favor

Cita:

un ultimo favor acabo de ver que los timage no soportan png como podria hacer que visualize las imagenes png Gracias

Cita:

yo siempre lo he utilizado asi pero no visualiza los png

Código Delphi [-] if not OpenDialog1.Execute then Exit;
      // Image1.Picture.LoadFromFile((OpenDialog1.FileName));

koiji, Preguntas distintas en hilos distintos.
De todas formas, haz una búsqueda por los foros, se ha tratado en múltiples ocasiones.

Hola buenas tarde me podran ayudar con el tema de los Timagen al cargar una imagen con un openDialog hacia un Timagen me sale error creo que los Timagen no Aceptan PNG como haria para transformar el PNG y a JPG para que el Timagen me lo pueda mostrar GRACIAS

Hola koiji.

¿ Con que versión de Delphi estas trabajando ?

Saludos :)

mostrar una imagen png en un Timge desde firebird con delphi2010

Cita:

Hola ecfisa tengo una pregunta como podria hacer cuando tengo guardada una imagen PNG dentro de firebird y mostrarla a un Timagen mi codigo es el siguiente pero solo funciona para JPG y estoy utilizando un dataset o tambien ibquery

Código Delphi [-]IBDataSet1.Open;
IBDataSet1.next;
jpg :=TjpegImage.Create;
jpg.Assign(TblobField(IBDataSet1.FieldByName('DESCRIPCION')));
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

No crees preguntas repetidas en hilos distintos, gracias ;)

Hola koiji.

Si hubieras continuado con los mensajes en este hilo no hubiera preguntado la versión de Delphi ;)

Creo que a partir de Delphi 2009 la VCL incluye la clase TPngImage y no necesitas código de terceros.

Código Delphi [-]uses
  PngImage;

Saludos :)

yo utilizo la version 2010 de delphi pero esta version que tengo es un version lite de 2010 entonces talves no me deje entender lo que pasa es que ya puedo guardar la imagen JPG y PNG
a la base de datos pero cuando navego de esta manera

IBDataSet1.Open;
IBDataSet1.next;
jpg :=TjpegImage.Create;
jpg.Assign(TblobField(IBDataSet1.FieldByName('DESCRIPCION')));
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

y llego a la imagen en la BD PNG metira el error JPEG error#53 y el codigo que puse el que estoy utilizando que me tira el error gracias por la colabroracion

Cita:

Empezado por koiji (Mensaje 480495)

...
y llego a la imagen en la BD PNG metira el error JPEG error#53 y el codigo que puse el que estoy utilizando que me tira el error gracias por la colabroracion

Un caso similar se trato en este hilo: Recuperando una imagen de SQL Server da error, el enlace es al foro C++ pero el problema es el mismo y también la solución.

Así que en Delphi y usando el evento OnDataChange del TDataSource para mostrar campos con diferentes tipos de imágenes en un TImage sería:

Código Delphi [-]procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  G: TGraphic;
  B: TBitmap;
begin
  case IBDataSet1.FieldByName('TIPO_IMAGEN').AsInteger of
    0: G:= TBitmap.Create;
    1: G:= TJPEGImage.Create;
    2: G:= TPNPObject.Create;
   //3: G:= TGIFImage.Create;
  end;
  B:= TBitmap.Create;
  try
    G.Assign(TblobField(IBDataSet1.FieldByName('IMAGEN')));
    B.Assign(G);
    Image1.Picture.Bitmap.Assign(B);
  finally
    G.Free;
    B.Free;
  end;
end;

Recuerda usar los TAG's cuando incluyas código en tus mensajes de este modo:

Saludos: