brudy
01-31-2007, 11:00 AM
hello, i am working on a windows 2003 with flix engine 8.0.6.0 and we can encode the flv and png files perfectly, but there is no audio with the flv files once encoded.
i am using asp/ vbscript:
dim flxVideo,counter
'Video options
flxEngine.SetExportVideo(1) '1/0
flxEngine.SetExportAudio(1) '1/0
flxEngine.SetExportVideoType(3)
set flxVideo = flxEngine.VideoOptions()
'flxVideo.FlvAudioFormat(2)
'frameRate = 6 '(Dial-up)
frameRate = 12 '(Broadband)
'frameRate = 30 '(Broadband High/CD)
'flxVideo.SetSwfFramerate(frameRate)
flxVideo.SetVideoFramerateAsDouble(frameRate)
'Broadband / Broadband High
width = 320
height = 240
flxVideo.SetSwfWidth(width) '---we set the width of the flv
flxVideo.SetSwfHeight(height) '---------we set the height of the flv
vBitrate = 448 'Broadband High
aBitrate = 64 'Broadband High
'Response.Write "Input: "
flxEngine.SetOutputFile (OutputFile)
flxEngine.SetInputFile(InputFile)
'response.write "<br><br>error number = wtf?"
'------------we create the PNG thumbnail ----------------------------------'
dim flxPNG
flxPNG = "png exporter"
'set flxPNG = flxEngine.filter_pngex
set flxJPG = flxEngine.addfilter(flxPNG)
flxJPG.SetParam flxEngine.FE2_PNGEX_AUTO_EXPORT_COUNT,1
flxJPG.SetParamAsStr flxEngine.FE2_PNGEX_OUTPUT_DIRECTORY,pngDirectory
flxJPG.SetParamAsStr flxEngine.FE2_PNGEX_FILENAME_PREFIX, png
'see http://www.on2.com/cms-data/pdf/windowsapi/group__filter__pngexporter.html
'---------------------------------------------------------------------------'
'----WE WILL ADD THE PROPER MP3 LAME CODEC----------------------------------'
dim mp3,flxCodec
flxCodec = "pcm"
set mp3 = flxEngine.AddCodec(flxCodec)
mp3.setParam flxEngine.FE2_LAME_BITRATE, 64
'Response.Write "Output: "
flxEngine.Encode()
'Response.Write "<BR>Encoding started...<BR><BR>"
Response.Buffer = true
counter = 0
dim flxStatus
set flxStatus = flxEngine.EncodingStatus()
While ( ( Response.IsClientConnected) And ( flxEngine.IsEncoderRunning))
if (counter Mod 500 = 0) Then
'Response.Write flxStatus.percentcomplete() & " % | Time: " & flxStatus.elapsedTime() & " | Encoder State: "
'Response.Write flxEngine.GetEncoderState () & " | Flix Error #: " & flxEngine.flixerrno() & " | System Error #: " & flxEngine.syserrno() & "<BR>"
'Response.Flush
End If
counter = counter + 1
Wend
'Response.Write flxEngine.GetProgressValue() & "% "
'Response.Write flxEngine.GetEncoderState() & "<BR>"
'Response.Write "<BR>Encoding done @ " & now
'response.write "<br>Erro number : " & flxEngine.flixerrno()
set flxStatus = nothing
i am using asp/ vbscript:
dim flxVideo,counter
'Video options
flxEngine.SetExportVideo(1) '1/0
flxEngine.SetExportAudio(1) '1/0
flxEngine.SetExportVideoType(3)
set flxVideo = flxEngine.VideoOptions()
'flxVideo.FlvAudioFormat(2)
'frameRate = 6 '(Dial-up)
frameRate = 12 '(Broadband)
'frameRate = 30 '(Broadband High/CD)
'flxVideo.SetSwfFramerate(frameRate)
flxVideo.SetVideoFramerateAsDouble(frameRate)
'Broadband / Broadband High
width = 320
height = 240
flxVideo.SetSwfWidth(width) '---we set the width of the flv
flxVideo.SetSwfHeight(height) '---------we set the height of the flv
vBitrate = 448 'Broadband High
aBitrate = 64 'Broadband High
'Response.Write "Input: "
flxEngine.SetOutputFile (OutputFile)
flxEngine.SetInputFile(InputFile)
'response.write "<br><br>error number = wtf?"
'------------we create the PNG thumbnail ----------------------------------'
dim flxPNG
flxPNG = "png exporter"
'set flxPNG = flxEngine.filter_pngex
set flxJPG = flxEngine.addfilter(flxPNG)
flxJPG.SetParam flxEngine.FE2_PNGEX_AUTO_EXPORT_COUNT,1
flxJPG.SetParamAsStr flxEngine.FE2_PNGEX_OUTPUT_DIRECTORY,pngDirectory
flxJPG.SetParamAsStr flxEngine.FE2_PNGEX_FILENAME_PREFIX, png
'see http://www.on2.com/cms-data/pdf/windowsapi/group__filter__pngexporter.html
'---------------------------------------------------------------------------'
'----WE WILL ADD THE PROPER MP3 LAME CODEC----------------------------------'
dim mp3,flxCodec
flxCodec = "pcm"
set mp3 = flxEngine.AddCodec(flxCodec)
mp3.setParam flxEngine.FE2_LAME_BITRATE, 64
'Response.Write "Output: "
flxEngine.Encode()
'Response.Write "<BR>Encoding started...<BR><BR>"
Response.Buffer = true
counter = 0
dim flxStatus
set flxStatus = flxEngine.EncodingStatus()
While ( ( Response.IsClientConnected) And ( flxEngine.IsEncoderRunning))
if (counter Mod 500 = 0) Then
'Response.Write flxStatus.percentcomplete() & " % | Time: " & flxStatus.elapsedTime() & " | Encoder State: "
'Response.Write flxEngine.GetEncoderState () & " | Flix Error #: " & flxEngine.flixerrno() & " | System Error #: " & flxEngine.syserrno() & "<BR>"
'Response.Flush
End If
counter = counter + 1
Wend
'Response.Write flxEngine.GetProgressValue() & "% "
'Response.Write flxEngine.GetEncoderState() & "<BR>"
'Response.Write "<BR>Encoding done @ " & now
'response.write "<br>Erro number : " & flxEngine.flixerrno()
set flxStatus = nothing