Delphi图像存取另类解决方案

在《 Delphi存取图像完整解决方案》一文中，笔者提供了一种DELPHI存取JPEG、BMP图像到数据库的解决方案，虽然它适用于ACCESS和SQL数据库，但它并不适用于所有数据库（比如PARADOX数据库中的GRAPHIC图像字段就不能采用该方法存取图像数据），下文将介绍DELPHI利用ASSIGN方法存取JPEG、BMP图像到数据库的另一解决方案来进行补充完善。演示数据库结构和窗口界面设计同前文，不再重述，将单元的相应程序代码作如下更换：

align="center" marginwidth="0" marginheight="0" src="Delphi图像存取另类解决方案_Delphi_其他技术_学习教程久久学院.files/y-software-pip.htm" frameborder="0" width="360" scrolling="no" height="300">

　　1. 图像数据的选择及保存

procedure Tform1.selectimageClick(Sender: TObject); //选择图像 begin if openpicturedialog1.Execute then image1.Picture.LoadFromFile(openpicturedialog1.FileName ); end