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

韩冰

[摘自 水木清华站]
0 ^8 o4 d/ K; T. G
4 c% ^/ d% ]( M& F# d1 P        
5 P+ d$ k: c$ t! ?6 U/ f6 q. o对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
$ A; q$ j1 E. m; ` TBlobSTream* TemplateStream;
6 `) M$ S2 e4 u5 o6 J  q char* TempPlatePtr;              
% e3 P' [) i  @, Q. ]8 \
% G+ N: ^, J, H- I( Z) W TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
; K& o. d/ E8 f/ U- u& {6 }2 E                        ("SearchTem"),bmReadWrite);
; o5 P! x3 [. c' m. @2 U8 N TemplatePtr= new char[TemplateStream->Size];
3 _/ ?* Q) I; f" |) r( n' d TemplateStream->Read(TemplatePtr, TemplateStream->Size);
2 O3 w- ^' L( d4 \9 [2 L6 E0 S
BLOB字段的写入：
; y7 C, |4 B# u6 }: G; n6 Q( S0 z1 N- g TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
' E: t+ C' T3 s" U0 S& Q0 h2 T2 y                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
! ^$ Q9 D1 E1 ^ TemplateStream->Write(TemplatePtr, TemplateStream->Size);

. d/ I4 S7 A: h9 d________________________________________________________________
补充:
: z$ a& A5 b. m" Y8 ^获得字段的大小用函数datalength

3 z  p# {$ w6 [. z6 t1 iSQL Server端要作一点设置:
' Q9 |! j) ]' s; Q2 VBy default, WRITETEXT is a nonlogged operation. This means that  
  y% S% ~/ u8 w+ w5 f" ytext 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  
procedure to set select into/bulkcopy,  
5 ^4 T% y9 p9 Q- v% u( J//
' q% ~( c( l) y$ P; U- Owhich allows nonlogged data to be inserted.
. p( i0 j) \. M# E  _
9 J7 R4 n- Y1 C8 w/ ]8 Y8 n% x& K做了试验,直接写SQL语句好象不行.
____________________________________________________________________
# R, t% F* T& Q1 t" l/ K        一些注意事项和一个例子
在写入时:
) X! O. X( R) w(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
- L9 y% t8 y( l/ v- r+ \! _9 Q(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
8 Q9 s5 ?+ f5 g* S4 u" i0 f   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
7 _: V5 \  j- A9 d& a/ d/ K        dmStoryEditor->qryExec->SQL->Clear();
  k+ a9 T' g' Z! i        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
/ Q+ E. D0 n) I& L        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
# l: K9 ]7 o0 [        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
6 r! ^7 Z7 L- f4 K        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
% s! u: g+ t7 q7 X9 w+ w  o3 `, T        if(NewsScript.m_pScript!=NULL)
        {
/ @" l* P; ~3 F# Q1 l9 N* I   //再将刚插入的记录读出来,使该Query与该条记录关联
0 g- u. Q! n: q1 m" \1 s, N- u$ o2 l4 N        strSQL1="select  file_id,script  from  content  where  file_id='"+
1 s1 H; m- g7 @* c; }: W5 A                m_szFileID+"'";
' G, }* A# u# Z- B& w5 F" `9 T   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
& C; `# f3 q7 \6 w$ T- o            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
5 z5 ~9 _; S* A9 e# T% M* _            dmStoryEditor->qryExec->First();
1 _) e% ~; k( d# t   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
" D  l$ c6 r2 m1 Z3 g! h7 D- p            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
& _# `/ K6 g2 E                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
9 H! ^( t. T) m) p) m       }
# ~8 A- W5 G7 Q0 Z, |1 z: d       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);