Manipilar archivo avi

[paty_rlopez]

Hola a todos de nuevo quesiera preguntarle a seoane ¿como puedo mandar ese codigo

mencoder -ss 00:03:00 d:\1.avi -o d:\2.avi -oac copy -ovc copy -endpos 00:05:00

por linea de comandos desde delphi, lo intente asi

WinExec(c:\programas\mencoder -ss 00:03:00 d:\1.avi -o d:\2.avi -oac copy -ovc copy -endpos 00:05:00, SW_SHOWNORMAL);

y no se genera archivo alguno

Si alguien mas me puede ayudar gracias de antemano

[[seoane]]

Empezado por paty_rlopez

WinExec(c:\programas\mencoder -ss 00:03:00 d:\1.avi -o d:\2.avi -oac copy -ovc copy -endpos 00:05:00, SW_SHOWNORMAL);

Eso tal como esta escrito, ni siquiera creo que compile . Por que mejor no copias y pegas el código tal como lo tienes en tu programa. Y describes exactamente el error que te da.

[paty_rlopez]

procedure TForm1.Button3Click(Sender: TObject);
var
  L_VideosList: TStringList;
  i : Integer;
  Pegar : String;
begin
         If not DirectoryExists('c:\coco') then    CreateDir('c:\coco');
         If not DirectoryExists('c:\coco\video') then    CreateDir('c:\coco\video');
 
         CoInitialize(nil);
        // L_CamarasSrv:= TFCamaras.Create(nil);
         try
            FCamaras.Show;
            FCamaras.Close;
            FCamaras.SetDirVideos(DIR_GV600_W32);
            L_VideosList:= TStringList.Create;
/*Esta funcion me trae una lista de nombres de archivos que se encuentran en ese  rango de fechas */
            FCamaras.GetFileVideoHist(1, StrToDateTime('07/12/2006 11:26'),  StrToDateTime('30/12/2006 11:36'), L_VideosList);
   finally
     //       FreeAndNil(L_CamarasSrv);
         end;
         CoUninitialize;
         L_VideosList.Add('FIN');
         Pegar := '';
         for i:= 0 to (L_VideosList.Count -1) do
         begin
          if L_VideosList.Strings[i] <> 'FIN' then
            Pegar := Pegar + Trim(L_VideosList.Strings[i]) + ' ';
         end;
         Pegar :=  'c:\Programas\mencoder -ovc copy -oac copy -idx - o c:\coco\video\301220061136.avi ' + Pegar;
         //ASender.Thread.Connection.WriteLn(L_VideosList.Strings[i]);
//aqui intento ejecutar el programa, se alcanza a ver que abre una ventana de msdos pero el archivo no lo genera.
           WinExec(@Pegar[1], SW_SHOWNORMAL);
 
end.

[[seoane]]

c:\Programas\mencoder -ovc copy -oac copy -idx - o c:\coco\video\301220061136.avi

Lo primero que veo es que hay un espacio entre "-" y "o". Luego, le sumas la variable pegar ¿que contiene exactamente?

En cuanto a lo de usar WinExec, tambien lo puedes hacer asi

Código Delphi [-]
 WinExec(PChar(Pegar), SW_SHOWNORMAL);

[paty_rlopez]

muchas gracias seoane

la respuesta a tu pregunta :

¿que contiene exactamente?

La variable "pegar" contiene la lista de los archivos que se van a pegar, en el ciclo las acomodo segun el formato del mencoder

Esta lista es regresada por la funcion "GetFileVideoHist"

Bueno de nuevo muchas gracias y hasta pronto