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

韩冰

[摘自 水木清华站]
( {9 q  c7 `" s' w: \% L6 C4 |
        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
TBlobSTream* TemplateStream;
( z9 {  ?' y; _3 ?  f) H- \2 I( U6 o: m8 w char* TempPlatePtr;              
/ V7 d' x$ |% Y* c8 @! O
; F1 S" \% I5 W) o) o* M# p) m: m/ s TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
9 x" S8 E+ N7 @. Q# I TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
- {# q& p) E, S; ?0 j9 R
BLOB字段的写入：
5 d( _. J" `; V, Z1 C% k( O! ~ TBlobSTream* TemplateStream;
char* TempPlatePtr;              
& W7 x% ?% V6 j/ E# ]
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
3 n0 s" Y* K# X- p5 e3 q6 O                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
补充:
. I- W0 N% R* ^/ V* t8 i3 Z获得字段的大小用函数datalength
5 w" S+ ]# h/ {0 o8 k: q4 F1 |
# R2 p6 K: B; X. l" ESQL Server端要作一点设置:
' }; {8 t( ?9 N$ ]- pBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
6 X& l7 T$ e8 s' Q* X0 d. B. aTo use WRITETEXT in its default, nonlogged state,  
' E* _4 l* T" c$ @! F6 Z  N$ O//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
0 G: D2 E0 l* g6 K4 M# G//
which allows nonlogged data to be inserted.
0 B! h, H9 i+ i. c: u% F3 X
做了试验,直接写SQL语句好象不行.
8 E) ?( L  a0 n, [7 W____________________________________________________________________
        一些注意事项和一个例子
' C( ^9 h3 E& e; p2 h在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
: Q+ B: q# C1 M. v(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
/ B. f0 S5 u+ F! A  ]: N使得TTable(TQuery)是可写的.

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
/ ^+ n* x: W  \script为一个BLOB字段:
# T! m9 e/ S0 X! i3 _   TBlobStream *pScriptStream;
3 R, c- d" R- O2 c3 u0 e0 K1 B' ?  //插入一条记录
5 p0 O3 x& d2 G0 a5 S: G6 W        strSQL1="insert  into  content(file_id,script,key_image) values('";
" O; g2 H( O% Z8 e/ |        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
6 A6 o) ^! `# K& Q* h        dmStoryEditor->qryExec->SQL->Add(strSQL1);
# |% K# w9 r9 H: s  P        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
9 C9 p  A. A3 [6 B        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
5 @* S8 |  |. i6 U# U+ W3 Q. ]4 j        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
3 ^3 h5 U/ f9 \. Q1 ?2 O2 i            dmStoryEditor->qryExec->RequestLive=true;
+ Q$ |4 X& o) D9 `: [% |$ Q7 M% x            dmStoryEditor->qryExec->SQL->Clear();
* j- H: |. g1 V- V0 J            dmStoryEditor->qryExec->SQL->Add(strSQL1);
2 G! L$ p6 p9 H& L8 X' e            dmStoryEditor->qryExec->Open();
: k! H. t! D8 V9 q            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
% Q* L; u. [+ \# c            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
: R0 J. M/ p4 K" ]1 A" O                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
& ~$ h: X! h! t( y( S! W                                        NewsScript.m_lScriptRealSize);
. X# W) r& L- g; [1 B( z* @8 h            dmStoryEditor->qryExec-&gtost();
6 ]7 D! [! ]% \0 E            dmStoryEditor->qryExec->RequestLive=false;
0 H# O1 i' q6 d0 y# ^6 s4 K3 K            delete pScriptStream;
/ l: J3 M3 U0 C- z# ]  Z       }
$ k0 Y" T6 J* o* N  x+ w       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);