Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Grundlageninfos in Sachen API
Autor: renni
Datum: 30.10.09 16:42
und das ist die Klasse "cMCIplayer": --- Option Explicit 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 Private Declare Function mciGetErrorString Lib "winmm.dll" _ Alias "mciGetErrorStringA" ( _ ByVal fdwError As Long, _ ByVal lpszErrorText As String, _ ByVal cchErrorText As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Public Enum mciType fromVideo = 0 fromSound = 1 End Enum ' MP3-Informationen (ID3v1) Private Type ID3v1 TAG As String * 3 ' TAG Title As String * 30 ' Titel des Liedes Artist As String * 30 ' Interpret Album As String * 30 ' Album Year As String * 4 ' Erscheinungsjahr Comments As String * 30 ' Kommentar Genre As Byte ' Indexnummer des Genres End Type ' Genre-Auflistung Private Enum Genre Blues = 0 ClassicRock = 1 Country = 2 Dance = 3 Disco = 4 Funk = 5 Grunge = 6 HipHop = 7 Jazz = 8 Meta = 9 NewAge = 10 Oldies = 11 Other = 12 Pop = 13 R_B = 14 Rap = 15 Reggae = 16 Rock = 17 Techno = 18 Industrial = 19 Alternative = 20 Ska = 21 DeathMetal = 22 Pranks = 23 Soundtrack = 24 EuroTechno = 25 Ambient = 26 TripHop = 27 Vocal = 28 JazzFunk = 29 Fusion = 30 Trance = 31 Classical = 32 Instrumental = 33 Acid = 34 House = 35 Game = 36 SoundClip = 37 Gospel = 38 Noise = 39 AltRock = 40 Bas = 41 Soul = 42 Punk = 43 Space = 44 Meditative = 45 InstrumentalPop = 46 InstrumentalRock = 47 Ethnic = 48 Gothic = 49 Darkwave = 50 TechnoIndustrial = 51 Electronic = 52 PopFolk = 53 Eurodance = 54 Dream = 55 SouthernRock = 56 Comedy = 57 Cult = 58 Gangsta = 59 Top40 = 60 ChristianRap = 61 Pop_Funk = 62 Jungle = 63 NativeAmerican = 64 Cabaret = 65 NewWave = 66 Psychadelic = 67 Rave = 68 Showtunes = 69 Trailer = 70 LoFi = 71 Tribal = 72 AcidPunk = 73 AcidJazz = 74 Polka = 75 Retro = 76 Musical = 77 RockNRoll = 78 HardRock = 79 Folk = 80 Folk_Rock = 81 NationalFolk = 82 Swing = 83 Fusion1 = 84 Bebob = 85 Latin = 86 Revival = 87 Celtic = 88 Bluegrass = 89 Avantgarde = 90 GothicRock = 91 ProgressiveRock = 92 PsychedelicRock = 93 SymphonicRock = 94 SlowRock = 95 BigBand = 96 Chorus = 97 EasyListening = 98 Acoustic = 99 Humour = 100 Speech = 101 Chanson = 102 Opera = 103 ChamberMusic = 104 Sonata = 105 Symphony = 106 BootyBass = 107 Primus = 108 PornGroove = 109 Satire = 110 SlowJam = 111 Club = 112 Tango = 113 Samba = 114 Folklore = 115 End Enum Dim mPath As String Dim mAlias As String Dim mStatus As String Dim mDurationMS As Long Dim mDurationStep As Long Dim bPlaying As Boolean Dim bPaused As Boolean Dim bChanged As Boolean Dim bMP3 As Boolean Dim MP3info As ID3v1 Dim iVolume As Long Dim iSpeed As Long Dim cFiles As Collection Private Sub Class_Initialize() mAlias = "tempMCI" iVolume = 1000 iSpeed = 1000 bPlaying = False Set cFiles = New Collection Debug.Print Now, "started" End Sub Private Sub Class_Terminate() Call mciStop Call mciClose Set cFiles = Nothing Debug.Print Now, "finished" End Sub Property Get File() As String Dim ii As Long ii = InStrRev(mPath, "\") If ii > 0 Then File = Mid(mPath, ii + 1) Else File = "" End If End Property Property Get PathAndFile() As String PathAndFile = mPath End Property Property Let PathAndFile(ByVal sPath As String) '** sicherheitshalber stoppen mciStop mciClose '** mp3-infos auslesen If Len(sPath) > 0 Then If LCase$(Right$(sPath, 3)) = "mp3" Then Call MP3_ReadID3v1(sPath) bMP3 = True Else bMP3 = False End If '** und öffnen mPath = sPath mciOpen mDurationMS = mciGetLength mDurationStep = 5 * 60000 '** 5 Minuten Else bMP3 = False mPath = "" End If bPaused = False End Property

Grundlageninfos in Sachen API	3.001	13uro	29.10.09 17:55
Re: Grundlageninfos in Sachen API	2.179	Martoeng	29.10.09 18:30
Re: Grundlageninfos in Sachen API	2.016	13uro	29.10.09 19:36
Re: Grundlageninfos in Sachen API	2.049	Martoeng	29.10.09 22:28
Re: Grundlageninfos in Sachen API	2.032	renni	30.10.09 16:40
Re: Grundlageninfos in Sachen API	2.078	renni	30.10.09 16:42
Re: Grundlageninfos in Sachen API	2.180	renni	30.10.09 16:44
Re: Grundlageninfos in Sachen API	2.096	renni	30.10.09 16:45
Re: Grundlageninfos in Sachen API	1.959	renni	30.10.09 16:47

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen