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

韩冰

[摘自 水木清华站]
- Y" U/ S( y% _9 J" t
        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
5 q3 B5 ?: T! d9 b  q9 TBLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
. r& w. F0 W+ F                        ("SearchTem"),bmReadWrite);
: x. w2 r, \; ? TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
# A! w. N' a5 V
# n/ V) r: x; P6 Z' A7 qBLOB字段的写入：
TBlobSTream* TemplateStream;
* C% E: L; M4 Y: j" w! a char* TempPlatePtr;              
# H6 g4 ]& `9 C0 p( q
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
" ?& g8 t' H1 d. Q. U% ?                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
  ]$ z( I; k; W* g  A5 e: i
________________________________________________________________
. t: W/ P. q( L) [! i0 L9 T6 b补充:
: C9 H, ?1 k7 \2 k- x% S获得字段的大小用函数datalength
( P7 J9 ]( _- m' M( E9 }# ?
- e& }; D6 y9 a, H; r6 PSQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
. M* ]$ [, i- i4 e* atext or image data is not logged when it is written into the database.  
0 Z3 ]; U4 w5 }6 O+ U' ~% zTo use WRITETEXT in its default, nonlogged state,  
//注意!!
' a* P, t' ^9 a5 p6 ^the system administrator must use the sp_dboption system stored  
2 R9 `0 G7 Y; ]6 r+ P3 [procedure to set select into/bulkcopy,  
//
7 f9 K! T0 `8 a6 l3 ]4 \which allows nonlogged data to be inserted.

3 S9 |% p$ t/ ~: i- D: l做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
/ B* W. {" g5 |6 X2 w在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
# [) a# `/ x$ G9 W0 n* l( |6 M, o(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
" K' d; p2 h: ?
& C/ e/ x' p, i6 i  V/ ~, L9 @下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
- B# F& A& g3 e  c1 J: I" }; Q  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
" b3 Z1 P; p# }1 _: P        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
2 {$ d1 m9 B" ?- i( o) j' g" {* e  //整理要写入的Blob数据   
" b" g& @3 Z* h2 Q4 C) `        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
# ~' V3 }- l2 u& B4 y0 ]        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
7 V- r6 X5 {* |+ w        if(NewsScript.m_pScript!=NULL)
, S8 F* Z; n; K. E% q        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
# d8 {; A2 K! W) K8 {7 F                m_szFileID+"'";
: j7 d3 N$ ^' D6 Z$ w   //允许该Query写
# s* G+ R6 J" n' p. X4 e            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
8 \; }9 M. B- {; ]+ c4 h+ |            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
0 a* V+ p$ P; X' n" }% h            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
2 X0 {+ n  s! ]7 f                                qryExec->FieldByName("script"),bmReadWrite);
# f# Y& \. r4 [$ h/ y' C            pScriptStream->Write(NewsScript.m_pScript,  
% l2 _1 j, M& F; K                                        NewsScript.m_lScriptRealSize);
- K$ Y) V( Z1 n2 M8 s% N+ @            dmStoryEditor->qryExec-&gtost();
" Y# U6 E$ D% \" G, n            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);