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

韩冰

[摘自 水木清华站]

' {" f$ I& V9 _" L        
6 B' |5 R. s6 a+ ~6 x对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

9 y, h$ C2 U+ b9 A+ X TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
7 S# V( j4 c. P2 M TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
* b/ Q7 @5 u/ u' g+ @; O) T8 q
BLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

1 a1 q1 j, v- Z5 V TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
6 O  ]; |- U- A; f" p0 r* T: G                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);
4 G; x+ j8 b/ O5 v' p$ b
& N/ R: ~% a, {________________________________________________________________
- B" r; z. h  i. k补充:
' u( I: Y* O, h! u获得字段的大小用函数datalength

SQL Server端要作一点设置:
! h6 Z3 a: P+ k/ W1 h* D! yBy default, WRITETEXT is a nonlogged operation. This means that  
* |9 S3 H0 B. F6 V2 o' S# V( Ntext or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
//注意!!
3 ~1 f" C6 M7 Z7 vthe system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
, d' b# y+ x. e! R//
8 M% h3 d7 e' a5 ~- twhich allows nonlogged data to be inserted.

. i8 w( O- ^7 w  S  d. f0 b做了试验,直接写SQL语句好象不行.
3 S/ s( M7 ?6 U$ S& c( ?, L9 I____________________________________________________________________
        一些注意事项和一个例子
在写入时:
( R1 G3 i/ \! F# f(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.

( I4 E7 z4 m9 n) ?6 [! h下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
: N8 ~: X' }8 t5 W) t( M8 s7 kscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
8 ]6 U# `7 z& h0 Y/ U+ F        strSQL1="insert  into  content(file_id,script,key_image) values('";
! }4 G+ F. R' f+ x  [        strSQL1=strSQL1+m_szFileID+"',null,null)";
8 T! p7 [( a7 e        dmStoryEditor->qryExec->SQL->Clear();
/ f5 ]3 I$ r& N: F+ r        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
4 }0 A( P( o2 e3 P& R. a: Q  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
; d3 S1 V: f5 ?        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
" ~1 a1 a9 b7 z& D        if(NewsScript.m_pScript!=NULL)
4 T* u% W; u8 Y        {
* T" e* p5 K2 e5 n! V" Y3 Q* T   //再将刚插入的记录读出来,使该Query与该条记录关联
2 I' F. V$ x9 x( p0 {, T        strSQL1="select  file_id,script  from  content  where  file_id='"+
6 {7 a0 B# f1 B                m_szFileID+"'";
. \% A) M! R0 o7 J   //允许该Query写
6 d' n. W' y8 U- e8 \1 C0 D            dmStoryEditor->qryExec->RequestLive=true;
% s( U# k) S4 D; h$ d/ I8 ]+ ]            dmStoryEditor->qryExec->SQL->Clear();
& k1 a3 v1 M0 Y/ f% \- C# o            dmStoryEditor->qryExec->SQL->Add(strSQL1);
5 j- ?3 T$ C6 N# m6 f9 @            dmStoryEditor->qryExec->Open();
# a$ B( \& G4 z" @, @5 o* Y. E6 j) a& ~            dmStoryEditor->qryExec->First();
( Q, d; d. h; [6 x; \8 W   //将该Query置为可写
7 \. @. Q6 R% `! l5 a7 L1 k            dmStoryEditor->qryExec->Edit();
, _( {9 N$ n' I2 W' j            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
) M2 J$ ~- D! _; n9 z5 \, I                                qryExec->FieldByName("script"),bmReadWrite);
0 n; a( Z" a6 I- V6 P: Z- B, @            pScriptStream->Write(NewsScript.m_pScript,  
+ K6 r6 |& [1 O% O5 [9 P7 q* g& r4 _                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
7 B' G  S! ~. {  j% [            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
4 J3 U, i- s$ R" y/ p       UnLockMemories(NewsScript);