B
bigcorn
Unregistered / Unconfirmed
GUEST, unregistred user!
在我的delphi程序中,我使用了OleContainer控件嵌入了一个word文档,当word文档是纯的文本
或是只有图象时,都可以在数据库中进行正常读取,但是如果在word文档中是图文形式的则
在数据库中存取不正常,取出后只能显示图象。我想是不是因为在word文档中嵌入了图象以后
则已经把word文档当作两个Ole对象,而在存取的时候只能存取一个对象,究竟该如何解决
希望大家能指点迷经。在下感激不尽。
我编程的开发环境是delphi4.0和SQL7.0 是使用的midas的三层结构
存取该word文档的字段类型是image
源程序如下
取出部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).SaveToStream(str);
str.position:=0;
OleContainer2.LoadfromStream(str);
str.Free;
end;
存储部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
OleContainer1.SaveToStream(str);
str.Position:=0;
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).LoadFromStream(str);
zbClientDataSet.Post;
zbClientDataSet.ApplyUpdates(0);
str.Free;
end;
或是只有图象时,都可以在数据库中进行正常读取,但是如果在word文档中是图文形式的则
在数据库中存取不正常,取出后只能显示图象。我想是不是因为在word文档中嵌入了图象以后
则已经把word文档当作两个Ole对象,而在存取的时候只能存取一个对象,究竟该如何解决
希望大家能指点迷经。在下感激不尽。
我编程的开发环境是delphi4.0和SQL7.0 是使用的midas的三层结构
存取该word文档的字段类型是image
源程序如下
取出部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).SaveToStream(str);
str.position:=0;
OleContainer2.LoadfromStream(str);
str.Free;
end;
存储部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
OleContainer1.SaveToStream(str);
str.Position:=0;
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).LoadFromStream(str);
zbClientDataSet.Post;
zbClientDataSet.ApplyUpdates(0);
str.Free;
end;