|
分類:[VB6 以前]
お世話になります。
wmvファイルをexeに埋め込みは、VB6に付属していますサンプルプログラム（VB98\ATM）を参考にしました。
概要
Command1_Clickでの音声ファイルは問題なく再生されました。
Command2_ClickではWindows Media Playerで「準備完了」と表示され、再生できません。
仮にForm1.WindowsMediaPlayer1.URL = "C:\Documents and Settings\12345\デスクトップ\test.wmv"
にしますと問題なく再生できます。
質問
Windows Media Playerで「準備完了」と表示され、再生できない原因につきまして
ご教示願えますと幸いであります。
'
'''''''''''''''''''''''''''''''''''''''''''''''''
' サンプルプログラムを参考
'''''''''''''''''''''''''''''''''''''''''''''''''
'
Option Explicit
Private Sub Command1_Click()
SoundBuffer = LoadResData(101, "CUSTOM")'●音声ファイル
sndPlaySound SoundBuffer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub
Private Sub Command2_Click()
SoundBuffer = LoadResData(102, "CUSTOM")
Form1.WindowsMediaPlayer1.URL = SoundBuffer(0) & ".wmv"'●動画ファイルが「準備完了」と表示され再生できません。
'Form1.WindowsMediaPlayer1.URL = "C:\Documents and Settings\12345\デスクトップ\test.wmv"'●仮では問題なく再生できます。
End Sub
'''''''''''''''''''''
'標準モジユール
'''''''''''''''''''''
' ｻｳﾝﾄﾞ ｻﾎﾟｰﾄ API 関数
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(lpszSoundName As Any, ByVal uFlags As Long) As Long
Global Const SND_ASYNC = &H1 ' 非同期再生
Global Const SND_NODEFAULT = &H2 ' 既定のｻｳﾝﾄﾞ非使用
Global Const SND_MEMORY = &H4 ' lpszSoundName でﾒﾓﾘ ﾌｧｲﾙを参照します。
Global SoundBuffer() As Byte
'''''''''''''''''''''''
'関連ドキュメント
'''''''''''''''''''''''
Project1.RES
'
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'''''''''''''''''''''''''''''''''''''''''''''''''
|