Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - File risorse in VB6
Forum - Visual Basic 6 - File risorse in VB6

Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Segnala al moderatore
Postato alle 7:09
Venerdì, 06/02/2009
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


Sal47 ha allegato un file: Risorse.JPG (9697 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:06
Venerdì, 06/02/2009
Non ti ho capito...
Qual'è il problema? Non riesci a visualizzare il video che vorresti riprodurre ad esempio in una picturebox?

PM Quote
Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Segnala al moderatore
Postato alle 19:06
Venerdì, 06/02/2009
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


Sal47 ha allegato un file: Form.JPG (82989 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 20:14
Venerdì, 06/02/2009
ma per file di risorse che intendi O.o? che componente usi?

PM Quote
Avatar
tippolo (Normal User)
Pro


Messaggi: 157
Iscritto: 21/09/2008

Segnala al moderatore
Postato alle 23:39
Venerdì, 06/02/2009
Testo quotato

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:

Codice sorgente - presumibilmente Plain Text

  1. ProvaVideo"File.AVI"

POI COMPILARE IL FILE res richiamandolo dal progetto così:
Codice sorgente - presumibilmente Plain Text

  1. LoadResData(1, “ProvaVideo”),vbUnicode


PM Quote
Avatar
Sal47 (Normal User)
Pro


Messaggi: 96
Iscritto: 05/02/2009

Segnala al moderatore
Postato alle 10:06
Sabato, 07/02/2009
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

PM Quote
Avatar
tippolo (Normal User)
Pro


Messaggi: 157
Iscritto: 21/09/2008

Segnala al moderatore
Postato alle 12:38
Sabato, 07/02/2009
Testo quotato

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-|

PM Quote