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

韩冰

[摘自 水木清华站]
1 Z9 o: h5 m5 w% i: F6 H" _0 T
" t3 a8 c, s6 E        
7 ?& |" U( t' E( t5 P% g, l对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
- r$ P' F: `: t8 ]% vBLOB字段的读取：
TBlobSTream* TemplateStream;
/ J4 C! ]) ^3 J$ s char* TempPlatePtr;              
; C3 ^9 n+ b/ }* R  {: Y
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
# N' h" I. z6 D$ K' E+ J3 t) x TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);

& \. S0 G/ u: h0 n3 H! L  aBLOB字段的写入：
1 m4 Y4 s6 Q: S TBlobSTream* TemplateStream;
char* TempPlatePtr;              

7 e" s3 @  }/ J TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
7 @  [. R# h- ?* |0 L                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
$ q6 K8 I7 g8 X1 o TemplateStream->Write(TemplatePtr, TemplateStream->Size);
$ Z8 o, n) m5 B
________________________________________________________________
" t! R8 d- B" W) _/ @0 B8 i补充:
获得字段的大小用函数datalength
2 K7 \# d7 Q0 F9 o
SQL Server端要作一点设置:
, g4 _* i3 f! O* G( S3 XBy default, WRITETEXT is a nonlogged operation. This means that  
! ^5 ?0 {6 Z$ j! e/ |! W# H) {text or image data is not logged when it is written into the database.  
To use WRITETEXT in its default, nonlogged state,  
) {1 q8 j9 l" A/ A//注意!!
the system administrator must use the sp_dboption system stored  
9 ~  n: H9 h5 q. `" xprocedure to set select into/bulkcopy,  
//
/ a( P' i6 ]4 {* a. [" l% w; lwhich allows nonlogged data to be inserted.
2 \0 w7 W. g- A6 b$ h
做了试验,直接写SQL语句好象不行.
____________________________________________________________________
% V" m( e( ]7 E6 u( ~1 ]% z) f        一些注意事项和一个例子
在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
% ~, f+ m8 l8 U- A3 u. W0 X(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
: f/ _# [8 I* P$ c  `6 l- U
$ v! o* a  Y3 |+ S8 o下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
& x2 Q7 b+ b6 m5 |7 `# ~script为一个BLOB字段:
% E; \) p& A" [, ~6 D/ n; X   TBlobStream *pScriptStream;
6 ?7 X6 L/ m, z8 H# n3 I+ q  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
2 l+ W+ b2 z  p5 X. F3 [        strSQL1=strSQL1+m_szFileID+"',null,null)";
" c4 k. \2 n: M7 `* a        dmStoryEditor->qryExec->SQL->Clear();
( \# M5 ]& k5 G        dmStoryEditor->qryExec->SQL->Add(strSQL1);
        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
3 u. N6 R4 ?( S/ h: M8 p5 |        if(NewsScript.m_pScript!=NULL)
        {
   //再将刚插入的记录读出来,使该Query与该条记录关联
' U  @* M! o, u. j, {" R3 u5 N        strSQL1="select  file_id,script  from  content  where  file_id='"+
                m_szFileID+"'";
4 @/ l6 x" q# v" t& r1 F   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
3 f* |3 V$ V/ |, \' d            dmStoryEditor->qryExec->SQL->Clear();
  {; |. X. h- f            dmStoryEditor->qryExec->SQL->Add(strSQL1);
1 T. E! l+ \: A; y1 _            dmStoryEditor->qryExec->Open();
            dmStoryEditor->qryExec->First();
& i  g! |8 V4 W* T6 l   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
& q4 T* g* E7 n. i4 C/ a            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
. u/ d) i  B6 ^            delete pScriptStream;
4 }# P) u7 A, g& O' v( q3 E! u* E9 F       }
       GlobalUnlock(NewsScript.m_hScript);
( v7 n  }, x; j       UnLockMemories(NewsScript);