如题:
最好给出调得通的例子

解决方案 »

  1.   


    VCKBASE Online Help Journal No.10   
     使用ADO实现BLOB数据的存取 -- ADO开发实践之二
    作者:浙江省温岭市电信局 王骏 一、前言
    在上一篇文章《ADO第一次亲密接触》中我们详细介绍了ADO基本的操作方法,在实际的开发过程中我们常常需要存储较大的二进制数据对象,比如:图像、音频文件、或其它二进制数据,这些数据我们称之为二进制大对象BLOB(Binary Large Object),其存取的方式与普通数据有所区别。本文将介绍利用ADO在数据库中存取BLOB数据的具体实现过程,并给出实现图像存取显示的完整示例工程。
    二、前期准备
    首先我们建立一张名为userinfo的表,包含三个字段:id,username,old,photo,其中photo是一个可以存储二进制数据的字段。
    2.1 在SQL SERVER中我们可以在Query Analyzer中直接输入如下语句创建:
    CREATE TABLE [dbo].[userphoto] (
    [id] [int] IDENTITY (1, 1) NOT NULL ,
    [username] [varchar] (50) NULL ,
    [old] [int] NULL ,
    [photo] [image] NULL 
    ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
    其中photo我们定义为image类型的字段。
    2.2 在ACCESS中创建的方法如下:
    建立一张新表包括id,username,old,photo四个字段,然后打开表,选视图菜单中设计视图,将id设置为自动编号的递增长整型,username为文本,old为数字,photo为OLE对象。
    在我们的示例工程中已经包含了一个建立好的ACCESS2000的库,你可以直接拿来使用。
    三、具体步骤
    3.1 BLOB数据的保存
    BLOB类型的数据无法用普通的方式进行存储,我们需要使用AppendChunk函数,AppendChunk包含在Field对象中,原型如下:
    HRESULT AppendChunk (const _variant_t & Data );
    从函数原型中可以看到关键的问题是我们需把二进制数据赋值给VARIANT类型的变量,下面我们给出具体的代码并作简单的分析: 
    ///假设m_pBMPBuffer指针指向一块长度为m_nFileLen的二进制数据,并且已经成功打开了记录集对象m_pRecordset///char *pBuf = m_pBMPBuffer;
    VARIANT varBLOB;
    SAFEARRAY *psa;
    SAFEARRAYBOUND rgsabound[1];m_pRecordset->AddNew();                                              ///添加新记录
    m_pRecordset->PutCollect("username",_variant_t("小李"));             ///为新记录填充username字段
    m_pRecordset->PutCollect("old",_variant_t((long)28);                 ///填充old字段
    if(pBuf)
    {    
       rgsabound[0].lLbound = 0;
       rgsabound[0].cElements = m_nFileLen;
       psa = SafeArrayCreate(VT_UI1, 1, rgsabound);                      ///创建SAFEARRAY对象
       for (long i = 0; i < (long)m_nFileLen; i++)
          SafeArrayPutElement (psa, &i, pBuf++);                         ///将pBuf指向的二进制数据保存到SAFEARRAY对象psa中
       varBLOB.vt = VT_ARRAY | VT_UI1;                                   ///将varBLOB的类型设置为BYTE类型的数组
       varBLOB.parray = psa;                                             ///为varBLOB变量赋值
       m_pRecordset->GetFields()->GetItem("photo")->AppendChunk(varBLOB);///加入BLOB类型的数据

    m_pRecordset->Update();                                              ///保存我们的数据到库中
    至此我们的数据已经成功地保存到了数据库中,接下来我们所要做的工作便是将该数据提取出来,让我们继续吧!3.2 BLOB数据的读取
    对应于保存数据时我们所使用的AppendChunk函数,读取数据应该使用GetChunk函数,GetChunk的原型如下:
    _variant_t GetChunk (long Length );
    给出数据的长度后GetChunk将返回包含数据的VARIANT类型变量,然后我们可以利用SafeArrayAccessData函数得到VARIANT变量中指向数据的char *类型的指针,以方便我们的处理,具体代码如下:long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;///得到数据的长度
    if(lDataSize > 0)
    {
       _variant_t varBLOB;
       varBLOB = m_pRecordset->GetFields()->GetItem("photo")->GetChunk(lDataSize);
       if(varBLOB.vt == (VT_ARRAY | VT_UI1))                                 ///判断数据类型是否正确
       {
            char *pBuf = NULL;
            SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);              ///得到指向数据的指针
            /*****在这里我们可以对pBuf中的数据进行处理*****/
            SafeArrayUnaccessData (varBLOB.parray);
       }
    }
    以上我们成功实现了BLOB数据在数据库中的存取,为了让大家有现成的例子可以参考,本文提供了示例工程,在示例工程中我们在数据库中保存图像数据,并可以对这些图像进行浏览、修改,该例子还涉及到如何用char *指向的BMP文件数据创建BITMAP对象然后显示出来。
    点这里下载示例工程四、后记
    在上一篇文章《ADO第一次亲密接触》发表后,得到了广大网友的大力支持和鼓励,还指正了文章中的错误之处,这些都促使我继续写下了这篇文章,在此向这些网友表示衷心的感谢,对于本文的错误之处也希望批评指正! --------------------------------------------------------------------------------到www.vckbase.com 的王骏专栏去下载源程序
      

  2.   

    好像智能是bmp,jpg怎么做?
      

  3.   

    7.5. pass blob to SQL Server stored procedure
    //build by masterz 20050301 with VC2003, Windows 2003, SQLServer 2000.
    #include "stdafx.h"
    #import "C:\PROGRA~1\COMMON~1\System\ado\msado15.dll" rename( "EOF", "adoEOF" )
    struct InitOle
    {
    InitOle() { ::CoInitialize(NULL); }
    ~InitOle() { ::CoUninitialize(); }
    } _init_InitOle_;
    void PrintProviderError(ADODB::_ConnectionPtr pConnection);void print_properties(LPCTSTR name, ADODB::PropertiesPtr Properties)
    {
    long prop_count = Properties->GetCount();
    printf("%s property count = %d\n",name,prop_count);
    for(long i=0;i<prop_count;i++)
    {
    printf("%s property [%d]:%s\n",name,i,
           (LPCSTR)Properties->GetItem(i)->Name);
    }
    }
    int main(int argc, char* argv[])
    {
    ADODB::_ConnectionPtr Conn1;
    ADODB::_CommandPtr Cmd1;
    ADODB::_ParameterPtr oldParam= NULL;
    ADODB::_ParameterPtr inParam=NULL;
    ADODB::_ParameterPtr blobParam=NULL;
    _variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
    _variant_t vtEmpty2 (DISP_E_PARAMNOTFOUND, VT_ERROR);
    /*
    //_bstr_t bstrConnect="Provider=OraOLEDB.Oracle;Data Source=orcl;User Id=system;Password=oracle;";
    //create procedure dbo.insert_update_blob(@fn varchar(9),@filecontent image) as
    // if exists (select * from table1 where filename=@fn )
    // begin
    // update table1 set content=@filecontent where filename=@fn
    // end
    // else
    // begin
    // insert table1 (filename,content) values(@fn,@filecontent)
    // end
    */
    _bstr_t bstrSP("{CALL insert_update_blob(?,?)}" );
    _bstr_t bstrConnect="Driver={SQL Server};Server=localhost;Database=zxg;Uid=sa;Pwd=sa;" ;
    try
    {
    _variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
    ADODB::_StreamPtr adostream;
    adostream.CreateInstance(_T("ADODB.Stream"));
    adostream->Type = ADODB::adTypeBinary;
    adostream->Open(varOptional,ADODB::adModeUnknown, 
                    ADODB::adOpenStreamUnspecified, _T(""), _T(""));
    adostream->LoadFromFile("C:\\masterz\\20041229.rar");
    _variant_t vReadTo = adostream->Read(ADODB::adReadAll);
    long blob_size = adostream->GetSize();
    adostream->Close();_bstr_t bstrEmpty;
    Conn1.CreateInstance( __uuidof( ADODB::Connection ) );
    Cmd1.CreateInstance( __uuidof( ADODB::Command ) );
    Conn1->ConnectionString = bstrConnect;
    Conn1->Open( bstrConnect, bstrEmpty, bstrEmpty, -1 );
    Cmd1->ActiveConnection = Conn1;
    Cmd1->CommandText = bstrSP;
    Cmd1->CommandType = ADODB::adCmdText;
    Conn1->Properties->Refresh();
    inParam = Cmd1->CreateParameter(_bstr_t("@fn"),ADODB::adChar,
                                    ADODB::adParamInput,2,_variant_t( "a" ));
    Cmd1->Parameters->Append(inParam);
    blobParam = Cmd1->CreateParameter(_bstr_t("@filecontent"),
                                      ADODB::adLongVarBinary,
                                      ADODB::adParamInput,blob_size,vReadTo);
    Cmd1->Parameters->Append(blobParam);
    Cmd1->Properties->Refresh();
    print_properties("Cmd1",Cmd1->Properties);
    Cmd1->Execute(NULL,NULL,ADODB::adExecuteNoRecords);
    Conn1->Close();
    //select filename,datalength(content) from table1 where datalength(content)>0
    }
    catch(_com_error &e)
    {
    _bstr_t bstrSource(e.Source());
    _bstr_t bstrDescription(e.Description());
    printf("\nCOM error occurred, Source : %s \n Description : %s \n",
           (LPCSTR)bstrSource,(LPCSTR)bstrDescription);
    PrintProviderError(Conn1);
    }
    printf("\nprogram end\n");
    return 0;
    }
    VOID PrintProviderError(ADODB::_ConnectionPtr pConnection)
    {
    ADODB::ErrorPtr pErr = NULL;
    long nCount = 0;
    long i = 0;
    if( (pConnection->Errors->Count) > 0)
    {
    nCount = pConnection->Errors->Count;
    for(i = 0; i < nCount; i++)
    {
    pErr = pConnection->Errors->GetItem(i);
    printf("\n\t Error number: %x\t%s", pErr->Number, 
           (LPCSTR)pErr->Description);
    }
    }
    }
      

  4.   

    楼上的老大,现在重点是怎么存jpg信息,怎么把jpg信息读出并显示出来?