请教各位大虾,数据库中的CAD图形能打印出来吗?急!!!(100分)

  • 主题发起人 主题发起人 brokenbridge
  • 开始时间 开始时间
B

brokenbridge

Unregistered / Unconfirmed
GUEST, unregistred user!
现在我的表中有个字段是OLE数据,BLOB类型的,是存的CAD图形,能否将它打印出来?
 
类似的问题我再前面问过了,可惜no face,没人理。
你能编译fastreport DEMO中的‘reports’吗?
相信它是个好例子。可惜我打不开它。
 
fasr Report可以
 
你是把CAD图形怎么放进去的?
把DWG/DXF作成影像放进去的,还是把DWG/DXF写到Stream中再写入BLOB中。
这两种方式都可以用Stream恢复出来。
 
To Okmy:
Dxf或者dwg,能解决吗?
 
To terra,whf:
能发一个给我吗?$99我可没有,有注册码吗? 听说很小的,谢谢!cwg_delphi@263.net
 
to 吕雪松:
LoadFromFile,SaveToFile
能给我发个例子吗?谢谢
 
BLOB字段中的内容必须用TOleContainer的SaveToStream方法存储,才能用fr打印出来。
 
To whf,吕雪松:
由文件读取,存入库中。为什么用流的时候老是出错!
文件变成流:l_StreamA := TFileStream.Create(Name,fmCreate);
ole读取流:OleContainer1.LoadFromStream(l_StreamA);
ole存储: OleContainer1.SaveToStream(l_OleStreamA);
存到数据库中:TBlobField(ADOTable1.FieldByName('CAD')).LoadFromStream(l_OleStreamA);
在ole读取流的时候就出错了!
请大虾帮忙!
 
例子:插入Word文档
在Fomr上放个OleContainer1,选择OleContainer1,右键选择"Insert Object",选择"Microsoft
Word文档"
procedure TForm1.Button1Click(Sender: TObject);
var
mp: TMemoryStream;
begin
tmp := TMemoryStream.Create;
try
OleContainer1.SaveToStream(tmp);
ADODataSet1.Edit;
tmp.Position := 0;
ADODataSet1olepic.LoadFromStream(tmp);
finally
tmp.Free;
end;
end;

 
To whf:
谢谢!
能存储了,打印待我试试再说!
分数不会少的!:)
 
To whf:
的确是这个原因,我有个小程序能否帮我修改一下,总是出点错!告诉我mail发给你!
就是不帮我改,分数照给你!
 
wanghaifeng_1@163.net
 
To whf:
邮件已经发出,分数已经给了,谢谢!
 
to brokenbridge:
没收到,请再发一次 wanghaifeng_1@163.net
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
后退
顶部