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

韩冰

[摘自 水木清华站]
* y/ Q0 f  y# |% v2 O- W$ N
$ [" m# {& m: w        
. @; j, N$ p* H# a6 U0 R3 ^对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
1 U9 _* k5 E$ b$ A) b* Y TBlobSTream* TemplateStream;
char* TempPlatePtr;              
: n# F5 p& U- Q8 j
; Y, c$ i9 K' ^# J0 }7 e TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
5 J8 S5 ~4 |# d3 k7 h  ^8 C* e/ F TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);

& W  ]0 _, T* e1 l; ?) @) CBLOB字段的写入：
1 u- @# b6 g+ x4 R, b8 X TBlobSTream* TemplateStream;
0 t& y0 Y& q5 [+ g8 w2 D- n char* TempPlatePtr;              
. A, L+ B' ?- `) O
' W- g$ M3 a( y" B TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
* j7 O& E: o- P2 x; Z5 u# S- y补充:
获得字段的大小用函数datalength
  s/ ^4 D, p4 N% q$ M, b& T
SQL Server端要作一点设置:
2 d6 O8 f2 q# _By default, WRITETEXT is a nonlogged operation. This means that  
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,  
3 {. B  ^* _6 z6 j" j//
which allows nonlogged data to be inserted.

7 @& g& K, d& s8 w做了试验,直接写SQL语句好象不行.
____________________________________________________________________
1 P1 y2 \$ G& ?; F        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
2 `( B- S$ v7 J/ z$ a- X使得TTable(TQuery)是可写的.
0 Z7 I8 n( @# V' F6 q
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
) `* ]' E2 T4 A7 pscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
7 l$ u' U" @+ U8 P1 s        strSQL1="insert  into  content(file_id,script,key_image) values('";
. H- n0 P2 b2 Z        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
( _0 o/ y# d5 A  ~+ K5 M1 J        dmStoryEditor->qryExec->SQL->Add(strSQL1);
2 j& G. I& C- n. k        dmStoryEditor->qryExec->ExecSQL();
  w" A- g, F$ G. S5 g, ?* w4 Y2 z. t        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
' n7 o0 ^8 g. r        LockMemories(NewsScript);
! X8 G) n( X2 t5 h7 n/ e: k        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
: n2 T" H% e$ D7 @% Y        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
" }' a- p# R+ q" O7 V- D' @        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
/ j* ^' P3 N$ b' {        strSQL1="select  file_id,script  from  content  where  file_id='"+
, q+ b7 a# ~9 f6 E                m_szFileID+"'";
5 j" d% Y% y$ n* P* j- \( m2 Z   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
/ J+ _1 P3 v% ?( S9 Y6 n            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
* j5 j7 y+ M( Z0 l   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
; o- _+ a& K* l* t" A4 R5 z7 o            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
" b0 S; m. [: W' B6 ~                                qryExec->FieldByName("script"),bmReadWrite);
$ M5 o: j, q; i8 A            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
$ c5 G! y+ s1 _0 x9 P            dmStoryEditor->qryExec->RequestLive=false;
! C0 Q: d8 r" G+ [            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);