delhpi 数据库中的图像存储和读取
来源:互联网 发布:mac os server工具 编辑:程序博客网 时间:2024/06/06 11:45
1 、如何实现在Microsoft Access数据库中的图像存储:
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。
下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG: TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS := TMemoryStream.create;
SaveToStream(MS);
MS.Position := 0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
Messagebox(Getactivewindow(), '图像保存完毕!', '保存', MB_OK);
end;
finally
MyJPEG.Free;
end;
end;
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式
的中间桥梁的作用。
2 、如何将图像从Microsoft Access数据库中取出并显示出来:
下面的这段代码是在按了“查看图像”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG: TJPEGImage;
MS: TMemoryStream;
begin
try
MS := TMemoryStream.Create;
TBlobField(Query1.FieldByName('Image')).SaveToStream(MS);
MS.Position := 0;
MyJPEG := TJPEGImage.Create;
MyJPEG.LoadFromStream(MS);
DBImage1.Picture.Bitmap.Assign(MyJPEG);
//或是Sender.Picture.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;
用到TBlobField的时候要在接口包含DB,用到TJPEGImage时要在接口包含Jpeg
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。
下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG: TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS := TMemoryStream.create;
SaveToStream(MS);
MS.Position := 0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
Messagebox(Getactivewindow(), '图像保存完毕!', '保存', MB_OK);
end;
finally
MyJPEG.Free;
end;
end;
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式
的中间桥梁的作用。
2 、如何将图像从Microsoft Access数据库中取出并显示出来:
下面的这段代码是在按了“查看图像”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG: TJPEGImage;
MS: TMemoryStream;
begin
try
MS := TMemoryStream.Create;
TBlobField(Query1.FieldByName('Image')).SaveToStream(MS);
MS.Position := 0;
MyJPEG := TJPEGImage.Create;
MyJPEG.LoadFromStream(MS);
DBImage1.Picture.Bitmap.Assign(MyJPEG);
//或是Sender.Picture.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;
用到TBlobField的时候要在接口包含DB,用到TJPEGImage时要在接口包含Jpeg
- delhpi 数据库中的图像存储和读取
- 对特种类型数据在数据库中的读取和存储
- 二、Matlab图像的读取和存储
- Matlab图像的读取和存储
- Delhpi中的函数与过程
- Opencv图像读取,存储
- 在Delhpi中,巧用WebBrowser 和Excel摘取网站内容(数据库)
- 数据库 SQLite3存储和读取数据
- 存储和读取文件中的自定义对象
- WP7 Isolated Storage 系列 - 7.读取和存储图像
- C++读取和存储一幅BMP图像
- 二 读取、显示、存储图像
- 存储、读取二进制的图像
- 利用Python PIL、cPickle读取和保存图像数据库
- 利用Python PIL、cPickle读取和保存图像数据库
- 利用Python PIL、cPickle读取和保存图像数据库
- 利用Python PIL、cPickle读取和保存图像数据库
- 利用Python PIL、cPickle读取和保存图像数据库
- swing 嘴尖介绍 ~~转帖
- MS SQL查询时自动给数据排名:RANK(),DENSE_RANK()
- VB常用代码总结(二)【转】
- VB常用代码总结(一)【转】
- 获取设备句柄的两种方法
- delhpi 数据库中的图像存储和读取
- 一个简单的加密解密算法
- ZJU 2604 Little Brackets - 动态规划 Catalan数变形
- Embedded Linux System Design and Development
- 腾讯首席架构师:互联网应用向移动终端转移
- Moving to Ubuntu Linux
- SD--SD知识点列表
- 总结面试的情况
- HTML & XHTML: The Definitive Guide (6th Edition)