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

韩冰

[摘自 水木清华站]

  Q- \3 }4 Y. Z$ J        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
3 H2 D7 i: Z, Z9 |BLOB字段的读取：
TBlobSTream* TemplateStream;
4 ^8 y. m' ^6 T* \ char* TempPlatePtr;              
% Z- T% d2 n  [6 K& O% ~8 `# o. y
0 @' o6 I. \- b  Q3 _; i TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
+ e; a7 R0 X; ~! A: D7 h                        ("SearchTem"),bmReadWrite);
2 K- s% H# N  L6 Z& ~2 b TemplatePtr= new char[TemplateStream->Size];
) t/ L4 o& t; O" x2 P4 j TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
3 d5 X' y0 {- E* }& W char* TempPlatePtr;              
5 ?3 V, T8 E. X( n1 W5 r
" s, W' V/ ^- H6 B7 u' u; K TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
4 @/ Y; w- H" |1 t# B                        ("SearchTem"),bmReadWrite);
  G% Z5 W& e2 P( x TemplatePtr= new char[TemplateStream->Size];
5 V# I: U- O( W9 U! R TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
7 [, _4 r* [4 `  J补充:
获得字段的大小用函数datalength
5 M5 U# ^2 o5 ~1 K9 P1 K0 g* N
SQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
8 L* U- J# b7 u" W8 x8 otext or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
7 L" f3 V1 W% |5 _//注意!!
+ k# T  _! e! r# a8 D+ I$ hthe system administrator must use the sp_dboption system stored  
. `1 {* K' b1 S' a) R# `8 tprocedure to set select into/bulkcopy,  
1 K: _! K" `, a' h9 s" U  O) U//
which allows nonlogged data to be inserted.
/ K9 f; S$ ^: x' `1 y' ^
做了试验,直接写SQL语句好象不行.
____________________________________________________________________
) t1 K; w5 n' ]+ `% D4 d5 w        一些注意事项和一个例子
# s* D! J6 [9 R8 B  u* a在写入时:
9 Q$ q; W& N- o+ f5 g4 @(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
6 [! y7 T3 n% [(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
3 Q  X: L$ j- G# V
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
% y$ @! `# C( o" Y( z8 {5 ^script为一个BLOB字段:
5 c6 w7 {9 a  g, X4 U7 V* }' V   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
% \/ j& q8 Y7 O        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
: V' }) k7 n3 @$ I* S/ h! K% [  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
8 U, |4 D! J% U+ g4 Q  o        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
) O. ?: c# g7 k* n: v6 M# o- [& l        if(NewsScript.m_pScript!=NULL)
0 r1 `- ?8 H8 `( S( h        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
. N- b4 y7 F$ s; m( V3 M9 I        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
8 c2 v( s4 U' @. Q            dmStoryEditor->qryExec->RequestLive=true;
. G6 C/ x2 Y* J% Y* v            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
7 x2 [/ t! J; d1 D5 S! f+ ~            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
" m& p  ], J, B0 u) ^& R; r4 O   //将该Query置为可写
! a! Q- X6 {/ j            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
" N& [  m7 C0 i                                qryExec->FieldByName("script"),bmReadWrite);
5 i( Q4 i" c1 ^# D- Y$ r8 \            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
6 h# s3 E4 f$ r, K6 C            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
9 y- E/ u, u1 u       }
0 a6 j* l- u  E       GlobalUnlock(NewsScript.m_hScript);
# Z7 \# n/ _( d  I       UnLockMemories(NewsScript);