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
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进行传输。