frmconv.frm

hola, este es un programa chao

 OutFileExt = ".mp3"
 AVC1.ForceFormat = "mp3"
 AVC1.AudioCodec = "mp3"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "128"
 AVC1.AudioSamples = "44100"
Case Is = "3G2 (for Mobile)"
 OutFileExt = ".3g2"
 AVC1.VideoSize = "176x144"
 AVC1.VideoBitrateTolerance = "60"
 AVC1.VideoFrameRate = "11"
 AVC1.VideoBitrate = "120"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioCodec = "amr_nb"
 AVC1.AudioChannels = "1"
 AVC1.AudioBitrate = "48"
 AVC1.AudioSamples = "8000"
Case Is = "3GP (for Mobile)"
 OutFileExt = ".3gp"
 AVC1.VideoSize = "176x144"
 AVC1.VideoBitrateTolerance = "60"
 AVC1.VideoFrameRate = "11"
 AVC1.VideoBitrate = "120"
 AVC1.VideoCodec = "h263"
 AVC1.AudioCodec = "amr_nb"
 AVC1.AudioChannels = "1"
 AVC1.AudioBitrate = "48"
 AVC1.AudioSamples = "8000"
Case Is = "Zune WMV"
 OutFileExt = ".wmv"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "1500"
 AVC1.VideoCodec = "wmv2"
 AVC1.AudioCodec = "mp3"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "128"
 AVC1.AudioSamples = "48000"
Case Is = "Zune MPEG-4 AVC"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "1500"
 AVC1.VideoCodec = "h264"
 AVC1.GroupOfPictureSize = "250"
 AVC1.VideoQuantiserScale = "25"
 AVC1.MaxVideoBitrate = "1500"
 AVC1.RateControlBuffer = "128"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "64"
 AVC1.AudioSamples = "48000"
Case Is = "Zune MPEG-4 Video"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "1500"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "128"
 AVC1.AudioSamples = "48000"
Case Is = "Sony PSP (PSP AVC)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "368x208"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "400"
 AVC1.VideoCodec = "h264"
 AVC1.GroupOfPictureSize = "250"
 AVC1.VideoQuantiserScale = "25"
 AVC1.MaxVideoBitrate = "1500"
 AVC1.RateControlBuffer = "128"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "128"
 AVC1.AudioSamples = "48000"
Case Is = "Sony PSP (Minimal Size)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "160x112"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "216"
 AVC1.VideoCodec = "xvid"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "64"
 AVC1.AudioSamples = "24000"
Case Is = "Sony PSP (Excellent Quality)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "368x208"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "768"
 AVC1.VideoCodec = "xvid"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "64"
 AVC1.AudioSamples = "24000"
Case Is = "Sony PSP (Normal)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "368x208"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "512"
 AVC1.VideoCodec = "xvid"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "64"
 AVC1.AudioSamples = "24000"
Case Is = "QuickTime MOV"
 OutFileExt = ".mov"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "360"
 AVC1.DeInterlace = True
 AVC1.SameQuality = True
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "48"
 AVC1.AudioSamples = "44100"
Case Is = "RM (RealONE/RealPlayer)"
 OutFileExt = ".rm"
 AVC1.VideoCodec = "rv20"
 AVC1.DeInterlace = True
 AVC1.SameQuality = True
 AVC1.AudioChannels = "2"
 AVC1.AudioSamples = "44100"
Case Is = "WMV(WindowsMedia-Best Quality)"
 OutFileExt = ".wmv"
 AVC1.VideoCodec = "wmv2"
 AVC1.AudioChannels = "2"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "WMV(WindowsMedia-Compatible)"
 OutFileExt = ".wmv"
 AVC1.VideoCodec = "wmv2"
 AVC1.AudioChannels = "2"
 AVC1.AudioSamples = "44100"
 AVC1.DeInterlace = True
 AVC1.SameQuality = True
Case Is = "MPEG (Best Quality)"
 OutFileExt = ".mpg"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoCodec = "mpeg1video"
 AVC1.AudioChannels = "2"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "MPEG (Max Compatible)"
 OutFileExt = ".mpg"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoCodec = "mpeg1video"
 AVC1.AudioChannels = "2"
 AVC1.AudioSamples = "44100"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "iPOD Nano (MP3)"
 OutFileExt = ".mp3"
 AVC1.AudioCodec = "mp3"
Case Is = "iPOD Mini (MP3)"
 OutFileExt = ".mp3"
 AVC1.AudioCodec = "mp3"
Case Is = "iPOD Shuffle (MP3)"
 OutFileExt = ".mp3"
 AVC1.AudioCodec = "mp3"
Case Is = "iPhone Video"
 OutFileExt = ".mpg"
 AVC1.VideoSize = "320x240"
 AVC1.VideoAspectRatio = "4:3"
 AVC1.VideoBitrate = "1200"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "80"
 AVC1.AudioSamples = "44100"
Case Is = "iPOD Video2 (640x480) MPEG4"
 OutFileExt = ".mpg"
 AVC1.VideoSize = "640x480"
 AVC1.VideoAspectRatio = "4:3"
 AVC1.VideoBitrate = "1200"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "80"
 AVC1.AudioSamples = "44100"
Case Is = "iPOD Video (320x240) MPEG4"
 OutFileExt = ".mpg"
 AVC1.VideoSize = "320x240"
 AVC1.VideoAspectRatio = "4:3"
 AVC1.VideoBitrate = "512"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioCodec = "aac"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "64"
 AVC1.AudioSamples = "44100"
Case Is = "AVI (MPEG4-XviD-Best Quality)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "360"
 AVC1.VideoCodec = "xvid"
 AVC1.AudioChannels = "2"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "AVI (MPEG4-XviD-Compatible)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "360"
 AVC1.VideoCodec = "xvid"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "48"
 AVC1.AudioSamples = "22050"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "AVI (MPEG4-DivX-Best Quality)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "360"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioChannels = "2"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Is = "AVI (MPEG4-DivX-Compatible)"
 OutFileExt = ".avi"
 AVC1.VideoSize = "320x240"
 AVC1.VideoFrameRate = "29.97"
 AVC1.VideoBitrate = "360"
 AVC1.VideoCodec = "mpeg4"
 AVC1.AudioChannels = "2"
 AVC1.AudioBitrate = "48"
 AVC1.AudioSamples = "22050"
 AVC1.SameQuality = True
 AVC1.DeInterlace = True
Case Else
MsgBox "Error: " & FormatType & " is not defined.", vbExclamation, "Not Supported"
Exit Sub
End Select
AVC1.SourceFile = SrcPath
AVC1.DestFile = Replace(SrcPath, ".flv", OutFileExt)
AVC1.ConvertMedia True
End Sub


Private Sub cmdConvert_Click()
    If txtFname.Text <> "" Then
        ConvertFLV cmbFormat.Text, txtFname.Text
    Else
        MsgBox "Select FLV Video file to convert", vbInformation, "Select File"
    End If
End Sub

Private Sub cmdLoad_Click()
    cd.InitDir = App.Path
    cd.Filter = "FLV Video (*.flv)|*.flv|All Files (*.*)|*.*"

    cd.ShowOpen
    cd.InitDir = App.Path
    txtFname.Text = cd.FileName
End Sub

Private Sub Form_Load()
On Error Resume Next
        If (Dir(App.Path & "\avformat.dll") = "avformat.dll") Then
            'Name App.Path & "\YTVD_temp.res" As App.Path & "\Update.exe"
            'FileCopy App.Path & "\YTVD_temp.res", App.Path & "\Update.exe"
        Else
            resp = MsgBox("FFMPG requires avformat.dll which is not available in app folder." & vbCrLf & "To start downloading now Click YES or NO to download Manually.", vbInformation + vbYesNo, "Dependancy Download")
                If resp = 6 Then
                    frmMain.Image1.Width = 0
                    frmMain.Image1.Visible = True
                    DownloadFlv "http://www.figmentsol.com/ytvd/avformat.zip", "avformat.dll"
                    MsgBox "avformat.dll downloade. Restart this form"
                    Unload Me
                ElseIf resp = 7 Then
                    MsgBox "Download it from http://rapidshare.com/files/116942540/avformat.zip" & vbCrLf & "Extract in app folder", vbInformation, "Download Manually"
                    'Unload Me
                End If
        End If


Set AVC1 = New AVC

cmbFormat.Text = GetSetting(App.EXEName, "Settings", "Format", "WMV(WindowsMedia-Best Quality)")

Shape2.Width = Me.Width
Shape2.Height = Me.Height

End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.EXEName, "Settings", "Format", cmbFormat.Text
End Sub
Private Sub Image2_Click()
    Unload Me
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image2.Picture = clr.Picture
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    formdrag Me
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image2.Picture = clb.Picture
End Sub

Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image2.Picture = clb.Picture
End Sub

Private Sub lblf_Click()
    If lblf.Caption = "Help" Then
        lblMsg.Caption = "This Multiformat convertor is adapted from one of the PSC code (YouSnag). It use FFMPEG open source encoder. It Converts FLV to multiple formats. First select the FLV video file with Browse. Select appropriate format from the list and then Click Convert. Output file willbe available in same directory from which source file is selected. Enjoy!"
        lblf.Caption = "What is FFMPEG ?"
    Else
        lblf.Caption = "Help"
        lblMsg.Caption = "FFmpeg is a complete solution to record, convert and stream audio and video. It includes libavcodec, the leading audio/video codec library. FFmpeg is developed under Linux, but it can be compiled under most operating systems, including Windows. Visit @ http://ffmpeg.mplayerhq.hu/"
    End If
End Sub

Private Sub lblHelp_Click()
    fmHelp.Visible = True
End Sub

Private Sub lblOk_Click()
    fmHelp.Visible = False
End Sub