我写的第一篇文章，不过还没有通过审核！

Question

http://www.csdn.net/Develop/read_article.asp?id=23390
大家有时间看看,和可以马,我的继续写点,大家要鼓励我一下!

Answer 1

support !
:)
continue !

Answer 2

VC6.0中使用Stream Object读取数据中流文件并显示Bmp,JPG等图片    arvid_gs（原作） 修改  
  
关键字     ADO,Stream,IPicture,IStream 
  
        在VC6.0中我们通常用Ado的Field 对象的GetChuck和AppendChunk来读写Blob对象，但是这样做要写很多的代码，其实ado给我们提供了一个更易操作的对象那就是Stream Object，通过它我们可以更容易的操作数据库中的Blob对象，而且可以直接把Blob对象从数据库保存到本地文件，或者直接读取文件写入到数据库中。下面就详细描述如何操作。
         首先申明Stream对象
      _ StreamPtr  pStm;
         pStm.CreateInstance("ADODB.Stream");
         variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
         pStm->PutType(adTypeBinary);//类型为二进制
         //得到字段内容的大小
         long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;
        //m_pRecordset为一个打开的纪录集对象，含有photo这个blob字段
        pStm->Open( varOptional,  
                     adModeUnknown, adOpenStreamUnspecified, _bstr_t(), _bstr_t());         
         //打开pStm
          pStm->Write(_variant_t(m_pRecordset->GetFields()->GetItem("photo")->Value));
          //把photo字段的内容写入pStm
          pStm->SaveToFile("c:\\publogo.jpg", adSaveCreateOverWrite);
          pStm->Close();
           //直接保存为文件,如果是别的格式只要保存的时候改变后缀就可以了
       下面是如果不保存成文件可以直接通过Com对象来绘制该图片，IPicture 可以显示多种格式图片.
        HGLOBAL hGlobal = GlobalAlloc(GMEM_MOVEABLE, pStm->GetSize());  
        LPVOID pvData = NULL;  
       IStream *ps;
        if (hGlobal != NULL)  
       {  
                  if ((pvData = GlobalLock(hGlobal)) != NULL)  
                 {  
                        char * m_pBMPBuffer = new char[pStm->GetSize()+1];//分配必要的存储空间
                        char *pBuf = NULL;
                         SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
                         memcpy(pvData,pBuf,pStm->GetSize()); //复制数据到缓冲 区           m_pBMPBuffer
                      SafeArrayUnaccessData (varBLOB.parray);
                     GlobalUnlock(hGlobal);
                     CreateStreamOnHGlobal(hGlobal, TRUE, &ps);
                   }
        }       IPicture *pPic; 
        if(SUCCEEDED(OleLoadPicture(ps,pStm->GetSize() ,TRUE,IID_IPicture,(LPVOID*)&pPic))) 
        {            OLE_XSIZE_HIMETRIC hmWidth;  
           OLE_YSIZE_HIMETRIC hmHeight;  
           pPic->get_Width(&hmWidth);  
           pPic->get_Height(&hmHeight);  
           double fX,fY;  
           CDC *pDC = GetClientDC();//这里根据具体请况来取
         fX=(double)pDC->GetDeviceCaps(HORZRES)*(double)hmWidth/((double)pDC->GetDeviceCaps(HORZSIZE)*100.0);  
fY =(double)pDC->GetDeviceCaps(VERTRES)*(double)hmHeight/((double)pDC->GetDeviceCaps(VERTSIZE)*100.0);  
      if(FAILED(pPic->Render(*pDC,0,0,(DWORD)fX,(DWORD)fY,0,hmHeight,hmWidth,-hmHeight,NULL)))  
         AfxMessageBox("图像绘制失败！");   
       pPic->Release();  
}  
          这样就完成了对图片文件从数据库读出和显示的过程。
         对于从文件写入数据库就相对的容易多了,
          _StreamPtr  pStm;
         pStm.CreateInstance("ADODB.Stream");
         variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
         long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;
         pStm->PutType(adTypeBinary；        pStm->Open( varOptional,  
                     adModeUnknown, adOpenStreamUnspecified, _bstr_t(), _bstr_t());
         pStm->LoadFromFile("c:\\book.gif");//读入文件
         variant_t  varBLOB=pStm->Read(adReadAll);
       m_pRecordset->GetFields()->GetItem("photo")->Value= varBLOB;//保存到数据集对象。
以上就是关于ADO的Stream对象操作数据库中的blob字段的具体方法，主要是对图片我们还可对它进行改造成其他的，比如读者可以改造成读取XMl文件，并保存等等。
          由于本人水平有限，写作难免有很多不足之处，恳请大家指教，也希望来信交流。索取例子代码或交流请来信[email protected]，或者在CSDN论坛给arvid_gs发短消息。