我要跳楼了,救救我,为什么我的JPEG文件装入数据库,再用TADOBlobStream读出来的时候字节多了出来,我再用TJPEGImage 读的时候说 Jpeg error #52 怎么办?我有许多图片要装入数据库里呢?我一定给分 TADOBlobStream.postion:=0;就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 没用的,,,当我从数据库读出来的时候就发现文件大小莫名其妙的增加了TJPEGImage *jp = new TJPEGImage();TADOBlobStream * be=new TADOBlobStream( (TBlobField* ) this->m_ADOQuery->FieldByName("picture"),bmRead);//这里如果be->SaveToFile读出来的文件就增加了一些,例如一张图片本来只有98K,现在有101Kjp->LoadFromStream(be);this->m_Image->Picture->Assign(jp);//或者这样 this->m_Image->Picture->Graphic=jp; delete jp; delete be; 数据库是Accsee97,,我是直接在Accsee加入图片的字段类型是OLE 那么Access一定已经自己加了一些描述信息,你应该用程序加图片。 ReportMachine问题 如何防止非法字符的输入呢? 百分求助,处理字符串里的引号问题!!! 如何将多个控件做成一个控件? winexec问题。 一个简单的问题 如何自动取得汉字的拼音缩写?(如汉字---hz) 求:在Delphi 7.0下如何制作360安全卫士的导航栏效果 关于统计图表实现的问题,大家都来帮我出谋划策! Delphi可以监听一个项目打开的所有窗体吗? 请问用什么工具播放.asp文件,在哪下载?见者有分 如何获得所运行的进程列表
TJPEGImage *jp = new TJPEGImage();
TADOBlobStream * be=new TADOBlobStream( (TBlobField* ) this->m_ADOQuery->FieldByName("picture"),bmRead);
//这里如果be->SaveToFile读出来的文件就增加了一些,例如一张图片本来只有98K,现在有101Kjp->LoadFromStream(be);this->m_Image->Picture->Assign(jp);
//或者这样 this->m_Image->Picture->Graphic=jp; delete jp;
delete be;