Oppure

Loading
06/02/09 6:09
Sal47
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
aaa
06/02/09 14:06
GrG
Non ti ho capito...
Qual'è il problema? Non riesci a visualizzare il video che vorresti riprodurre ad esempio in una picturebox?
aaa
06/02/09 18:06
Sal47
Cerco di spiegarmi meglio:
Vorrei poter vedere un file AVI utilizzando il file risorse, e quindi con l'istruzione LoadResData ma non ci riesco (cosa che invece con un file WAV mi riesce).Allego il form del programma (molto semplice, solo didattico) nel quale per tutti i file l'utilizzo di Risorse mi riesce e non per l'AVI.
Grazie ancora.
Sal47
aaa
06/02/09 19:14
GrG
ma per file di risorse che intendi O.o? che componente usi?
aaa
06/02/09 22:39
tippolo
Postato originariamente da Sal47:

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

Non ho mai utilizzato i file di risorse ma che io sappia se vuoi utilizzare una risorsa di tipo video .avi è necessario che tu la definisca nel file in questo modo:

ProvaVideo"File.AVI"
POI COMPILARE IL FILE res richiamandolo dal progetto così:
LoadResData(1, “ProvaVideo”),vbUnicode
aaa
07/02/09 9:06
Sal47
Mi dispiace, ma ancora non va con l'istr. LadResData(1,"Prova.Avi";), vbUnicode.
L'utilizzo di risirse con i file ico, Bmp e cur funziona come da listato seguente:
_____
Private Sub Command1_Click()
Form1.Caption = "< File .ico (Icona del Form)"
lblCur.Visible = True
lblBmp.Visible = True
Picture1.Visible = True
Picture3.Visible = True
Form1.Icon = LoadResPicture(102,vbResIcon)'icona Form
Picture1.Picture = LoadResPicture(101,vbResBitmap)' BMP castello
Picture3.Picture = LoadResPicture(103,vbResCursor)' icona cursore
________
Saluti
aaa
07/02/09 11:38
tippolo
Postato originariamente da Sal47:

Mi dispiace, ma ancora non va con l'istr. LadResData(1,"Prova.Avi";), vbUnicode.

Saluti

avevo premesso di non averlo mai utilizzato, ti ho solo postato quello che ho reperito in rete 8-|
aaa