Retrieve the length of a media file (WAV, AVI, MIDI)

Retrieve the length of a media file (WAV, AVI, MIDI)

You can retrieve the length of a standard windows media file (WAV, AVI or MIDI) using simple MCI functions. First, you must open the file with:

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _    lpstrCommand As String, ByVal lpstrReturnString As String, _    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongCommandString = "Open " & FileName" & " alias MediaFile"mciSendString CommandString, vbNullString, 0, 0&

where MediaFile is an arbitrary name (an alias) that you then use in subsequent command strings. FileName is the full path of the media file and must be in the short format 8+3 characters. Now you can get file length in milliseconds:

Dim MediaLength as LongDim RetString As String * 256Dim CommandString As StringCommandString = "Set MediaFile time format milliseconds"mciSendString CommandString, vbNullString, 0, 0&CommandString = "Status MediaFile length"MciSendString CommandString, RetString, Len(RetString), 0&MediaLength = CLng(RetString)

Now, the MediaLength variable containes the length of the media file. You only have to close the MCI device, with

CommandString = "Close MediaFile"MciSendString CommandString, vbNullString, 0, 0&

Share the Post:
Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

AI is revolutionizing fraud detection

How AI is Revolutionizing Fraud Detection

Artificial intelligence – commonly known as AI – means a form of technology with multiple uses. As a result, it has become extremely valuable to a number of businesses across

AI innovation

Companies Leading AI Innovation in 2023

Artificial intelligence (AI) has been transforming industries and revolutionizing business operations. AI’s potential to enhance efficiency and productivity has become crucial to many businesses. As we move into 2023, several