我在编写的加载项中保存PowerPoint文件时遇到问题。
基本上,我需要将当前打开的演示文稿保存为wmv,然后将其FTP到外部服务器......听起来很简单吗?
我已经找到了如何将当前打开的演示文稿保存为wmv。
我还有代码来检查文件是否已打开,以便我可以判断“保存”过程何时完成。
但是代码只是进入无限循环。 wmv开始写入,但永远不会超过0kb。
如果我删除该行
checkfile(exportPath, exportName);
它工作得很好......否则它只会停留在循环中。
这是我到目前为止的代码......
using System;
using System.Windows.Forms;
using Office = Microsoft.Office.Core;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;
using System.IO;
namespace PowerPointAddIn2
{
public partial class LoginPanel : UserControl
{
public LoginPanel()
{
InitializeComponent();
}
private void LoginPanel_Load(object sender, EventArgs e)
{
}
private void btnLogin_Click(object sender, EventArgs e)
{
string exportName = "video_of_presentation";
string exportPath = @"C:\{0}.wmv";
// Export the currently open presentation
PowerPoint.Application ppApplication = null;
ppApplication = new PowerPoint.Application();
ppApplication.Activate();
ppApplication.ActivePresentation.SaveAs(String.Format(exportPath, exportName), PowerPoint.PpSaveAsFileType.ppSaveAsWMV, Office.MsoTriState.msoTrue);
checkfile(exportPath, exportName);
MessageBox.Show("Finished");
}
protected void checkfile(string exportPath, string exportName)
{
FileInfo f = new FileInfo(String.Format(exportPath, exportName));
while (IsFileLocked(f) == true) { System.Threading.Thread.Sleep(5000); }
MessageBox.Show("Finished");
}
protected virtual bool IsFileLocked(FileInfo file)
{
FileStream stream = null;
try
{
stream = file.Open(FileMode.Open, FileAccess.ReadWrite, FileShare.None);
}
catch (IOException)
{
//the file is unavailable because it is:
//still being written to
//or being processed by another thread
//or does not exist (has already been processed)
return true;
}
finally
{
if (stream != null)
stream.Close();
}
//file is not locked
return false;
}
}
}
根据我发布的前一个帖子,我也试过Thread.Join(),看看我是否可以在继续之前等待保存线程完成但是在保存文件时它根本没有停顿所以我结果相同。
非常感谢任何帮助/指示。
由于
答案 0 :(得分:1)
PowerPoint Application对象具有ppMediaTaskStatus属性,该属性应返回您需要的信息。您可以使用PPT VBA IDE中的对象浏览器获取各种值。