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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
' \' j7 ]; K+ V- T  Q7 ~" H* S TBlobSTream* TemplateStream;
/ V2 {; u4 d" T3 z9 V" H& m9 F  Y char* TempPlatePtr;              
* I  o) @* c2 R( q: P- J
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
. x7 l) Y- B; ^" G3 C- ~                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
% P$ Z1 U9 h; A, Y' Z) y) Y" x TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
  `% M3 w* M4 ~! S2 s char* TempPlatePtr;              

$ b: B8 Z' ^% O" X! W0 l TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
5 J  y# C% {2 ~4 G; @ TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
' R: r/ e( s0 r! F补充:
获得字段的大小用函数datalength
  y, b& }! T3 s" \2 [1 g% i
SQL Server端要作一点设置:
+ H$ D; Z3 C" O1 q1 Z; q* HBy default, WRITETEXT is a nonlogged operation. This means that  
9 K5 ]2 T3 W; c, P4 q$ d0 |text 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  
+ L; V  m, P% q! C3 F  Z* Uprocedure to set select into/bulkcopy,  
, A! B* d, p! W& }4 r# I/ |//
' _! T( `9 I( S& @, T! V2 iwhich allows nonlogged data to be inserted.
5 J+ ^8 ~9 c! N. a
做了试验,直接写SQL语句好象不行.
4 P% m9 Z* |" B4 T. R____________________________________________________________________
        一些注意事项和一个例子
% n- k, s# ?1 L, ]3 A; L在写入时:
# |" E% ^! ~% m(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
7 |9 d( P' z, I& R$ c
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
, B5 _6 I8 s7 h6 x, z        strSQL1="insert  into  content(file_id,script,key_image) values('";
  S0 w# l7 J$ g. t) d- Y5 X( |        strSQL1=strSQL1+m_szFileID+"',null,null)";
% ]) E$ W; P" p# C8 ]8 R        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
+ k5 n) [1 @+ _9 R) R        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
- O3 l0 _7 z2 t  y8 h        LockMemories(NewsScript);
: i- O" a3 ?% P0 S        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
" S) u) R! W$ h* G& d        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
) _2 R! T" @( R: _$ b4 r   //允许该Query写
0 R- W( |' j2 d            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
  r8 u6 T, a2 M            dmStoryEditor->qryExec->Open();
; R0 H8 n, S# d9 D9 H2 b            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
9 r$ f- T. M  Z$ ^7 y            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
7 j; i/ l3 e  [& ?            dmStoryEditor->qryExec-&gtost();
: A( {  W5 a) b  s& B- W& M% `            dmStoryEditor->qryExec->RequestLive=false;
# R- h! D8 M0 m; @5 G            delete pScriptStream;
       }
3 I/ w  A& l, f3 e4 l       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);