在DELPHI编程中如何向access数据库中ole型字段保存图像?
解决方案 »
- 下载函数 判断下载完成
- 最近使用delphi每次编译工程时都要先删除可执行文件的近来登记下,一起找原因。
- “三层架构”的系统怎样在Internet上使用?
- 编译时候怎么指定输出的exe文件名(不与默认project名相同)
- access violation at address 00000000.Read of address00000000
- 急不可待,在线等待,高手请入
- dll中怎么调用主程序中的全局变量阿?
- sql问题??谢谢 我很菜
- 帮我找回丢失的菜单!
- 如何发布自己写的软件,请推荐几个网址,谢谢
- 请问,用Delphi做网络程序时(CGI),数据表怎么用,如何指定数据库的路径???
- 关于clientdataset问题
---
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;
TBlobFiled.LoadFromFile
读取:
TBlobFiled.SaveToFile