guardar una imagen a firebird con delphi

[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

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