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

韩冰

[摘自 水木清华站]

1 |3 O# e4 x) z% p' r$ g        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
+ ^# D+ a! B: H2 ` TBlobSTream* TemplateStream;
  i6 |- P( b$ D" j7 d char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
+ i  @  ~7 F; E# }1 G  X# c TemplatePtr= new char[TemplateStream->Size];
1 z% A9 R9 k! R' g0 b, w TemplateStream->Read(TemplatePtr, TemplateStream->Size);

$ H! q4 R% g, V0 EBLOB字段的写入：
% U, V% T! K3 M9 ^* y TBlobSTream* TemplateStream;
$ Z5 I, C, O1 f; l+ n) V/ A char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
2 [% f# K0 i) |6 y- N) g( w TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
补充:
获得字段的大小用函数datalength
  F& o/ s0 h- ^) Q
SQL Server端要作一点设置:
* ?5 q3 {/ T% }7 L1 RBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
" Y- t2 U% U( x! d( Q: N//注意!!
9 ]3 o: a4 Z) {" kthe system administrator must use the sp_dboption system stored  
8 `6 S& |0 K  y- P% ~procedure to set select into/bulkcopy,  
//
; Z0 `$ J+ w* l6 ^) _3 T4 qwhich allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
' [  c" @( L7 S, f8 R6 S: k2 `) F____________________________________________________________________
        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
, v( C/ ~2 T- P% f: c! t5 I! K使得TTable(TQuery)是可写的.
- e0 i  }' Y$ z
  W  g0 e7 I& u4 o下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
) ?+ ^8 M$ a; ~1 p3 A( H; U2 \  //插入一条记录
) ^0 \" P- o. _3 C. X% {        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
( x- x& d4 o, _  A        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
9 a0 G3 @/ m% D" ^2 h; b: C- a  w        dmStoryEditor->qryExec->ExecSQL();
  C, u2 @, k: S- u9 F; A" Q- l        dmStoryEditor->qryExec->Close();
8 O* I" m9 F7 ~; E' w* q1 `  //整理要写入的Blob数据   
        LockMemories(NewsScript);
0 Z& T! {& w% s1 x( Z' w$ ]        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
' [) m3 L! j' j1 g+ t        if(NewsScript.m_pScript!=NULL)
/ w7 F2 {# @! ]5 V        {
" V. H6 [  e. ~5 P   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
' D! z$ J9 c( D' c3 o# s! M' {                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
3 H. t1 I. G7 h. [, i            dmStoryEditor->qryExec->First();
. O0 n" ~. x& w   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
; t) @% q7 ^+ J- H( C                                qryExec->FieldByName("script"),bmReadWrite);
! ~' c6 a3 B! V& t) {            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
+ q; T* a# |, {4 O) {            dmStoryEditor->qryExec-&gtost();
( _. n- ^8 p; z7 J. c' \$ ~$ }. i            dmStoryEditor->qryExec->RequestLive=false;
. {1 q+ H* x3 n& \8 C            delete pScriptStream;
/ I8 N8 t- Q9 O) d* S1 ?- R       }
       GlobalUnlock(NewsScript.m_hScript);
1 f8 [/ I/ p2 G' C4 h' c4 K       UnLockMemories(NewsScript);