Delphi中Word与浏览器交互

来源:互联网 发布:程序员被勒索1000万 编辑:程序博客网 时间:2024/06/06 04:25
var
  WordApp,WordDoc: Variant;
  doc: TWordDocument;
  DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
  PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat,oFileDoc: OleVariant;
begin
  try
    begin
      WordApp := CreateOleObject('word.Application');
      WordDoc := WordApp.documents.open('C:\Users\peixiaobin\Desktop\12312.doc');
      oFileName := 'C:\Users\peixiaobin\Desktop\12312.html';
      PswDocument := wdFormatFilteredHTML;
      WordDoc.SaveAs(oFileName,PswDocument);
    end;
  finally
    WordApp.quit;
  end

end;

word编辑文件,网页视图,编辑。然后通过这个程序转换成html格式。传输到POS端。可以打开这个文件。进行浏览。

以前使用另存成XPS来进行传输,但是XPS是office2010才出来的。用IE打开的时候也比较慢。显示的效果也不太好看。delphi7支持到officexp:与office交互起来有点困难。最后只能保存成word.然后保存成html进行传输。

0 0
原创粉丝点击