DVDREasy and Bitrateviewer

Prodater64 · #1 06-23-2005, 01:58 PM

@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/

Dialhot · #2 06-23-2005, 02:15 PM

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

Prodater64 · #3 06-23-2005, 02:19 PM

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?

dvdreasy · #4 06-23-2005, 08:29 PM

Quote:

Originally Posted by Prodater64

@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/

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 !

Hope I really anwsered your question . . .

Cheers

Prodater64 · #5 06-23-2005, 10:54 PM

Quote:

Originally Posted by dvdreasy

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

Please, post it.
Thank you.

Zyphon · #6 06-24-2005, 02:40 AM

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.

dvdreasy · #7 06-24-2005, 05:49 AM

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

Prodater64 · #8 06-24-2005, 09:57 PM

Thank you.
It is very interesting.