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

韩冰

[摘自 水木清华站]
: \! C1 x: L; l2 F) [
6 C: W& W& [8 {, B/ J' f: y  V, t/ e        
( i6 T( f+ ~# x对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
% ?! M* W1 T/ G0 lBLOB字段的读取：
TBlobSTream* TemplateStream;
  T. k0 A# t6 [( z char* TempPlatePtr;              

, J6 q3 O" a( p, K TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
3 J( j/ v/ Y( q) H1 S
BLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              
  Q# e( R' _2 m2 ~' m& @
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
  h9 ]3 T: a" t; c. _) v2 ]8 Y TemplateStream->Write(TemplatePtr, TemplateStream->Size);

: d- }+ B5 }# ]________________________________________________________________
补充:
( [: B4 e8 g# B获得字段的大小用函数datalength
" j4 ~/ N9 f. |7 \
SQL Server端要作一点设置:
* T2 U* H- E7 jBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
" |$ D% C. Q& L! X/ h( YTo use WRITETEXT in its default, nonlogged state,  
1 V! \" T- f. c+ g( d# Y//注意!!
0 f2 \- e* w0 ?7 d% Lthe system administrator must use the sp_dboption system stored  
: |: X' Y) t  h& eprocedure to set select into/bulkcopy,  
% p4 d- B9 y' ]//
) K. [1 R  n3 q3 G& Gwhich allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
____________________________________________________________________
$ r0 c8 h2 t3 ^, a" f$ `5 a  ?        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
1 E; y) h, `$ Y(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
* [: M; R0 x8 `2 T# J5 V  E
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
. c$ `' J" E% q/ Vscript为一个BLOB字段:
- c5 |) K0 s' i1 h: P* R' W   TBlobStream *pScriptStream;
/ Z7 \$ p4 g: g3 o1 T4 c4 M1 B9 a0 J  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
; a8 \1 B" ^6 R! ?8 E: V        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
) i: ?+ C5 G  i' m0 y        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
; C8 w9 ^5 A( L6 z6 M$ H        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
- [( J: a0 m& n        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
8 c+ U- T/ c2 Z# E/ `4 |        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
# j0 V- ~$ T- \3 C/ U            dmStoryEditor->qryExec->RequestLive=true;
- Y' z) J. }( N, J            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
$ M* T* z  ^/ M, u# a* n5 ^   //将该Query置为可写
/ ~( j- F* r  o9 G            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
; @2 z# A& y/ c/ V! M, M                                        NewsScript.m_lScriptRealSize);
- g- F# n/ r, Z$ f! c            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
4 s1 p1 Z" m' x( j' q, m# k/ e1 O. ~       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);