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

韩冰

[摘自 水木清华站]
) m. L+ r2 u: u! k8 {
) @: B2 x$ Y- _. t8 i9 C, V        
: _5 u9 P1 M9 J9 s0 r. h$ r对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
6 v+ W9 p! i9 ?7 ?BLOB字段的读取：
" f0 C6 f6 B( T9 y. _3 c7 \ TBlobSTream* TemplateStream;
char* TempPlatePtr;              

- G! M, M6 t( S2 }1 q TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
' l, Z2 I$ E4 m  y7 Q" [% y8 Q" D2 U: Y& d TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
& x2 P. U- H2 O* ~/ ?) h0 @9 f9 _
: m# y' @' x* l/ q( pBLOB字段的写入：
TBlobSTream* TemplateStream;
# C" k  |% f3 `( q" P! b  I char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
" b/ Q5 m% c1 V2 S8 j TemplateStream->Write(TemplatePtr, TemplateStream->Size);
. J& N/ z' T& c# k6 Z1 p
8 `2 U2 N  s$ ~# X5 b7 T! t________________________________________________________________
% B$ y- \9 p5 m* I补充:
2 L, P; l$ N; z: c, I8 H获得字段的大小用函数datalength

SQL Server端要作一点设置:
, K. e: n5 Y/ WBy default, WRITETEXT is a nonlogged operation. This means that  
) ^; b( H, C, d0 d) o9 h+ Ntext 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,  
//
which allows nonlogged data to be inserted.

- ?: W& T3 W9 V$ G0 O! [做了试验,直接写SQL语句好象不行.
8 F0 t# i; M/ e/ z  t____________________________________________________________________
$ n6 }* n# p2 c& [1 f        一些注意事项和一个例子
( L- O0 B* y- B7 H( a在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
3 U: `$ }5 }( b  g% a使得TTable(TQuery)是可写的.
/ S( r+ w4 D; \5 m5 _, ~+ u
- ~0 `3 `, h5 k0 T下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
9 z- ~8 {  N8 |, N   TBlobStream *pScriptStream;
* L0 U( h5 m- p+ X  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
6 H- d9 W* O$ Z' v4 r* x! C        dmStoryEditor->qryExec->SQL->Clear();
8 P! F3 g4 `- S# C8 t        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
2 i( o( t* W0 e# m! ~" E  D+ n2 q        LockMemories(NewsScript);
( I! ~7 f$ Z6 ]7 W) W7 r        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
' ~" l/ r' b7 |- T8 [1 L   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
6 d$ I% d3 R  Q% W% H) T   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
4 J8 H, b; a! m2 @5 m4 \4 Q6 j            dmStoryEditor->qryExec->Open();
& W' {2 E  o" I5 D/ y' @            dmStoryEditor->qryExec->First();
# J3 U) ]2 d( A# u% w* O1 }   //将该Query置为可写
" N  H, K/ B- m            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
5 s3 S: O7 `( M3 A+ L                                qryExec->FieldByName("script"),bmReadWrite);
* D$ z- A4 ]$ b            pScriptStream->Write(NewsScript.m_pScript,  
4 R  O+ P% R/ |* s5 n% q                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
( b: [+ F- C) u" S3 K0 B& W% ^) N3 @" S            delete pScriptStream;
. ?% q: P, D9 G$ O       }
       GlobalUnlock(NewsScript.m_hScript);
' p8 j. |6 \, Y5 l9 m       UnLockMemories(NewsScript);