تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] بسيط لارسال الصور ومقاطع الفيديو لبرنامج MovieMaker
#1
السلام عليكم ورحمة الله وبركاته
طبعا اعترف انها شغلات سهلة لكن لعل وعسى انها تقصر الطريق لمن يبحث عنها.
PHP كود :
       Dim f As New FolderBrowserDialog
        If f
.ShowDialog DialogResult.OK Then
            Dim dir 
As New DirectoryInfo(f.SelectedPath)
 
           For Each fl As FileInfo In dir.GetFiles
                Process
.Start("MovieMaker"fl.FullName)
 
           Next
        End 
If 
يتبقى امر وهو كيف نضبط ترتيب الملفات بالكود  يعني ضع مجلد جديد وضع به صور واصوات وفيديو ....وجرب الكود وانظر النتيجة طبعا لن يتم الحفظ الا من خلال برنامج MovieMaker نفسه لكن سؤالي عن الترتيب اود فقط ان انقر حفظ في MovieMaker دون اعادة  ترتيب الصور والملفات الاخرى.

وجدت طريقة لعلها تكون حل ولكن تكون الخطوة الاولى وهي باعتماد تسمية الصور او الملفات عموما بالترقيم مثل ...
f00
f01
f02
وهكذا على حسب عدد المراد اضافتها للتحرير ..
الرد }}}
تم الشكر بواسطة: LoveVb , الوادي
#2
مشـكور اخوي
كنت فقط استعمل Process.start لفتح ملفات او صفحة
كيف يتم الارسال للبرنامج هل عبر CommandLineArgs
وهل فقط لبرامج محدده
والله يوفقك
الرد }}}
تم الشكر بواسطة: سعود , الوادي , الوادي
#3
جت على بالي التجربة هذي بعد مدة من هذا المشروع
وهي كما قلت ... جربتها اعتباطا ووجدت فعلا انها تعمل.
يعني البرنامج تم تصميمه لقبول هذه الفكرة ولا ادري عن غير هذا البرنامج.
انت ممكن تعملها  وتعتمد عليها من باب التغيير فقط.
الرد }}}
تم الشكر بواسطة: الوادي , LoveVb
#4
يا سعود،

مشكلة ارسال الملفات بالترتيب المرغوب دون الحالة لتغيير اسمائها حلها موجود بالرابط التالي عن طريق عمل ملف XML وارساله لبرنامج MovieMaker
https://msdn.microsoft.com/en-us/library...s.85).aspx

وهذه مساهمة بعمل دالة تقوم بعمل ملف XML ترسل لها مصفوفة باسماء الملفات بالترتيب المرغوب ويعيد لك إسم ملف XML مع مسارة
PHP كود :
Public Class Form1

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        Dim files
() As String =
 
           {"C:\3.jpg",
 
            "C:\1.jpg",
 
            "C:\2.jpg"
 
           }

 
       Process.Start("MovieMaker"CreateImportFileList(files))

 
   End Sub


    Private 
Function CreateImportFileList(files() As String) As String
        
'' https://msdn.microsoft.com/en-us/library/windows/desktop/bb404146(v=vs.85).aspx
 
       Dim importFileList As String "importfilelist.xml"
 
       Using writer As Xml.XmlWriter Xml.XmlWriter.Create(importFileList, New Xml.XmlWriterSettings() With {.Indent True})
 
           writer.WriteStartDocument() ' Document '
 
           writer.WriteStartElement("MovieMk"' MovieMk '
 
           '-------------------------------'
 
           writer.WriteStartElement("Content"' Content '
 
           '-------------------------------'
 
           For Each file As String In files
                writer
.WriteStartElement("ContentFile"' ContentFile '
 
               writer.WriteAttributeString("Filename"file' Filename '
 
               writer.WriteEndElement() ' End ContentFile '
 
           Next
            
'-------------------------------'
 
           writer.WriteEndElement() ' End Content '
 
           '-------------------------------'
 
           writer.WriteStartElement("AutoEdit"' AutoEdit '
 
           writer.WriteAttributeString("Style""FadeReveal"' Style '
 
           writer.WriteEndElement() ' End AutoEdit '
 
           '-------------------------------'
 
           writer.WriteStartElement("DeleteOnClose"' DeleteOnClose '
 
           writer.WriteEndElement() ' End DeleteOnClose '
 
           '------------------------------- '
 
           writer.WriteEndElement() ' End MovieMk '
 
           writer.WriteEndDocument() ' End Document '
 
           '----------------------------------------------------------- '
 
           writer.Close()
 
       End Using
        Return importFileList
    End 
Function

End Class 
ملاحظة:
يوجد عنصر أخير باسم DeleteOnClose ووظيفه حذف ملف XML بعد قراءته من جهة برنامج MovieMaker لعدم الحاجة بعد قراءته
(والذي يقوم بحذفه هو برنامج MovieMaker نفسه)
الرد }}}
تم الشكر بواسطة: سعود , LoveVb , LoveVb
#5
زرت الرابط هذا من قبل وتاتي رسالة بعدم دعم هذا النوع من الملفات
لعل السبب
Requirements
Client: Windows Vista
ولا ادري ..ساجرب الكود الذي كتبت.

كيف نسرد الملفات من مجلد الى المتغير files
         
PHP كود :
 Dim files() As String
           For Each fl 
As FileInfo In dir.GetFiles
               files 
= {fl.FullName}
           Next 

خلاص عرفتSmile
الرد }}}
تم الشكر بواسطة: الوادي
#6
هل يمكن ضبط الـ Duration لكل الصور عن طريق الكود؟؟
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم