통합검색
· 마을서비스란?  · 포럼마을  · 일반마을  · 테마마을  · 마을랭킹  · 활동왕
· 덱스퍼트란?  · TECBOX   · PRSBOX   · 이용안내  
· DEXT제품군  · 솔루션베이  · S/W & ESD 컴포넌트
· 프로그램베이 
· LiveSeminar  · LiveConference
Visual Basic 포럼마을 입니다.
  마을등급 Visual Basic   이 마을은 포럼마을 입니다이 마을은 자유가입제 마을 입니다 마을소개 페이지로 이동 전입신청
마을촌장촌장 강완모 주민 11765 since 2006-12-29
우리마을 공지사항
질문&답변
강좌&팁
자유게시판
자료실
앨범
개인게시판
[마을 게시판]
구인/구직게시판
랑데브 게시판
칼럼 게시판
개발자 고충상담
Dev Talk
자유토론방
벼룩시장
재나미 우스개
구인/프로젝트 정보
사람인 채용 게시판
  고객지원 게시판
마이 데브피아
 나의 e-Money 내역
 활동왕 My Page
 스크랩한 게시글보기
 쪽지관리
 주소록관리
 일정관리

 질문&답변 ※ 꼭 답변채택을 해주시어 성의껏 답변해주신 회원님께 감사의 마음을 전하시길 바랍니다.
 미디어플레이 연속재생을 하고 싶은데요...  | etc 2011-04-12 오후 9:38:31
엄기형 (kingheart)  엄기형님께 메시지 보내기엄기형님을 내 주소록에 추가합니다.엄기형님의 개인게시판 가기 번호: 310033 추천:0  / 읽음:394

windows Media Player를 이용하여 두개의영상을 연속으로 재생하려고 하는데요..

첫번째 영상은 정상적으로 실행되지만 두번째는 준비상태로만 되고 실행이 안되요..

PlayList를 쓰면 메모리 문제가 신경쓰여서 아래처럼 하려고 하는데 문제가 뭔지좀

봐주시면 감사하겠습니다.. 부탁드립니다..

 

 

Public MovieCnt As Integer


Public PlayCnt As Integer
Private Currentmv As Integer
Private mstatus As Integer
Private PlayLst(1) As String

 

 

 

Private Sub Form_Load()
Dim MovieName As String

    wmf.settings.autoStart = False


PlayLst(0) = App.Path + "\test1.wmv"
PlayLst(1) = App.Path + "\test2.wmv"

   
PlayCnt = 2

Currentmv = 0


wmf.URL = PlayLst(Currentmv)

wmf.Controls.play

End Sub

 

 

Private Sub wmf_PlayStateChange(ByVal NewState As Long)
'0 Undefined Windows Media Player is in an undefined state.
'1 Stopped Playback of the current media item is stopped.
'2 Paused Playback of the current media item is paused. When a media item is paused, resuming playback begins from the same location.
'3 Playing The current media item is playing.
'4 ScanForward The current media item is fast forwarding.
'5 ScanReverse The current media item is fast rewinding.
'6 Buffering The current media item is getting additional data from the server.
'7 Waiting Connection is established, but the server is not sending data. Waiting for session to begin.
'8 MediaEnded Media item has completed playback.
'9 Transitioning Preparing new media item.
'10 Ready Ready to begin playing.
'11 Reconnecting Reconnecting to stream.

 

 If NewState = 8 Then
  wmf.settings.autoStart = False
    wmf.Controls.stop


            If (Currentmv = (PlayCnt - 1)) Then
        Currentmv = 0
    Else
        Currentmv = Currentmv + 1
    End If


     wmf.URL = PlayLst(Currentmv)

 
 End If
If NewState = 9 Then

     wmf.Controls.play
End If

If NewState = 10 Then
    'wmf.Controls.previous
    wmf.Controls.play
    'wmf.Controls.
  
End If

End Sub

이 글에 답변 등록하기
목록 보기   지금 보고 계시는 글을 회원님의 my Mblog >> 스크랩에 넣어두고 다음에 바로 보실 수 있습니다.  
회사소개  |   개인정보취급방침  |  제휴문의  |   광고문의  |   E-Mail 무단수집거부  |   고객지원  |   이용안내  |   세금계산서
사업자등록번호 안내: 220-81-90008 / 통신판매업신고번호 제 2010-서울강남-00026호
서울시 강남구 논현동 87-2 미래빌딩 5층 / TEL. 02_6719_6200 / FAX. 02-6499-1910 / 대표: 홍영준
Copyright ⓒ (주) 데브피아. All rights reserved.