Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Habe Probleme mit dem id3 Tag speichern
Autor: ~Hypno~
Datum: 28.08.02 15:35
Beim Speichern, der hat anscheiend Probleme mit dem UDT_MP3 Hier mal der des kleine Übungsprog, vielleicht kannst du ja mal schaun ob es bei dir geht: (man braucht: Textbox Name:Text1 mit "C:1.mp3" als text; Command1, command2 und eine mp3 datei mit dem Pfad C:1.mp3) Danke ' 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 Private Function MP3_ReadID3v1(ByVal sFile As String) As ID3v1 Dim F As Integer Dim UDT_MP3 As ID3v1 F = FreeFile Open sFile For Binary As #F Seek #F, LOF(F) - Len(UDT_MP3) + 1 Get #F, , UDT_MP3 Close #F If UDT_MP3.TAG = "TAG" Then ' "TAG" vorhanden? MP3_ReadID3v1 = UDT_MP3 End If End Function Private Function MP3_SaveID3v1(ByVal sFile As String, _ UDT_MP3 As ID3v1) Dim F As Integer F = FreeFile Open sFile For Binary Access Write As #F Seek #F, FileLen(sFile) - 127 Put #F, , UDT_MP3 Close #F End Function Private Sub Command1_Click() Dim sFile As String Dim UDT_MP3 As ID3v1 sFile = "c:1.mp3" UDT_MP3 = MP3_ReadID3v1(sFile) End Sub Private Sub Command2_Click() MP3_SaveID3v1 Text1.Text, UDT_MP3 End Sub

Habe Probleme mit dem id3 Tag speichern	106	~Hypno~	28.08.02 14:24
Re: Habe Probleme mit dem id3 Tag speichern	315	Dieter	28.08.02 14:31
Re: Habe Probleme mit dem id3 Tag speichern	72	~Hypno~	28.08.02 14:52
Re: Habe Probleme mit dem id3 Tag speichern	330	Dieter	28.08.02 14:59
Re: Habe Probleme mit dem id3 Tag speichern	60	~Hypno~	28.08.02 15:03
Re: Habe Probleme mit dem id3 Tag speichern	510	Dieter	28.08.02 15:21
Re: Habe Probleme mit dem id3 Tag speichern	68	~Hypno~	28.08.02 15:35
Re: Habe Probleme mit dem id3 Tag speichern	57	~Hypno~	29.08.02 02:01

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