在delphi中有时候需要将word文档以数据流的形式保存到数据库中然后展现出来,同时又需要修改word文档进行实时保存。以下以例子展示
1.通过oleContainer导入外部word文档并保存为数据流
procedure LoadWordToStrem;
var
sFile :string;
vStream :TMemoryStream;
begin
with dlgOpen1 do
begin
if Execute then
begin
sFile := dlgOpen1.FileName;
if FileExists(sFile) then
begin
if (OleContainer1.State = osOpen) or (OleContainer1.State = osUIActive)then
begin
OleContainer1.DestroyObject;
end;
vStream := TMemoryStream.Create;
vStream.Clear;
OleContainer1.CreateObjectFromFile(sFile,False);
OleContainer1.SaveToStream(vStream);
//之后对数据流形式的stream进行处理,数据库操作
end;
end;
end;