怎么用Image存取数据库中的图片(jpg格式)

如何用Image存取数据库中的图片(jpg格式)?
如何用Image控件向数据库中保存JPG格式的图片,并且在浏览记录时自动显示?

[解决办法]
论坛内这类的问题很多，你也可以搜索一下
下面的代码没有调试，可能有错，但过程描述出来了

// 存
TMemoryStream* MyPicture = new TMemoryStream;
MyPicture-> LoadFromFile( "pic.jpg ");
MyPicture-> Position = 0;

ADOQuery-> SQL-> Clear();
ADOQuery-> SQL-> Add( "insert into tab(image) values(:image); ");

ADOQuery-> SQL-> Parameters-> ParamByName( "image ")-> LoadFromStream (MyPicture, ftBlob);

ADOQuery-> ExecSQL();

delete myPicture;

// 取,同时显示于 Image
// Query 或者 Table 都有一个 AfterScroll 事件，也就是 游标移动后动作

TMemoryStream* pMS = new TMemoryStream;

TBlobField* pField1 = (TBlobField*) ControlDataModule-> aqGetFlysheetDesignate-> FieldByName( "click1 ");
pField1-> SaveToStream(pMS);
pMS-> Position = 0

TPicture* ShowPic = new TPicture;
pi-> Graphic-> LoadFromStream(pMS);

Image1-> Canvas-> Draw(0,0,pic);
delete ShowPic;