guardar una imagen a firebird con delphi

[ecfisa]

Hola koiji.

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

[koiji]

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

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));

[Casimiro Noteví]

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

[koiji]

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;

[Casimiro Noteví]

No crees preguntas repetidas en hilos distintos, gracias

[ecfisa]

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

[koiji]

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