我想通过OpenDialog打开WORD或EXCEL或文本文件进行编辑，完成以后用流（FILESTREAM）保存进数据库的CONTECT字段中，请教该怎么实现？

您好： 開啟WORD  

procedure TMainForm.BitBtn13Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
      OpenWordFile(OpenDialog1.FileName, WordApplication1, WordDocument1, True);
end;
Function TMainForm.OpenWordFile(WordFileName: WideString; _WordApplication: TWordApplication; _WordDocument: TWordDocument; Visiable: Boolean): Boolean;
var
  WordTempFileName, NewTemplate: OleVariant;
begin
  if NOT AppCon then
    begin
      AppCon:= OpenWord(WordApplication1);
    end;      _Wordapplication.Visible:= Visiable;
  _WordApplication.Caption := '開啟題目';
  NewTemplate:= False;     //範本為True 文件為False      if NOT FileExists(WordFileName) then
    begin
      WordTempFileName:= '';
      _WordApplication.Documents.AddOld(WordTempFileName, NewTemplate);
    end
  else
    begin
      WordTempFileName:= WordFileName;
      _WordApplication.Documents.OpenOld(WordTempFileName, EmptyParam, EmptyParam, EmptyParam,
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                         EmptyParam, EmptyParam);
    end;      _WordDocument.ConnectTo(_WordApplication.ActiveDocument);
  Result:= True;
end;
 

~~應無所住而生其心~~

请问下一步，该如何把该文件以附件形式保存到数据库字段CONTENT中？谢谢

您好： 不是很懂你的意思耶！ 你是說要將WORD的內容存到資料庫中ㄇ 如果是你的另一篇我有回覆 ~~應無所住而生其心~~

我意思是我用OPENDIALOG打开一个WORD或EXCEL，把这个文件名放入字段TITLE，把该文件包括内容（就象保存一个附件一样）放入数据库字段'Content'，但下面语句并不能把这个文件以BLOB放进去，结果保存后还是为空值 TBlobField(QryMaster.FieldByName('Content')).LoadFromFile(OPENDIALOG.filename);

您好： DM.DataSet1content.LoadFromFile(ExtractFilePath(Application.ExeName) 'content.doc'); 這個可以ㄇ？ ~~應無所住而生其心~~

DM.DataSet1content.LoadFromFile(ExtractFilePath(Application.ExeName) 'content.doc'); 我所要保存进去的东西并不一定是WORD，可能是EXCEL，也可能是PPT，也可能是RAR文件的？