【图像处理高级编程】-JPG图片存取到数据库

JPG图片存取到数据库

提示：这里可以添加技术概要

核心源码

uses JPEG;

{$R *.DFM}

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
MS: TMemoryStream;
J1: TJPEGImage;
begin
Screen.Cursor := crHourglass;
try {Finall}
Edit1.Text := Table1Folder.AsString + ‘’ + Table1Filename.AsString;
if Table1Picture.IsNull then
Image1.Picture.Assign(nil)
else
begin
J1 := TJPEGImage.Create;
MS := TMemoryStream.Create;
try
Table1Picture.SaveToStream(MS);
MS.Seek(0, soFromBeginning);
with J1 do
b