报错**

Jsun2007

procedure TMainForm.Button3Click(Sender: TObject);
VAR
NS : TMemoryStream;
OS : TMemoryStream;
begin
NS := TMemoryStream.Create;
OS := TMemoryStream.Create;
         DataSetBZSJJ1.open;
         TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).SaveToStream(NS);
         NS.Position :=12;
         OS.CopyFrom(NS,NS.Size-12);
         OleContainer1.LoadFromStream(OS);//这里出错
end;

说明：
  我存入的时候是用OleContainer1.SaveToStream(NS);  存的
代码如下：
存入
procedure TMainForm.Button1Click(Sender: TObject);
var
NS: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
NS:=TMemoryStream.Create;
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
OleContainer1.SaveToStream(NS);
NS.Position := 0;
DataSetBZSJJ1.open;
DataSetBZSJJ1.Append;
TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).LoadFromStream(NS);
DataSetBZSJJ1.FieldbyName('F_ID').asstring :=OpenDialog1.FileName;
DataSetBZSJJ1.Post;
DataSetBZSJJ1.ApplyUpdates;
NS.Free;
end;
end;

Jsun2007

up

zfang

不知道楼主为什么要这么写？
尝试这么写看看吧
  NS := TMemoryStream.Create;
  OS := TMemoryStream.Create;
  try
    TBlobField(DataSetBrokerA.DataSet.FieldbyName('TP')).SaveToFile('c:\a.pdf');
    NS.LoadFromFile('c:\a.pdf');
    //NS.Position :=12;
    //OS.CopyFrom(NS,NS.Size-12);
    OleContainer1.LoadFromStream(NS);
....

Jsun2007

这样读出来的才是word文档的流而不包括OleContainer1的一些东西

zfang

那还有问题吗？