reading video resolution [solved]

[Tvern]

hi, I am trying to make a simple video converter using mencoder, but I can't find a way to detect what resolution, or aspect ratio the video has.

The resolution and aspect ratio are usually available from the details tab in file info, but I can't find the right function to read this information.

thanks in advance

Tom

Edited September 25, 2009 by Tvern

[GEOSoft]

I have a couple of functions that may help. What file type are you working with?

[Tvern]

I have a couple of functions that may help. What file type are you working with?

Nearly all the video's are *.avi if that's what you mean. I'm using the exe version of memcoder.

I've discovered a way to get the resolution (not the ratio) of a file using the stdout of ffmpeg.exe, but it's not a very nice method, so I'd be very happy with any alternative I can experiment with.

[GEOSoft]

Here is something that works fine for me.

expandcollapse popup

$sVid = "D:\Docs\My Videos\VHS_Convert\Love Jones.avi"

$aDims = _Dimensions($sVid)
If Not @error Then
    $aRatio = _Ratio($aDims[0], $aDims[1])
    MsgBox(0, "Ratio", $aRatio[0] & ":" & $aRatio[1])
EndIf

Func _Ratio($n1, $n2) ;; Thanks to monoceres
    $n1 = Number($n1)
    $n2 = Number($n2)
    $ratio = $n1 / $n2
    For $i = 2 To $n1 / 2
        $r1 = $i * $ratio
        If Round($r1) = $r1 Then
            Local $ret[2] = [$r1, $r1 / $ratio]
            Return $ret
        EndIf
    Next
    Local $ret[2] = [$n1, $n2]
    Return $ret ; If no good match was found
EndFunc   ;==>_Ratio

Func _Dimensions($sFile)
    Local $sPath = StringRegExpReplace($sFile, "(.+)\\.+\..+", "$1")
    Local $sFileName = StringRegExpReplace($sFile, ".+\\(.+)", "$1")
    $sRegEx = "\s*(\d+)\s*x\s*(\d+)"
    Local $oShell = ObjCreate("Shell.Application")
    Local $objFolder = $oShell.Namespace($sPath)
    For $sFileName In $objFolder.Items
        $sStr = $objFolder.GetDetailsOf($sFileName, 26)
        If Not StringInStr($sStr, "x") Then Return SetError(1, 1) ;; Invalid Dimension
        Local $aRtn = StringRegExp($sStr, $sRegEx, 1)
        If Not @error Then
            If Ubound($aRtn) <> 2 Then Return SetError(1, 2) ;; SRE could not get the proper values
            Return $aRtn
        EndIf
        Return SetError(1, 2) ;; SRE could not get the proper values
    Next
EndFunc   ;==>_Dimensions

[Tvern]

Here is something that works fine for me.

expandcollapse popup

$sVid = "D:\Docs\My Videos\VHS_Convert\Love Jones.avi"

$aDims = _Dimensions($sVid)
If Not @error Then
    $aRatio = _Ratio($aDims[0], $aDims[1])
    MsgBox(0, "Ratio", $aRatio[0] & ":" & $aRatio[1])
EndIf

Func _Ratio($n1, $n2) ;; Thanks to monoceres
    $n1 = Number($n1)
    $n2 = Number($n2)
    $ratio = $n1 / $n2
    For $i = 2 To $n1 / 2
        $r1 = $i * $ratio
        If Round($r1) = $r1 Then
            Local $ret[2] = [$r1, $r1 / $ratio]
            Return $ret
        EndIf
    Next
    Local $ret[2] = [$n1, $n2]
    Return $ret ; If no good match was found
EndFunc   ;==>_Ratio

Func _Dimensions($sFile)
    Local $sPath = StringRegExpReplace($sFile, "(.+)\\.+\..+", "$1")
    Local $sFileName = StringRegExpReplace($sFile, ".+\\(.+)", "$1")
    $sRegEx = "\s*(\d+)\s*x\s*(\d+)"
    Local $oShell = ObjCreate("Shell.Application")
    Local $objFolder = $oShell.Namespace($sPath)
    For $sFileName In $objFolder.Items
        $sStr = $objFolder.GetDetailsOf($sFileName, 26)
        If Not StringInStr($sStr, "x") Then Return SetError(1, 1) ;; Invalid Dimension
        Local $aRtn = StringRegExp($sStr, $sRegEx, 1)
        If Not @error Then
            If Ubound($aRtn) <> 2 Then Return SetError(1, 2) ;; SRE could not get the proper values
            Return $aRtn
        EndIf
        Return SetError(1, 2) ;; SRE could not get the proper values
    Next
EndFunc   ;==>_Dimensions

That looks like it does exactly what I need and it might prove a good way to learn a bit more about ObjCreate() as that's like black magic to me at the moment.

Thanks allot.

[GEOSoft]

Glad to hear it.

If you want to study Obj*() functions make sure to study this page

http://dundats.mvps.org/help/html/intro/ComRef.htm

To find it in the help file, go to Function Reference and click on Obj/COM Reference.