= VlcControl.media תוקע את התכנה

[dina123456]

= VlcControl.media תוקע את התכנה

התכנה שאני עובדת אליה מריצה סרט באמצעות VlcControl כל פעם שנגמר סרט קודם
אחרי משך זמן מסוים שרץ תקין נתקע
הקוד :

 Public MoviOfSlidePicMovi0 As VlcControl
 If (MoviOfSlidePicMovi0.Media IsNot Nothing) Then
                            MoviOfSlidePicMovi0.Media.Dispose()
                            MoviOfSlidePicMovi0.Media = Nothing
 End If
MoviOfSlidePicMovi0.Media = VlcMedia

שלח לי התראה | ערוך | מחק | שנה סוג
Question
אין באפשרותך להצביע למה שאתה פרסמת
0
התכנה שאני עובדת אליה מריצה סרט באמצעות VlcControl כל פעם שנגמר סרט קודם
אחרי משך זמן מסוים שרץ תקין נתקע
הקוד :
Public MoviOfSlidePicMovi0 As VlcControl
If (MoviOfSlidePicMovi0.Media IsNot Nothing) Then
MoviOfSlidePicMovi0.Media.Dispose()
MoviOfSlidePicMovi0.Media = Nothing
End If
MoviOfSlidePicMovi0.Media = VlcMedia

המקום שבו נתקע-השורה הבאה
MoviOfSlidePicMovi0.Media = VlcMedia
המעניין שלא נופל בCATCH אלה פשוט נתקע
יש למישהו רעיון למה זה קורה???
ואיך לפתור זאת??

 

[dina123456]

השפה שבה אני כותבת היא VB.NET

 

[dina123456]

דברים נוספים שניסיתי

אז ניסיתי את שורות הקוד הבאות

  MoviOfSlidePicMovi0.Stop()
   MoviOfSlidePicMovi0 = Nothing
          VlcMedia = Nothing

זה עבד כאשר הרצתי סרטונים בעלי משך זמן של 4 דקות
כאשר הרצתי סרטון בעל משך זמן של 1 דקה נתקע אחרי כמה שעות בשורה הבאה
MoviOfSlidePicMovi0.Stop()

אז ניסיתי לשחרר זיכרון באמצעות הקוד הבה

  MoviOfSlidePicMovi0.Stop()

 GC.Collect()
    GC.WaitForPendingFinalizers()
            SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)

   MoviOfSlidePicMovi0 = Nothing
    VlcMedia = Nothin

ואז נתקע לאחר משך זמן גבוה יותר וכותב בהודעת השגיאה: אין די מקום זמין לאיחסון הפקודה
יש למישהוא רעיון לפתרון???