在 C++Builder 中，如何自定义属性 [properties] ?

韩冰

[摘自 水木清华站]
* S% \$ z+ T$ [4 r, C) s7 e! ]% Q) J
; d% Z  }8 t, ?* d+ E2 W; }( o        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
, p, }" O7 n. w. ?, k4 Y TBlobSTream* TemplateStream;
3 l, G: G+ ]7 Z: J0 W char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
6 j  \  |9 l( g
BLOB字段的写入：
  f5 I  G: r% T+ ? TBlobSTream* TemplateStream;
1 `' ], H# y  ~- l char* TempPlatePtr;              
+ \# i1 _# M4 B6 p* L+ H, E) Z% u
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
  C( F! o5 ~5 T9 T                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
5 U0 F2 |9 U5 u3 f
: Z5 Z/ o+ z9 a: l, h/ \: g/ o________________________________________________________________
补充:
7 m1 B) ~, N0 M  X" j9 D获得字段的大小用函数datalength

; a0 {8 o0 J+ N6 _& S# E2 x6 B' Z, mSQL Server端要作一点设置:
1 b9 v( G+ Q9 i8 IBy default, WRITETEXT is a nonlogged operation. This means that  
7 [( u. c( }) j. ftext or image data is not logged when it is written into the database.  
/ n' V# a1 D9 J4 i) wTo use WRITETEXT in its default, nonlogged state,  
: ]* @3 z+ r- e+ m$ K  l//注意!!
the system administrator must use the sp_dboption system stored  
( s& e* S1 l" f" N8 A. R5 s( Q& @procedure to set select into/bulkcopy,  
//
+ |* n( H1 ^' ]* @/ ]* Uwhich allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
  _* o! Z2 ]3 x____________________________________________________________________
        一些注意事项和一个例子
在写入时:
" [4 c1 D) E% ]1 t1 g& t(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
8 h9 w5 \3 K1 M2 Y2 g  O(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.

# M* r" [/ g; |7 n% c3 ^3 u0 y下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
8 d) u! ?7 C$ Y3 f6 J' G   TBlobStream *pScriptStream;
; M% s' u* t4 y6 C8 ], Q  //插入一条记录
: m, U* r' i% h" Y( V9 P        strSQL1="insert  into  content(file_id,script,key_image) values('";
. Q3 {, b1 [0 W4 r7 i) q" n; f        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
0 ?3 a9 B7 L! R2 W  [        dmStoryEditor->qryExec->ExecSQL();
( T$ y1 h9 M8 t9 p        dmStoryEditor->qryExec->Close();
9 }+ g) U( A+ h8 J" }( Z  //整理要写入的Blob数据   
        LockMemories(NewsScript);
; ]5 L/ w7 _6 W& u  E        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
) ?) O: Z* O* t        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
% Y+ e  i$ m+ y& j0 H1 L   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
9 D; H" Q+ t2 ]* J: `            dmStoryEditor->qryExec->SQL->Clear();
* W* N7 `7 @4 x3 T( Y; S, d8 \            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
4 d* y( x6 {: J3 x% j3 M            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
8 K, ?5 I0 `; Z            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
1 y2 d1 F7 @- b! R; ^7 e5 \                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
0 |/ i( ?" a( q1 P3 w+ H            delete pScriptStream;
  ]  K5 |- a4 {. t       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);