如何读取delphi数据库中的图片
来源:百度知道 编辑:UC知道 时间:2024/05/20 04:12:07
第7章 数据库处理实例
实例122 在数据库中存取图像
本实例演示如何在数据库中存取图像文件。
向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图7-13所示。
图7-13 主界面
本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图7-14为设计完成的Image.db数据库。
图7-14 设计完成的数据库
为了方便测试程序,Image.db数据库存储在实例程序所在的路径下。
设置TTable组件的TableName属性为Image.db,Active属性为True。
在程序运行初期,首先会判断Image.db数据库中是否存在记录,如果没有记录存在,那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件:
procedure TForm1.FormCreate(Sender: TObject);
var
mem:TMemoryStream;
begin
if Table1.Eof and Table1.Bof then
begin
with Table1 do
begin
Insert;
FieldByName('Name').AsString:='鸟';
mem:=TMemoryStream.Create();
mem.LoadFromFile('鸟.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(m