[VB-6] Riprodurre mp3 e midi con VB6

[Meldon]

Ciao a tutti,
mentre stavo lavorando ha un programma di riproduzione audio utilizzando il MicrosoftMediaControl mi sono accorto che non riuscivo a riprodurre file mp3 e midi ma solo file wave.

Gli mp3, mi sono detto possono anche passare, ma la MIDI èun estensione che è possibile immettere nella proprietà FileName dell'MMC anche in fase di progettazione. Quindi mi sono chiesto, perchè non riproduce niente??
Siccome purtroppo non ho trovato risposta a questa domanda la faccio a voi è spero che mi possiate aiutare.

Vi ringrazio in anticipo per il vostro aiuto. Alla prossima.

[Meldon]

Sono riuscito a trovare un OCX in grado di riprodurre perfettamente gli mp3. Anche se non sono ancora riuscito a riprodurre file MIDI vorrei terminare con gli mp3.

Qualcuno di vuoi che ha giàusato questo OCX (il suo nome è MP3OCX) saprebbe dirmi come faccio a rilevare la lunghezza della traccia audio??

Vi ringrazio ancora, a presto

[Meldon]

Nessuno sa darmi qualche indicazione???
Sono ben accetti anche gli aiuti riguardo alla riproduzione di file MIDI

[Mabi]

Guarda questa discussione.

[Meldon]

Ti ringrazio molto per l'aiuto ma ora ho riscontrato un altro problema. Come faccio a far capire al programma che tipo di file voglio riprodurre in modo che lui possa scegliere la corretta Funzione da eseguire???

In poche parole come faccio a conoscere l'estensione di un file???


Vi ringrazio anticipatamente per l'aiuto, a presto

[Oscar87k]

se ti interessa un riproduttore mp3, wav l'ho già fatto io personalmente. mandami un email cosi ti passo le sorgenti.
snoopy.87@virgilio.it

[Mabi]

Originariamente inviato da Meldon
In poche parole come faccio a conoscere l'estensione di un file???

Dipende da come scegli il file da riprodurre...
Utilizzando una CommonDialog ti basta semplicemente estrapolare gli ultimi 3 caratteri, cioè quelli dell'estensione.

Originariamente inviato da Meldon
Come faccio a far capire al programma che tipo di file voglio riprodurre in modo che lui possa scegliere la corretta Funzione da eseguire???

Prova così (ti serve una CommonDialog e un CommandButton):

Private Sub Command1_Click()
With CommonDialog1
  .DialogTitle = "Selezionare il file audio"
  .Filter = "File audio (*.wav, *.mid, *.mp3)|*.wav;*.mid;*.mp3"
  .Flags = &H4
  .ShowOpen
  If Len(Trim(.FileName)) > 0 Then
    RiproduciFileAudio (Right(.FileName, 3))
  End If
End With
End Sub

Private Sub RiproduciFileAudio(ByVal TipoFile As String)
Select Case TipoFile
  Case Is = "wav"
    'Riproduci Wave
  Case Is = "mid"
    'Riproduci Midi
  Case Is = "mp3"
    'Riproduci Mp3
End Select
End Sub

Ciao

[Meldon]

Ti ringrazio davvero molto per l'aiuto, nel farattempo mi ero arrangiato con gli indici dei filtri suddividendo le estesioni in tre diversi filtri ma credo che in questo modo l'applicazione sia più sicura.

Ti ringrazio davvero molto, a presto

[MMarzia]

Originariamente inviato da Oscar87k
se ti interessa un riproduttore mp3, wav l'ho già fatto io personalmente. mandami un email cosi ti passo le sorgenti.

questa mi era sfuggita..

per questi scambi accordatevi in privato

[Mabi]

Originariamente inviato da Meldon
Ti ringrazio davvero molto, a presto

Originariamente inviato da MMarzia
questa mi era sfuggita..