摘要： 图片保存到库中 1 procedure TForm1.Savebmp; 2 var 3 MyStm:TMemoryStream; 4 Jpg:TjpegImage; 5 begin 6 MyStm:=TMemoryStream.Create; 7 jpg:=TJPEGImage.Create; 8 Jpg.Assign(cxImage1.Picture.Graphic); 9 Jpg.SaveToStream(MyStm);10 MyStm.Position:=0;11 ADOQuery1.Edit;12 TBlobField(ADOQuery1.Field... 阅读全文