ممكن طلب

    • هذي بعض الأكواد ربما تفيدك في التعامل مع الفيديو

      1- تشغيل ملف فيديو

      كود المصدر

      1. 'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
      2. 'Add 2 CommandButtons to your form (named Command1 and Command2).
      3. 'When you press the first button the AVI movie will start to play.
      4. 'Even after the AVI Finish playing, it is still takes memory.
      5. 'To remove it from the memory press the second button.
      6. 'Insert this code to the module :
      8. Declare Function mciSendString Lib "winmm.dll" Alias _
      9. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
      10. lpstrReturnString As String, ByVal uReturnLength As Long, _
      11. ByVal hwndCallback As Long) As Long
      13. 'Insert the following code to your form:
      15. Private Sub Command1_Click()
      16. Dim returnstring As String
      17. Dim FileName As String
      18. returnstring = Space(127)
      19. 'Replace c:\MyMovie.avi with the AVI file you want to play
      20. FileName = "c:\MyMovie.avi"
      21. erg = mciSendString("open " & Chr$(34) & FileName & _
      22. Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
      23. erg = mciSendString("set video time format ms", returnstring, 127, 0)
      24. erg = mciSendString("play video from 0", returnstring, 127, 0)
      25. End Sub
      27. Private Sub Command2_Click()
      28. erg = mciSendString("close video", returnstring, 127, 0)
      29. End Sub
      عرض الكل


      2- تشغيل ملف فيديو في صندوق الصورة

      كود المصدر

      1. Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" _
      2. (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
      3. ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
      4. Private Declare Function mciGetErrorString Lib "winmm" Alias _
      5. "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _
      6. ByVal uLength As Long) As Long
      8. Private Declare Function GetShortPathName Lib "kernel32" Alias _
      9. "GetShortPathNameA" (ByVal lpszLongPath As String, _
      10. ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
      12. Private Const WS_CHILD = &H40000000
      14. Private Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox)
      15. Dim RetVal As Long
      16. Dim CommandString As String
      17. Dim ShortFileName As String * 260
      18. Dim deviceIsOpen As Boolean
      20. 'Retrieve short file name format
      21. RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
      22. FileName = Left$(ShortFileName, RetVal)
      24. 'Open the device
      25. CommandString = "Open " & FileName & " type AVIVideo alias AVIFile parent " _
      26. & CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
      27. RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
      28. If RetVal Then GoTo error
      30. 'remember that the device is now open
      31. deviceIsOpen = True
      33. 'Resize the movie to PictureBox size
      34. CommandString = "put AVIFile window at 0 0 " & CStr(Window.ScaleWidth / _
      35. Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
      36. Screen.TwipsPerPixelY)
      37. RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
      38. If RetVal <> 0 Then GoTo error
      40. 'Play the file
      41. CommandString = "Play AVIFile wait"
      42. RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
      43. If RetVal <> 0 Then GoTo error
      45. 'Close the device
      46. CommandString = "Close AVIFile"
      47. RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
      48. If RetVal <> 0 Then GoTo error
      50. Exit Sub
      52. error:
      53. 'An error occurred.
      54. 'Get the error description
      55. Dim ErrorString As String
      56. ErrorString = Space$(256)
      57. mciGetErrorString RetVal, ErrorString, Len(ErrorString)
      58. ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)
      60. 'close the device if necessary
      61. If deviceIsOpen Then
      62. CommandString = "Close AVIFile"
      63. mciSendString CommandString, vbNullString, 0, 0&
      64. End If
      66. 'raise a custom error, with the proper description
      67. Err.Raise 999, , ErrorString
      68. End Sub
      70. Private Sub Command1_Click()
      71. 'replace 'c:\myfile.avi' with the name of the AVI file you want to play
      72. PlayAVIPictureBox "c:\goeye.avi", Picture1
      73. End Sub
      عرض الكل


      3- لتشغيل ملف فيديو في Picture

      كود المصدر

      1. Private Sub Form_Load()
      2. MMControl1.FileName = ("c:\FileName.dat")
      3. MMControl1.Command = "open"
      4. MMControl1.hWndDisplay = Picture1.hWnd
      5. End Sub




      نتمنى أن تكون قد استفدت من هذه الأكواد