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

韩冰

[摘自 水木清华站]

% \, Q4 G- Y+ N$ Z( U+ @9 e" z4 a) b        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
5 E) x0 N- @- p% y$ `BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              
" a7 @# D( P+ P1 a- V
' g6 e9 z3 y/ P' p4 \3 B, K TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
( U2 n  C2 @5 x# P7 v TemplatePtr= new char[TemplateStream->Size];
5 d" Z4 n+ Y6 s2 P7 k  m: o# u TemplateStream->Read(TemplatePtr, TemplateStream->Size);
9 ]8 s! S* M: z  ]% V& f. U
1 a% I* j$ s% w8 @BLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
) d$ x5 w1 \3 W$ P9 A                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
) a# x" n8 V1 B5 J! G TemplateStream->Write(TemplatePtr, TemplateStream->Size);
% q# w- y- f6 m- S& v
1 i* Y+ x$ ^( E- {, }" S8 e8 I, m- h  ?________________________________________________________________
补充:
获得字段的大小用函数datalength

# J8 @) h' N( \" p# {SQL Server端要作一点设置:
; {& k! r6 X7 C6 g( o  B0 \, |1 l& BBy default, WRITETEXT is a nonlogged operation. This means that  
, T$ ^* Q5 Z+ B4 m% gtext or image data is not logged when it is written into the database.  
2 `9 g! G  K; V3 _4 A2 F$ QTo use WRITETEXT in its default, nonlogged state,  
1 h2 b7 U9 W; c0 s5 x//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
( N" S( S' X* |% ]- y9 G( a( W0 }//
which allows nonlogged data to be inserted.
/ E5 H7 f  H3 x# @9 T( m# y2 o
做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
8 q+ j6 c. @" H在写入时:
2 A* x- e* t- J; [* l$ F# q% J(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
: x* i. s3 e( o) v(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
+ L/ E; {) l# c% L. ^) f使得TTable(TQuery)是可写的.
& M( d3 [# g9 j: l  D% D
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
; K3 ]$ V( i* O: j( cscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
  g. I( g* V# K1 Q& Q- L        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
" ~- c5 p* c  B; {8 u! H        dmStoryEditor->qryExec->ExecSQL();
" @; k8 ?& T% y8 E7 e        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
$ |8 E3 I5 X# ]        LockMemories(NewsScript);
$ O$ e, Q, g1 `7 Y6 |1 P7 |8 |2 Q        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
: b6 R: m+ |, W        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
- L3 v; R5 M# \- Z; [4 s        if(NewsScript.m_pScript!=NULL)
        {
) T( C" U. I! [7 m" J* r   //再将刚插入的记录读出来,使该Query与该条记录关联
2 \0 y+ g+ l% Z4 Y        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
0 B1 \+ A0 ]9 T- d% m   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
1 P; W. W! v, a- x) v            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
/ ?$ s% m# s& @- u2 {, O            dmStoryEditor->qryExec->First();
   //将该Query置为可写
' ]% t) W/ Q8 W' J6 y' i  n            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
7 g' E7 o0 k4 T: l9 m                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
1 u6 B5 K6 \8 J) a, @/ ~! `  E                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
$ j+ Z; v+ f) ^            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
5 f3 J9 s. X" C6 P7 ?       GlobalUnlock(NewsScript.m_hScript);
' {2 {# }9 P4 r/ f  D/ N, p. k       UnLockMemories(NewsScript);