盒子论坛 v2.1

关于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
----------------------------------------------
何和

作者：

a5824 (Return)	★☆☆☆☆	-
	普通会员

2019/4/3 8:19:42

1楼：

打个卡。
----------------------------------------------
-

信息

登陆以后才能回复