Premessa: sono un neofita, molto neofita! L'argomento "file di risorse" mi piace molto e sto preparando un programmino che lo include.
Purtroppo però, mentre va tutto OK con le risorse BMP, ICO, CUR e AUDIO, non riesco ad utilizzarlo con i filmati AVI (ovviamente privi di suono).
Mi spiego: Riesco a visualizzare il filmato AVI con Animation1.Open e poi Animation1.Play ma così facendo non utilizzo la risorsa Tipo "VIDEO" e
con ID "SEARCH" che pure ho creato (allegato).
A maggior chiarimento invio parte del sorgente da me approntato e relativo alle risorse AUDIO e VIDEO:
************
Parte AUDIO (FUNZIONA PERFETTAMENTE)
Private Sub cmdAudio_Click()
' anche suoni di alto livello: per ora sembra solo file wav
txtWAVFile = "C:\error.wav"
BeginPlaySound 101
End Sub
' relativo Mod Bas
Option Explicit
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
Global SoundBuffer() As Byte
Sub BeginPlaySound(ByVal ResourceId As Integer)
SoundBuffer = LoadResData(ResourceId, "SOUND")
sndPlaySound SoundBuffer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub
Sub EndPlaySound()
sndPlaySound ByVal vbNullString, 0&
End Sub
'Parte Video
Private Sub cmdPlay_Click()
txtAviFile = "C:\search.avi"
Animation1.Open "C:\search.avi"
Animation1.Play
End Sub
Private Sub cmdClose_Click()
Animation1.Stop
Animation1.Close
txtAviFile = ""
End Sub
************
LA PARTE video COSI' FUNZIONA MA, se non capisco male, NON UTILIZZO IL FILE RISORSE.
Con LoadResData ma ottengo sempre notifiche di errore.
Potreste cortesemente aiutarmi a risolvere questo problema.
Grazie e cordiali saluti
|