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

韩冰

[摘自 水木清华站]

        
  v- i) o: X& K) z对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
0 i6 m! E( @; Q6 F7 B  m$ [BLOB字段的读取：
4 w( n4 ]  Z$ _+ y8 G5 M% k& h TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
! \! W  S! E- }4 P3 U; `                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
& U$ e2 D5 z! i/ z) i
, ], G/ H6 N" u& Z5 |  WBLOB字段的写入：
TBlobSTream* TemplateStream;
: v+ S2 n1 T1 ] char* TempPlatePtr;              

% N- n$ V; W, n( Z  w; f- Q TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
4 M% c8 f3 C: z! O TemplateStream->Write(TemplatePtr, TemplateStream->Size);

; |$ v& O; ?$ i7 e5 D/ K- ^________________________________________________________________
. a% U5 y+ z" Z$ ~5 W补充:
获得字段的大小用函数datalength

SQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
! z3 j; L* ]0 s1 n) l) |* r% s4 n. |text or image data is not logged when it is written into the database.  
1 }. s* K+ T* U2 ^To use WRITETEXT in its default, nonlogged state,  
, z; c; \! L# @& X2 L//注意!!
the system administrator must use the sp_dboption system stored  
+ t+ W# i% C0 ^( E5 ]7 L* ~% P4 bprocedure to set select into/bulkcopy,  
( Z! m$ U9 L) c% W. M/ {//
which allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
4 U, d( A, k0 a  [- v" c( Z____________________________________________________________________
5 }) G$ F' M2 U5 q; e0 t3 D        一些注意事项和一个例子
( I. w+ W$ Z/ H4 w在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
0 f8 P0 D& {- o9 ?/ ?7 \' B(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
2 b- c+ `: j# i6 o使得TTable(TQuery)是可写的.
: o1 n/ a# f" y4 M7 U6 D
$ R. V) ?% g+ H下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
# q0 r2 V- z) ~% s& wscript为一个BLOB字段:
% |. |* p  g1 z9 o7 b5 M. e3 n   TBlobStream *pScriptStream;
  //插入一条记录
8 Q0 W, f% J" b/ W% k        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
8 [( W* t; p" E2 @1 t        dmStoryEditor->qryExec->SQL->Clear();
3 C" U9 m$ ]5 n) ~0 m        dmStoryEditor->qryExec->SQL->Add(strSQL1);
' h- S% Y% g5 p) @; [        dmStoryEditor->qryExec->ExecSQL();
5 S3 w7 N- i8 ?/ `- W$ {        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
0 d' \* m+ O* n% C: |$ b        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
* f% P2 [: R8 y/ f/ w        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
7 o! j% r0 z4 J+ D            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
( H6 @* q3 o7 {0 z& s$ G  ?% _7 Y( m            dmStoryEditor->qryExec->First();
* f6 q; c1 `; U) B: f2 C) E   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
# G# X1 t6 h$ [' N) d3 Y                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
* p- w2 [6 p5 s. \. W                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
% d# T- h( `5 o9 ^( A# ^: m* @. k       }
       GlobalUnlock(NewsScript.m_hScript);
2 S( k8 W  J# W       UnLockMemories(NewsScript);