Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec ma commande de type string, je n'arrive pas à placer un TEdit pour avoir le choix d'inscrire le nom de mon film convertit.

Ceci fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
-preset veryfast -c:a copy -s 960x540 Conversion\converted.mp4';

Et j'aimerai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
-preset veryfast -c:a copy -s 960x540 Conversion\'"Ednom.text'"'.mp4';

A mon avis je suis encore perdu avec les guillemets.

Si quelqu'un avait une idée merci d'avance.

Désolé, j'ai trouvé le problème, maintenant je peus choisir un nom pour mon film.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
-preset veryfast -c:a copy -s 960x540 Conversion\'+Ednom.text+'.mp4';

@ ShaiLeTroll, merci de ta réponse je l'ai vue après.

@+,

cincap

[ShaiLeTroll]

Format et %s

[papyvore]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
commande := '-preset veryfast -c:a copy -s 960x540 Conversion\'+Ednom.text+'.mp4';

quelque chose comme ça non?

[Charly910]

ou bien comme le préconise ShaiLeTroll :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

commande := Format('-preset veryfast -c:a copy -s 960x540 Conversion\%s.mp4',[Ednom.text]) ;

A+
Charly

[cincap]

@ papyvore, merci de ta réponse c'est bien cela tout s'est enchainé le topic peut-être fermé.

Merci à tous,

@+,

cincap

[Charly910]

Bonjour Cincap,

quand on a une chaine avec une ou plusieurs variables la commande Format est préférable, elle est très rapide et facilite aussi la transformation d'une application en langue étrangère ou multilingue.
De plus c'est souvent plus lisible dans le code.

Mais, bien sûr, on peut aussi utiliser l'autre solution.

Bonne journée

A+
Charly

[cincap]

Bonjour à toutes et à tous, désolé de revenir sur ce sujet.

Avec cette commande cela fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShellExecute(Handle, nil, pchar(chappli + 'Test2.bat'), pchar('"'+Ednom.text+'"'), nil,SW_HIDE);

Mais si j'utilise un fichier batch avec "%1" a la fin de ce fichier et que j'utilise :

-preset veryfast -c:a copy -s 960x540 Conversion/%1.mp4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CreateProcess(Nil,PChar(chappli + 'Test2.bat'),Nil,Nil,False,0,Nil,Nil,StartInfo,ProcessInfo)

Je n'arrive toujours pas à utiliser un Tedit et le placer pour indiquer le nom.

Merci de l'aide éventuelle.

@+,

cincap

[Andnotor]

La première chose est que CreateProcess n'est pas capable de retrouver l'application associée à une extension comme le fait ShellExecute. Il faut clairement spécifier l'exécutable, ici cmd.exe. Le chemin doit également être entièrement qualifié puisque CreateProcess ne traite pas les AppPaths de la base des registres ni même la variable PATH.

La commande de base se présente donc ainsi (/c est obligatoire pour exécuter le batch) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
App := 'C:\Windows\System32\cmd.exe';
Cmd := Format('/c "%s\Test2.bat"', [chappli]);
CreateProcess(PChar(App), PChar(Cmd), ...)

Pour passer des paramètres au batch il faut faire comprendre à cmd.exe qu'une suite de commandes ne forme qu'un seul argument. Et comme toujours, ça se fait avec des guillemets. On aura donc une imbrication de guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmd := Format('/c ""%s\Test2.bat" "%s""', [chappli, Ednom.text]);

[cincap]

@ Andnotor, bonjour et merci pour l'explication et le code.

Dans mon test malgré l'excellent code mon fichier se nomme s.mp4 malgré que Ednom.text indiquait "MonFilm" avec la commande dans mon batch.

Conversion est le dossier créé avec mkdir dans Test2.bat !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
@echo
ffmpeg -i "concat:VTS_01_1.VOB|VTS_01_2.VOB|VTS_01_3.VOB" -vcodec libx264 -crf 27 -preset veryfast -c:a copy -s 960x540 Conversion/%s.mp4 
done

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Cmd := Format('/c ""%s\Test2.bat" "%s""', [chappli, Ednom.text]);
if CreateProcess(PChar(App), PChar(Cmd),Nil,Nil,False,0,Nil,Nil,StartInfo,ProcessInfo) then
  Begin
 .....
.....

Ou est mon erreur ?

Je continue à tester.

@+,

cincap

[Andnotor]

Code bat :

Sélectionner tout - Visualiser dans une fenêtre à part

ffmpeg -i "concat:VTS_01_1.VOB|VTS_01_2.VOB|VTS_01_3.VOB" -vcodec libx264 -crf 27 -preset veryfast -c:a copy -s 960x540 Conversion/%1.mp4

[cincap]

@ Andnotor, bien vu c'est super cela fonctionne, cela m'aurait étonné autrement.

Par contre j'avais remarqué que je n'avais pas besoin de renseigné "App := 'C:\Windows\System32\cmd.exe';" avec mon code d'origine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if CreateProcess(PChar(App), PChar(Cmd),Nil,Nil,False,0,Nil,Nil,StartInfo,ProcessInfo) then...

puisque j'utilise l'affichage de la console sur un Tpanel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
while h=0 do
   h:=findwindow('ConsoleWindowClass',FileMSDos);   // ConsoleWindowClass
   Windows.SetParent(h,Panel2.handle);

Encore un grand merci pour toutes ces explications et la solution.

@+,

cincap