guardar una imagen a firebird con delphi

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

[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