TKSoft-Online

MP3 Tags lesen und bearbeiten PDF Drucken E-Mail
( 2 Votes )
MS-Access Bsp. DB's - Bsp. Downloads Datei und System
Geschrieben von: TommyK   
Montag, den 03. März 2008 um 04:00 Uhr
Tags:

Problemstellung:

Oft wird die Frage gestellt wie man MP3Tags lesen bzw. schreiben kann aus einer MS-Access DB.

Aber wie geht das? Das erfahrt Ihr im Folgenden.

Voraussetzungen:

Das Bsp ist unter A00-A07 lauffähig

unter A07 muss sich Bsp-DB in einen „Vertrauenswürdigen Standort“ befinden

 

Um MP3Tags auszulesen kann man auf API-Funktionen zurückgreifen oder auf externe Dateien.
In diesem Bsp möchte ich eine Lösung mit der Audiogenie DLL vorstellen.
Diese DLL ist für den privaten Gebrauch Freeware und eine Weiterentwicklung des OCX-Controls.
Die DLL muss nicht registriert werden und nur in das WinSystem-Verzeichnis kopiert werden.
Eine andere Möglichkeit wäre das die DLL sich im gleichen Verzeichnis wie die DB befindet.
Wie das geht weiter unten.
Weitere Infos zur Audiogenie DLL hier

Funktionsweise:

Die DLL unterstützt die Formate AAC, APE, FLAC, MP3, MP4, MPEG, OGG, WAV und WMA.
Wobei ich mich in der Bsp.-DB auf das MP3-Format beschränke und auch nur einige
Eigenschaften benutze.

Um eine DLL im Verzeichnis der DB zu nutzen könnt Ihr auf eine API-Funktion zurückgreifen.

 

Es muss dann nur beim Start der DB die Function "InitDLL" mit dem Dateinamen der DLL
als Parameter aufrufen.


Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" _
    (ByVal lpLibFileName As String) As Long

Dim hModLib As Long

Function InitDLL(sFile As String) As Boolean
    If hModLib = 0 Then
        hModLib = LoadLibrary(sFile)     'Systempfad?
        If hModLib = 0 Then hModLib = LoadLibrary(CurrentProject.Path & "\" & sFile)    'Datenbankpfad?
        If hModLib = 0 Then MsgBox "Die benötigte Datei  " & sFile & _
        "  konnte nicht gefunden werden", vbCritical
    End If
    InitDLL = (hModLib <> 0)
End Function

Function FreeDLL()
    If hModLib <> 0 Then Call FreeLibrary(hModLib)
End Function

Das Klassenmodul "clsAudioGenie" stammt vom Autor der DLL ist so zu übernehmen.

Im Modul "mod_MP3" habe ich eine andere Lösung gewählt zum ermitteln der Titellänge.
Es ginge aber auch mit der DLL.
Wie jetzt die Tags gelesen bzw geschrieben werden könnt Ihr der Bsp-DB entnehmen.
Nätürlich sind Eurer Kreativität keine Grenzen gesetzt. Ihr könnt auch ganze Verzeichnisse
einlesen usw.

Download nur für registrierte User

MP3 Tags Lesen und bearbeiten

MP3 Tags Lesen und bearbeiten
für A00-A07

Die Zip-Datei enthält eine Version ab A00

Diese Kategorie erfordert eine Registrierung um Daten downloaden zu können.
Sollten Sie bereits registriert sein, so melden Sie sich bitte an.




 Erstellt am
Dateigröße
Downloads		 03.03.2008
335.79 KB
205

Downloads in dieser Kategorie

MS-Access Datei & System

MS-Access Datei & System

Seite: 1

Seite: 2


DatumKlicks
Total4876
Mi. 233
Di. 221
Mo. 213
So. 202
Sa. 192
Fr. 186
Do. 172
< Zurück   Weiter >
Aktualisiert ( Donnerstag, den 01. Dezember 2011 um 07:54 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173466 Downloads