數據庫圖片存儲也讀取

procedure TForm1.Button1Click(Sender: TObject);
var
Ms:TmemoryStream;
jpg:Tjpegimage;
begin
ms:=TmemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(Ms);
Ms.Position :=0;
DATA_M.ADOQuery_TEMP.Active:=FALSE;
DATA_M.ADOQuery_TEMP.SQL.Add('SELECT * FROM JZ_JZGIMG')  ;
DATA_M.ADOQuery_TEMP.Active:=TRUE;
DATA_M.ADOQuery_TEMP.Edit;
TBlobField(DATA_M.ADOQuery_TEMP.FieldByName('ZP')).LoadFromStream(Ms);
DATA_M.ADOQuery_TEMP.Post;
Ms.Free ;

end;