|
| |
VB & Windows API| MP3 via API abspielen | |  | | Autor: neuerProg. | | Datum: 07.05.05 22:06 |
| Hallo,
ich habe mir unter "Tipps & Tricks" von vbarchiv.net den Code geholt, wie man MP3`s via API abspielen kann. Der Code sieht wie folgt aus:
' zunächst die benötigte API-Deklaration
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpszCommand As String, _
ByVal lpszReturnString As String, _
ByVal cchReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Abspielen einer MP3-Datei
' MCI öffnen
If mciSendString("open " & sFile & _
" type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
' MP3 abspielen
mciSendString "play MyMP3 from 0", 0, 0, 0
End If
Wiedergabe beenden und MCI schließen
mciSendString "stop MyMP3", 0, 0, 0
mciSendString "close MyMP3", 0, 0, 0
Jetzt möchte ich aber in dem FETT gedruckten Teil für "&sFile" keinen festen Pfad angeben, sondern mit "app.Path" einen variablen Pfad verwenden, damit mein Programm auch mit dem "Verpackungs und Weitergabe assistenten" auf anderen Rechnern verwendet werden kann, wo die Mp3 in einem anderen Verzeichnis liegt. Jetzt habe ich das so geschrieben:
If mciSendString("open " &"App.Path\titel.mp3 "&_
" type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
' MP3 abspielen
mciSendString "play MyMP3 from 0", 0, 0, 0
End If
Wenn ich das so schreibe, dann passiert leider garnichts! Was mache ich falsch?
Mfg
neuerProg. | |
| Re: MP3 via API abspielen | | | | Autor: Freggel | | Datum: 07.05.05 22:36 |
| Hallo,
auf den ersten Blick sieht es so aus, als müsstest du App.path\titel.mp3 trennen.
Probier mal so:
If mciSendString("open" & App.Path & "\titel.mp3 " &ich bin mir da allerdings nicht sicher..
Gruß Freggel | |
| Re: MP3 via API abspielen | | | | Autor: neuerProg. | | Datum: 08.05.05 18:47 |
| | hab das so ausprobiert, aber ich höre trotzdem keinen Ton!? | |
| Re: MP3 via API abspielen | | | | Autor: Freggel | | Datum: 09.05.05 09:00 |
| Hmmm,
vielleicht eine blöde Frage, aber hast du sowas u.a. in einem Modul stehen?
' ermittelt den Dos-Pfadnamen, ist erforderlich weil MCI Treiber Leerstellen
' als Separator interpretieren
Retval = GetShortPathNameA(FileName, Buffer, Len(Buffer))
FileName = Left$(Buffer, Retval) Könnte doch daran liegen oder nicht?
Die API erwartet doch normaler weiße den kurzen Dos Dateinamen...
War nur nee Idee..... ( bitte, nicht hauen  )
Gruß Freggel | |
| Re: MP3 via API abspielen | | | | Autor: TTSAddict | | Datum: 13.06.05 09:55 |
| Für derartige Aufgaben verwende ich gern das Filesystemobject, da man das sowieso (zumindest meine Wenigkeit *fg*) in jedem zweiten Projekt verwendet.
DOSPath = FSO.Getfile(Dateipfad).Shortpath | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
Mai 2024
Sie sind aktuell nicht angemeldet.