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

[cincap]

@ Bernard B, c'est bien gentil mais ma commande Dos est correcte c'est toujours celle la que j'utilise et donc je dois trouver le pourquoi du dossier de la conversion ne fonctionne pas alors qu'en dur oui.

Je vais à l'Hôpital et je verrai cet après-midi.

@+,

cincap

[cincap]

@ Bernard B

Voici la solution en gardant mon code d'origine:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
 ForceDirectories(Dir);
 
 MonFichier := '"'+Edname.text+'"' ;
 
 MonFichierbis := Edname2.text ; //Modifier
 
 fichier := 'ffmpeg -i '+pchar(Monfichier)+' "'+Dir+'\ '+MonFichierbis+'"' ;

@+,

cincap

[Bernard B]

Tu as essayé d'enlever le PChar de MonFichier ? je ne suis pas sur qu'il soit nécessaire à conditions de l'entourer de double cotes

[ShaiLeTroll]

Tu devrais utiliser Format pour ce genre de chose, cela aide grandement en terme de visibilité

Code :

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

1
2
3
4
5
 Dir := chappli +  'PHOTO_JPG' ;
 ForceDirectories(Dir);
 MonFichier := Edname.text; 
 MonFichierbis := Edname2.text ; 
 fichier := Format('ffmpeg -i "%s" "%s\%s"', [MonFichier, Dir, MonFichierbis]);

Ou Encore

Code :

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

1
2
3
4
5
 Dir := chappli +  'PHOTO_JPG' ;
 ForceDirectories(Dir);
 MonFichier := Edname.text; 
 MonFichierbis := Edname2.text ; 
 fichier := Format('ffmpeg -i "%s" "%s"', [MonFichier, IncludeTrailingPathDelimiter(Dir) + MonFichierbis]); // ou IncludeTrailingBackslash éventuellement en D7

ou Encore

Code :

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

1
2
3
4
5
 Dir := chappli +  'PHOTO_JPG' ;
 ForceDirectories(Dir);
 MonFichier := Edname.text; 
 MonFichierbis := Edname2.text ; 
 fichier := Format('ffmpeg -i %s %s', [AnsiQuotedStr(MonFichier, '"'), AnsiQuotedStr(IncludeTrailingBackslash(Dir) + MonFichierbisr, '"')]); // AnsiQuotedStr a du justement apparaitre en D7

Ensuite la conversion string -> PChar, c'est au dernier moment, par exemple

Code :

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

ShellExecute(0, 'open', PChar(fichier), nil, nil, SW_HIDE);

Et l'on pourrait grouper tout ça, sans toutes ces variables inutiles :

Code :

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

ShellExecute(0, 'open', PChar(Format('ffmpeg -i "%s" "%s"', [Edname.text, IncludeTrailingBackslash(Dir) + Edname2.text])), nil, nil, SW_HIDE);

ou

Code :

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

ShellExecute(0, 'open', 'ffmpeg', PChar(Format('-i "%s" "%s"', [Edname.text, IncludeTrailingBackslash(Dir) + Edname2.text])), nil, SW_HIDE);

[SergioMaster]

je ne suis pas sur qu'il soit nécessaire à conditions de l'entourer de double cotes

les doubles quotes seront nécessaires si les chemins contiennent des espaces ou autres "subtilités"

[cincap]

Bonjour à toutes et à tous,

@ Tous merci de votre patience et de vos réponses.

@ ShaiLeTroll, grand merci pour tes suggestions, j'ai adopté le code après le dernier "ou encore" et tout est ok.

Comme quoi à 72 ans on a encore beaucoup à apprendre (Jean Gabin Je sais).

Maintenant je vais rester un long moment avant de me connecter et encore merci à tous.

@+,

cincap