Newsgroup: it.comp.appl.access
Titolo: Access e MP3, Chord Pro e multitasking

Salve a tutti.
Primo quesito:
Come da oggetto, dalla maschera del database che contiene un elenco di
brani musicali, lancio il relativo file MP3, oppore il testo con le
parole della canzone (*.txt) oppure il relativo file Chord Pro (per
chi non conosce questo programma-formato, si tratta del testo della
canzone con gli accordi). In futuro potrei provare a lanciare il
relativo file Guitar Pro oppure Karaoke.
Per inciso il codice è (dove cmdSuona è il pulsante per lanciare il
file):
Sub cmdSuona_Click()
   cmdSuona.Hyperlink.Addrress= <Nome del File>
End sub
Il sistema funziona anche in multitasking, nel senso che mentre suona
la musica con Windows Media Player  leggo le parole con Notepad.
La cosa si complica quando lancio il file *.Pro perché prima di
partire mi appare una finesta di avvertimento con questo messaggio:
"MS OFFICE
Apertura in corso di <Nome del File>
Alcuni files potrebbero contenere dei virus o danneggiare il computer.
E' importante assicurarsi che il file che si sta aprendo sia
attendibile. Aprire il File? OK Annulla"
Dando l'OK il file si apre regolarmente.
Come posso fare per evitare il ripetersi di questo messaggio ogni
volta?
Secondo quesito:
Come si estrae da un file MP3 (ammesso che siano stati opportunamente
inseriti) il Titolo, l'autore, il genere, l'Album e tutti quei dati
attinenti al pezzo musicale?
Grazie a tutti
Filippo

 Filippo
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


Private Type ID3v1Tag
    sTag As String * 3
    sTitle As String * 30
    sArtist As String * 30
    sAlbum As String * 30
    sYear As String * 4
    sComment As String * 28
    bNull As Byte
    bTrack As Byte
    bGenre As Byte
End Type
Function fctLeggiTag(Filename As String)
Dim sTag As String
Dim ID3v1Tags As ID3v1Tag
Open Filename For Binary As #1
 
 
  With ID3v1Tags
    Get #1, Len(Filename) - 127, .sTag
    If Not .sTag = "TAG" Then
      'lblNoTag.Caption = "No Tag"
      MsgBox "Non ci sono TAG"
      Close #1
      Exit Function
    End If
    Get #1, , .sTitle
    Get #1, , .sArtist
    Get #1, , .sAlbum
    Get #1, , .sYear
    Get #1, , .sComment
    Get #1, , .bNull
    Get #1, , .bTrack
    Get #1, , .bGenre
    Close #1
    Debug.Print "tag: " & .sTag
    Debug.Print "Titolo: " & RTrim(.sTitle)
    Debug.Print "Artista: " & RTrim(.sArtist)
    Debug.Print "Album: " & RTrim(.sAlbum)
    Debug.Print "Anno: " & RTrim(.sYear)
    Debug.Print "Commento: " & RTrim(.sComment)
    Debug.Print "Track: " & RTrim(.bTrack)
    Debug.Print "Genere" & RTrim(.bGenre)
  End With
End Function
MAssimiliano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

> Filippo
Grazie tante Roberto.
La seconda soluzione funziona e non appare il fastidioso messaggio di
MS Office.
Mi sai anche dire perché? (così, tanto per imparare)
Ciao
Filippo



Grazie Massimiliano, funziona.
Ho soltanto dovuto correggere
Get #1, Len(Filename) - 127, .sTag
con 
Get #1, LOF(1) - 127, .sTag
penso sia stata una svista perché la lunghezza della stringa
contenente il nome del file non c'entra niente giusto?
Inoltre toglimi una curiosità. Perché è una Function e non una SUB dal
momento che non restituisce nulla?
Comunque grazie ancora
Ciao
Filippo


          Per la sua riutilizzabilità in maschere diverse.
In realtà io la uso con la ricerca via api della directory; inserisco il dvd
e lui mi legge tutto il dvd e archivia l'elenco


 Ciao
