My FLV merger program help

jercfd · February 3, 2008

I have several questions about how to make my program. I already got most of it done.

1. what is the variable for "C:\Documents and Settings\{User Name}\"

2. How do you convert a read only textbox into a writable textbox when a checkbox is checked and make the textbox read only again after the checkbox is unchecked?

3. How do you fix the runwait command at the end of my script?

external files avaliable from here

http://www.ayanray.com/blog/tags/FLV

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=Koda Data.kxf\FLV Merger\Koda Data.kxf
$Form1 = GUICreate("FLV Merger", 593, 367, 193, 125)
$CombineGroup = GUICtrlCreateGroup(" FLV files to combine ", 20, 20, 552, 200)
$Input1 = GUICtrlCreateInput("", 40, 40, 440, 21)
$Input2 = GUICtrlCreateInput("", 40, 70, 440, 21)
$Input3 = GUICtrlCreateInput("", 40, 100, 440, 21)
$Input4 = GUICtrlCreateInput("", 40, 130, 440, 21)
$Input5 = GUICtrlCreateInput("", 40, 160, 440, 21)
$Input6 = GUICtrlCreateInput("", 40, 190, 440, 21)
$Browse1 = GUICtrlCreateButton("Browse...", 485, 40, 67, 21, 0)
$Browse2 = GUICtrlCreateButton("Browse...", 485, 70, 67, 21, 0)
$Browse3 = GUICtrlCreateButton("Browse...", 485, 100, 67, 21, 0)
$Browse4 = GUICtrlCreateButton("Browse...", 485, 130, 67, 21, 0)
$Browse5 = GUICtrlCreateButton("Browse...", 485, 160, 67, 21, 0)
$Browse6 = GUICtrlCreateButton("Browse...", 485, 190, 67, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Options = GUICtrlCreateGroup(" Options ", 20, 230, 225, 100)
$Creator = GUICtrlCreateCheckbox("Add Creator Tag to FLV metadata", 40, 250, 185, 25)
$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21)
;$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21, $ES_READONLY, $WS_EX_STATICEDGE)
$Label1 = GUICtrlCreateLabel("File Creator Name", 40, 280, 88, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Merge = GUICtrlCreateButton("Merge FLV Files", 265, 290, 285, 40, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
$Save = GUICtrlCreateInput("", 265, 248, 215, 21)
$SaveBrowse = GUICtrlCreateButton("Browse...", 485, 248, 65, 21, 0)
$Label2 = GUICtrlCreateLabel("Save Location", 265, 230, 73, 17)
$FileMenu = GUICtrlCreateMenu("&File")
$Combine = GUICtrlCreateMenuItem("Combine FLV Files", $FileMenu)
$Close = GUICtrlCreateMenuItem("&Exit", $FileMenu)
$HelpMenu = GUICtrlCreateMenu("&Help")
$Help = GUICtrlCreateMenuItem("&View Help", $HelpMenu)
$AboutMenu = GUICtrlCreateMenu("&About")
$About = GUICtrlCreateMenuItem("About This &Program", $AboutMenu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
   Case $GUI_EVENT_CLOSE
      Exit
  ;File Menu
   Case $Combine
   Case $Close
      Exit
  ;Help Menu
   Case $Help
      Msgbox(64, "Help", "Help - How to use" & @LF & @LF & @LF & "1. Select the FLV files you would like to combine into one single FLV file." & @LF & @LF & "2. Optionaly, you can select if you want to add the name of the creator." & @LF & @LF & "3. Select the location you would like to save the FLV file." & @LF & @LF & "4. Press the 'Merge FLV Files' button." & @LF & @LF & "5. Go to the location where you saved your FLV file and enjoy watching it!")
  ;About Menu
   Case $About
      Msgbox(0, "About", "This program was designed to combine FLV files into one single file. It uses programs made and designed by 'ASM' and 'Ingo Oppermann'. All work is credited to them. This GUI was desgined by DUNDUA. Please note that I nor 'ASM' and 'Ingo Oppermann' are responsible if it causes any damage or if it doesn't work.")
  ;File Inputs
   Case $Browse1
      $path1 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path1 = StringReplace($path1, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path1)
         GUICtrlSetData ($Input1, $path1 )
      EndIf
   Case $Browse2
      $path2 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path2 = StringReplace($path2, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path2)
         GUICtrlSetData ($Input2, $path2 )
      EndIf
   Case $Browse3
      $path3 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path3 = StringReplace($path3, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path3)
         GUICtrlSetData ($Input3, $path3 )
      EndIf
   Case $Browse4
      $path4 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path4 = StringReplace($path4, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path4)
         GUICtrlSetData ($Input4, $path4 )
      EndIf
   Case $Browse5
      $path5 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path5 = StringReplace($path5, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path5)
         GUICtrlSetData ($Input5, $path5 )
      EndIf
   Case $Browse6
      $path6 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path6 = StringReplace($path6, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path6)
         GUICtrlSetData ($Input6, $path6 )
      EndIf
  ;Save Location
   Case $SaveBrowse
      $savelocation = FileSaveDialog ("Select the location to save combined FLV", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 2)
      If @error Then
         MsgBox(16,"Error","No File Save Location")
      Else
         $savelocation = StringReplace($savelocation, "|", @CRLF)
         MsgBox(64,"File Save Location","You want to save here: " & $savelocation & ".flv")
         GUICtrlSetData ($Save, $savelocation & ".flv" )
      EndIf
   Case $Merge
      If $Creator = 1 Then
         $tag = "-c " & $CreatorTag
      Else
         $tag = ""
      EndIf
      RunWait(@ComSpec & " /c " & @scriptdir & "\external\FLVMERGE.exe" & $Input1 & $Input2 & $Input3 & Input4 & Input5 & Input6, "", @SW_HIDE)
      FileMove ( "c.docs and set.user.merge.flv", @scriptdir)
      RunWait(@ComSpec & " /c " & @scriptdir & "\external\yamdi\yamdi.exe -i " & @scriptdir & "merge.flv -o " & $save & $tag, "", @SW_HIDE)
EndSwitch
WEnd

MrCreatoR · February 3, 2008

1. what is the variable for "C:\Documents and Settings\{User Name}\"

@UserProfileDir?

ow do you convert a read only textbox into a writable textbox when a checkbox is checked and make the textbox read only again after the checkbox is unchecked?

Here is an example:

#include <GuiConstants.au3>

$GUI = GUICreate("Toggle Edit 'Read Only'", 300, 200)

$ReadOnlyEdit_CheckBox = GUICtrlCreateCheckbox("Allow to Edit", 20, 40)

$Edit = GUICtrlCreateEdit("Some data", 20, 80, 260, 100, $ES_READONLY)

GUISetState(@SW_SHOW, $GUI)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ReadOnlyEdit_CheckBox
            If GUICtrlRead($ReadOnlyEdit_CheckBox) = $GUI_CHECKED Then
                GUICtrlSendMsg($Edit, $EM_SETREADONLY, False, 0)
            Else
                GUICtrlSendMsg($Edit, $EM_SETREADONLY, True, 0)
            EndIf
    EndSwitch
WEnd

3. How do you fix the runwait command at the end of my script?

What's wrong with it?

Try this maybe:

RunWait(@ComSpec & " /c " & @scriptdir & "\external\yamdi\yamdi.exe -i " & @scriptdir & "\merge.flv -o " & $save & $tag, "", @SW_HIDE)

And you might want to put this at the begining of your script:

Opt("RunErrorsFatal", 0)

(but in the latest betta not needed if i remember correctly).

jercfd · February 3, 2008

What's wrong with it?

Try this maybe:

RunWait(@ComSpec & " /c " & @scriptdir & "\external\yamdi\yamdi.exe -i " & @scriptdir & "\merge.flv -o " & $save & $tag, "", @SW_HIDE)

still doesn't work

the error says this

Line 132 (File "C:\Documents and Settings\Ming Wu\Desktop\FLV Merger\Copy of FLV Merger.au3"):

RunWait(@ComSpec & " /c " & @scriptdir & "\external\FLVMERGE.exe" & $Input1 & $Input2 & $Input3 & Input4 & Input5 & Input6, "", @SW_HIDE)
RunWait(@ComSpec & " /c " & @scriptdir & "\external\FLVMERGE.exe" & $Input1 & $Input2 & $Input3 & Input4 & Input5 & Input6^ ERROR

Error: Missing separator character after keyword.

MrCreatoR · February 3, 2008

the error says this

- What a stragne error, it is not a keyword.

RunWait(@ComSpec & " /c " & @scriptdir & "\external\FLVMERGE.exe" & $Input1 & $Input2 & $Input3 & $Input4 & $Input5 & $Input6, "", @SW_HIDE)

jercfd · February 3, 2008

The error is now gone thanks to MsCreatoR.

The only problem is how to get the Case $Merge button to work

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=Koda Data.kxf\FLV Merger\Koda Data.kxf
$Form1 = GUICreate("FLV Merger", 593, 367, 193, 125)
$CombineGroup = GUICtrlCreateGroup(" FLV files to combine ", 20, 20, 552, 200)
$Input1 = GUICtrlCreateInput("", 40, 40, 440, 21)
$Input2 = GUICtrlCreateInput("", 40, 70, 440, 21)
$Input3 = GUICtrlCreateInput("", 40, 100, 440, 21)
$Input4 = GUICtrlCreateInput("", 40, 130, 440, 21)
$Input5 = GUICtrlCreateInput("", 40, 160, 440, 21)
$Input6 = GUICtrlCreateInput("", 40, 190, 440, 21)
$Browse1 = GUICtrlCreateButton("Browse...", 485, 40, 67, 21, 0)
$Browse2 = GUICtrlCreateButton("Browse...", 485, 70, 67, 21, 0)
$Browse3 = GUICtrlCreateButton("Browse...", 485, 100, 67, 21, 0)
$Browse4 = GUICtrlCreateButton("Browse...", 485, 130, 67, 21, 0)
$Browse5 = GUICtrlCreateButton("Browse...", 485, 160, 67, 21, 0)
$Browse6 = GUICtrlCreateButton("Browse...", 485, 190, 67, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Options = GUICtrlCreateGroup(" Options ", 20, 230, 225, 100)
$Creator = GUICtrlCreateCheckbox("Add Creator Tag to FLV metadata", 40, 250, 185, 25)
;$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21)
$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21, $ES_READONLY, $WS_EX_STATICEDGE)
$Label1 = GUICtrlCreateLabel("File Creator Name", 40, 280, 88, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Merge = GUICtrlCreateButton("Merge FLV Files", 265, 290, 285, 40, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
$Save = GUICtrlCreateInput("", 265, 248, 215, 21)
$SaveBrowse = GUICtrlCreateButton("Browse...", 485, 248, 65, 21, 0)
$Label2 = GUICtrlCreateLabel("Save Location", 265, 230, 73, 17)
$FileMenu = GUICtrlCreateMenu("&File")
$Combine = GUICtrlCreateMenuItem("Combine FLV Files", $FileMenu)
$Close = GUICtrlCreateMenuItem("&Exit", $FileMenu)
$HelpMenu = GUICtrlCreateMenu("&Help")
$Help = GUICtrlCreateMenuItem("&View Help", $HelpMenu)
$AboutMenu = GUICtrlCreateMenu("&About")
$About = GUICtrlCreateMenuItem("About This &Program", $AboutMenu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
   Case $GUI_EVENT_CLOSE
      Exit
   ;File Menu
   Case $Combine
   Case $Close
      Exit
   ;Help Menu
   Case $Help
      Msgbox(64, "Help", "Help - How to use" & @LF & @LF & @LF & "1. Select the FLV files you would like to combine into one single FLV file." & @LF & @LF & "2. Optionaly, you can select if you want to add the name of the creator." & @LF & @LF & "3. Select the location you would like to save the FLV file." & @LF & @LF & "4. Press the 'Merge FLV Files' button." & @LF & @LF & "5. Go to the location where you saved your FLV file and enjoy watching it!")
   ;About Menu
   Case $About
      Msgbox(0, "About", "This program was designed to combine FLV files into one single file. It uses programs made and designed by 'ASM' and 'Ingo Oppermann'. All work is credited to them. This GUI was desgined by DUNDUA. Please note that I nor 'ASM' and 'Ingo Oppermann' are responsible if it causes any damage to your system or if it doesn't work.")
   ;File Inputs
   Case $Browse1
      $path1 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path1 = StringReplace($path1, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path1)
         GUICtrlSetData ($Input1, $path1 )
      EndIf
   Case $Browse2
      $path2 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path2 = StringReplace($path2, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path2)
         GUICtrlSetData ($Input2, $path2 )
      EndIf
   Case $Browse3
      $path3 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path3 = StringReplace($path3, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path3)
         GUICtrlSetData ($Input3, $path3 )
      EndIf
   Case $Browse4
      $path4 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path4 = StringReplace($path4, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path4)
         GUICtrlSetData ($Input4, $path4 )
      EndIf
   Case $Browse5
      $path5 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path5 = StringReplace($path5, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path5)
         GUICtrlSetData ($Input5, $path5 )
      EndIf
   Case $Browse6
      $path6 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2 )
      If @error Then
         MsgBox(16,"Error","No File chosen")
      Else
         $path6 = StringReplace($path6, "|", @CRLF)
         MsgBox(64,"File Choosen","You have selected: " & $path6)
         GUICtrlSetData ($Input6, $path6 )
      EndIf
   ;Options
   Case $Creator
      If GUICtrlRead($Creator) = $GUI_CHECKED Then
         GUICtrlSendMsg($CreatorTag, $EM_SETREADONLY, False, 0)
      Else
         GUICtrlSendMsg($CreatorTag, $EM_SETREADONLY, True, 0)
      EndIf
   ;Save Location
   Case $SaveBrowse
      $savelocation = FileSaveDialog ("Select the location to save combined FLV", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 2)
      If @error Then
         MsgBox(16,"Error","No File Save Location")
      Else
         $savelocation = StringReplace($savelocation, "|", @CRLF)
         MsgBox(64,"File Save Location","You want to save here: " & $savelocation & ".flv")
         GUICtrlSetData ($Save, $savelocation & ".flv" )
      EndIf
;
;This section needs to be fixed
   Case $Merge
      If $Creator = 1 Then
         $tag = "-c " & $CreatorTag
      Else
         $tag = ""
      EndIf
      RunWait(@ComSpec & " /c " & @scriptdir & "\external\FLVMERGE.exe" & $Input1 & $Input2 & $Input3 & $Input4 & $Input5 & $Input6, "", @SW_HIDE)
      FileMove ( @UserProfileDir & "merge.flv", @scriptdir)
      RunWait(@ComSpec & " /c " & @scriptdir & "\external\yamdi\yamdi.exe -i " & @scriptdir & "\merge.flv -o " & $save & $tag, "", @SW_HIDE)
EndSwitch
WEnd

MrCreatoR · February 3, 2008

The only problem is how to get the Case $Merge button to work

It work for me (the button notification).... but it seems that you need to open your help file, and check what is returns each function that used in your script and how to use the returned values

...

You are using $Input... but if i understand correct, you need the data from input, not the identifier of the control.

Try this version:

#include <GUIConstants.au3>
Opt("RunErrorsFatal", 0)


#Region ### START Koda GUI section ### Form=Koda Data.kxf\FLV Merger\Koda Data.kxf
$Form1 = GUICreate("FLV Merger", 593, 367, 193, 125)
$CombineGroup = GUICtrlCreateGroup(" FLV files to combine ", 20, 20, 552, 200)
$Input1 = GUICtrlCreateInput("", 40, 40, 440, 21)
$Input2 = GUICtrlCreateInput("", 40, 70, 440, 21)
$Input3 = GUICtrlCreateInput("", 40, 100, 440, 21)
$Input4 = GUICtrlCreateInput("", 40, 130, 440, 21)
$Input5 = GUICtrlCreateInput("", 40, 160, 440, 21)
$Input6 = GUICtrlCreateInput("", 40, 190, 440, 21)
$Browse1 = GUICtrlCreateButton("Browse...", 485, 40, 67, 21, 0)
$Browse2 = GUICtrlCreateButton("Browse...", 485, 70, 67, 21, 0)
$Browse3 = GUICtrlCreateButton("Browse...", 485, 100, 67, 21, 0)
$Browse4 = GUICtrlCreateButton("Browse...", 485, 130, 67, 21, 0)
$Browse5 = GUICtrlCreateButton("Browse...", 485, 160, 67, 21, 0)
$Browse6 = GUICtrlCreateButton("Browse...", 485, 190, 67, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Options = GUICtrlCreateGroup(" Options ", 20, 230, 225, 100)
$Creator = GUICtrlCreateCheckbox("Add Creator Tag to FLV metadata", 40, 250, 185, 25)
;$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21)
$CreatorTag = GUICtrlCreateInput("", 40, 300, 185, 21, $ES_READONLY, $WS_EX_STATICEDGE)
$Label1 = GUICtrlCreateLabel("File Creator Name", 40, 280, 88, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Merge = GUICtrlCreateButton("Merge FLV Files", 265, 290, 285, 40, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
$Save = GUICtrlCreateInput("", 265, 248, 215, 21)
$SaveBrowse = GUICtrlCreateButton("Browse...", 485, 248, 65, 21, 0)
$Label2 = GUICtrlCreateLabel("Save Location", 265, 230, 73, 17)
$FileMenu = GUICtrlCreateMenu("&File")
$Combine = GUICtrlCreateMenuItem("Combine FLV Files", $FileMenu)
$Close = GUICtrlCreateMenuItem("&Exit", $FileMenu)
$HelpMenu = GUICtrlCreateMenu("&Help")
$Help = GUICtrlCreateMenuItem("&View Help", $HelpMenu)
$AboutMenu = GUICtrlCreateMenu("&About")
$About = GUICtrlCreateMenuItem("About This &Program", $AboutMenu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $Close
            Exit
            ;File Menu
        Case $Combine
            
        Case $Help ;Help Menu
            MsgBox(64, "Help", "Help - How to use" & @LF & @LF & @LF & "1. Select the FLV files you would like to combine into one single FLV file." & @LF & @LF & "2. Optionaly, you can select if you want to add the name of the creator." & @LF & @LF & "3. Select the location you would like to save the FLV file." & @LF & @LF & "4. Press the 'Merge FLV Files' button." & @LF & @LF & "5. Go to the location where you saved your FLV file and enjoy watching it!")
        Case $About ;About Menu
            MsgBox(0, "About", "This program was designed to combine FLV files into one single file. It uses programs made and designed by 'ASM' and 'Ingo Oppermann'. All work is credited to them. This GUI was desgined by DUNDUA. Please note that I nor 'ASM' and 'Ingo Oppermann' are responsible if it causes any damage to your system or if it doesn't work.")
            
        Case $Browse1 ;File Inputs
            $path1 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path1 = StringReplace($path1, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path1)
                GUICtrlSetData($Input1, $path1)
            EndIf
        Case $Browse2
            $path2 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path2 = StringReplace($path2, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path2)
                GUICtrlSetData($Input2, $path2)
            EndIf
        Case $Browse3
            $path3 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path3 = StringReplace($path3, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path3)
                GUICtrlSetData($Input3, $path3)
            EndIf
        Case $Browse4
            $path4 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path4 = StringReplace($path4, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path4)
                GUICtrlSetData($Input4, $path4)
            EndIf
        Case $Browse5
            $path5 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path5 = StringReplace($path5, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path5)
                GUICtrlSetData($Input5, $path5)
            EndIf
        Case $Browse6
            $path6 = FileOpenDialog("Select a FLV file to combine", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 1 + 2)
            If @error Then
                MsgBox(16, "Error", "No File chosen")
            Else
                $path6 = StringReplace($path6, "|", @CRLF)
                MsgBox(64, "File Choosen", "You have selected: " & $path6)
                GUICtrlSetData($Input6, $path6)
            EndIf
            
        Case $Creator ;Options
            If GUICtrlRead($Creator) = $GUI_CHECKED Then
                GUICtrlSendMsg($CreatorTag, $EM_SETREADONLY, False, 0)
            Else
                GUICtrlSendMsg($CreatorTag, $EM_SETREADONLY, True, 0)
            EndIf
            ;Save Location
        Case $SaveBrowse
            $savelocation = FileSaveDialog("Select the location to save combined FLV", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "FLV Files (*.flv)", 2)
            If @error Then
                MsgBox(16, "Error", "No File Save Location")
            Else
                $savelocation = StringReplace($savelocation, "|", @CRLF)
                MsgBox(64, "File Save Location", "You want to save here: " & $savelocation & ".flv")
                GUICtrlSetData($Save, $savelocation & ".flv")
            EndIf
            ;
            
        Case $Merge ;This section needs to be fixed (fixed? :) )
            $tag = ""
            If GUICtrlRead($Creator) = 1 Then $tag = " -c " & GUICtrlRead($CreatorTag)
            
            $Data1 = GUICtrlRead($Input1)
            $Data2 = GUICtrlRead($Input2)
            $Data3 = GUICtrlRead($Input3)
            $Data4 = GUICtrlRead($Input4)
            $Data5 = GUICtrlRead($Input5)
            $Data6 = GUICtrlRead($Input6)
            
            $Merged_Files_Data = StringStripWS($Data1 & " " & $Data2 & " " & $Data3 & " " & $Data4 & " " & $Data5 & " " & $Data6, 7)
            
            RunWait('"' & @ScriptDir & '\external\FLVMERGE.exe" ' & $Merged_Files_Data, '', @SW_HIDE)
            If @error Then
                MsgBox(16, "Error", "There was an error to execute external application <FLVMERGE.exe>")
                ContinueLoop
            EndIf
            
            $FileMove = FileMove(@UserProfileDir & "\merge.flv", @ScriptDir)
            If Not $FileMove Then
                MsgBox(16, "Error", "There was an error to move file <merge.flv>")
                ContinueLoop
            EndIf
            
            RunWait('"' & @ScriptDir & '\external\yamdi\yamdi.exe" -i "' & @ScriptDir & '\merge.flv" -o ' & _
                GUICtrlRead($Save) & $tag, '', @SW_HIDE)
            
            If @error Then MsgBox(16, "Error", "There was an error to execute external application <yamdi.exe>")
    EndSwitch
WEnd

Sign In

My FLV merger program help

Recommended Posts

jercfd

Link to comment

Share on other sites

MrCreatoR

Link to comment

Share on other sites

jercfd

Link to comment

Share on other sites

MrCreatoR

Link to comment

Share on other sites

jercfd

Link to comment

Share on other sites

MrCreatoR

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta