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

韩冰

[摘自 水木清华站]
, |7 i' \& }( S0 f
        
+ u5 U9 `0 m9 V6 W' v对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
8 I2 n% f4 O! k) G/ s& ?BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              
' X& u- Q: R: W% z
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
* X0 n% u1 B+ {. y6 c                        ("SearchTem"),bmReadWrite);
+ Q. y& b# a, `4 q4 N+ E9 N TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
: J; R2 A# ^, k8 \5 R2 w
BLOB字段的写入：
4 R$ z: E. u9 T& P9 j. Q+ c TBlobSTream* TemplateStream;
' ^) h& z* W) I) {8 w char* TempPlatePtr;              

  l8 A9 W8 o7 ?  W# r. ` TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
' G, M7 E8 Z2 Q4 f; _5 J: P                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
( Q$ w& q6 X% w( d3 G, }: T' v% i( S# L
, o$ e' I% {+ y1 V0 |* r________________________________________________________________
4 h) k3 s' X( }  z' G补充:
获得字段的大小用函数datalength

5 c7 ]5 Z, w/ A2 {0 W" H" |SQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
$ c2 C( q9 r8 B* ztext or image data is not logged when it is written into the database.  
- R2 L! R5 e  M( n, y( dTo use WRITETEXT in its default, nonlogged state,  
//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
5 v3 E+ w- N" `* N1 z+ k/ a& Q: G6 Jwhich allows nonlogged data to be inserted.

4 T1 |- ?3 m1 C. ^4 r. k; V: ]做了试验,直接写SQL语句好象不行.
____________________________________________________________________
7 i  ?& M0 E: m2 ^% A) s! J9 H        一些注意事项和一个例子
: [+ O* [! Z: m1 \! `! Y在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
, g; p8 [1 [  g(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
6 b9 {. J. J# ?3 O( f
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
, a: G' o- q& G) K1 Q' Wscript为一个BLOB字段:
4 M* Y$ U7 Z& r) _# M7 c9 L; c   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
* i: `. ^# Z0 e" Q& L2 a2 G+ \        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
, o7 g5 E& M! p8 j) G( m        dmStoryEditor->qryExec->ExecSQL();
+ g# A! z( q" F2 d6 u6 c        dmStoryEditor->qryExec->Close();
9 @/ I7 Q: |- n( T- d  //整理要写入的Blob数据   
        LockMemories(NewsScript);
$ Q  W# t" p' P0 Y5 n6 D. y        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
+ U6 v) e! i; S5 W' e+ T        if(NewsScript.m_pScript!=NULL)
2 {3 g2 c5 C  e/ y7 t/ G7 {; c: Z        {
5 @: x5 m. t$ ]& j   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
2 \( L, W7 |" y0 U5 e# o            dmStoryEditor->qryExec->RequestLive=true;
1 s. s& z" e5 W% m. V( ^            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
" U9 M# G8 l, }: x( q4 Z7 c            dmStoryEditor->qryExec->First();
2 P  |+ ]; v' Q; p   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
( J/ R- y: g8 N9 @( C+ ?' h/ C            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
; |2 X5 G' A+ c% k. }                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
. P5 W; E( M+ \! q) L            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
& x$ V% I8 z0 @7 y" R2 m5 M       }
       GlobalUnlock(NewsScript.m_hScript);
! n2 z% [$ y3 H8 i& D8 d* A       UnLockMemories(NewsScript);