三层中(ACCESS)存储的BLOB变形了。。。 |
缺席
|
aKnightChen@Hotmail.com
一般會員 發表:62 回覆:57 積分:23 註冊:2003-06-13 發送簡訊給我 |
后台: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
|
aKnightChen@Hotmail.com
一般會員 發表:62 回覆:57 積分:23 註冊:2003-06-13 發送簡訊給我 |
我是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
|
fadichen
初階會員 發表:29 回覆:68 積分:29 註冊:2003-09-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |