有关OLE的问题

Question

请问如何用delphi中的OLE Container控件实现将Word文档保存到数据库中(Oracle 8i)，以及如何用此控件读取保存后的数据。

Answer 1

不用OLE Container,你可以直接用流存嘛,创建一个文件流,读入文件,保存,读取的时候先创建此文件流,从数据库中取出来,然后保存成文件或直接用Server中的Word控件来打开流或文件就可以的!

Answer 2

f u n c t i o n B l o b C o n t e n t T o S t r i n g (c o n s t FileName: string): string;b e g i n
w i t h TFileStream.create(FileName, fmOpenRead) d o
t r y
SetLength(Result, Size);
Read(Pointer(Result)^, Size);
f i n a l l y
F r e e ;
e n d ;
e n d ;p r o c e d u r e TForm1.btnTargetClick(Sender: TObject);
v a r
sFileName : String;
b e g i n
i f (OpenDialog1.Execute) t h e n
b e g i n
sFileName := OpenDialog1.FileName;
a d o d s B l o b s . E d i t ;
adodsBlobs.FieldByName('Blobs').AsString :=
B l o b C o n t e n t T o S t r i n g ( s F i l e N a m e ) ;
a d o d s B l o b s . P o s t ;
e n d ;
e n d ;