به درود خدمت دوستان عزیز

 

امروز تکه کدی برای گرفتن مدت زمان یک ویدیو در بیسیک فور اندروید رو براتون مهیا کرده ایم.

 

که ظاهرا تلگرام هم از همین کد استفاده میکند.

GetVideoDuration(File.Combine(Dir,Name))
Public Sub GetVideoDuration (path As String) As Long
  Try
    Dim mFile As JavaObject
    mFile.InitializeNewInstance("java.io.File",Array(path))
    Dim inputStream As JavaObject
    inputStream.InitializeNewInstance("java.io.FileInputStream", _
  Array(mFile.RunMethod("getAbsolutePath",Null)))
    Dim mediaMetadataRetriever As JavaObject
    mediaMetadataRetriever.InitializeNewInstance("android.media.MediaMetadataRetriever",Null)
    mediaMetadataRetriever.RunMethod("setDataSource",Array(inputStream.RunMethod("getFD",Null)))
    Dim duration As String = mediaMetadataRetriever.RunMethod("extractMetadata",Array(mediaMetadataRetriever.GetField("METADATA_KEY_DURATION")))
    If duration="" Or duration="null" Then Return -1
    Return duration
  Catch
    Log(LastException)
    Return -1
  End Try
End Sub