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