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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              
0 \. Y) b# {! n, Q  K) u
2 U0 V9 O6 {+ J8 s" @8 e& B: f TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
6 s  w5 A* H5 y" `: q TemplatePtr= new char[TemplateStream->Size];
& Q* |: e  K9 F- u2 E TemplateStream->Read(TemplatePtr, TemplateStream->Size);

+ T  |  I" ^: V& @, p( @( P# r+ CBLOB字段的写入：
9 J. ?) Q2 V/ a9 ?9 K& z  \ TBlobSTream* TemplateStream;
# l8 f- C- S. h6 J  Z' \. `' t- Z char* TempPlatePtr;              
! B: N2 y/ v" Z* x( r
) s3 d' H1 }, }. A TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
- w0 ?6 G) k8 p/ K. h4 G/ C TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
& U3 e7 I2 M6 f
- x, \3 J+ Z6 B. `: Y6 _4 X& h% f& c________________________________________________________________
补充:
( c: U" _8 A/ s6 f1 h. D获得字段的大小用函数datalength

SQL Server端要作一点设置:
3 ]+ f% C$ y9 g* e# K& fBy default, WRITETEXT is a nonlogged operation. This means that  
% B* t9 L/ a, C) Mtext or image data is not logged when it is written into the database.  
9 N1 K, @+ f  F6 HTo use WRITETEXT in its default, nonlogged state,  
- z3 C* z/ q& B% {" c8 U/ `//注意!!
" \. T! Z% u' E* F, ythe system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
which allows nonlogged data to be inserted.

/ a% j+ G0 ~% ~+ |9 Q: c1 Y做了试验,直接写SQL语句好象不行.
8 Q/ }2 i2 _0 w" M( h  H; x. V  s4 s____________________________________________________________________
        一些注意事项和一个例子
在写入时:
8 U% C% v' d* C3 e6 N# O3 `(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
1 N8 z! O, L  j# B6 Y4 J, R
" j( n) q/ I8 b6 k下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
( c' h% R. O8 j- ?$ @; ?' I. n8 n1 {   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);
! l0 K% L. j, t  F6 ~        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
. L. g# ^! s0 S4 @7 D  //整理要写入的Blob数据   
        LockMemories(NewsScript);
9 b/ b/ e9 a) a        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
0 G% t, t3 i, e# {+ X( H        if(NewsScript.m_pScript!=NULL)
% ~# B# \) `, O0 Q        {
# }1 ]6 q) X% H* v   //再将刚插入的记录读出来,使该Query与该条记录关联
3 B* L8 R9 P! y0 o0 S        strSQL1="select  file_id,script  from  content  where  file_id='"+
% Y9 ^* k' D4 p# ?; n                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
  Z( e( [5 g% t7 s            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
+ D9 H* j" _( m            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
; R6 a8 ?+ F( b% s( a- S            dmStoryEditor->qryExec-&gtost();
2 o9 x  ]5 e; E8 q; f' P( g            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);