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

韩冰

[摘自 水木清华站]

& P) I5 h3 ^; F6 y. Y        
3 x9 U- e, x# N对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
6 e: @& F4 p6 q4 M- iBLOB字段的读取：
3 K) C3 B) ?% U9 O* t# ^ TBlobSTream* TemplateStream;
char* TempPlatePtr;              

( A/ g, Q0 Q4 |" ?( Z6 Y TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
$ I: c3 F( B# l                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);

BLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              
$ I  Y7 g, i+ N' f' p
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
- l  u" U/ l0 c+ y3 j  B5 X                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
, t8 W. L1 \8 w0 c4 `8 ]& r7 [
________________________________________________________________
补充:
获得字段的大小用函数datalength
% B/ ~; Q: r( _/ |1 g4 t2 x  L% L2 r
SQL Server端要作一点设置:
& r& j0 s+ _' y: u: i. bBy default, WRITETEXT is a nonlogged operation. This means that  
1 K" v& f3 H3 P$ _, p8 ^4 ptext or image data is not logged when it is written into the database.  
4 C5 P9 |: F; C$ w+ t" DTo use WRITETEXT in its default, nonlogged state,  
$ N- b- s" a2 s# v9 ]! E2 w//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
( V, X& D* y8 [6 [//
0 s9 n( Q7 T1 [) b8 ^" Wwhich allows nonlogged data to be inserted.
; P, T( Q; {" @
做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
+ w+ ~0 u7 V6 t7 g& B+ D1 N6 c
下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
: R+ B6 j; r# N& i8 |! k% Escript为一个BLOB字段:
& K" o3 w3 N5 t1 B& _% \1 W4 N   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
% p/ h; \! f$ C* I0 d" J        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
; }" ]2 @1 b9 f) M6 _        dmStoryEditor->qryExec->SQL->Add(strSQL1);
7 M$ Z, _! b( R& h8 W        dmStoryEditor->qryExec->ExecSQL();
7 I0 n2 j1 c$ o5 T2 i4 e        dmStoryEditor->qryExec->Close();
# a' M9 |3 e. s, i$ n% E6 l  //整理要写入的Blob数据   
        LockMemories(NewsScript);
& O4 K' o* d5 C+ H; d6 B        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
0 D2 Z% c1 r+ _6 @: G* n: K        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
, k; E2 ^8 v7 z7 e            dmStoryEditor->qryExec->SQL->Add(strSQL1);
1 v; [8 z0 {$ Q3 P( m            dmStoryEditor->qryExec->Open();
7 ^; y& j& a7 L            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
/ T3 D* K3 F' e, x8 R2 X                                qryExec->FieldByName("script"),bmReadWrite);
" x1 f8 v, \; H4 d6 A, Z6 g( A" Z            pScriptStream->Write(NewsScript.m_pScript,  
2 l, t# @' z) i1 u# x; d                                        NewsScript.m_lScriptRealSize);
# u9 O7 a  L& z. ^, E            dmStoryEditor->qryExec-&gtost();
& |" o( w6 F, P) ^1 p            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
/ O/ @' |% J2 F/ _3 b$ u0 a1 K       UnLockMemories(NewsScript);