讨论一下B/S结构下internet嵌入WORD问题

Question

B/S结构下internet嵌入WORD、对WORD进行各种操作，大家帮忙想想，我应该从哪方面着手。或哪有这方面的例子，谢了，

Answer 1

activeform + ole可以吧。

Answer 2

ActiveFormprocedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
  OleWord := GetOrCreateObject('Word.Basic');
end;procedure TActiveFormX.closeword;
begin
 try
   OleWord.FileExit;
 except
 end;
end;procedure TActiveFormX.openword(const filename: WideString);
begin
  if (length(filename)>0) then
  begin
    try
      OleWord.FileOpen(filename);
      OleWord.AppShow;
    except
    end;
  end;
end;procedure TActiveFormX.EditBook(const name, content: WideString);
var
s:String;
begin
try
  OleWord.EditBook(name,0,0,0,1);
  if(content='') then
  OleWord.Insert(' ');
  if(content='null') then
  OleWord.Insert(' ');
  OleWord.Insert(content);
except
end;
end;
procedure TActiveFormX.saveword;
begin
  try
    OleWord.FileSave;
  except
  end;
end;

Answer 3

两种技术在OA中的应用
大富翁论坛版权所有
 KeyLife富翁笔记 
(此作品参加“Borland ALM 产品开发者竞赛参赛”