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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
. z- T0 P/ d; q7 j$ P4 L, n- gBLOB字段的读取：
+ y( X+ w. y" y& j+ Q$ e$ h TBlobSTream* TemplateStream;
9 n" t" t; o2 [! i char* TempPlatePtr;              

% }3 r" B2 @3 @. l/ Y+ d" I TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
% [6 a9 s8 p! V  z1 t" [ TemplatePtr= new char[TemplateStream->Size];
4 M+ B3 @; O! c$ t TemplateStream->Read(TemplatePtr, TemplateStream->Size);
* m6 |" d# y$ V1 r* U
BLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

) f! Q3 L: v  c4 @8 D/ U* B TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

% a' ~) L, p+ K; H* J4 D________________________________________________________________
补充:
# U! M$ |1 x& f2 h获得字段的大小用函数datalength
8 R7 ~# z0 T' b6 D' \: H
1 k  I" r4 @' \# q! ~1 d) m+ nSQL Server端要作一点设置:
- g5 ?0 c3 a& d0 X9 [6 T0 t" t* xBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
( G, O1 |1 w% ^8 a; U. R4 PTo use WRITETEXT in its default, nonlogged state,  
//注意!!
2 t) Z+ w$ D7 g. o3 J) Uthe system administrator must use the sp_dboption system stored  
* x2 F: |5 N# ~4 G2 zprocedure to set select into/bulkcopy,  
! p( g$ Z, ], @//
which allows nonlogged data to be inserted.
% D4 X* M" k* u; \
" b# G, Z' u. g4 Z) K/ x做了试验,直接写SQL语句好象不行.
____________________________________________________________________
, U6 b% q# b/ V+ y) s2 ~- v, h+ R; d        一些注意事项和一个例子
在写入时:
  \' T* j; e5 `3 A, o(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
; Z: V* _7 ?: K* H! `" R7 G" M- ^使得TTable(TQuery)是可写的.

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
* e5 f: S& \% }- {/ _6 u" _7 r        dmStoryEditor->qryExec->SQL->Clear();
9 m! D8 p& d1 i' Y( k% o+ ?        dmStoryEditor->qryExec->SQL->Add(strSQL1);
; _+ p4 @# h" L& N. {5 k        dmStoryEditor->qryExec->ExecSQL();
7 Y7 t% b# Y8 h9 A& I) [        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
. P5 r6 }& j- v8 ~% V; O9 Q        LockMemories(NewsScript);
* R' y* a% D1 |9 b% ~% Z        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
6 M9 t/ r! Z5 {; F9 @  ~        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
  G  \# o, T: A   //再将刚插入的记录读出来,使该Query与该条记录关联
  F: R$ K$ _  m        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
5 M+ ?0 r) P: q  A% A( Y            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
) [4 i& `. z% Z                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
: g* R+ l/ a/ A* @1 V8 K            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
+ ]$ X7 t  ]# U, r& Z- Q  @) m+ d            delete pScriptStream;
       }
2 C9 P, F2 y0 P' y/ V8 V       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);