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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
* p4 N1 k, q! h4 j; T, p7 OBLOB字段的读取：
TBlobSTream* TemplateStream;
% y# ~* _0 A4 ~9 I& M char* TempPlatePtr;              
4 Y. [- @' N) Q, k1 {+ C' }3 m. c7 k9 |
+ P. a, ^$ {$ w" ?( k; S) A TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
& O( M  O/ ~& D% Y TemplatePtr= new char[TemplateStream->Size];
& f& R5 e  y$ t" |3 }/ n TemplateStream->Read(TemplatePtr, TemplateStream->Size);
/ N7 z; O6 w' O* t, ~5 @# V: P
BLOB字段的写入：
- y+ H( o) [% G! L7 g: M7 |1 ~; e TBlobSTream* TemplateStream;
2 X6 `9 {  w1 _2 d char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
" c* B) ]1 K* t  ~                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
& P8 V! K  j2 ~- i8 d# b% T TemplateStream->Write(TemplatePtr, TemplateStream->Size);

$ J$ V* |1 E5 o" n& l  K________________________________________________________________
; M% T7 K/ e: r" K( d9 w5 V补充:
! T% A* ~2 P( h$ f获得字段的大小用函数datalength
0 J2 T' L% c! g/ v9 o5 c* l. H
) U$ S; t+ |2 \# r0 y/ uSQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
+ G3 \9 A$ a9 y2 ntext or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
! c7 J$ I# \& k2 M//
9 v! @* r8 c$ W& f  ]4 K+ J4 [which allows nonlogged data to be inserted.

( `9 U' M6 a* h& h. ]% q6 [做了试验,直接写SQL语句好象不行.
____________________________________________________________________
$ {* e. y# n: d. o# e9 `! e: Q& Q( V        一些注意事项和一个例子
* J, B: P8 Y; i. I在写入时:
% _2 A% N" z; O  A3 @(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
: a& K' d0 G. _" j% \" E& o使得TTable(TQuery)是可写的.

" p3 H5 n( T/ ^( s下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
: @9 c& X5 \' T) N7 k4 c+ s' F   TBlobStream *pScriptStream;
, k( O$ F" L7 H2 p( S* k  //插入一条记录
$ u  F4 n/ ~% X8 Q) @! i        strSQL1="insert  into  content(file_id,script,key_image) values('";
  m7 l* r8 f, s0 Z3 x. \        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
4 W! X8 n7 V0 J% T  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
1 m6 z1 U# p# X8 N  D        if(NewsScript.m_pScript!=NULL)
        {
0 ^+ ~$ t! |' M1 R4 s/ k8 V2 F   //再将刚插入的记录读出来,使该Query与该条记录关联
  [( S5 E/ i0 p  M/ }# e        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
; W% K9 N, s+ n* D0 P   //允许该Query写
' F) h! h8 l1 |; J' n8 Y- O" f            dmStoryEditor->qryExec->RequestLive=true;
' A% e% z, J% Y$ ~            dmStoryEditor->qryExec->SQL->Clear();
$ M4 b/ n4 U; p' O4 w            dmStoryEditor->qryExec->SQL->Add(strSQL1);
& L* |7 L% j2 r4 ?7 [4 l# v            dmStoryEditor->qryExec->Open();
4 F4 r. G/ C# u% v/ X& z            dmStoryEditor->qryExec->First();
8 T: J# S" i! `$ ~' F5 {   //将该Query置为可写
$ V4 h) s( |" f0 f+ E  i# g; \            dmStoryEditor->qryExec->Edit();
0 T, N* ]  k! E" @8 Z            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
, V; {1 t# o/ {! A% _            delete pScriptStream;
  k# p3 ^# J) q6 g! o       }
% b/ T9 `6 }  q& v8 r  G* h/ I       GlobalUnlock(NewsScript.m_hScript);
) @9 x9 ~# X8 }$ L1 N       UnLockMemories(NewsScript);