मैं स्वचालित रूप से फ़ाइल के रूप में OLEObject की सामग्री को कैसे सहेज सकता हूं?

Question

मैं पावरपॉइंट में स्लाइड करने के लिए कुछ अलग फ़ाइल प्रकार जोड़ रहा हूं। इन प्रकारों में एमपी 4, ज़िप, एसएफएफ, और अन्य प्रारूप शामिल हैं। मैं इन फाइल प्रकारों को वापस चलाने का कोई तरीका नहीं ढूंढ रहा हूं; हालांकि, मैं एक पावरपॉइंट प्रीमो के भीतर से फ़ाइलों को स्टोर और पुनर्प्राप्त करना चाहता हूं।

मैं सफलतापूर्वक निम्न कार्य करके इन विभिन्न फ़ाइल प्रकारों संग्रहीत किया है:

currentSlide.Shapes.AddOLEObject(0, 0, -1, -1, "", this.filePath); 

मैं भी उन्हें सही वस्तु पर क्लिक करने से मैन्युअल रूप से प्राप्त कर सकते हैं -> पैकेज संपादित करें का चयन -> फ़ाइल -> सामग्री की बचत करें।

मैं ओएलईओब्जेक्ट की सामग्री को मूल स्थिति में और मेरे द्वारा निर्दिष्ट पथ पर सहेजने के लिए इस कार्यक्षमता को दोहराना या उपयोग करना चाहता हूं। मेरे पास उस आकार को खोजने का एक तरीका है और मुझे लगता है कि इस ऑब्जेक्ट में सामग्री है: slideShape.OLEFormat.Object मुझे नहीं पता कि अब क्या करना है। विचार? धन्यवाद।

ओह, मैं कार्यालय 2010 का उपयोग कर रहा हूं, अगर इससे कोई फर्क पड़ता है।

Answer 1

तो, मैं जानता हूँ कि यह देर हो चुकी है; हालांकि, मुझे पता है कि दूसरों के समान प्रश्न होना चाहिए।

मैंने इस मुद्दे के बारे में माइक्रोसॉफ्ट से संपर्क किया और इसे लगभग एक महीने या उससे भी ज्यादा समय तक ले लिया, लेकिन अंत में उन्होंने मुझे जवाब दिया। मेरे पास zip of the solution है। यह काफी व्यापक है, केवल सादे स्रोत कोड के लिए नीचे देखें।

पहले कुछ निर्देश:

1) एक PowerPoint प्रस्तुति बनाएँ और (इसमें कुछ फ़ाइलों को एम्बेड वीडियो, एमपी 3, ज़िप आदि)
2) निम्न स्थान सेल्सियस के लिए फ़ाइल सहेजें: \ अस्थायी \ अस्थायी। पीपीटीएक्स
3) फ़ाइल को बंद करें
4) "सी: \ टेम्पप"
के तहत "जेनरेटेडफाइल" फ़ोल्डर बनाएं 5) एप्लिकेशन खोलें और इसे चलाएं।

तो केवल नकारात्मक पक्ष यह है कि पीपीटीएक्स फ़ाइल बंद होनी चाहिए। ऐसा कहा जा रहा है कि कोई भी ओपन पीपीटीएक्स फ़ाइल को कहीं और कॉपी करने में सक्षम हो सकता है और फिर पीपीटीएक्स की बजाय उस स्थान से फ़ाइलों को निकाला जा सकता है जो वास्तव में काम किया जा रहा है। फिर बस अस्थायी को हटा दें। हम देख लेंगे। यह उतना करीब है जितना कि इस समाधान को मिलता है।

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); 
    } 
} 
} 

Answer 2

आप PowerShell या तो .NET या C# से कॉल करके ऐसा कर सकते हैं।

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() 
} 

उपरोक्त स्क्रिप्ट इस article से ली गई थी।

यह article से पता चलता है कि यह कैसे नेट

से कॉल करने के लिए यह article से पता चलता है कि यह कैसे # ग

आशा इस मदद करता है से कॉल करने के लिए।

Answer 3

ऑब्जेक्ट slideShape.OLEFormat.ObjectIPersistFile या IPersistStream का समर्थन करना चाहिए। यदि ऐसा होता है, तो आप इसे आसानी से अपनी पसंद की फाइल पर लिखने का कारण बन सकते हैं। ऐसा करने के लिए आपको ओएलई टाइप लाइब्रेरी का उपयोग करने की आवश्यकता है ताकि VB को IPersistFile इंटरफ़ेस को समझने की अनुमति मिल सके।

इस पेज से डाउनलोड OLELIB.TLB, इसे स्थापित है, और अपने PPTX के लिए एक संदर्भ जोड़ें: IPersistFile::Save के लिए

• http://www.mvps.org/emorcillo/en/code/vb6/index.shtml

प्रलेखन:

• 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)