Discussion :

[cincap]

Bonjour à toutes et à tous,

Je n'arrive pas a effectuer les deux instructions avec cette partie de ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
//Ceci s'exécute correctement
begin
 
if not fileexists(chappli + '*.VOB') then
 
for Drive := 'A' to 'Z' do
begin
 
if (GetDriveType(PChar(Drive + ':\')) = DRIVE_CDROM) then begin copyFolder(DRIVE + ':\VIDEO_TS\*.VOB', chappli);
 
 
//Ceci ne s'exécute pas sauf si je neutralise la 1ère partie
 
if fileexists(chappli + '*.VOB') then begin
 
fichier := 'ffmpeg -i -vcodec libx264 -crf 27 -preset veryfast -c:a copy -s 960x540 Conversion\'+Ednom.text+'.mp4';
 
-------
-------
end;
end;

Pourtant je devrai savoir le faire !

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

@+,

cincap

[SergioMaster]

AMHA c'est qu'il faut attendre que le traitement de CopyFolder se termine

[cincap]

@ SergioMaster, merci de ta réponse, je sais qu'il faut attendre que la 1ère partie soit terminée mais dans mon test j'ai effacé les fichiers créés par la 1ère partie et je les recrées.

La 2ième partie ne s'exécute pas.

Mon essai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
//Ceci s'exécute correctement
begin
 
if not fileexists(chappli + '*.VOB') then
 
for Drive := 'A' to 'Z' do
begin
 
if (GetDriveType(PChar(Drive + ':\')) = DRIVE_CDROM) then begin copyFolder(DRIVE + ':\VIDEO_TS\*.VOB', chappli);
 
Application.ProcessMessages;
  end;
end;
 
if fileexists(chappli + '*.VOB') then begin
 
fichier := 'ffmpeg -i -vcodec libx264 -crf 27 -preset veryfast -c:a copy -s 960x540 Conversion\'+Ednom.text+'.mp4';
 
-------
-------
end;
end;
end;

Je continue mon test.

@+,

cincap

[anapurna]

salut
quelque question

c'est la copy sur le CDROM qui ne marche pas ?
le CopyFolder ce n'est pas les répertoire que tu doit indiquer dans les paramètre?

la fonction CopyFolder ressemble a cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Copie de fichiers
FUNCTION CopyFolder(FromFld, ToFld: string): boolean;
VAR
  fos: TSHFileopStruct;
 
BEGIN
// il faut supprimer les antislashs de fin sinon vous aurez droit à un message d'erreur
  FromFld := ExcludeTrailingPathDelimiter(Trim(FromFld));
  ToFld := ExcludeTrailingPathDelimiter(Trim(ToFld));
 
  FillChar(fos, SizeOf(fos),0);
  WITH fos DO
  BEGIN
    wFunc := FO_COPY;
    pFrom := PChar(FromFld+#0);
    pTo   := PChar(ToFld+#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
  END;
  Result := ShFileOperation(fos)=0;
END;

de mémoire

fileExists(FileName)

n'est utilisable qu'avec un seul nom de fichier

je ne vois pas le rapport entre copyfolder et la ligne de commande
après le -i il manque le nom du fichier d'origine a convertir

il doit y avoir d'autre chose mais on va commencer doucement

[cincap]

@ anapurna, merci de ton message,

c'est la copy sur le CDROM qui ne marche pas ?
le CopyFolder ce n'est pas les répertoire que tu doit indiquer dans les paramètre?

la fonction CopyFolder ressemble a cela :

A ce niveau tout est correct mais j'ai trouvé les deux erreurs et après correction cela fonctionne.

1

Code :

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

1
2
3
4
5
6
 
if (GetDriveType(PChar(Drive + ':\')) = DRIVE_CDROM) then begin copyFolder(DRIVE + ':\VIDEO_TS\VTS_01_*.VOB', chappli);
 
 end;//A rajouter
end ;//A rajouter
if fileexists(chappli + 'VTS_01_*.VOB') then begin

2 la création du dossier final

Code :

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

1
2
 
fichier := 'ffmpeg -i mkdir Conversion -vcodec libx264 -crf 27 -preset veryfast -c:a copy -s 960x540 Conversion\'+Ednom.text+'.mp4';

Merci à tous,

@+,

cincap

[cincap]

@ tous, après tests j'ai aussi remarqué que le devant de la commande qui normalement servait d'afficher correctement les caractères dans le TMemo fonctionnait uniquement au début de la création du code.

Une fois que la 1ère partie était créée, cela interférait sur la 2ième partie.

Code :

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

1
2
 
ver | find "10.0." >nul && chcp 65001 >nul || chcp 28591 >nul&&

soit :

Code :

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

1
2
 
fichier := 'ver | find "10.0." >nul && chcp 65001 >nul || chcp 28591 >nul&&mkdir Conversion&&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\'+Ednom.text+'.mp4';

Je dois donc exécuter ceci :

Code :

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

1
2
 
fichier := 'mkdir Conversion&&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\'+Ednom.text+'.mp4';

Cela fonctionne sauf que les caractère du TMemo ne sont pas corrigé.

Exemple :

Début de la conversion en mp4...

Un sous-r‚pertoire ou un fichier Conversion existe d‚j….

Conversion terminée avec success.

*****************************************

Il y a certainement une astuce pour corriger cela mais celle que je connaissais interfère.

@+,

cincap

[cincap]

@ tous, en examinant toutes les versions de la procedure GetDosOutput(CommandLine, WorkDir: string;aMemo : TMemo);

J'ai remarqué que l'on pouvait inclure la ligne "OemToChar(Buffer,Buffer);" //A ajouter pour les caractères différents

Le membre ShaiLeTroll l'avait déjà souligné dans ses réponses concernant les commandes batch dans Delphi.

Soit :

Code :

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

1
2
3
4
5
6
7
 
  if BytesRead > 0 then
          begin
            Buffer[BytesRead] := #0;
            OemToChar(Buffer,Buffer); //A ajouter pour les caractères
            AMemo.Text := AMemo.Text + Buffer;
          end;

Après cette correction tout fonctionne.

Début de la conversion en mp4...

Un sous-répertoire ou un fichier Conversion existe déjà.

Conversion terminée avec success.

*****************************************

Merci à tous pour vos messages et vos réactions spontanées.

@+,

cincap