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

韩冰

[摘自 水木清华站]
& Z; F; ^' E/ k# Q9 I- B; W
        
: [0 }4 ^' K8 h" [5 Q: H$ d; }对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
& c( y. p8 A& n+ f# b6 v. o' R7 M  xBLOB字段的读取：
TBlobSTream* TemplateStream;
1 ~5 V+ _# t+ m( r% L char* TempPlatePtr;              

$ l5 e3 Y0 ^0 @' T# S9 ~ TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
" ~8 h% ?( Q' L2 u# q                        ("SearchTem"),bmReadWrite);
$ l0 P1 M; |* h4 E8 @. n TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
' t6 S# c' q) ^: M char* TempPlatePtr;              

9 N  v- f, U5 u) |" j' J- [ TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
4 m' {) a% v1 H8 _                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

" _8 a, ~) F( M6 T) o________________________________________________________________
补充:
& E, n1 H; h9 i( j* M1 d& m获得字段的大小用函数datalength

SQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
; n8 w2 l9 _% r: f4 r! ETo use WRITETEXT in its default, nonlogged state,  
//注意!!
8 y) x; U8 [% Q* w2 K0 mthe system administrator must use the sp_dboption system stored  
- `5 |" p; D. t& A2 dprocedure to set select into/bulkcopy,  
//
, t- Q* n3 R- `& }& x! Owhich allows nonlogged data to be inserted.

& F0 F8 z1 C# o3 y( E1 _1 a做了试验,直接写SQL语句好象不行.
# u7 o- E. E! Q____________________________________________________________________
        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
) e% l! [, K- m7 g
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
7 {0 N2 R' V( n- f4 }+ |8 ^script为一个BLOB字段:
   TBlobStream *pScriptStream;
$ @+ q$ K  w' K# b" d/ m  //插入一条记录
0 t& T" d$ @. M/ a        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
! D+ Y8 V& c! {( f' a1 c        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
" K7 y) K0 B) u" r8 p" m  `        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
5 u4 _) j+ Y6 u& d" R6 z' j                m_szFileID+"'";
   //允许该Query写
+ _$ A: [) P9 [* Q$ F            dmStoryEditor->qryExec->RequestLive=true;
1 |: G1 _5 p% u            dmStoryEditor->qryExec->SQL->Clear();
5 J/ D4 u- h, \" W            dmStoryEditor->qryExec->SQL->Add(strSQL1);
! ^# B- G. n, R- m  y$ b            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
   //将该Query置为可写
+ f! d( D0 Y: y4 v' X            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
- ?! Q) m1 s$ q% C9 C% I' o                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
; R2 i2 ?$ I/ G0 a# Q7 {            delete pScriptStream;
8 V% N" ?' z- C' y7 L6 ]9 n       }
5 p* J1 ]0 v0 B5 w: Y3 r& K( [# t       GlobalUnlock(NewsScript.m_hScript);
. Q2 u8 x9 V+ D1 ]8 t9 i- y7 l       UnLockMemories(NewsScript);