Código Delphi [-]var Jpg : TJpegImage; ... begin Jpg := TJpegImage.Create; try Jpg.Assign(pDataSet2.FieldByName('PHOTO')); Image1.Picture.Assign(Jpg); finally Jpg.Free; end;
var Jpg : TJpegImage; ... begin Jpg := TJpegImage.Create; try Jpg.Assign(pDataSet2.FieldByName('PHOTO')); Image1.Picture.Assign(Jpg); finally Jpg.Free; end;