后台:Access(我采用MSSQL就没有这个问题) 中间层采用ADO-->ODBC-->ACCESS CLIENT：（采用ADOQUERY.COMMANDTEXT的方法) Edit; TBlobField(FieldByName('USER_FONT')).LoadFromStream(.... ApplyUpdates(-1); 结果是能存储成功，可就是变形了。（比如正确的应当是:195BYTE,而只存入180个BYTE，有时也可能变大) ------------------------ 相同代码，三层 MSSQL成功。 两层 access(mssql)也都成功。 ====================== 想问一下大家有没有其它保存BLOB字段的方法。。。 發表人 - aKnightChen@Hotmail.com 於 2003/08/26 14:22:41

我是ACCESS数据库，三层，错误如下，请高手指点一下 (我的目的是把一个控件保存在后台) =================== 我的代码如下:       //保存stream aStream:=TMemoryStream.Create; aStream.WriteComponent(aStyleComponent); aStream.Position:=0; Close; CommandText:='SELECT USER_ID,USER_STYLE FROM KUSER ' 'WHERE USER_ID=' '''' sUserName '''' ' '; Open; Edit; astream.savetofile('c:\a.txt'); TBlobField(FieldByName('USER_STYLE')).LoadFromStream(aStream); ApplyUpdates(-1); //立刻读出来检查一下,结果发现错了。 Close; CommandText:='SELECT USER_ID,USER_STYLE FROM KUSER ' 'WHERE USER_ID=' '''' sUserName '''' ' '; Open; aStream.Free; aStream:=TMemoryStream.Create; TBlobField(FieldByName('USER_STYLE')).sAVETOStream(aStream); astream.savetofile('c:\b.txt'); =================== 其中a.txt文件内容如下： ------------ TPF0TdxEditStyleController BorderColorclBlueBorderStylexbsThickButtonStylebts3D -------- 其中b.txt文件内容如下： --------- T P F 0 T d x E d i t S t y l e C o n t r o l l e r B o r d e r C o l o r c l B l u e B o r d e r S t y l e x b s T h i c k B u t t o n S t y l e b t s 3 D ---------- 發表人 - aKnightChen@Hotmail.com 於 2003/08/26 17:46:51 發表人 - aKnightChen@Hotmail.com 於 2003/08/26 17:52:27

每一個字元多了空白, 是不是 UniCode 的問題 ????