在Delphi中如何显示Access97中以OLE对象存储的BMP图形? 用 TOleContainer 应该可以处理 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 读:TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");TBlobStream * pmem=new TBlobStream(pField,bmRead);pmem->Seek(0,soFromBeginning);Graphics::TBitmap * pBitmap=new Graphics::TBitmap();pBitmap->LoadFromStream(pmem);Image1->Picture->Assign(pBitmap);delete pBitmap;delete pmem;写:TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");TBlobStream * pmem=new TBlobStream(pField,bmWrite);pmem->Seek(0,soFromBeginning);Graphics::TBitmap * pBitmap=new Graphics::TBitmap();pBitmap->Assign(Image1->Picture->Graphic);pBitmap->SaveToStream(pmem);delete pBitmap;delete pmem;注意:一定要用此方法进行读写,因为实际上它是以二进制流的方式存入数据库! 我照各位老兄指点做了,不行啊。问题在于Access97中以OLE对象存储的BMP图形字段好象是多包括了一段OLE头,不知应如何处理? 看过申旻的《Delphi 高手突破》一书的请看过来~ 创业合作 delphi+sql server应用程序打包,需要打哪些dll SQL语句又一个问题 DELPHI7中,从数据库读取浮点数的问题 WINXP下如何设置默认打印机(可用分10104) 兄弟们帮忙想想应该去哪个单位?工商与公安. 在一个DBGRID中能不能这样显示? 只需要高手,您的一句话,帮忙把 什么是“钩子”? oracle中的存储过程我已用storedproc试过但出现error create cursor handle错误 请数据库高手们说一说开发c/s数据库的经验
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");
TBlobStream * pmem=new TBlobStream(pField,bmRead);
pmem->Seek(0,soFromBeginning);
Graphics::TBitmap * pBitmap=new Graphics::TBitmap();
pBitmap->LoadFromStream(pmem);
Image1->Picture->Assign(pBitmap);
delete pBitmap;
delete pmem;
写:
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");
TBlobStream * pmem=new TBlobStream(pField,bmWrite);
pmem->Seek(0,soFromBeginning);
Graphics::TBitmap * pBitmap=new Graphics::TBitmap();
pBitmap->Assign(Image1->Picture->Graphic);
pBitmap->SaveToStream(pmem);
delete pBitmap;
delete pmem;注意:一定要用此方法进行读写,因为实际上它是以二进制流的方式存入数据库!
问题在于Access97中以OLE对象存储的BMP图形字段好象是多包括了一段OLE头,不知应如何处理?