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

韩冰

[摘自 水木清华站]
: j1 a3 V! a- R  a
        
3 Y; ~! l$ L7 X! H* f对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
6 F5 y" J8 [& C7 {BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
! P5 X, D/ Z$ Q" ]- ^4 ~                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);
1 @$ E/ V( J2 p/ ^  O+ r7 [
! e3 d+ y$ A) W$ kBLOB字段的写入：
TBlobSTream* TemplateStream;
) X+ M0 ?) W1 \3 ~ char* TempPlatePtr;              
; x9 r- z, a+ V6 G, l2 G7 c4 g
5 Z$ m" j1 i1 T2 H# B7 M( A TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
% r! O# S3 _, e! M                        ("SearchTem"),bmReadWrite);
5 c' R) ^% Y+ f! |# @$ q. ?( t4 J5 Q TemplatePtr= new char[TemplateStream->Size];
$ ]! ~: t3 A- ^9 V8 F6 E+ K TemplateStream->Write(TemplatePtr, TemplateStream->Size);
2 C6 ?$ w+ S' S! W. n
8 z+ o$ r5 C6 T9 Z: W% d________________________________________________________________
1 A# X- K; ~2 j0 C3 p; c  l9 [补充:
- t" j" e- J! Z  X  B+ G) T* S获得字段的大小用函数datalength

3 E% q  ~  S' F9 }SQL Server端要作一点设置:
By 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,  
//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
//
# i* F- O- O$ C$ dwhich allows nonlogged data to be inserted.
8 t+ r9 t1 x7 L9 q5 P2 j- J
做了试验,直接写SQL语句好象不行.
% x; D  \" `9 G* n( t____________________________________________________________________
' k1 H- ~$ E& D8 B+ o7 x6 l: \$ l        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
; x* R% T6 f& j. P$ p. l(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
) V2 W/ i" D! u使得TTable(TQuery)是可写的.
/ }1 t2 B" d" q: F' |1 `+ M6 |
4 Y9 ?! N% K& V* I5 S4 `% ]下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
, ~3 _) z4 c  `) s" w        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
4 \; E' q+ N; _- l' u        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
9 n% b0 X7 s7 d  C        LockMemories(NewsScript);
8 _5 L% v* d) Y/ C' U6 R+ H- M* v        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
4 V5 ~9 {4 j( L) q        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
5 O( {5 m( u' M( O1 k        if(NewsScript.m_pScript!=NULL)
        {
: ~/ [# h: \, u0 `/ n& Z/ `   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
. F7 I4 u/ u, e( k4 m                m_szFileID+"'";
0 L8 r) x4 T' v% Q* n   //允许该Query写
& ~4 H3 V0 o  \8 ~, u$ ]9 ~* R            dmStoryEditor->qryExec->RequestLive=true;
& d; U) q1 t4 f( X" D7 P: P/ i0 x            dmStoryEditor->qryExec->SQL->Clear();
& f- \. Q1 e. L            dmStoryEditor->qryExec->SQL->Add(strSQL1);
1 D$ e/ [3 A1 ?4 M            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
' O8 a! e% T2 p1 ?9 s9 i# X                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
9 d" B- @) H7 |; D4 D" n            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
1 a# H0 w& z$ l3 i4 W  _$ ~       }
4 f" G8 t% D8 m       GlobalUnlock(NewsScript.m_hScript);
) {3 c% ~1 v$ ]: I3 \  Y       UnLockMemories(NewsScript);