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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
# n, U  J; }9 y9 |. A TBlobSTream* TemplateStream;
5 n' h8 c' q2 A- ~1 b char* TempPlatePtr;              
2 A7 n' ^6 k$ l
3 a, x. ]  l9 F! H$ Z% x  ^ TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
$ b8 r; \1 O0 x6 `/ G% n! p9 w( A                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
% h/ G  H- I7 q5 s3 c0 Y: V TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
8 p8 d  w: G7 w  ]/ w char* TempPlatePtr;              
+ M/ o4 M# f: L/ G: A3 k! m+ {
4 Y. J# O/ v$ k$ Q' {, ^7 M TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
! C$ A1 K0 N: w4 R2 K& [                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
% a# w2 r; n3 p' j% q! Q) K TemplateStream->Write(TemplatePtr, TemplateStream->Size);

* f  r" @  m' ~0 `0 A5 _' h1 ~________________________________________________________________
0 y# n, d8 [3 v- |. j3 t, A3 l补充:
9 h* U) \2 m9 ?获得字段的大小用函数datalength

SQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
; `$ ]3 B# V) i1 \text 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,  
//
which allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
____________________________________________________________________
+ Y8 {: C( m) ~' _1 q3 @        一些注意事项和一个例子
. ?; Q1 J9 t7 w4 S0 O/ c) F在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
6 Z0 W7 i" M4 B. q(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
: O' j" I1 i" Q0 M- O4 t
; D. d6 r/ [& F, g% \3 ^0 ~: ?下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
; o6 Y# }$ u2 E& a   TBlobStream *pScriptStream;
  //插入一条记录
        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);
$ A: Z. h# C& M9 Q. F! t        dmStoryEditor->qryExec->ExecSQL();
! }. T9 J: V# O" a& W- A3 z        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
2 c. I1 f" J% L1 Y! ~. q        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
' e5 [* `6 H5 N- F        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
1 z" B. y# l$ g  W9 y+ ]! q        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
, C+ A  r4 N, j: F7 p# @/ C7 q4 V        strSQL1="select  file_id,script  from  content  where  file_id='"+
; O4 \' g1 D& f2 R4 B' ~; R9 t1 Y                m_szFileID+"'";
- J2 v& ?/ a- Z: s, O   //允许该Query写
" r( r! j# s  G            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
3 |4 F$ B* I- ]- j& u% |$ }% C/ ?2 I            dmStoryEditor->qryExec->SQL->Add(strSQL1);
& I2 c& L1 T8 j$ o) H0 y; B, |: ~            dmStoryEditor->qryExec->Open();
- y& q7 Q, k6 g            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
  B9 r# ]; b& S5 D" E* C- h- M                                qryExec->FieldByName("script"),bmReadWrite);
( m4 w4 x+ w3 u3 f2 T  t0 B            pScriptStream->Write(NewsScript.m_pScript,  
& l! V6 L5 z% T3 g2 e8 x; Q( s% S                                        NewsScript.m_lScriptRealSize);
- u' A+ V% e0 }9 r            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
3 J6 ^5 ]: ]8 h) c& i# J, n8 C% X       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);