fastreport3.09版使用 ole存在如下文问题:
使用如下过程完成word文档传入数据库:
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
Olecontainer1.Doverb(ovShow);
OleContainer1.SaveToStream(strstream);
OleContainer1.Run;
strstream.Position:=0;
with ado1 do
begin
close;
sql.Clear;
sql.Add('insert into test(id,text)values(:id,:text)');
Parameters.Items[0].Value:=trim(edit1.Text);
Parameters.Items[1].LoadFromStream(strstream,ftBlob);
execsql;
end;
使用如下过程读取:
with query1 do
begin
close;sql.Clear;
sql.Add('select * from test where id=:a');
Parameters.ParamByName('a').Value:=trim(edit1.Text);
open;
end;
frxReport3.LoadFromFile('.\dd.fr3');
frxReport3.showreport ();
其中报表文件中用了ole对象,ole的stretched属性为true,相应的band的streten属性为true,allow split 属性为true,测试中发现一个问题:
导入几页的word文档,显示只有一页,不知如何解决???
另外如果我想用Rich Text Object控件显示该如何转换流的格式,才能正确显示??
使用如下过程完成word文档传入数据库:
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
Olecontainer1.Doverb(ovShow);
OleContainer1.SaveToStream(strstream);
OleContainer1.Run;
strstream.Position:=0;
with ado1 do
begin
close;
sql.Clear;
sql.Add('insert into test(id,text)values(:id,:text)');
Parameters.Items[0].Value:=trim(edit1.Text);
Parameters.Items[1].LoadFromStream(strstream,ftBlob);
execsql;
end;
使用如下过程读取:
with query1 do
begin
close;sql.Clear;
sql.Add('select * from test where id=:a');
Parameters.ParamByName('a').Value:=trim(edit1.Text);
open;
end;
frxReport3.LoadFromFile('.\dd.fr3');
frxReport3.showreport ();
其中报表文件中用了ole对象,ole的stretched属性为true,相应的band的streten属性为true,allow split 属性为true,测试中发现一个问题:
导入几页的word文档,显示只有一页,不知如何解决???
另外如果我想用Rich Text Object控件显示该如何转换流的格式,才能正确显示??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货