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