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

韩冰

[摘自 水木清华站]
6 }' m% u; C5 g0 j+ L
7 o! d  i4 k$ m$ F        
* P+ i9 w* g: m' i/ p. L' _7 a1 a对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
5 m& l# e# T/ {9 F1 S# k TBlobSTream* TemplateStream;
char* TempPlatePtr;              
9 s7 r+ {6 S9 M* v$ V
  V) v4 [1 `; i' B TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
4 a" f$ N8 C5 B' r. B* ?) k  p
) M. e) Y' y$ z! N6 i7 h- M7 w* MBLOB字段的写入：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

# D2 F6 |- L. N6 f1 V9 x4 s0 C# o TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
5 C' l- `7 Q9 D! N% v5 A8 d TemplatePtr= new char[TemplateStream->Size];
- X" I2 Z5 I! T. s TemplateStream->Write(TemplatePtr, TemplateStream->Size);
* t" m5 p% B2 v; W6 b
' |9 g0 c+ E: o# M+ n9 p9 K# e8 x________________________________________________________________
- J7 t' G4 y$ L5 |补充:
0 l+ o' b( v* R! x2 ~. {4 Y/ B* K& h% a+ I获得字段的大小用函数datalength

6 j8 t' A) y: `% K6 MSQL Server端要作一点设置:
By default, WRITETEXT is a nonlogged operation. This means that  
/ l( B/ W. n; h4 e, o. S8 h: Gtext or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
% R  e8 _+ o, }1 B. x//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
; t1 p- b! T* b% Qwhich allows nonlogged data to be inserted.
& S2 U9 G# U+ o5 y, ]( D2 ^
% }' `7 {# r2 B+ _9 F做了试验,直接写SQL语句好象不行.
____________________________________________________________________
        一些注意事项和一个例子
在写入时:
$ X/ p6 P. k! {, s9 r5 @3 J( O9 K(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
4 J6 j6 y& d' |
0 J4 c6 k8 z" S) A下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
4 d+ E( ^7 H* Cscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
* l/ q/ [+ Y' |- ?' g8 u4 e. r        strSQL1="insert  into  content(file_id,script,key_image) values('";
5 ?, ?% e/ S5 K6 a" R: d) ~        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
" i, l8 G0 `8 z, [- y  H        dmStoryEditor->qryExec->ExecSQL();
  p! @* j8 T/ f/ O5 v& e; n        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
/ d. c' g$ |% L: J        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
' W- S+ i# ]3 G4 _' }' ^        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
6 Z5 r% F# u! \- Q6 X; b- s/ [        strSQL1="select  file_id,script  from  content  where  file_id='"+
# ~" @# `* K- o7 ^                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
4 I. C8 D# e" ?) Y            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
* J: Z) B( i; Z) A   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
9 n! q8 m  U9 ?8 D            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
4 U& a6 ^% m% N+ a2 P  B6 a            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
, X2 R+ \+ M4 P' f6 C1 |            delete pScriptStream;
       }
- i2 [+ M, ~3 Q! e" I5 D       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);