图片格式为JPG,如果把图片保存到数据库,并用程序浏览图片,不能复制图片,同时刻录成光盘形式,可直接在光盘执行程序并浏览图片.谢谢!
解决方案 »
- 模糊查询如何实现的问题
- delphi 导入的actionx控件以及其它组件如何删除呢?
- 如何实现双屏显示
- 非常迷惑!!程序老这样的错!!
- 请教窗口融合技术的几个问题,大家帮帮我,急用!
- 如何,一次性把Panel 内的许多许多TEDIT,TLABEL 控件设置共同的属性
- nmstrmserv可以做多线程吗??
- 怎样动态的建立一个类型文件,文件的类型是程序运行时,由用户动态的输入而得到的。
- 谁给我介绍点关于存储过程的网上资料?
- 如何用变量当作控件来用,如val='TEdit' 本有TEdit(Sender) 但我要var(sender)的功能,也就是说..请进
- 赋初值问题
- ★ 程序员成长话题(借永远的Borland版块人气最旺版块一问,请版主不要转移此贴到非技术版块,谢谢!)
---
var
MS:TMemoryStream;
sSQL,sSpecialityID:String;
begin
MS:=TMemoryStream.Create;
TJPEGImage(Image.Picture.Graphic).SaveToStream(MS);//将图像数据写入内存流
MS.Position:=0; ADOQuery.Open;
ADOQuery.Append;
TBlobField(ADOQuery.FieldbyName('Photo')).LoadFromStream(MS);
ADOQuery.Post;
MS.Free;
except
Application.MessageBox('保存信息失败,请重试!', '系统提示', MB_OK +
mb_IconExclamation);
end;end;--------读取:
---
var
MyJPEG:TJPEGImage;
MS:TMemoryStream;
bs:TBlobStream;
begin
{**取出相片**}
MyJPEG:=TJPEGImage.Create;
MS:=TMemoryStream.Create;
try
TBlobField(ADOQuery.FieldByName('Photo')).SaveToStream(MS);
MS.position :=0;
MyJPEG.LoadFromStream(MS);
//DBImage.picture.assign(MyJPEG);该控件的使用
Image.picture.assign(MyJPEG);
finally
MyJPEg.free;
MS.free;
end;
end;
with query1.fields.FieldByName('NEW') as TBlobField do
savetofile('tempole.nnn'); //loadfromfile('tempole.nnn')