Sat, 13 Jan 2007 08:47:00 GMT

在VC6.0中我们通常用Ado的Field 对象的GetChuck和AppendChunk来读写Blob对象�Q�但是这样做要写很多的代码，其实ado�l�我们提供了一个更易操作的对象那就是Stream Object�Q�通过它我们可以更�Ҏ��的操作数据库中的Blob对象�Q�而且可以直接把Blob对象从数据库保存到本地文�Ӟ��或者直接读取文件写入到数据库中。下面就详细描述如何操作�?br>         首先��x��Stream对象
      _ StreamPtr pStm;
         pStm.CreateInstance("ADODB.Stream");
         variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
         pStm->PutType(adTypeBinary);//�c�d��Z��q�制
         //得到字段内容的大��?br>       // long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;
        //m_pRecordset��Z��个打开的纪录集对象�Q�含有photo�q�个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对象来绘制该囄��Q�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];//分配必要的存储空�?br>                        char *pBuf = NULL;
                        SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
                         memcpy(pvData,pBuf,pStm->GetSize()); //复制数据到缓�?�?nbsp;          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();//�q�里�Ҏ��具体请况来取
         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("囑փ��l�制��p�|�Q?);
       pPic->Release();
}
          �q�样��完成了对图片文件从数据库读出和昄��的过�E��?br>         对于从文件写入数据库��q��对的�Ҏ��多了,
          _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�Q?/p>

        pStm->Open( varOptional,
                     adModeUnknown, adOpenStreamUnspecified, _bstr_t(), _bstr_t());
         pStm->LoadFromFile("c:\\book.gif");//��d��文�g
         variant_t varBLOB=pStm->Read(adReadAll);
       m_pRecordset->GetFields()->GetItem("photo")->Value= varBLOB;//保存到数据集对象�?br>以上��是关于ADO的Stream对象操作数据库中的blob字段的具体方法，主要是对囄��我们�q�可对它�q�行攚w��成其他的，比如读者可以改造成��d��XMl文�g�Q��ƈ保存�{�等�?br>

爱饭�?/a> 2007-01-13 16:47 发表评论

Sat, 13 Jan 2007 08:42:00 GMT

�|�上好象�q�个例子�q�没有样�Q�如果你用VC做一个�h事部��理�pȝ��Q�不可能没有人员照片吧！能找到的例子中都是用BMP�Q�不敢用!
�q�个例子用到了VC6.0和access2002(officeXP),涉及到ADO的用�?文�g对话框的使用,一个CPicture�c�d��一个buffer�~�冲区�?br>
一、我的ADO用法整理

1.　stdafx.h头文件中加入:

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")

2.　应用�E�序初始化中加入:

AfxOleInit();HRESULT hr;try{	hr = m_pConnection.CreateInstance("ADODB.Connection");///创徏Connection对象	if(SUCCEEDED(hr))	{	hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wy.mdb","","",adModeUnknown);///�q�接数据�?///上面一句中�q�接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改�?Provider=Microsoft.Jet.OLEDB.3.51;	}}catch(_com_error e)///捕捉异常{	CString errormessage;	errormessage.Format("打开 wy.mdb 数据库失�?\r\n错误信息:%s",e.ErrorMessage());	AfxMessageBox(errormessage);///昄���错误信息}

3.　应用�E�序EXIT中加�?

if (m_pConnection->State) 	    m_pConnection->Close();

4.　应用�E�序中加�?

_ConnectionPtr m_pConnection;

5.　对话框类中加�?

_RecordsetPtr m_pRecordset;

6. 注意使用:

extern CWYApp theApp;

7. 使用�U�录�?

try{	m_pRecordset.CreateInstance("ADODB.Recordset");	m_pRecordset->Open("SELECT * FROM 客户 ORDER BY 客户id",				_variant_t((IDispatch*)theApp.m_pConnection,true),				adOpenStatic,adLockOptimistic,adCmdText);}catch(_com_error e)///捕捉异常{	AfxMessageBox("��d��数据库失�?");///昄���错误信息}

CPicture�c?它能够显�C�JPG.GIF�{�等囄��Q�详情请看CPicture.h头文�?

CPicture.h
CPicture.cpp

二、流�E�图

你一看便知： ADO作用在buffer内存和ACCESS2002数据库之�?而CPicture作用在buffer内存和显�C�窗口之�?

三、将jpg存入库�ƈ昄��

void COneDlg::OnButton1()      {	CFile f;	CString  FilePathName;	CFileException e;	CFileDialog dlg(TRUE,NULL,NULL,0,"jpg Files (*.jpg)|*.jpg||",this);	if(dlg.DoModal()==IDOK)	{		FilePathName=dlg.GetPathName();		if(m_Pic.m_IPicture != NULL) m_Pic.FreePictureData(); // Important - Avoid Leaks...		if(f.Open(FilePathName, Cfile::modeRead | Cfile::typeBinary, &e)) //打开了一个jpg文�g		{ 			int nSize = f.GetLength();          //先得到jpg文�g长度			BYTE * pBuffer = new BYTE [nSize];  //按文件的大小在堆上申请一块内�? 			if (f.Read(pBuffer, nSize) > 0 )    //把jpg文�g��d��pBuffer(堆上甌���一块内�?			{				BYTE *pBuf = pBuffer;     ///下面�q�一大段是把pBuffer里的jpg数据攑ֈ�库中				VARIANT   varBLOB;				SAFEARRAY  *psa;				SAFEARRAYBOUND rgsabound[1];    				m_pRecordset->AddNew();         				if(pBuf)				{    					rgsabound[0].lLbound = 0;					rgsabound[0].cElements = nSize;					psa = SafeArrayCreate(VT_UI1, 1, rgsabound);					for (long i = 0; i < (long)nSize; i++)					SafeArrayPutElement (psa, &i, pBuf++);					varBLOB.vt = VT_ARRAY | VT_UI1;					varBLOB.parray = psa;					m_pRecordset->GetFields()->GetItem("j")->AppendChunk(varBLOB);				}				m_pRecordset->Update();      			(m_Pic.LoadPictureData(pBuffer, nSize));//接作调用函数读pBuffer的jpg数据准备昄���			delete [] pBuffer;     //删掉堆上甌���的那一块内�?		pBuf=0;                //以防二次��q��			}			f.Close();		}		CClientDC dc(this);        		m_Pic.UpdateSizeOnDC(&dc); // Get Picture Dimentions In Pixels		m_Pic.Show(&dc, CRect(200,0,200+m_Pic.m_Width,m_Pic.m_Height) );//昄���出来看看	} }.......

完整的例子中有较多的中文说明�Q�对你有用吗!?�Q�有什么不妥之处请高手指教

爱饭�?/a> 2007-01-13 16:42 发表评论

国产精品人人做人人爽人人添,欧美在线视频免费,欧美国产精品一区