Skip to content

Enuraz VideoHandler done #29

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Enuraz wants to merge 4 commits into
base: master
Choose a base branch
from
Open

Enuraz VideoHandler done #29

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
0440aaa
VideoRefactoring: Adding VideoHandler class
Enuraz Jun 2, 2017
725336a
VideoRefactoring: integrate VideoHandler
Enuraz Jun 7, 2017
46847cb
VideoRefactoring: commenting
Enuraz Jun 8, 2017
0dcfdc6
Merge remote-tracking branch 'refs/remotes/TeaseAI/master' into enura…
Enuraz Jun 8, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Binary file added DLL/AxInterop.AXVLC.dll
View file
Open in desktop
Binary file not shown.
Binary file added DLL/AxInterop.WMPLib.dll
View file
Open in desktop
Binary file not shown.
Binary file added DLL/Interop.AXVLC.dll
View file
Open in desktop
Binary file not shown.
Binary file added DLL/Interop.WMPLib.dll
View file
Open in desktop
Binary file not shown.
70 changes: 35 additions & 35 deletions Tease AI/Classes/State.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -612,14 +612,14 @@ Public Class SessionState

#Region "----------------------------------- Only for Serialization -------------------------------------"

#Region "----------------------------------------- Form1.WMP --------------------------------------------"
#Region "----------------------------------------- Form1.Video --------------------------------------------"

Public serialized_WMP_Visible As Boolean
Public serialized_WMP_URL As String
Public serialized_WMP_Position As Double
Public serialized_WMP_Playstate As Long
Public serialized_Video_Visible As Boolean
Public serialized_Video_URL As String
Public serialized_Video_Position As Double
Public serialized_Video_Playstate As Long

#End Region ' Form1.WWMP
#End Region ' Form1.Video

#Region "-----------------------------------------Form1.Timers-------------------------------------------"

Expand Down Expand Up @@ -657,7 +657,7 @@ Public Class SessionState
Public UpdatesTimer_enabled As Boolean = True
Public VideoTauntTimer_enabled As Boolean = False
Public WaitTimer_enabled As Boolean = False
Public WMPTimer_enabled As Boolean = True
Public VideoTimer_enabled As Boolean = True

'===============================================================================
' Timer intervals
Expand Down Expand Up @@ -693,7 +693,7 @@ Public Class SessionState
Public UpdatesTimer_Interval As Integer = 1000
Public VideoTauntTimer_Interval As Integer = 1000
Public WaitTimer_Interval As Integer = 1000
Public WMPTimer_Interval As Integer = 1000
Public VideoTimer_Interval As Integer = 1000

#End Region ' Form1.Timers

Expand Down Expand Up @@ -919,7 +919,7 @@ Public Class SessionState
UpdatesTimer_enabled = .UpdatesTimer.Enabled
VideoTauntTimer_enabled = .VideoTauntTimer.Enabled
WaitTimer_enabled = .WaitTimer.Enabled
WMPTimer_enabled = .WMPTimer.Enabled
VideoTimer_enabled = .VideoTimer2.Enabled
'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
' Get Timer Intervals
'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
Expand Down Expand Up @@ -948,15 +948,15 @@ Public Class SessionState
UpdatesTimer_Interval = .UpdatesTimer.Interval
VideoTauntTimer_Interval = .VideoTauntTimer.Interval
WaitTimer_Interval = .WaitTimer.Interval
WMPTimer_Interval = .WMPTimer.Interval
VideoTimer_Interval = .VideoTimer2.Interval

'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
' Get WMP-Data
' Get Video-Data
'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
serialized_WMP_Visible = .DomWMP.Visible
serialized_WMP_URL = .DomWMP.URL
serialized_WMP_Playstate = .DomWMP.playState
serialized_WMP_Position = .DomWMP.Ctlcontrols.currentPosition
serialized_Video_Visible = .DomVideo.Visible
serialized_Video_URL = .DomVideo.MediaURI
serialized_Video_Playstate = .DomVideo.State
serialized_Video_Position = .DomVideo.CurrentMediaCurrentPosition

'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
' Get Flags
Expand Down Expand Up @@ -1053,7 +1053,7 @@ Public Class SessionState
.UpdatesTimer.Enabled = False
.VideoTauntTimer.Enabled = False
.WaitTimer.Enabled = False
.WMPTimer.Enabled = False
.VideoTimer2.Enabled = False

If .ssh IsNot Nothing Then .ssh.Dispose()
.ssh = Me
Expand Down Expand Up @@ -1133,7 +1133,7 @@ Public Class SessionState
If currentlyPresentContacts.Count = 0 Then currentlyPresentContacts.Add(SlideshowMain.TypeName)

'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
' Set Picturebox & WMP
' Set Picturebox & Video
'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
If isURL(ImageLocation) Then
.ShowImage(ImageLocation, True)
Expand All @@ -1145,25 +1145,25 @@ Public Class SessionState
.ClearMainPictureBox()
End If

.mainPictureBox.Visible = Not serialized_WMP_Visible
.DomWMP.Visible = serialized_WMP_Visible
.DomWMP.URL = serialized_WMP_URL
.DomWMP.Ctlcontrols.currentPosition = serialized_WMP_Position
.mainPictureBox.Visible = Not serialized_Video_Visible
.DomVideo.Visible = serialized_Video_Visible
.DomVideo.MediaURI = serialized_Video_URL
.DomVideo.CurrentMediaCurrentPosition = serialized_Video_Position

If serialized_WMP_Playstate <= 1 Then
.DomWMP.Ctlcontrols.stop()
ElseIf serialized_WMP_Playstate = 2 Then
Dim sw As New Stopwatch
sw.Start()
If serialized_Video_Playstate <= VideoHandler.PlayState.Stopped Then
.DomVideo.StopIt()
ElseIf serialized_Video_Playstate = VideoHandler.PlayState.Paused Then
Dim sw As New Stopwatch
sw.Start()

Do Until .DomWMP.playState = WMPPlayState.wmppsPlaying Or sw.ElapsedMilliseconds > 5000
Application.DoEvents()
Loop
Do Until .DomVideo.State = VideoHandler.PlayState.Playing Or sw.ElapsedMilliseconds > 5000
Application.DoEvents()
Loop

.DomWMP.Ctlcontrols.pause()
ElseIf serialized_WMP_Playstate = 3 Then
.DomWMP.Ctlcontrols.play()
End If
.DomVideo.PauseIt()
ElseIf serialized_Video_Playstate = VideoHandler.PlayState.Playing Then
.DomVideo.PlayIt()
End If

' Hide Cencorshipbar , if no game is running
If CensorshipGame = True Or CensorshipTimer_enabled = False Then .CensorshipBar.Visible = False
Expand Down Expand Up @@ -1208,7 +1208,7 @@ Public Class SessionState
.UpdatesTimer.Interval = UpdatesTimer_Interval
.VideoTauntTimer.Interval = VideoTauntTimer_Interval
.WaitTimer.Interval = WaitTimer_Interval
.WMPTimer.Interval = WMPTimer_Interval
.VideoTimer2.Interval = VideoTimer_Interval

'▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
' Set Timer EnableStates
Expand Down Expand Up @@ -1238,7 +1238,7 @@ Public Class SessionState
.UpdatesTimer.Enabled = UpdatesTimer_enabled
.VideoTauntTimer.Enabled = VideoTauntTimer_enabled
.WaitTimer.Enabled = WaitTimer_enabled
.WMPTimer.Enabled = WMPTimer_enabled
.VideoTimer2.Enabled = VideoTimer_enabled


End With
Expand Down
Loading