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

韩冰

[摘自 水木清华站]
0 I: @; B! D- \8 b( Y; T& L
7 K4 u, X+ g3 d        
- S  E4 F3 i4 u3 _8 r. A对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
( U- R# G* ]6 Z TBlobSTream* TemplateStream;
. f0 y5 \$ }& F6 q1 ^ char* TempPlatePtr;              
. z: c: m  `* [( D9 _3 A
( N; P# A2 N0 Y, @3 q' W! S* b TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
8 U6 \5 M9 k9 [- h, B# `. u# z TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
/ A8 x# l2 I/ K# u2 l$ h
7 d8 ~, c6 C- s: ], o0 t& Z: gBLOB字段的写入：
) k  F8 A% e' b) r! M: [: c( A TBlobSTream* TemplateStream;
2 {, Y# ~: L% R char* TempPlatePtr;              
# \( p8 r5 v) P
# j$ \0 f3 Q4 ^5 z8 f$ C# ?; x TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
) X: I" J% u2 v3 f$ g# j$ v0 U- ^                        ("SearchTem"),bmReadWrite);
  _1 d5 t! s" n' P TemplatePtr= new char[TemplateStream->Size];
& J3 F" p# X( E5 E) w6 F TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
补充:
获得字段的大小用函数datalength

1 V* e5 x  |' i9 k+ D3 E$ C6 QSQL Server端要作一点设置:
3 M5 u+ s# }  }9 s$ a+ |* MBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
//注意!!
, C8 v& ~: S% t% O5 T' b8 Cthe system administrator must use the sp_dboption system stored  
' {; S8 `% A4 v, \: U$ oprocedure to set select into/bulkcopy,  
//
which allows nonlogged data to be inserted.

) H% F2 r+ ~- w: H8 G4 a( K) F做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
" F1 t: c0 ~/ {% @
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
& @* U; z. p) l) Tscript为一个BLOB字段:
) j$ R0 W! Q! B0 Y! J: \   TBlobStream *pScriptStream;
) z* j1 R1 B1 b5 ~9 |- }  //插入一条记录
& u; W5 T' }" ^/ P        strSQL1="insert  into  content(file_id,script,key_image) values('";
$ H6 L( Y$ Q# s* S3 v4 `        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
$ J2 M, \  @1 a1 L# N1 \! W        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
) {0 L) x' g" P! D9 M9 @   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
5 I' L+ D. K6 a   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
( Y& u( u9 C, z$ M$ ^0 N! f- H" `1 d            dmStoryEditor->qryExec->Open();
7 S! m: A4 V* p0 {' s            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
" F" l: \4 O2 }. g5 v7 p1 }                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
: `( [  v; ~2 H2 N2 v7 }                                        NewsScript.m_lScriptRealSize);
: P. j" S3 }3 f" S3 x            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
5 K  g6 a, w7 X& d5 d- v" L            delete pScriptStream;
) F. {! O# Z. @- Z4 L4 O+ ]+ a       }
, i% ?3 u) B3 U/ V* f       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);