Office文件远程预览源码及简单调用

关于Office文件远程预览源码及简单调用
1.直接转换为html预览，效果好，成功率高
2.建议wps,速度快，但是xls里的图片无法转化
3.服务端不可和微软offiec及wps 混装，以防服务互窜
4.使用3年一类，很稳定
5.主要代码如下：
FileName := HTTPDecode(FileName);
if FileExists(FileName) then
begin
if Pos(’.doc’, ExtractFileExt(FileName)) > 0 then
AppStyleID := 0
else if Pos(’.xls’, ExtractFileExt(FileName)) > 0 then
AppStyleID := 1
else if Pos(’.ppt’, ExtractFileExt(FileName)) > 0 then
AppStyleID := 2
else if Pos(’.pdf’, ExtractFileExt(FileName)) > 0 then
AppStyleID := 3
else
AppStyleID := 0;
// ppt文件无需限制大小
if AppStyleID <> 2 then
begin
try
FS := TFileStream.Create(FileName, fmShareDenyNone or fmOpenRead);
FS.Position := 0;
FSize := FS.Size;
FS.DisposeOf;

    // 不大于5M
   { if FSize > 5 * 1024 * 1024 then
    begin
      Result := HTTPEncode('错误:文件过大,暂不支持预览');
      Exit;
    end; }
  except
    Result := HTTPEncode('错误%:文件打开失败');
  end;
end;

try
  App := CreateOleObject(AppStyles[AppStyleID]);

  try
    App.DisplayAlerts := false;

    if AppStyleID = 0 then
    begin
      App.Visible := false;
      // App.Visible := True;

      HtmlName := HomePath + '\' + TemplatePath + '\' + getfilename(FileName) + '.htm';
      Doc := App.Documents.Open(FileName, false, true, true);

       Doc.SaveAs(HtmlName, wdFormatFilteredHTML, False, EmptyParam, False, EmptyParam,
       False, False, False, False, False, msoEncodingUTF8);

    end
    else if AppStyleID = 1 then
    begin
      App.Visible := false;
      // App.Visible := True;

      HtmlName := HomePath + '\' + TemplatePath + '\' + getfilename(FileName) + '.htm';
      Doc := App.WorkBooks.Open(FileName, false, true, true);

      Doc.SaveAs(HtmlName, xlHtml, null, null, null, null, xlExclusive,
        xlLocalSessionChanges);
    end
    else if AppStyleID = 2 then
    begin
      // App.Visible := false;
      // App.Visible := True;

      HtmlName := HomePath + '\' + TemplatePath + '\' + getfilename(FileName);
      // Doc := App.Presentations.Open(FileName, true, true, false);
      Doc := App.Presentations.Open(FileName, true, true, false);

      // App.ActivePresentation.SaveCopyAs(HtmlName, ppSaveAsJPG);
      // 此处要注意,wpp和powerpoint不同,powerpoint不需传入jpg后缀
      Doc.SaveCopyAs(HtmlName + '.jpg', ppSaveAsJPG);

      HtmlName := HtmlName + '.htm';
    end
    else if AppStyleID = 3 then
    begin
      // App.Visible := false;
      // App.Visible := True;

      HtmlName := HomePath + '\' + TemplatePath + '\' + getfilename(FileName);
      // Doc := App.Presentations.Open(FileName, true, true, false);
      Doc := App.Presentations.Open(FileName, true, true, false);

      // App.ActivePresentation.SaveCopyAs(HtmlName, ppSaveAsJPG);
      // 此处要注意,wpp和powerpoint不同,powerpoint不需传入jpg后缀
      Doc.SaveCopyAs(HtmlName + '.jpg', ppSaveAsJPG);

      HtmlName := HtmlName + '.htm';
    end;

详细demo 请加QQ获取 1759156387