Discussion :

[cincap]

Bonjour à toutes et à tous,

Dans mes essais, j'aimerai faire la conversion d'un format à un autre format depuis un dossier créé mais pas de résultat.

Sans inclure le dossier, la conversion se fait directement dans le répertoire de l'application, je pense que c'est à cause de guillemets mal placé ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
 Dir := chappli +  'PHOTO_JPG' ;
 
 ForceDirectories(Dir);
 
 MonFichier := '"'+Edname.text+'"' ; //Fichier .bmp
 
 MonFichierbis := '"'+Edname2.text+'"' ; //Fichier .jpg
 
 fichier := 'ffmpeg -i '+pchar(MonFichier)+'  '+Dir+'  '+pchar(MonFichierbis)+'' ;

Fonctionne directement dans le même répertoire sans placer le "Dir".

Merci si quelqu'un voit l'erreur.

@+,

cincap

[Bernard B]

Tu as essayé comme ça :

Code :

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

fichier := 'ffmpeg -i '+pchar(MonFichier)+'  "'+Dir+'"  "'+pchar(MonFichierbis)+'"' ;

Je me suis déjà bagarré avec les double cotes pour pouvoir passer des espaces dans ce type de commande.

[cincap]

Bonjour à toutes et à tous,

@ Bernard B, merci de ta suggestion, tu peus pas savoir toutes les combinaisons que j'ai déjà testées sans succès.

Cela ne fonctionne pas, l'application ne bloque pas et la conversion est nulle.

@+,

cincap

[cincap]

@ Bernard B, par contre si je met le nom de fichier en dur, ceci fonctionne ainsi que la conversion.

Code :

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

1
2
 
fichier := 'ffmpeg -i '+pchar(Monfichier)+' "'+Dir+'\Test.jpg"' ;

Donc si j'utilise "Monfichierbis" à la bonne place cela devrait fonctionner.

Je continue aussi à chercher mais avec Norton 360, il analyse chaque fois l'application avant de la faire fonctionner donc perte de temps.

@+,

cincap

[_alx_]

Bonjour,
Pour Delphi 7 je ne sais pas, mais les Delphis plus récents proposent la fonction QuotedStr (System.SysUtils).
Quoi qu'il en soit, dans cette fonction, c'est codé ainsi:

Code :

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

Result := '''' + Result + '''';

alx.

[Bernard B]

Voici une ligne de commande que j'utilise et qui fonctionne !!!

Code :

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

LanceProcessDos(FFMpeg+' -i "'+FichierVideo+'" -frames 1 -f image2 "'+RepPhotosExtraites+'0000.jpg"',True);

FFMpeg est une string qui contient le chemin d'accès complet à l'exe encadré de double cote.
FichierVideo et RepPhotosExtraites sont aussi des string, mais par contre attention je ne suis pas en D6 mais en D11.3 Community

LanceProcessDos utilise TDosCommand