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

韩冰

[摘自 水木清华站]
2 c3 ^- o2 j" O% U; c) b  O
        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
) c9 v" L2 @9 Y: j# j$ Z6 B TBlobSTream* TemplateStream;
1 z: H4 Q. m, j# j/ r& O- Q char* TempPlatePtr;              
9 N- T* l) |& y4 E) N+ W
5 m! v3 P0 J7 ^; v/ _% E TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
2 r# `. x* Q, {$ i3 A% a8 n                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
5 a% d# Z) e( Z! j TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
- I7 j! i* i) M$ q. M0 n TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

+ q) B. n% z5 ?% n6 b& W- B________________________________________________________________
补充:
, {6 V& a2 R- j获得字段的大小用函数datalength

, H, l5 u8 ~; cSQL Server端要作一点设置:
# b# B* R) o6 L0 nBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
2 w4 N  V! x. [; f" R$ Z* `, }To use WRITETEXT in its default, nonlogged state,  
//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
) Z- W2 ?- R( d! Z- jwhich allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
____________________________________________________________________
# `. R) n1 @& a. y0 T        一些注意事项和一个例子
' I* E2 K/ W- e$ U$ F, R+ U8 w在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
5 V: B  S1 g) G, r(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
' d" p4 y; [" a* O使得TTable(TQuery)是可写的.

8 [. U/ z4 |( B9 q0 h* {* B下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
* }! V# l8 |& _( N7 E1 U   TBlobStream *pScriptStream;
5 O" N/ t: H. K  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
5 E3 x/ j1 @3 G1 M3 d+ @/ v        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
# x9 Z1 M8 f4 }6 j6 Q' D        dmStoryEditor->qryExec->Close();
5 b; W2 C3 H4 _  //整理要写入的Blob数据   
0 U) g% I# {# w        LockMemories(NewsScript);
1 p8 F. i; s" @        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
& S6 l' }4 |5 }4 V        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
. M' F0 D( c7 f   //允许该Query写
, B2 @, I2 e! p9 o            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
. v0 s8 Y, O+ i5 F* y" v! R            dmStoryEditor->qryExec->SQL->Add(strSQL1);
" p8 @. L8 a7 i! m1 ?! A3 f            dmStoryEditor->qryExec->Open();
8 }, s! \- K$ f) e$ U0 w( T. R            dmStoryEditor->qryExec->First();
) b3 N( x4 U0 F) [) Y. |   //将该Query置为可写
# r& _$ R& g9 h. d0 W1 t4 Z            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
9 v* s  Y7 P: P; w* R5 P& e            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
, \+ ^. x2 S1 {" ~( u       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);