Comunidad Gambas-es

Dividiendo archivos de sonido ¡Shell no me hace caso!

Shordi 08-09-2022, 21:19

Estoy añadiendo a gbAmp la utilidad de extraer pistas de un archivo de sonido, que a veces sólo consigues todo el disco en un solo archivo o sólo te interesa un trocito de un concierto. Todo muy bien y muy chulo y muy fácil con ffmpeg... pero a la hora de enviar la instrucción al Shell, natis de natis. He probado redirigiendo la salida de errores, he probado con Exec y al final con lo único que funciona es con un terminalview... pero la estética no me gusta nada.

Adjunto un pequeño proyecto que hace lo que digo. Elegid un archivo de disco y marcad un tiempo "desde" y otro "hasta" y una carpeta de salida, un nombre para la pista extraída (incluyendo la extensión) y pulsando "Extraer en terminalview" funciona. Con "Extrayendo con Shell" ni flores...

¿Alguien sabría y podría decirme qué es lo que estoy haciendo mal?

Saludos

Tenéis que tener instalado ffmpeg, claro. Que se me olvidaba decirlo.

Saludos

Archivos adjuntos

Divisor-0.0.1.tar.gz (Tamaño: 12.74 KB Descargas: 3)

General Respuestas 5

Comparar versión de archivo a copiar

alberto-moyano 07-09-2022, 02:19

Justo en otro hilo Tincho aporto una solución a una cuestión en la que justamente estoy aprendiendo, mi diferencia está en que yo necesito saber si la versión copiada anteriormente es la misma que tengo en la aplicación, el código que uso es este, se que los if los podría anidar pero por ahora lo dejo así para aclarar mis ideas.

Que piensan que es mejor, directamente borrar la versión en el disco y copiar la nueva sin comparar al iniciar la aplicación o desarrollar un algoritmo que haga la comparación, (ergo que vale más, eficaz o eficiente).

El punto es que estos archivos html pueden ser actualizados constantemente (son el manual de uso, el manual de estilo de IM y una guía rápida de tips).

Código:
Public sAppDir As String = User.Home &/ ".local/gbAldusEditor"

Public Sub Form_Open()

  If Not Exist(sAppDir) Then

    Mkdir sAppDir

  Endif

  If Exist(sAppDir &/ "index1.html") Then

    Return

  Else

    Copy "./index1.html" To sAppDir &/ "index1.html"

  Endif

  If Exist(sAppDir &/ "index2.html") Then

    Return

  Else

    Copy "./index2.html" To sAppDir &/ "index2.html"

  Endif

  If Exist(sAppDir &/ "index3.html") Then

    Return

  Else

    Copy "./index3.html" To sAppDir &/ "index3.html"

  Endif

End

Aplicaciones/Fragmentos de Código Respuestas 9

Solo hay 10 tipos de personas, las que saben binario y las que no.

tincho 06-09-2022, 21:29

Hola amigos.
Estoy tratando de cambiar de grupo, jeje.
Por ejemplo en esto:

Código:
typedef struct

{

unsigned level:6 ; /* level element is on */

unsigned :1 ; /* reserved */

unsigned complex:1 ; /* component of complex elem.*/

unsigned type:7 ; /* type of element */

unsigned deleted:1 ; /* set if element is deleted */

unsigned short words ; /* words to follow in element */

unsigned long xlow ; /* element range - low */

unsigned long ylow ;

unsigned long zlow ;

unsigned long xhigh ; /* element range - high */

unsigned long yhigh ;

unsigned long zhigh ;

} Elm_hdr ;