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

韩冰

[摘自 水木清华站]
3 \. B, g. a- E2 Z$ S1 L7 E( S, n2 Q
* J9 ]- v# \+ W# a$ U        
1 k+ {7 f* p* k7 V; p( t6 m对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
5 ~0 q& I6 t5 g5 e2 L( v% P% Q+ ?9 MBLOB字段的读取：
  i# ?: i* B5 ^. m0 o TBlobSTream* TemplateStream;
1 [. O7 F3 g- k' U3 S% D" N char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
4 d( t% `- g: j' c) Z TemplateStream->Read(TemplatePtr, TemplateStream->Size);
0 L5 t4 U  E; }: G1 q. m# C
BLOB字段的写入：
  y8 o* g5 {9 F+ Y& \1 S TBlobSTream* TemplateStream;
char* TempPlatePtr;              

+ @& m3 n$ b0 t2 \0 E4 U TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
+ s4 H4 o) h- N  k+ W- n5 }# z& \ TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
- s; }6 K$ l) m' k$ S, G
________________________________________________________________
补充:
获得字段的大小用函数datalength

SQL Server端要作一点设置:
* N! x0 V1 E% ZBy default, WRITETEXT is a nonlogged operation. This means that  
; t0 x3 i6 C- r* O. P" ?2 {7 U& ztext 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,  
7 h' V" X7 B7 d& e) A5 q//
which allows nonlogged data to be inserted.
: Z" b) A( r4 R4 k) Q
$ w' H7 a5 \5 W) u" p8 o. h/ Z6 k做了试验,直接写SQL语句好象不行.
____________________________________________________________________
3 Y* H1 \; F* U7 T        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.

) f5 t/ c0 I) z( n+ b下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
" w2 n5 |+ G' q9 t; L9 s$ K. j  //插入一条记录
2 _' c0 B' v! N' G. J        strSQL1="insert  into  content(file_id,script,key_image) values('";
, D& R( _, F; O* o: }4 o+ B        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
8 R! T- z* ^- q7 `0 p6 R        dmStoryEditor->qryExec->SQL->Add(strSQL1);
: T# f0 M' U& Y. v        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
3 E5 C: q& v8 D" h+ b! }- Y        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
8 R% `8 T: z/ h        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
: x3 _' s  ^% v$ ?* O1 S: @   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
! J# u5 C  Z4 i( i# Z7 Q' V   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
. u$ e0 _" ?5 G" W            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
   //将该Query置为可写
5 Y1 l. z' a0 J7 D3 o            dmStoryEditor->qryExec->Edit();
0 x7 V2 P6 l9 ]            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
/ T" _2 J9 k  N. b" y: c6 Z  ?; ]                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
: `, p4 K0 D8 p7 ~% R- S( l5 y5 A- h                                        NewsScript.m_lScriptRealSize);
) `( [/ \. [2 |. ]5 [            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
) {  E) }& d# M            delete pScriptStream;
       }
& ^) l( _( J  x8 E+ K9 ?; E  Y       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);