敬请关注！在线等待！

[childbaby]

对SQL SERVER 中的Image字段进行读写。
读入没有错误。
procedure TForm1.Button1Click(Sender: TObject);
var
ss : string;
begin
ss := 'c:\xx.rtf';
OleContainer1.SaveAsDocument(ss);
table1.open;
table1.append;
table1.FieldByName('stid').asstring := edit1.text;
tblobfield(table1.FieldByName('stnr')).loadfromfile(ss);
table1.post;

end;

读出来显示在另一个OleContainer中
procedure TForm1.Button2Click(Sender: TObject);
var
ss : string;
begin
ss := 'c:\yy.rtf';
table1.open;
tblobfield(table1.FieldByName('stnr')).savetofile(ss);
OleContainer2.LoadFromFile(ss); //出现错误
end;

请问我在写进OleContainer2是不是少设置了什么参数？

[liw]

用TmemoryStream处理呀，我用过可以的

[childbaby]

不行
我用了，在读入的时候告诉我“stream read err”这个错误提示。所以我改用文件形式来存储，但再次往olecontainer里写的时候就出现错误了。

[naughtyboy]

在用流读取的时候
不要忘记position:=0
把它的指针指到最前面
另外你看看有没有存储成功
在tblobfield(table1.FieldByName('stnr')).savetofile(ss);
加上一句
if Fileexists(ss) then
//
else

[childbaby]

我在读入读出的时候都没问题，就是一个问题是：我用
OleContainer1.LoadFromFile(ExtractFileDir(Application.Exename) + '\11.doc');
出现错误：project project.exe raised exception class EOleSysError with message 'OLE error 80030050'. Process stopped . Use Step or Run to continue.

[yansea]

http://www.csdn.net/expert/topic/842/842836.xml?temp=.3220331
他怎么不结贴呢？~~~~~~~~

[childbaby]

问题已经解决，用olecontainer.createlinkfile就行了，结贴。但我却经常看不到我的问题已经打勾。