Spieldauer MP3/MP4 Datei ermitteln

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    DTF schrieb:

    Also via IPropertyStore geht es doch
    Aber sowas von und ist kaum aufwendiger als die MF-Variante. :D

    WinRT-Variante (war nur ein Testprojekt, daher ist da ein bissel mehr drin, mit Verweis auf die Windows.winmd, zusätzlich das Nuget-Paket: System.Runtime.WindowsRuntime.dll, kann man natürlich auch ohne Verweis und NuGet ausschließlich mit WinRT COM-Interfaces und APIs machen)
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports Windows.Storage
    3. Imports Windows.Storage.FileProperties
    5. Public Class Form1
    7. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. Dim FOP As New Pickers.FileOpenPicker With {
    10. .SuggestedStartLocation = Pickers.PickerLocationId.ComputerFolder,
    11. .ViewMode = Pickers.PickerViewMode.List
    12. }
    14. Dim FTF As IList(Of String) = FOP.FileTypeFilter
    15. FTF.Add("*")
    17. If FOP.InitializeWithWindow(Me) Then
    19. Dim StorFile As StorageFile = Await FOP.PickSingleFileAsync
    21. If StorFile IsNot Nothing Then
    23. GetFileProperties(StorFile.Path)
    25. End If
    27. End If
    29. End Sub
    31. Private Async Sub GetFileProperties(File As String)
    33. Dim StorFile As StorageFile = Await StorageFile.GetFileFromPathAsync(File)
    34. If StorFile IsNot Nothing Then
    36. Dim FileProperties As IDictionary(Of String, Object) = Await StorFile.Properties.RetrievePropertiesAsync(Nothing)
    37. If FileProperties IsNot Nothing Then
    38. Debug.Print("PropertyCount: " & FileProperties.Count.ToString)
    39. If FileProperties.Count > 0 Then
    40. Try
    41. For Each ValuePair As KeyValuePair(Of String, Object) In FileProperties
    42. Debug.Print(ValuePair.Key & ": " & GetValuePairValueAsString(ValuePair))
    43. Next
    44. Catch ex As Exception
    45. ' do nothing
    46. End Try
    47. End If
    48. End If
    50. Dim ExtraProperties As New List(Of String)
    51. 'ExtraProperties.Add("{b725f130-47ef-101a-a5f1-02608c9eebac} 18")
    52. ExtraProperties.Add("System.FileAllocationSize")
    54. Dim ExtraFileProperties As IDictionary(Of String, Object) = Await StorFile.Properties.RetrievePropertiesAsync(ExtraProperties)
    55. If ExtraFileProperties IsNot Nothing Then
    56. If ExtraFileProperties.Count > 0 Then
    57. Try
    59. For Each ValuePair As KeyValuePair(Of String, Object) In ExtraFileProperties
    60. Debug.Print(ValuePair.Key & ": " & GetValuePairValueAsString(ValuePair))
    61. Next
    62. Catch ex As Exception
    63. ' do nothing
    64. End Try
    65. End If
    66. End If
    68. Debug.Print("Name: " & StorFile.Name)
    69. Debug.Print("Path: " & StorFile.Path)
    70. Debug.Print("DateCreated: " & StorFile.DateCreated.DateTime.ToString)
    71. Debug.Print("ContentType: " & StorFile.ContentType)
    72. Debug.Print("DisplayName: " & StorFile.DisplayName)
    73. Debug.Print("DisplayType: " & StorFile.DisplayType)
    74. Debug.Print("FileType: " & StorFile.FileType)
    75. Debug.Print("FolderRelativeId: " & StorFile.FolderRelativeId)
    76. Debug.Print("Attributes: " & StorFile.Attributes.ToString)
    77. Debug.Print("ProviderId: " & StorFile.Provider.Id)
    78. Debug.Print("ProviderDisplayName: " & StorFile.Provider.DisplayName)
    80. Dim StdProperties As BasicProperties = Await StorFile.GetBasicPropertiesAsync
    81. If StdProperties IsNot Nothing Then
    82. Debug.Print("ItemDate: " & StdProperties.ItemDate.DateTime.ToString)
    83. Debug.Print("DateModified: " & StdProperties.DateModified.DateTime.ToString)
    84. Debug.Print("Size: " & StdProperties.Size.ToString)
    85. End If
    87. Dim ContentType As String = StorFile.ContentType
    88. If ContentType.Contains("image") Then
    89. Dim ImgProperties As ImageProperties = Await StorFile.Properties.GetImagePropertiesAsync
    90. If ImgProperties IsNot Nothing Then
    91. Debug.Print("Orientation: " & ImgProperties.Orientation.ToString)
    92. Debug.Print("CameraManufacturer: " & ImgProperties.CameraManufacturer)
    93. Debug.Print("CameraModel: " & ImgProperties.CameraModel)
    94. Debug.Print("Width: " & ImgProperties.Width.ToString)
    95. Debug.Print("Height: " & ImgProperties.Height.ToString)
    96. Debug.Print("Longitude: " & ImgProperties.Longitude.ToString)
    97. Debug.Print("Latitude: " & ImgProperties.Latitude.ToString)
    98. Debug.Print("Rating: " & ImgProperties.Rating.ToString)
    99. Debug.Print("DateTaken: " & ImgProperties.DateTaken.DateTime.ToString)
    100. Debug.Print("Title: " & ImgProperties.Title)
    101. Debug.Print("Keywords: " & String.Join(",", ImgProperties.Keywords))
    102. Debug.Print("PeopleNames: " & String.Join(",", ImgProperties.PeopleNames))
    103. End If
    105. ElseIf ContentType.Contains("audio") Then
    106. Dim MusProperties As MusicProperties = Await StorFile.Properties.GetMusicPropertiesAsync
    107. If MusProperties IsNot Nothing Then
    108. Debug.Print("Artist: " & MusProperties.Artist)
    109. Debug.Print("Album: " & MusProperties.Album)
    110. Debug.Print("Subtitle: " & MusProperties.Subtitle)
    111. Debug.Print("Writers: " & String.Join(",", MusProperties.Writers))
    112. Debug.Print("Producers: " & String.Join(",", MusProperties.Producers))
    113. Debug.Print("AlbumArtist: " & MusProperties.AlbumArtist)
    114. Debug.Print("Bitrate: " & MusProperties.Bitrate.ToString)
    115. Debug.Print("Composers: " & String.Join(",", MusProperties.Composers))
    116. Debug.Print("Conductors: " & String.Join(",", MusProperties.Conductors))
    117. Debug.Print("Duration: " & MusProperties.Duration.ToString)
    118. Debug.Print("Genre: " & String.Join(",", MusProperties.Genre))
    119. Debug.Print("Publisher: " & MusProperties.Publisher)
    120. Debug.Print("Rating: " & MusProperties.Rating.ToString)
    121. Debug.Print("Subtitle: " & MusProperties.Subtitle)
    122. Debug.Print("Title: " & MusProperties.Title)
    123. Debug.Print("TrackNumber: " & MusProperties.TrackNumber.ToString)
    124. Debug.Print("Year: " & MusProperties.Year.ToString)
    125. End If
    127. ElseIf ContentType.Contains("video") Then
    128. Dim VidProperties As VideoProperties = Await StorFile.Properties.GetVideoPropertiesAsync
    129. If VidProperties IsNot Nothing Then
    130. Debug.Print("Subtitle: " & VidProperties.Subtitle)
    131. Debug.Print("Writers: " & String.Join(",", VidProperties.Writers))
    132. Debug.Print("Latitude: " & VidProperties.Latitude.ToString)
    133. Debug.Print("Longitude: " & VidProperties.Longitude.ToString)
    134. Debug.Print("Producers: " & String.Join(",", VidProperties.Producers))
    135. Debug.Print("Orientation: " & VidProperties.Orientation.ToString)
    136. Debug.Print("Bitrate: " & VidProperties.Bitrate.ToString)
    137. Debug.Print("Directors: " & String.Join(",", VidProperties.Directors))
    138. Debug.Print("Duration: " & VidProperties.Duration.ToString)
    139. Debug.Print("Height: " & VidProperties.Height.ToString)
    140. Debug.Print("Width: " & VidProperties.Width.ToString)
    141. Debug.Print("Orientation: " & VidProperties.Orientation.ToString)
    142. Debug.Print("Publisher: " & VidProperties.Publisher)
    143. Debug.Print("Rating: " & VidProperties.Rating.ToString)
    144. Debug.Print("Title: " & VidProperties.Title)
    145. Debug.Print("Year: " & VidProperties.Year.ToString)
    146. End If
    148. Else
    149. Dim DocProperties As DocumentProperties = Await StorFile.Properties.GetDocumentPropertiesAsync
    150. If DocProperties IsNot Nothing Then
    151. Debug.Print("Author: " & String.Join(",", DocProperties.Author))
    152. Debug.Print("Keywords: " & String.Join(",", DocProperties.Keywords))
    153. Debug.Print("Comment: " & DocProperties.Comment)
    154. Debug.Print("Title: " & DocProperties.Title)
    155. End If
    157. End If
    159. End If
    161. End Sub
    163. Private Function GetValuePairValueAsString(ValuePair As KeyValuePair(Of String, Object)) As String
    164. Dim strRet As String = String.Empty
    165. If ValuePair.Value IsNot Nothing Then
    166. Select Case ValuePair.Value.GetType
    167. Case GetType(String)
    168. strRet = CType(ValuePair.Value, String)
    169. Case GetType(String())
    170. strRet = String.Join(",", CType(ValuePair.Value, String()))
    171. Case GetType(Boolean)
    172. strRet = CType(ValuePair.Value, Boolean).ToString
    173. Case GetType(Short)
    174. strRet = CType(ValuePair.Value, Short).ToString
    175. Case GetType(UShort)
    176. strRet = CType(ValuePair.Value, UShort).ToString
    177. Case GetType(Integer)
    178. strRet = CType(ValuePair.Value, Integer).ToString
    179. Case GetType(UInteger)
    180. strRet = CType(ValuePair.Value, UInteger).ToString
    181. Case GetType(Long)
    182. strRet = CType(ValuePair.Value, Long).ToString
    183. Case GetType(ULong)
    184. strRet = CType(ValuePair.Value, ULong).ToString
    185. Case GetType(Single)
    186. strRet = CType(ValuePair.Value, Single).ToString
    187. Case GetType(Double)
    188. strRet = CType(ValuePair.Value, Double).ToString
    189. Case GetType(DateTimeOffset)
    190. strRet = CType(ValuePair.Value, DateTimeOffset).DateTime.ToString
    191. Case GetType(Guid)
    192. strRet = CType(ValuePair.Value, Guid).ToString
    193. Case GetType(Object())
    194. For Each Obj In CType(ValuePair.Value, Object())
    195. Select Case Obj.GetType
    196. Case GetType(String)
    197. strRet = CType(Obj, String)
    198. Case GetType(String())
    199. strRet = String.Join(",", CType(Obj, String()))
    200. Case GetType(Boolean)
    201. strRet = CType(Obj, Boolean).ToString
    202. Case GetType(Short)
    203. strRet = CType(Obj, Short).ToString
    204. Case GetType(UShort)
    205. strRet = CType(Obj, UShort).ToString
    206. Case GetType(Integer)
    207. strRet = CType(Obj, Integer).ToString
    208. Case GetType(UInteger)
    209. strRet = CType(Obj, UInteger).ToString
    210. Case GetType(Long)
    211. strRet = CType(Obj, Long).ToString
    212. Case GetType(ULong)
    213. strRet = CType(Obj, ULong).ToString
    214. Case GetType(Single)
    215. strRet = CType(Obj, Single).ToString
    216. Case GetType(Double)
    217. strRet = CType(Obj, Double).ToString
    218. Case GetType(DateTimeOffset)
    219. strRet = CType(Obj, DateTimeOffset).DateTime.ToString
    220. Case GetType(Guid)
    221. strRet = CType(Obj, Guid).ToString
    222. Case Else
    223. strRet = "Unknown ObjectArrayType: " & Obj.GetType.ToString
    224. End Select
    225. Next
    226. Case Else
    227. strRet = "Unknown ValuePairType: " & ValuePair.Value.GetType.ToString
    228. End Select
    229. End If
    230. Return strRet
    231. End Function
    233. End Class


    Das reicht für diese Jahr. :D
    Mfg -Franky-

    Die WinRT Interfaces wären für mich interessant. Hab zwar mit den BluetoothAPIs code gemacht, aber hab noch unerklärliche Bugs drin. Mache viel mit BLE und das CSWinRT Project von Nuget zickt auch hin und wieder rum. Die windows.winmd lässt sich ja nicht mit aktuellen NET verwenden, so muss ich dann alte Sachen nutzen. Das wird im nächsten Jahr auf jeden Fall ein Projekt sein das ich machen muss.

    So jetzt zurück zur UnrealEngine, hab VS endlich für die Unreal Engine vorbereitet. Die Blueprints sind ja ganz "Epic", schon irgendwie toll sich die Logik so zurechtklicken zu können, aber ich schreibe lieber Code, finde ich übersichtlicher als wie Blueprints die man auf keine Kuhhaut drucken könnte.
    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

    DTF schrieb:

    Die WinRT Interfaces wären für mich interessant.
    Wenn Du das Windows SDK installiert hast, dann findest Du auch in einem Unterordner auch alle WinRT-Klassen (H- und IDL-Dateien) die ja die COM-Interfaces beinhalten. Zur Not findet man auch alles auf GitHub.
    Mfg -Franky-

    Vielen Dank für eure Ratschläge.

    Ich kam erst jetzt dazu, die Sache zu testen: tatsächlich ist es so wie @Franky gechrieben hat - wenn man die Leerzeichen aus dem Pfad entfernt, dann läuft die Sache !

    Ich habe keine Ahnung woher die Blanks kommen - das Programm habe ich längere Zeit nicht angefasst und erst jetzt neu kompiliert. Also wissentlich habe ich diese Blanks nicht einfügt - vielleicht wurden die früher toleriert ... Jedenfalls erhalte ich jetzt wieder die korrekte Laufzeit. Mein Tag ist gerettet. Problem gelöst!

    LG
    Peter

    @Peter329 Wie geschrieben gab es mal Probleme per mciSendString. Von daher teste das ausgiebig mit MP3s mit Bitraten größer 128kbit\s und mit VBR-MP3s. Nicht das Dich wunderst das da plötzlich falsche Zeiten per mciSendString zurück geliefert werden falls die Probleme noch bestehen.
    Mfg -Franky-

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „-Franky-“ ()

Facebook
Telefonspende