如何以自动方式将OLEObject的内容保存为文件
本文关键字：保存 文件 OLEObject 方式 | 更新日期: 2023-09-27 18:21:08
我正在为powerpoint中的幻灯片添加一些不同的文件类型。这些类型包括mp4、zip、swf和其他格式。我不是在寻找播放这些文件类型的方法；但是，我想在powerpoint preso中存储和检索文件。
我通过以下操作成功地存储了这些不同的文件类型：
currentSlide.Shapes.AddOLEObject(0, 0, -1, -1, "", this.filePath);
我也可以通过右键单击对象->选择编辑包->文件->保存内容来手动检索它们。
我希望复制或使用此功能将OLEObject的内容保存回其原始状态和我指定的路径。我有办法找到那个形状，我认为这个对象包含内容：slideShape.OLEFormat.Object我只是不知道现在该怎么办。想法？谢谢
哦，我用的是office 2010，如果这有什么不同的话。
所以，我知道这已经晚了；然而，我知道其他人肯定也有类似的问题。
我就这个问题联系了微软，他们花了大约一个月的时间，但他们最终给了我答案。我有一个快速的解决方案。它相当广泛，请参阅下面的纯源代码。
第一部分说明：
1） 创建PowerPoint演示文稿并在其中嵌入一些文件（视频、mp3、zip等）
2） 将文件保存到以下位置C:''Temp''Temp.pptx
3） 关闭文件
4） 在"C:''Temp"下创建文件夹"GeneratedFiles"
5） 打开应用程序并运行它。
因此，唯一的缺点是PPTX文件必须关闭。也就是说，可以将打开的PPTX文件复制到其他位置，然后从该位置提取文件，而不是实际正在处理的PPTX。然后只需删除临时文件即可。我们拭目以待。不过，这是该解决方案所能达到的最接近的结果。
不再再见：
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO.Packaging;
using System.Runtime.InteropServices;
using System.IO;
namespace ExtractOLEPowerPoint
{
class Program
{
#region IEnumSTATSTG
[ComImport]
[Guid("0000000d-0000-0000-C000-000000000046")]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IEnumSTATSTG
{
// The user needs to allocate an STATSTG array whose size is celt.
[PreserveSig]
uint Next(uint celt, [MarshalAs(UnmanagedType.LPArray), Out] System.Runtime.InteropServices.ComTypes.STATSTG[] rgelt, out uint pceltFetched);
void Skip(uint celt);
void Reset();
[return: MarshalAs(UnmanagedType.Interface)]
IEnumSTATSTG Clone();
}
#endregion
//#region IStream
//[ComImport, Guid("0000000c-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
//public interface IStream
//{
// void Read([Out, MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 1)] byte[] pv, uint cb, out uint pcbRead);
// void Write([MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 1)] byte[] pv, uint cb, out uint pcbWritten);
// void Seek(long dlibMove, uint dwOrigin, out long plibNewPosition);
// void SetSize(long libNewSize);
// void CopyTo(IStream pstm, long cb, out long pcbRead, out long pcbWritten);
// void Commit(uint grfCommitFlags);
// void Revert();
// void LockRegion(long libOffset, long cb, uint dwLockType);
// void UnlockRegion(long libOffset, long cb, uint dwLockType);
// void Stat(out STATSTG pstatstg, uint grfStatFlag);
// void Clone(out IStream ppstm);
//}
//#endregion
#region STATFLAG
[Flags]
public enum STATFLAG : uint
{
STATFLAG_DEFAULT = 0,
STATFLAG_NONAME = 1,
STATFLAG_NOOPEN = 2
}
#endregion
#region IStorage
[ComImport]
[Guid("0000000b-0000-0000-C000-000000000046")]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
interface IStorage
{
void CreateStream(
/* [string][in] */ string pwcsName,
/* [in] */ uint grfMode,
/* [in] */ uint reserved1,
/* [in] */ uint reserved2,
/* [out] */ out System.Runtime.InteropServices.ComTypes.IStream ppstm);
void OpenStream(
/* [string][in] */ string pwcsName,
/* [unique][in] */ IntPtr reserved1,
/* [in] */ uint grfMode,
/* [in] */ uint reserved2,
/* [out] */ out System.Runtime.InteropServices.ComTypes.IStream ppstm);
void CreateStorage(
/* [string][in] */ string pwcsName,
/* [in] */ uint grfMode,
/* [in] */ uint reserved1,
/* [in] */ uint reserved2,
/* [out] */ out IStorage ppstg);
void OpenStorage(
/* [string][unique][in] */ string pwcsName,
/* [unique][in] */ IStorage pstgPriority,
/* [in] */ uint grfMode,
/* [unique][in] */ IntPtr snbExclude,
/* [in] */ uint reserved,
/* [out] */ out IStorage ppstg);
void CopyTo(
/* [in] */ uint ciidExclude,
/* [size_is][unique][in] */ Guid rgiidExclude, // should this be an array?
/* [unique][in] */ IntPtr snbExclude,
/* [unique][in] */ IStorage pstgDest);
void MoveElementTo(
/* [string][in] */ string pwcsName,
/* [unique][in] */ IStorage pstgDest,
/* [string][in] */ string pwcsNewName,
/* [in] */ uint grfFlags);
void Commit(
/* [in] */ uint grfCommitFlags);
void Revert();
void EnumElements(
/* [in] */ uint reserved1,
/* [size_is][unique][in] */ IntPtr reserved2,
/* [in] */ uint reserved3,
/* [out] */ out IEnumSTATSTG ppenum);
void DestroyElement(
/* [string][in] */ string pwcsName);
void RenameElement(
/* [string][in] */ string pwcsOldName,
/* [string][in] */ string pwcsNewName);
void SetElementTimes(
/* [string][unique][in] */ string pwcsName,
/* [unique][in] */ System.Runtime.InteropServices.ComTypes.FILETIME pctime,
/* [unique][in] */ System.Runtime.InteropServices.ComTypes.FILETIME patime,
/* [unique][in] */ System.Runtime.InteropServices.ComTypes.FILETIME pmtime);
void SetClass(
/* [in] */ Guid clsid);
void SetStateBits(
/* [in] */ uint grfStateBits,
/* [in] */ uint grfMask);
void Stat(
/* [out] */ out System.Runtime.InteropServices.ComTypes.STATSTG pstatstg,
/* [in] */ uint grfStatFlag);
}
#endregion
#region STGM
[Flags]
public enum STGM : int
{
DIRECT = 0x00000000,
TRANSACTED = 0x00010000,
SIMPLE = 0x08000000,
READ = 0x00000000,
WRITE = 0x00000001,
READWRITE = 0x00000002,
SHARE_DENY_NONE = 0x00000040,
SHARE_DENY_READ = 0x00000030,
SHARE_DENY_WRITE = 0x00000020,
SHARE_EXCLUSIVE = 0x00000010,
PRIORITY = 0x00040000,
DELETEONRELEASE = 0x04000000,
NOSCRATCH = 0x00100000,
CREATE = 0x00001000,
CONVERT = 0x00020000,
FAILIFTHERE = 0x00000000,
NOSNAPSHOT = 0x00200000,
DIRECT_SWMR = 0x00400000,
}
#endregion
#region StgIsStorageFile
[DllImport("Ole32.dll")]
static extern int StgIsStorageFile([MarshalAs(UnmanagedType.LPWStr)]string filename);
#endregion
#region StgOpenStorage
[DllImport("Ole32.dll")]
static extern int StgOpenStorage([MarshalAs(UnmanagedType.LPWStr)]string pwcsName, IStorage pstgPriority, STGM grfmode, IntPtr snbExclude, uint researved, out IStorage ppstgOpen);
#endregion
static void Main(string[] args)
{
Package pkg = Package.Open("C:''Temp''Temp.pptx");
foreach (PackagePart pkgprt in pkg.GetParts())
{
if(pkgprt.Uri.ToString().StartsWith("/ppt/embeddings/"))
{
System.IO.Stream strm = pkgprt.GetStream();
byte[] buffer = new byte[strm.Length];
strm.Read(buffer, 0, (int)strm.Length);
strm.Close();
// Create a temporary file
string targetFile = "C:''Temp''GeneratedFiles''" + pkgprt.Uri.ToString().Remove(0, "/ppt/embeddings/".Length);
System.IO.File.WriteAllBytes(targetFile, buffer);
// Extract the contents.
IStorage Is;
StgOpenStorage(targetFile, null, STGM.READWRITE | STGM.SHARE_EXCLUSIVE, IntPtr.Zero, 0, out Is);
ProcessPackage(Is);
// Need to release the IStorage object and call GC.Collect() to free the object
Marshal.ReleaseComObject(Is);
Is = null;
GC.Collect();
GC.WaitForPendingFinalizers();
// Delete the temporary binary file extracted
File.Delete(targetFile);
}
}
}
static void ProcessPackage(IStorage pStg)
{
System.Runtime.InteropServices.ComTypes.IStream pStream;
IEnumSTATSTG pEnumStatStg;
uint numReturned;
pStg.EnumElements(0, IntPtr.Zero, 0, out pEnumStatStg);
System.Runtime.InteropServices.ComTypes.STATSTG[] ss = new System.Runtime.InteropServices.ComTypes.STATSTG[1];
// Loop through the STATSTG structures in the storage.
do
{
// Retrieve the STATSTG structure
pEnumStatStg.Next(1, ss, out numReturned);
if (numReturned != 0)
{
//System.Runtime.InteropServices.ComTypes.STATSTG statstm;
byte[] bytT = new byte[4];
// Check if the pwcsName contains "Ole10Native" stream which contain the actual embedded object
if (ss[0].pwcsName.Contains("Ole10Native") == true)
{
// Get the stream objectOpen the stream
pStg.OpenStream(ss[0].pwcsName, IntPtr.Zero, (uint)STGM.READ | (uint)STGM.SHARE_EXCLUSIVE, 0, out pStream);
//pStream.Stat(out statstm, (int) STATFLAG.STATFLAG_DEFAULT);
IntPtr position = IntPtr.Zero;
// File name starts from 7th Byte.
// Position the cursor to the 7th Byte.
pStream.Seek(6, 0, position);
IntPtr ulRead = new IntPtr();
char[] filename = new char[260];
int i;
// Read the File name of the embedded object
for (i = 0; i < 260; i++)
{
pStream.Read(bytT, 1, ulRead);
pStream.Seek(0, 1, position);
filename[i] = (char)bytT[0];
if (bytT[0] == 0)
{
break;
}
}
string path = new string(filename, 0, i);
// Next part is the source path of the embedded object.
// Length is unknown. Hence, loop through each byte to read the 0 terminated string
// Read the source path.
for (i = 0; i < 260; i++)
{
pStream.Read(bytT, 1, ulRead);
pStream.Seek(0, 1, position);
filename[i] = (char)bytT[0];
if (bytT[0] == 0)
{
break;
}
}
// Source File path
string fullpath = new string(filename, 0, i);
// Unknown 4 bytes
pStream.Seek(4, 1, position);
// Next 4 byte gives the length of the temporary file path
// (Office uses a temporary location to copy the files before inserting to the document)
// The length is in little endian format. Hence conversion is needed
pStream.Read(bytT, 4, ulRead);
ulong dwSize, dwTemp;
dwSize = 0;
dwTemp = (ulong)bytT[3];
dwSize += (ulong)(bytT[3] << 24);
dwSize += (ulong)(bytT[2] << 16);
dwSize += (ulong)(bytT[1] << 8);
dwSize += bytT[0];
// Skip the temporary file path
pStream.Seek((long)dwSize, 1, position);
// Next four bytes gives the size of the actual data in little endian format.
// Convert the format.
pStream.Read(bytT, 4, ulRead);
dwTemp = 0;
dwSize = 0;
dwTemp = (ulong)bytT[3];
dwSize += (ulong)(bytT[3] << 24);
dwSize += (ulong)(bytT[2] << 16);
dwSize += (ulong)(bytT[1] << 8);
dwSize += (ulong)bytT[0];
// Read the actual file content
byte[] byData = new byte[dwSize];
pStream.Read(byData, (int)dwSize, ulRead);
// Create the file
System.IO.BinaryWriter bWriter = new System.IO.BinaryWriter(System.IO.File.Open("C:''temp''GeneratedFiles''" + path, System.IO.FileMode.Create));
bWriter.Write(byData);
bWriter.Close();
}
}
}
while (numReturned > 0);
}
}
}
对象slideShape.OLEFormat.Object应支持IPersistFile或IPersistStream。如果是这样，您可以很容易地让它写入您选择的文件。要做到这一点，您需要使用OLE类型库来允许VB理解IPersistFile接口。
从该页面下载OLELIB.TLB，安装它，并添加对PPTX:的引用
- http://www.mvps.org/emorcillo/en/code/vb6/index.shtml
IPersistFile::Save:文件
- http://msdn.microsoft.com/en-us/library/windows/desktop/ms693701（v=vs.85）.aspx
示例使用：
Dim oPersist as IPersistFile
Set oPersist = slideShape.OLEFormat.Object
' Zero means save a copy as
oPersist.Save(sFileName, 0)
您可以通过从.NET或c#调用PowerShell来实现这一点。
function Export-MediaFromPptx($pptxFile)
{
[void] [System.Reflection.Assembly]::LoadFrom("C:'Program Files'Reference Assemblies'Microsoft'Framework'v3.0'WindowsBase.dll")
$pkg = [System.IO.Packaging.Package]::Open($pptxFile)
$mediaDirectory = [System.IO.Path]::GetDirectoryName($pptxFile) + "'" + [System.IO.Path]::GetFileName($pptxFile) + "_media"
md $mediaDirectory | out-null
foreach ($mediaPart in ($pkg.GetParts() | where { $_.Uri.ToString().StartsWith("/ppt/media/") })) {
$sourceStream = $mediaPart.GetStream()
[byte[]]$buffer = new-object byte[] $sourceStream.Length
[void]$sourceStream.Read($buffer, 0, $sourceStream.Length)
$sourceStream.Close()
$targetFileName = $mediaDirectory + "'" + $mediaPart.Uri.ToString().Remove(0, "/ppt/media/".Length)
[System.IO.File]::WriteAllBytes($targetFileName, $buffer)
}
$pkg.Close()
}
以上脚本取自本文。
本文展示了如何从.NET 调用它
本文展示了如何从c#调用它
希望这能有所帮助。