Un4seen.Bass.Misc Bild zu MP3 Tags hinzufügen

roepke · 20. Oktober 2022, 23:27

Hat schon mal jemand ein Bild zu den Tags hinzugefügt?
Bei mir klappt das einfach nicht.

VB.NET-Quellcode

Dim tag As New TAG_INFO()
tag.tagType = BASSTag.BASS_TAG_ID3V2
tag.title = "Titel"
tag.artist = "Artist"
tag.genre = "Genre"
Dim pic = New TagPicture("d:/mypic.jpg")
tag.AddPicture(pic)
LameEncoder.TAGs = tag

Alle Tags werden in der anschließend erzeugten MP3 angelegt, aber das Bild bleibt leer.
Klicke ich die MP3 Datei m Exploerer an, werden alle Tags angezeigt, aber kein Bild.

Ich habe auch u.A. folgendes probiert:

VB.NET-Quellcode

Dim img As Image = Image.FromFile("d:/mypic.jpg")
Dim pic = New TagPicture(img, TagPicture.PICTURE_TYPE.FrontAlbumCover, "")
tag.AddPicture(pic)

Aber auch ohne Erfolg.

*Topic verschoben*

-Franky- · 21. Oktober 2022, 08:44

roepke schrieb:

Hat schon mal jemand ein Bild zu den Tags hinzugefügt?

Jupp, hab ich. Allerdings nicht mit der Bass. Mit der Bass kenne ich mich auch nicht aus. Die Frage wäre, wird das Bild tatsächlich nicht hinzugefügt? Die MP3 müsste ja entsprechend größer werden. Wenn doch, ist der Tag auch ID3v2 konform wie in id3.org/id3v2.3.0 beschrieben -> 4.15. Attached picture ?

Ansonsten kenne ich halt eine Möglichkeit per COM-Interface IPropertyStore ein Bild zu einer MP3 hinzuzufügen. Allerdings mit dem Nachteil das man nicht angeben kann, das es sich um ein FrontCover oder oder handelt. Zumindest zeigt der Explorer dieses Bild aber an.

BitBrösel · 21. Oktober 2022, 08:51

Also die BASS kann nur Tags lesen. Siehe hier:
bass.radio42.com/help/html/c25…22d-b7b5-4bf264137901.htm

Nur BASS_TAG_GetFromFile, BASS_TAG_GetFromURL, sowie ReadID3v1 und 2.

Will man das über ein StreamHandle machen geht es auch nicht, da gibt es auch nur BASS_ChannelGetTags.

Ich hab auch schon diverse Tags geschrieben. Geht los mit EXIF, ID3 (bis 2.4), MonkeyAudio(APE) und Matroska(nur lesend). Kann man mit ein wenig Mühe leicht alles selbst schreiben. Gibt aber auch fertiges Bibliotheken auf Github oder auch Nuget Packete.

Edit:
@roepke
Warte mal, so kann die bass die tags wirklich schreiben? Verstehe nicht, warum das nicht auch bei bereits bestehenden Dateien geht. Du scheint ja was aufzunehmen, wie genau? Nutzt du FFMPEG mit der BASS zusammen?

roepke · 21. Oktober 2022, 09:21

Danke für die Antworten.

@-Franky- hättest Du ein konkretes Beispiel

Also die BASS kann nur Tags lesen.

Sicher?
bass.radio42.com/help/html/7e1…54b-77d7-f0d08466284c.htm
Weil mit

VB.NET-Quellcode

Private LameEncoder As EncoderLAME 'Class Un4seen.Bass.Misc.EncoderLAME
Private Sub btn_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Start.Click
LameEncoder = New EncoderLAME(Dummy)
LameEncoder.LAME_UseVBR = False
LameEncoder.LAME_Bitrate = EncoderLAME.BITRATE.kbps_320
LameEncoder.LAME_TargetSampleRate = EncoderLAME.SAMPLERATE.Hz_48000
LameEncoder.LAME_Mode = EncoderLAME.LAMEMode.Stereo
Dim tag As New TAG_INFO()
tag.tagType = BASSTag.BASS_TAG_ID3V2
tag.title = "Titel"
tag.artist = "Artist"
tag.genre = "Genre"
LameEncoder.TAGs = tag
LameEncoder.OutputFile = "MyFile.mp3"
LameEncoder.Start(Nothing, IntPtr.Zero, False)
End Sub

Wird die MP3 erzeugt und die Tags .tagType, .title, .artist, .genre gesetzt.

BitBrösel · 21. Oktober 2022, 10:03

roepke schrieb:

Sicher?

Zumindest bei bestehenden Dateien. Da du konvertierst musst du AFAIK auch FFMPEG nutzen, ich meine mich zu erinnern das das nur damit geht, könnte sein das da das Problem liegt. Ich schau im Laufe des Tages mal ob man was machen kann. Hast du mal mit einem Tool geschaut ob das Bild wirklich nicht drin ist? Könnte sein das Windows das nicht aktualisiert hat.

roepke · 21. Oktober 2022, 10:08

Jepp. Ich hab's mir mit Mp3Tag angesehen und da ist kein Bild drin.

-Franky- · 21. Oktober 2022, 11:33

roepke schrieb:

@-Franky- hättest Du ein konkretes Beispiel

Für .NET derzeit nicht. Nur für VB6. Spielt aber eigentlich keine Rolle da das ganze COM basiert ist. Allerdings geht das da auch nur bei bestehenden Dateien. Im Prinzip erstellst Dir ein COM-Interface IPropertyStore über die API SHGetPropertyStoreFromParsingName mit den Flags GPS_READWRITE Or GPS_HANDLERPROPERTIESONLY von der Datei. Per IPropertyStore.SetValue schreibst dann dann das Bild, das zuvor in ein COM-Interface IStream überführt wurde (zb per CreateStreamOnHGlobal, besser per SHCreateMemStream), als VT_STREAM mit System.ThumbnailStream (PROPERTYKEY) in die MP3 und am Ende das ganze mit IPropertyStore.Commit finalisieren.

Edit: Auf die schnelle für .NET. Beim löschen wird zwar das Bild aus der MP3 gelöscht, aber der verwendete Platz in der MP3 nicht freigegeben! Desweiteren lassen sich über den IPropertyStore auch alle anderen MP3-Tags auslesen und teilseise auch schreiben und den IPropertyStore kann man auf alle möglichen Dateien anwenden (zB Officedokumente, Bilder, Video usw)

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices
Public Class Form1
Private Const S_OK As Integer = &H0
Private Const IID_IPropertyStore As String = "886d8eeb-8cf2-4446-8d02-cdba1dbdcf99"
Private Enum GETPROPERTYSTOREFLAGS As Integer
GPS_DEFAULT = &H0
GPS_HANDLERPROPERTIESONLY = &H1
GPS_READWRITE = &H2
GPS_TEMPORARY = &H4
GPS_FASTPROPERTIESONLY = &H8
GPS_OPENSLOWITEM = &H10
GPS_DELAYCREATION = &H20
GPS_BESTEFFORT = &H40
GPS_NO_OPLOCK = &H80
GPS_PREFERQUERYPROPERTIES = &H100
GPS_EXTRINSICPROPERTIES = &H200
GPS_EXTRINSICPROPERTIESONLY = &H400
GPS_VOLATILEPROPERTIES = &H800
GPS_VOLATILEPROPERTIESONLY = &H1000
GPS_MASK_VALID = &H1FFF
End Enum
Private Enum VARTYPE As UShort
VT_EMPTY = 0
VT_NULL = 1
VT_I2 = 2
VT_I4 = 3
VT_R4 = 4
VT_R8 = 5
VT_CY = 6
VT_DATE = 7
VT_BSTR = 8
VT_DISPATCH = 9
VT_ERROR = 10
VT_BOOL = 11
VT_VARIANT = 12
VT_UNKNOWN = 13
VT_DECIMAL = 14
VT_I1 = 16
VT_UI1 = 17
VT_UI2 = 18
VT_UI4 = 19
VT_I8 = 20
VT_UI8 = 21
VT_INT = 22
VT_UINT = 23
VT_VOID = 24
VT_HRESULT = 25
VT_PTR = 26
VT_SAFEARRAY = 27
VT_CARRAY = 28
VT_USERDEFINED = 29
VT_LPSTR = 30
VT_LPWSTR = 31
VT_RECORD = 36
VT_FILETIME = 64
VT_BLOB = 65
VT_STREAM = 66
VT_STORAGE = 67
VT_STREAMED_OBJECT = 68
VT_STORED_OBJECT = 69
VT_BLOB_OBJECT = 70
VT_CF = 71
VT_CLSID = 72
VT_ILLEGALMASKED = 4095
VT_VECTOR = 4096
VT_ARRAY = 8192
VT_BYREF = 16384
End Enum
Private Structure PROPERTYKEY
Dim fmtid As Guid
Dim pid As Integer
End Structure
Private Structure CArray
Dim cElems As UInteger
Dim pElems As IntPtr
End Structure
<StructLayout(LayoutKind.Explicit, Size:=16)>
Private Structure PROPVARIANT
<FieldOffset(0)> Dim vt As VARTYPE
<FieldOffset(2)> Dim wReserved1 As UShort
<FieldOffset(4)> Dim wReserved2 As UShort
<FieldOffset(6)> Dim wReserved3 As UShort
<FieldOffset(8)> Dim pstrm As IntPtr 'IStream
<FieldOffset(8)> Dim cArray As CArray 'BLOB
End Structure
<DllImport("Shell32.dll", EntryPoint:="SHGetPropertyStoreFromParsingName")>
<PreserveSig> Private Shared Function SHGetPropertyStoreFromParsingName(<[In], MarshalAs(UnmanagedType.LPWStr)> pszPath As String,
<[In]> pbc As IntPtr,
<[In]> flags As GETPROPERTYSTOREFLAGS,
<[In]> ByRef riid As Guid,
<Out, MarshalAs(UnmanagedType.Interface)> ByRef ppv As IPropertyStore) As Integer
End Function
<DllImport("Propsys.dll", EntryPoint:="PSGetPropertyKeyFromName")>
<PreserveSig> Private Shared Function PSGetPropertyKeyFromName(<[In], MarshalAs(UnmanagedType.LPWStr)> pszName As String,
<Out> ByRef propkey As PROPERTYKEY) As Integer
End Function
<DllImport("Shlwapi.dll", EntryPoint:="SHCreateMemStream")>
<PreserveSig> Private Shared Function SHCreateMemStream(<[In], MarshalAs(UnmanagedType.LPArray)> pInit As Byte(),
<[In]> cbInit As Integer) As IntPtr
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim PropertyStore As IPropertyStore = Nothing
Dim hResult As Integer = SHGetPropertyStoreFromParsingName("D:\test.mp3", IntPtr.Zero,
GETPROPERTYSTOREFLAGS.GPS_HANDLERPROPERTIESONLY Or
GETPROPERTYSTOREFLAGS.GPS_READWRITE,
New Guid(IID_IPropertyStore), PropertyStore)
If hResult = S_OK Then
Dim PROPKEY As New PROPERTYKEY
If PSGetPropertyKeyFromName("System.ThumbnailStream", PROPKEY) = S_OK Then
' Bild, vorzugsweise JPG
Dim PictureBytes As Byte() = IO.File.ReadAllBytes("D:\test.jpg")
Dim pIStream As IntPtr = SHCreateMemStream(PictureBytes, PictureBytes.Length)
If pIStream <> IntPtr.Zero Then
Dim PROPVAR As New PROPVARIANT
' Bild löschen, da brauch man auch kein IStream
'PROPVAR.vt = VARTYPE.VT_EMPTY
'PROPVAR.pstrm = IntPtr.Zero
PROPVAR.vt = VARTYPE.VT_STREAM
PROPVAR.pstrm = pIStream
If PropertyStore.SetValue(PROPKEY, PROPVAR) = S_OK Then
PropertyStore.Commit()
Debug.Print("OK")
End If
Marshal.Release(pIStream)
End If
End If
Marshal.ReleaseComObject(PropertyStore)
Else
Try
Marshal.ThrowExceptionForHR(hResult)
Catch ex As Exception
Debug.Print(ex.Message)
End Try
End If
End Sub
#Region "Interface IPropertyStore"
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IPropertyStore)>
Private Interface IPropertyStore
<PreserveSig> Function GetCount(<Out> ByRef cProps As Integer) As Integer
<PreserveSig> Function GetAt(<[In]> iProp As Integer,
<Out> ByRef pkey As PROPERTYKEY) As Integer
<PreserveSig> Function GetValue(<[In]> ByRef key As PROPERTYKEY,
<Out> ByRef pv As PROPVARIANT) As Integer
<PreserveSig> Function SetValue(<[In]> ByRef key As PROPERTYKEY,
<[In]> ByRef pv As PROPVARIANT) As Integer
<PreserveSig> Function Commit() As Integer
End Interface
#End Region
End Class

BitBrösel · 21. Oktober 2022, 13:55

Ich werde heute vermutlich nicht dazu kommen mit der BASS+FFMpeg zu probieren. Aber da du eh FFMpeg in deinem BIn Ordnern hast, kannst du auch einfach FFMpeg via Commandozeile(bzw. Process.Start) benutzen.

So kannst du das mit einer Stapelverarbeitungsdatei machen,

Quellcode

ffmpeg -i input.wav -i "Z:\PATH TO THE IMAGE\FILENAME.jpg" -map 0 -c:a libmp3lame -b:a 320K -ar 48000 -map 1 -id3v2_version 4 -metadata:s:v comment="AlbumArt" -metadata genre="Genre" -metadata artist="Artist" -metadata title="Title" output.mp3

Ist das Problem zwar nicht gelöst, aber umgangen. Ich denke wenn du das erstmal so machst, wirst du das selbst mit Process.Start + Argument schaffen.

Edit:
@roepke
Warum hast du mich nicht drauf aufmerksam gemacht, das ich falsch lag mit FFMpeg. Die Lame.exe und lame_enc.dll braucht man dafür. Was genau machst du, eine Datei konvertieren, oder ein Webradio aufzeichnen und konvertieren?
Wie groß ist die ausgegebene Datei bei dir?

BitBrösel · 21. Oktober 2022, 17:57

Ich habe eben mal die ganze Geschichte näher untersucht und mal geschaut, was die BassNet der Lame.exe denn so als Argumente, rübergibt. Es wird kein Image zugewiesen, ich probiere nach dem Abendessen mal was aus, editiere dann hier.

Edit @roepke
Also das mit dem EncoderLAME ganz schnell vergessen. Mit FFMpeg lag ich doch nicht ganz falsch, aber im Zusammenhang mit dem EncoderLAME. Ich war mir sicher, das ich sowas für jemanden mal mit FFMpeg gemacht hab, hier so funktioniert das mit der Lame.exe und ohne den Bassnet-EncodeLame dingens.

C#-Quellcode

int stream = Bass.BASS_StreamCreateFile(filename, 0, 0, BASSFlag.BASS_STREAM_DECODE);
if(stream != 0)
{
int bitWidth = 32;
int bitRate = 320;
float sampleRate = 48.0f;
string title = "TITLE";
string genre = "GENRE";
string artist = "ARTIST";
string imagePath = "PATH TO IMAGE.jpg";
string outfile = "myfile.mp3";
string lameCommand = $"lame.exe --bitwidth {bitWidth} -b {bitRate} --resample {sampleRate.ToString("0.0", System.Globalization.CultureInfo.InvariantCulture)} --ignore-tag-errors --tt \"{title}\" --ta \"{artist}\" --tg \"{genre}\" --ti \"{imagePath}\" - \"{outfile}\"";
int encodeHandle = BassEnc.BASS_Encode_Start(stream, lameCommand, BASSEncode.BASS_ENCODE_FP_32BIT, null, IntPtr.Zero);
if (encodeHandle == 0)
{
MessageBox.Show(Bass.BASS_ErrorGetCode().ToString());
Close();
}
byte[] buffer = new byte[1048576];
while (Bass.BASS_ChannelIsActive(stream) == BASSActive.BASS_ACTIVE_PLAYING)
{
// durch das callen dieser Funktion wird der encoder automatisch gefüttert
//alternativ keinen decoding stream anlegen(sondern wie normal beim abspielen), und Bass_ChannelPlay callen
//dazu würde ich dann ein Callback nutzen, sollte ENCODEPROC sein und dort diese Funktion callen
int len = Bass.BASS_ChannelGetData(stream, buffer, buffer.Length);
}
BassEnc.BASS_Encode_Stop(encodeHandle);
Bass.BASS_StreamFree(stream);
}
else
{
MessageBox.Show(Bass.BASS_ErrorGetCode().ToString());
}

-Franky- · 21. Oktober 2022, 21:58

Hi

Ich finde die Konstellation von Bass mit Command an lame oder ffmpeg Eigenartig. Kann man machen, wäre aber nicht mein Weg wenn ich vor diese Aufgabe stehen würde.

Ich würde da eher mit der Windows Media Foundation oder per WinRT transcodieren und entsprechende Tags lesen/schreiben. Es werden keine zusätzliche Drittkomponenten benötigt da bereits alles in Windows vorhandenen ist.

BitBrösel · 21. Oktober 2022, 22:54

Ich bastel im Moment an einem Mediaplayer mit der BASS. Mach mir das mit WPF richtig schön. Dabei entstand auch ein 2. Projekt, nur ein Webradio(mit der radio-browser.info API), da kommt auch noch Aufnahme rein. Da ich die Webradiostreams eh mit der BASS abspiele und auch aufnehmen einbauen werde(ohne Konvertierung), finde ich es nicht falsch, falls der User irgendwelche Encoder installiert hat, das er diese verwenden kann, daher werde ich das optional einbauen zumindest für FFMpeg, damit kenn ich mich aus und es ist recht einfach den User durch ComboBox(en)-Auswahl die Parameter einstellen zu lassen.

So Franky, jetzt mach ich ein Thema auf, jetzt hast du mich soweit gebracht.

roepke · 22. Oktober 2022, 13:56

@-Franky- Danke. Ich hab's jetzt auf Deine Art mal ausprobiert und es funzt. Auch wenn ich noch nicht so ganz verstehe was im Code genau passiert. Ich schaue mir den nächste Woche mal Ruhe an und versuche ihn zu verstehen.
@BitBrösel Deinen Vorschlag probiere ich nächste Woche auch mal aus, vielen Dank dafür.

-Franky- · 22. Oktober 2022, 20:12

@roepke

IPropertyStore ist das COM Interface das auch vom Explorer verwendet wird um Dateieigenschaften auszulesen oder zu schreiben. Also alle Eigenschaften die Du im Explorer in der Detailansicht oder im Eigenschaften-Dialog zur Datei sehen kannst.

Du kannst ja mal für SHGetPropertyStoreFromParsingName nur das Flag GPS_DEFAULT setzen und dann mit IPropertyStore.GetCount die Anzahl der Eigenschaften ermitteln, die man über IPropertyStore auslesen könnte. Per IPropertyStore.GetAt holst Dir den PROPERTYKEY der Eigenschaft. Mit der API PSGetNameFromPropertyKey kann man den PROPERTYKEY in einen CanonicalName konvertieren. Mit IPropertyStore.GetValue holst Dir halt den Wert der Eigenschaft -> PROPVARIANT. In PROPVARIANT.vt steht halt um was es sich handelt. Die Structure PROPVARIANT ist im obrigen Beispiel aber nicht komplett da es ja neben pstrm auch andere Member in Abhängigkeit zu PROPVARIANT.vt gibt. Na jedenfalls könntest Du, wenn Du die Eigenschaft System.ThumbnailStream für eine MP3 ausliest, den Pointer pstrm (IStream) wieder zu einem Bild konvertieren. Also der umgekehrte Weg wie oben gezeigt.

Un4seen.Bass.Misc Bild zu MP3 Tags hinzufügen

Un4seen.Bass.Misc Bild zu MP3 Tags hinzufügen

VB.NET-Quellcode

VB.NET-Quellcode

roepke schrieb:

VB.NET-Quellcode

roepke schrieb:

roepke schrieb:

VB.NET-Quellcode

Quellcode

C#-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben