guardar una imagen a firebird con delphi

[ecfisa]

Empezado por koiji

...
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: