T
talasa
Unregistered / Unconfirmed
GUEST, unregistred user!
我用的是Oracle8i数据库, dwg文件以Tmemorystream的形式通过OleContainer保存到数据库的Blob字段。问题一:每次保存dwg到数据库,都要打开AtuoCAD软件,可不可以不打开AtuoCAD软件直接存储。本人编写的代码如下:
var ms : Tmemorystream;
begin
try
ms:=Tmemorystream.create;
OleContainer1.CreateObjectFromFile('d:/drawing1.dwg',false);
OleContainer1.SaveToStream(ms);
ms.Position:=0;
TBolbField(table1.FieldByName('tu')).LoadFromStream(ms);
finally
ms.free;
end;
问题二:如何把数据库Blob字段保存为.dwg文件?
var ms : Tmemorystream;
begin
try
ms:=Tmemorystream.create;
OleContainer1.CreateObjectFromFile('d:/drawing1.dwg',false);
OleContainer1.SaveToStream(ms);
ms.Position:=0;
TBolbField(table1.FieldByName('tu')).LoadFromStream(ms);
finally
ms.free;
end;
问题二:如何把数据库Blob字段保存为.dwg文件?