Newsgroup: it.comp.appl.access
Titolo: File MIDI

Buongiorno al NG
Vorrei sapere se è possibile il lacio di file midi da un'applicazione
Access. Alla pressione di un pulsante parta il sonoro scelto (senza magari
che necessariamente sia installato l'applicativo MS necessario - esiste
qualche altro applicativo + leggero ?)
Grazie
Luigi

 ha scritto nel messaggio
news:E2bZd.12711$zZ1.3...@twister1.libero.it...

Usa API PlaySound
'---------------------- Metti questo in un
Modulo ----------------------------------------
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
'---------------------- Fine Modulo ----------------------------------------
Private Sub Form_Load()
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

...

Come alternativa alle API puoi inserire un oggetto media Player:
In visualizzazione struttura:
Inserisci -> controllo ActiveX -> windows Media Player.
In questo modo puoi leggere midi e tutti i file associati a Windows
Media Player (anche Wav, Mp3, Avi etc...) inserendo il codice VB:
Mplayer.filename="C:\Nomefile.midi"
dove Mplayer è il nome del controllo creato nella maschera con la
procedura precedente, Nomefile.midi è il percorso completo del file
midi o di altro file con diversa estensione.

 ha scritto nel messaggio
news:423541ed$0$32339$5fc...@news.tiscali.it...

Grande .... come sempre
Ti ringrazio
Luigi

 Usa API PlaySound
Per i *.WAW ok, ma per i *.mid non funziona.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Access : Ver.97 - 2K
Beh il consiglio di ricerca su GOOGLE non esclude nessuno ti pare...?
;-)
Si può usare API (mciSendCommand) opure API (mciSendString), io preferisco
la 2°
per la maggiore semplicità d'uso, anche se odio che il PC suoni.
Nell'Help SDK di MSDN trovi tutti i dettagli:
 Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" _
    (ByVal Command As String, ByVal ReturnString As Any, ByVal ReturnLength
As Long, _
    ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
   Dim ret As Integer
   ' The following will open the sequencer with the C:\WIN31\CANYON.MID
   ' file. Canyon is the device_id.
   ret = mciSendString( _
   "open c:\windows\CANYON.MID type sequencer alias canyon", 0&, 0, 0)
   ' The wait tells the MCI command to complete before returning control
   ' to the application.
   ret = mciSendString("play canyon wait", 0&, 0, 0)
End Sub
Saluti


 ;-)
Ovvio, ci mancherebbe, San Google e 
mamma.com
 sono alla base della mia
colazione mattutina, quindi di fatto non esclude nessuno, ma non mi
riferivo alla volontà di avere una soluzione alternativa per i *.mid, ma
che Luigi aveva espressamente detto "file MIDI", e che con quella
soluzione non funzionavano.
Salutoni @Ale.
PS : ci sarai al CISA ?
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno


 Access : Ver.97 - 2K
Ciao
