digitalFAQ.com Forums [Archives] - DVDREasy and bitrateviewer

digitalFAQ.com Forums [Archives] (http://www.digitalfaq.com/archives/)

- Video Encoding and Conversion (http://www.digitalfaq.com/archives/encode/)

- - DVDREasy and bitrateviewer (http://www.digitalfaq.com/archives/encode/13608-dvdreasy-bitrateviewer.html)

DVDREasy and bitrateviewer

@Pedro: Could you say me how DVDREasy used bitrateviewer.

How to use it automatically and what information it gives?

BTW: It is enough info that gives you mpeginfo? Do you know mediainfo lib?

http://sourceforge.net/projects/mediainfo/

It does not use it anymore. It uses mpeginfo (or somethig like that) delivered by Hank.

Quote:

Originally Posted by Dialhot

It does not use it anymore. It uses mpeginfo (or somethig like that) delivered by Hank.

I know that, an my question was "used".
That doesn't meant that he can't answer my question, isn't it?

Re: DVDREasy and bitrateviewer

Quote:

Originally Posted by Prodater64

Hi Prodater64,

In fact, BITRATEVIEWER was only needed to get MPEG information of the original movie (Chroma format, DCT precision, Pic. structure, Field topfirst, DCT type, Quantscale, Scan type, Frame type, etc.)

I don't know how to parse an MPEG2 file and BITRATEVIER was the only tool,at least to my knoledge, that gives me this kind of info. Based on that DVDREasy writes the rights settings for HC and CCE (TFF, Interlaced,....)

Now, DVDREasy uses MPEGinfo (developed by Hank), that gives basicly the same results.

BITRATEVIEWER doesn´t have command line. you must fire it by a SHELL in you app and control it by keystrokes (sendkey). its a litle tricky...

if you want i can post how DVDREasy used to controlle it . . .

I don´t know mediainfo lib. I must check this out ! :wink:

Hope I really anwsered your question . . .

Cheers

Re: DVDREasy and bitrateviewer

Quote:

Originally Posted by dvdreasy

if you want i can post how DVDREasy used to controlle it . . .

Please, post it.
Thank you.

Re: DVDREasy and bitrateviewer

Quote:

Originally Posted by dvdreasy

BITRATEVIEWER doesn´t have command line. you must fire it by a SHELL in you app and control it by keystrokes (sendkey). its a litle tricky...

if you want i can post how DVDREasy used to controlle it . . .

Could you use the too AutoIt, as you probably know this tool can simulate keystrokes and mouse clicks on an application.

Just a thought. :D

Re: DVDREasy and bitrateviewer

Quote:

Originally Posted by Prodater64

Please, post it.
Thank you.

OK,

here it is (vb6 implementation)

This code fire up BITRATEVIEWER, gets the MPEG info and copy it to the clipboard and then writes that info in VSETTINGS.TXT

Code:

Private Sub brviewer()

Dim X As Double, textline As String, Y As Integer, anterior As Integer

    '**************** fire up bitrate viewer **************************+

    X = Shell(p_brviewer, vbNormalFocus) '(p_brviewer is a string with the fullpath to BITRATE VIEWER)

    espera 10000

    SendKeys "{TAB 5}~", True '(goto and press the open button)

    espera 1000

    SendKeys mypath & "\vts_01_1.vob", True '(send the vob file to be analyse)

    espera 10000

    SendKeys "~", True '(send the ENTER key)

    espera 500000 '(you must wait a litle to BRV parse the begining of the vob)

    AppActivate X

    SendKeys "{TAB 2}", True '(position the cursor in the info pannel)

    espera 10000

    SendKeys "^+{HOME}", True '(mark all the text in the info pannel)

    espera 10000

    SendKeys "^c", True '(send CTRL+C to copy all the marked text)

    'espera 10000

    SendKeys "% ", True '(open the control box menu)

    SendKeys "{UP}~"    '(go up one item - wich actually go to the last item = CLOSE)

    espera 100000

    '*****************   get values from clipboard *******************************

    Open mypath & "\vsettings.txt" For Output As #1

    textline = Clipboard.GetText(1)

    anterior = 1

    For Y = 1 To Len(textline)

        If Mid$(textline, Y, 2) = Chr$(13) + Chr$(10) Then

            Print #1, Mid$(textline, anterior, Y - anterior) + Chr$(13)

            anterior = Y + 2

        End If

    Next Y

    Close #1

    espera 10000

end sub





Public Sub espera(quanto As Long)

Dim Y As Long

    For Y = 1 To quanto

        DoEvents

    Next Y

End Sub

Thank you.
It is very interesting.