FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Te incluyo otros utilitarios para transformar videos agregarles pistas de audio volverlas stereo etc, etc, etc
// Para Convertir los Videos // //Para obtener información de un archivo de audio o video //------------------------------------------------------- //ffmpeg -i archivo.mpg // //Para cambiar tamaño a un archivo //-------------------------------- //ffmpeg -i "e:\Fallados\Fey - Me cuesta tanto olvidarte.avi" -y -qscale 1 -sameq -vcodec msmpeg4v2 -s 320x240 "e:\videos\Fey - Me cuesta tanto olvidarte.avi" //ffmpeg -i "e:\Fallados\Alejandro Sanz - Mi soledad y yo.avi" -y -qscale 1 -sameq -vcodec msmpeg4v2 -s 320x240 "e:\videos\Alejandro Sanz - Mi soledad y yo.avi" // //Para extraer el audio de un video //--------------------------------- //ffmpeg -i "D:\Videos\Madonna - La isla bonita.avi" -y -vn -acodec copy "D:\Videos_\Madonna - La isla bonita.mp3" //Para Metanormalizer Steinberg // Equialize Loudnes RMS (activado) // Maximize if possible (activado) // Global (activado) // Llevar todo los archivos a Wav //Para normalizar en Volumen de todos los videos //---------------------------------------------- //Para Normalizer ( Normaliza el Nivel de audio a 0db para que todos tengan el mismo volumen ) //Debes utilizar el Steinberg Wavelab // //Para convertir el audio a Stereo //-------------------------------- //Aplica el efecto StereoExpander del Steinberg WaveLab // //Extraer el audio Usando codecs de audio mp3, mp2 y mp1 stereo o mono //-------------------------------------------------------------------- //ffmpeg -i "D:\Videos\Fey - Me cuesta tanto olvidarte.avi" -y -vn -f mp3 "D:\Videos_\Fey - Me cuesta tanto olvidarte.mp3" // //Introducir archivo de audio (modificado) en el video y cambiar de tamaño y Cambiar el audio //------------------------------------------------------------------------------------------- //ffmpeg -y -i "D:\Videos\Fey - Me cuesta tanto olvidarte.avi" -i "D:\Videos_\Fey - Me cuesta tanto olvidarte.wav" -map 0:0 -map 1:0 -ss 00:00:00.000 -vcodec msmpeg4v2 -b 1000000 -qscale 1 -ac 2 -ab 128000 -ar 44100 -acodec libmp3lame -s 320x240 -f avi "D:\Videos_\Fey - Me cuesta tanto olvidarte.avi" // //Convierte archivo fvl a avi usando ffmpeg de dvdsoftvideodownload ( Reconoce codec mp3 ) //----------------------------------------------------------------- //ffmpeg.exe -y -i "C:\DVDVideoSoft\Temp\video_download_temp_00_39_51_140.flv" -ss 0.00 -vcodec msmpeg4v2 -b 3000000 -acodec mp3 -f avi -year 30212472 -track 30212472 "D:\youtube - calo - formas de amor (video).avi" // //Convierte archivo vob ( DVD ) a avi //----------------------------------- //ffmpeg -y -i "D:\Video Vob\video.vob" -ss 00:00:00.000 -vcodec msmpeg4v2 -b 3000000 -sameq -qscale 1 -s 320x240 -f avi "D:\Video Vob\Video San Juan de Dios 320x240.avi" // // //Para ejecutarlos desde delphi usas debes tener el ffmpeg en la carpeta del programa y la dll //Luego usas esta rutina para que no tengas problemas de saturacion del cpu ni del disco duro que //es muy comun en programas de este tipo ( Puedes convertir hasta 100 videos simultaneamente sin problemas ) // // En el memo1 van los procesos,puedes cargarlos con loadfromfile ejemplo: // ffmpeg.exe -y -i "C:\DVDVideoSoft\Temp\video_download_temp_00_39_51_140.flv" -ss 0.00 -vcodec msmpeg4v2 -b 3000000 -acodec mp3 -f avi -year 30212472 -track 30212472 "D:\youtube - calo - formas de amor (video).avi" // Delphi [-]procedure Runffmpeg(Que:String;EnMemo:TMemo); const CUANTOBUFFER = 2000; var Seguridades : TSecurityAttributes; PaLeer,PaEscribir : THandle; start : TStartUpInfo; ProcessInfo : TProcessInformation; Buffer : Pchar; BytesRead : DWord; CuandoSale : DWord; begin with Seguridades do begin nlength := SizeOf(TSecurityAttributes); binherithandle := true; lpsecuritydescriptor := nil; end; {Creamos el pipe...} if Createpipe (PaLeer, PaEscribir, @Seguridades, 0) then begin Buffer := AllocMem(CUANTOBUFFER + 1); FillChar(Start,Sizeof(Start),#0); start.cb := SizeOf(start); start.hStdOutput := PaEscribir; start.hStdInput := PaLeer; start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; start.wShowWindow := SW_HIDE; if CreateProcess(nil, PChar(Que), @Seguridades, @Seguridades, true, // Esto es importante para que no sature el CPU y el HD IDLE_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then begin // si ejecutas varios end; FreeMem(Buffer); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); CloseHandle(PaLeer); CloseHandle(PaEscribir); end; end; var i : integer; InputString: string; begin for i:= 0 to Memo2.Lines.Count -1 do begin if (i mod 10)= 0 then begin InputString:= InputBox('Procesando los lotes', 'Continuamos con: '+inttostr(i), 'S'); if uppercase(InputString) <> 'S' then exit; end; Memo1.Lines.Add(memo2.Lines[i]); Runffmpeg(pchar(memo2.Lines[i]),Memo1); Memo1.Lines.Add(inttostr(i)); end; end; Que lo disfruten |
|
|
|