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

韩冰

[摘自 水木清华站]

        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
+ E$ U) n$ X: M1 A2 ?3 s) MBLOB字段的读取：
6 D; E' r8 o5 D9 K, W TBlobSTream* TemplateStream;
1 R' x/ \/ C  l char* TempPlatePtr;              
/ [* n+ }% C, l: _- N: G
8 P" L/ S+ K# b7 S1 w TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
( x( x* T& D  L/ M+ F TemplateStream->Read(TemplatePtr, TemplateStream->Size);
( ?1 w/ u( g$ S6 {( |: c. t% Y
6 k/ X7 t& e/ f! J9 E0 zBLOB字段的写入：
5 `6 n2 p# b, @8 W9 r8 {; C TBlobSTream* TemplateStream;
char* TempPlatePtr;              
' y1 w6 u2 j) ?+ R8 [. H
, d+ C4 Q: @" H% p. B TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
/ M9 ^2 H! s8 p+ s2 }4 @$ w TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

! N; y: `* C4 i2 I# a________________________________________________________________
补充:
7 h% o8 I! ]7 o0 z获得字段的大小用函数datalength
7 \. k% G7 e3 ^: I5 j* h3 u
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.  
$ P7 I2 i& ]9 n  K; W) TTo use WRITETEXT in its default, nonlogged state,  
, ]( O! P9 a" x, M+ h//注意!!
the system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
3 Z$ C# N& M1 @  j, {4 j( e//
which allows nonlogged data to be inserted.

# n! v. }) s! {5 Q/ q5 K做了试验,直接写SQL语句好象不行.
" |  L# f0 R; z, @. _- c____________________________________________________________________
        一些注意事项和一个例子
在写入时:
: z5 g2 }( ^8 e3 r* m3 N0 ], Q) y(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
8 X: \& h8 _6 l/ k& \; n, t4 t(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.
7 e9 {# F7 J- E8 f8 s
/ L4 ^2 m3 c. k4 w6 k8 L* T8 j7 ~# Q下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
7 j. Z0 O+ F2 z: hscript为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
        strSQL1="insert  into  content(file_id,script,key_image) values('";
        strSQL1=strSQL1+m_szFileID+"',null,null)";
' Y- F# R3 t. Z% ~3 d: a5 L* ^" a; E) C$ _        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
* p- e# C8 u, h8 E% l5 j        dmStoryEditor->qryExec->ExecSQL();
        dmStoryEditor->qryExec->Close();
# M) ~8 C- N  d  //整理要写入的Blob数据   
        LockMemories(NewsScript);
        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
6 E5 X. w" N' N& b- \+ U6 k6 O+ f        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
        if(NewsScript.m_pScript!=NULL)
        {
( u% ~5 H# m) I4 b; Y& ]   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
9 Z7 P/ ]* k! h: ~  d5 j2 y5 {                m_szFileID+"'";
   //允许该Query写
# b  A/ Y+ K4 y3 ]- s3 ?            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
0 X7 v! S% f" C, {9 L            dmStoryEditor->qryExec->Open();
, Q0 @/ e, R0 [            dmStoryEditor->qryExec->First();
   //将该Query置为可写
            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
# K/ n+ @! W3 A( e; o1 P3 f            pScriptStream->Write(NewsScript.m_pScript,  
: i* C$ Q/ v8 q% H; X* k                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);