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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
TBlobSTream* TemplateStream;
2 f2 `9 e( S  A$ y  z- v% H/ M$ n& Y char* TempPlatePtr;              
' e5 H0 d! ]3 [0 y& M( Y7 _
$ B: T4 I7 Q8 p7 B' L TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
3 R3 q! N2 w4 E  g) j6 |                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
9 V) o+ q8 y2 {  x5 _9 K TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
9 A- t1 b7 n3 Q' o4 x char* TempPlatePtr;              
" k- l+ \+ w  ]( S
" P5 {5 w! q. u+ }! A: I9 j" ]) K TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
$ g" e" z, y& M+ U& @& \4 D TemplatePtr= new char[TemplateStream->Size];
) J1 H# G% O+ p. M5 L TemplateStream->Write(TemplatePtr, TemplateStream->Size);
; [& }: d0 @, c& G- u# }
% _! {$ b; @  N% ^1 }6 A2 J________________________________________________________________
2 A' u4 w. @8 E7 A3 l4 R补充:
获得字段的大小用函数datalength

" W3 k1 p5 g9 `& A4 p: e$ h! t8 rSQL Server端要作一点设置:
$ H6 c" f$ ~7 c# r7 K1 s$ T" h3 UBy default, WRITETEXT is a nonlogged operation. This means that  
! @) v, G/ ~1 jtext or image data is not logged when it is written into the database.  
) A# h% F9 n7 eTo use WRITETEXT in its default, nonlogged state,  
: r) I, @1 t  ?, J//注意!!
" T$ l4 ]- j- O5 E  Uthe system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
which allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
& w9 w* `) S  S8 h4 J9 m1 H: g( Q1 G在写入时:
" `/ ?) @( o0 I4 H/ l' T(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
: L) c$ M, z* s; E% f: p: Y$ a$ S(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
5 i" b+ k- m. f使得TTable(TQuery)是可写的.
: g3 b$ E1 H: |. g  p$ L
2 \$ \$ n# |( s5 D5 g下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
- g  [' ]7 \  `& t$ Mscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
$ ]8 e: [" w8 q6 X+ L        strSQL1="insert  into  content(file_id,script,key_image) values('";
5 i1 ]6 @: ]) ^: r7 ], G        strSQL1=strSQL1+m_szFileID+"',null,null)";
& w8 \. K/ l4 ?- J6 j" v9 y        dmStoryEditor->qryExec->SQL->Clear();
$ ~- Z9 q+ C7 T- s( }! t* ^        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
) y/ i: P- x' i  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
( }- c% n# T! o3 B; u        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
4 k1 G) a* x8 |& d        if(NewsScript.m_pScript!=NULL)
        {
& t( Y5 v  A0 w0 \   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
. R7 H$ U. n2 t9 R  m* ]            dmStoryEditor->qryExec->RequestLive=true;
4 x) w9 Z4 i/ z& e. a) N9 \8 C            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
; ^" R2 d$ r/ _) e            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
6 l' s3 q7 h. q2 k9 A   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
3 Y$ v1 f, X* I9 W0 V            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
) R$ q2 U( r4 e9 Z, p. z7 U" h% @/ Z' E                                        NewsScript.m_lScriptRealSize);
9 h4 Q- K/ R+ x8 @3 g            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
8 D$ W; C; |: U+ p7 A            delete pScriptStream;
       }
# I6 D# k  C8 ?1 Q7 B. L       GlobalUnlock(NewsScript.m_hScript);
1 R. Y4 Y2 k* r3 {  ?& t       UnLockMemories(NewsScript);