源程序没有,建议倒有一条:目前尚不知你的CAD图形格式,也不知平均大小和增长速度,因而可能与需求有出入。一般情况下,CAD图形存储在数据库中不是可行的方案,可以采用文件系统和数据库结合的办法,即数据库中仅存储CAD文件的位置,真正的图形文件则存储在NT/2000下分布文件系统中。如果CAD文件仅仅是ACAD的,可以直接使用Autodesk公司的whip(一套ActiveX控件)。文件的上传和同步可以利用Delphi的WinSocket控件编写。
调试欢乐多
Hank(星星农场) (2000-12-18 19:13:00) 得0分
读:
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;
我现在也在做一个PDM系统,打算用delphi做,就是没办法解决CAD图纸的存储
与显示问题,能给个很好的建议吗?你有OICQ吗?我的OICQ是:35628594,真心真诚
地期待你的指点,