Aktualisiert: 18.05.2007
Newest
  Tipps & Tricks
1.) Anpassung Controls an ein Formular (VB6)
2.) Kopier-Wiederaufnahme (VB6)
3.) Uhrzeit - alle Kürzel (VB6)
4.) Eigene IP-Addresse auslesen (VB6)
5.) Felder - Arrays (allgemeines, deklarieren) (VB.NET)
  Tutorials
1.) Prüfziffernverfahren österreichischer Sozialversic (VB6)
2.) Kommunikation zwischen Formularen bzw. Modulen (VB.NET)
3.) Musikdatein mittels API abspielen (VB6)
4.) Inputbox mit zusätzlichem Button (VB6)
5.) Access & MySQL | Teil 2/2 (VB6)
  Neueste Kommentare
  (letzten 50)
Thomas(21.02.2007 - 14:03)
Dag Johans..(16.11.2006 - 03:44)
Sebi2020(20.10.2006 - 21:43)
Suchen


 Multimedia > Musikdatein mittels API abspielen     von MiB 
Seite: 1 von 3
  -    |  vor
Allgemeines:

Diese Tutorial wird mit der Zeit laufend erweitert.

Stand 21.03.2004:
 - Abspielfunktion
 - Pausefunktion
 - Stopfunktion
 - ges. Lieddauer (min:sec)
 - mom. Abspielposition (min:sec)
 - Dateiauswahl aus einer Drive- & Dir- & FileListBox


Zusätzliche Informationen finden Sie im Forum:
   zum Thread


API's:

Mit Hilfe der API mciSendString werden wir auf den MCI-Gerätetreiber zugreifen.
Public 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

MCI-Treiber haben leider ein Problem mit langen Dateinamen. Dafür gibt es die API GetShortPathNameA, die einen langen Pfad- bzw. Dateinamen in einen Dospfad- bzw. Dosdateinamen konvertiert.
Private Declare Function GetShortPathNameA Lib "kernel32" _

(ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
ByVal cchBuffer As Long) As Long

Mit Hilfe dieser beiden API's ist es nun möglich, beliebige Musikdatien abzuspielen.
Detailierte Informationen zu den beiden API's finden Sie auf der VB API Helpline - HP.


Aufbau:

Dazu plazieren Sie auf Ihrer Form1 folgende Steuerlemente:
 - CommandButton (Name: cmdPlay, Caption: Play)
 - CommandButton (Name: cmdBreak, Caption: Pause)
 - CommandButton (Name: cmdStop, Caption: Stop)
 - Label (Name: lblaktPos)
 - Label (Name: lblLaenge)
 - Label (Name: lblZustand)
 - Timer
 - DriveListBox
 - DirListBox
 - FileListBox

Fügen Sie in Ihrem Projekt ein neues Modul ein (Name: Modul1).
(Projekt - Modul hinzufügen)

Seite: 1 von 3     -    |  vor   dazugefügt am:21.03.2004 | ZIP-Download | bereits betrachtet:14457 mal
Empfehlen Sie diese Seite | zu Favoriten hinzufügen  Copyright 2004 by visualbasic.at