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

韩冰

[摘自 水木清华站]
: L3 `  H0 F; z, b' {0 V
        
) u: V+ w" D/ w/ {6 [3 e9 s对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
TBlobSTream* TemplateStream;
char* TempPlatePtr;              

, H' l8 p9 K  O! c7 {( U% O TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
TemplatePtr= new char[TemplateStream->Size];
* e9 Y( a3 ~9 M TemplateStream->Read(TemplatePtr, TemplateStream->Size);
& V- v' l3 K; q$ J" G1 N: v
7 [; \7 U5 `  U* j0 u2 h7 r5 rBLOB字段的写入：
' ~7 N) l1 \9 a$ L# L/ f TBlobSTream* TemplateStream;
: ^# B6 j9 S* Z0 `: ]4 r' A3 D char* TempPlatePtr;              
+ g9 X+ A' z) p  S9 t: G: Z- L; m
TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
! ]2 A% v$ Y$ [% {- j( q TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

" S. x: a2 m9 o" b6 E________________________________________________________________
补充:
: }9 B: e& Y4 p  V  {获得字段的大小用函数datalength

1 H% \0 k' d7 k) ISQL Server端要作一点设置:
: l5 m7 s# Y# KBy 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,  
//注意!!
: A& ^. D. Y$ l6 }8 l# hthe system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
0 j' E6 t) r+ ?0 F3 ~//
0 n% K# o- l0 Zwhich allows nonlogged data to be inserted.

2 H' Z+ d1 w4 B& Z. v2 J做了试验,直接写SQL语句好象不行.
6 P: c) f1 L9 H9 [% z____________________________________________________________________
" c0 E- z* \! H: V7 s4 M$ v/ ^- k        一些注意事项和一个例子
: z7 N& U2 q% \& {  _, i" O4 n在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
使得TTable(TQuery)是可写的.

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
* q5 z* g  `0 l; r" x5 h# [+ T6 oscript为一个BLOB字段:
   TBlobStream *pScriptStream;
! \' y# d9 X; Q1 r8 Q7 v- S  //插入一条记录
+ v/ S- A6 U" j) }* b- v1 a        strSQL1="insert  into  content(file_id,script,key_image) values('";
" M$ _- F+ N* Q5 d. ?        strSQL1=strSQL1+m_szFileID+"',null,null)";
( t* j3 l% n5 x: {        dmStoryEditor->qryExec->SQL->Clear();
' A: t/ \3 [- N9 \# ]. G        dmStoryEditor->qryExec->SQL->Add(strSQL1);
4 R% O6 {, {7 j" _: v        dmStoryEditor->qryExec->ExecSQL();
' g' y' U: x! i; v1 w0 U6 w( C        dmStoryEditor->qryExec->Close();
( m4 y2 R% `% U* Y  }  //整理要写入的Blob数据   
        LockMemories(NewsScript);
' I" n9 i$ v$ e, f- W! R8 W        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
6 ~. F  C  ?) m5 R3 d        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
3 D# P# d" [( T3 A7 G        if(NewsScript.m_pScript!=NULL)
        {
3 u: s+ y" G: Q+ z- m1 d  h. a   //再将刚插入的记录读出来,使该Query与该条记录关联
6 @; T% U: @2 }, p        strSQL1="select  file_id,script  from  content  where  file_id='"+
# c( x/ M9 t/ ]8 \7 x0 N, X                m_szFileID+"'";
   //允许该Query写
6 e( @& C" ?1 m- ?+ I6 D& x/ E+ d            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
            dmStoryEditor->qryExec->SQL->Add(strSQL1);
            dmStoryEditor->qryExec->Open();
. y. Q9 K! L1 S' M            dmStoryEditor->qryExec->First();
- X% K( n5 n. j3 M' I   //将该Query置为可写
1 V* x& Z9 @" F7 E& S; x            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
4 Q! V( Y; ]9 b3 e$ C            pScriptStream->Write(NewsScript.m_pScript,  
, }9 w1 E' z6 S: M* t+ K                                        NewsScript.m_lScriptRealSize);
            dmStoryEditor->qryExec-&gtost();
            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);