*.jpg - *.bmp

Question

Bonjour,





Voil&#224; j'aimerais savori si il existait une fonction comme celle de
RenameFile() pour renommer non pas un fichier mais renommmer tout
simplement plusieurs fichier.


En fait mon but est simple, je voudrais renommer des .jpg en .bmp.Donc
j'ai cherch&#233; un "truc" du genre *.jpg mais le programme le comprend en
trant que le nom est : *.jpg alors qu'il est impossible a part une
bonne manipulation &#224; &#233;crire *.jpg.





Donc voici ma queestion comment renommer plusieurs fichier .jpg en .bmp 





Merci d'avance

moldov · Answer

Salut,



Alors moi je te propose une fontion qui transforme en BMP quand il est en JPEG et en JPEG si le fichier est un BMP

Au pr&#233;alable j'ai charger tous mes fichiers images dans une listbox



procedure TForm1.ConvertBMPJPEG;

var

  iIndice : integer;

  Bmp : TBitmap;

  Jpeg: TJpegImage;

begin

  for iIndice := 0 to ListBox1.Count-1 do

  begin

    Bmp := TBitmap.Create;

    Jpeg := TJpegImage.Create;

    // Si c'est un BMPalors on le converti en JPEG

    if UpperCase(ExtractFileExt(ListBox1.Items.Strings[iIndice])) = '.BMP' then

    begin

      Bmp.LoadFromFile(ListBox1.Items.Strings[iIndice]);

      Jpeg.Assign(Bmp);

      Jpeg.CompressionQuality := 50; // Posibilit&#233; de mettre une trackbar pour d&#233;finir la valeur par defaut je l'ai fix&#233;e a 50

      Jpeg.SaveToFile(ChangeFileExt(ListBox1.Items.Strings[iIndice],'.jpg'));

    end

    // Si c'est un JPEG alors on le converti en BMP

    else if UpperCase(ExtractFileExt(ListBox1.Items.Strings[iIndice])) = '.JPG' then

    begin

      Jpeg.LoadFromFile(ListBox1.Items.Strings[iIndice]);

      Bmp.Assign(Jpeg);

      Bmp.SaveToFile(ChangeFileExt(ListBox1.Items.Strings[iIndice],'.bmp'));

    end;



    Bmp.Free;

    Jpeg.Free;

  end;

  ListBox1.Items.Clear;

end;



Evidemment si on veut faire que de la conversion en BMP ou en JPEG il suffit de retirer le bout de code correspondant



Bonne Prog

Filipe35 · Answer

Ou encore une autre solution en DOS (fichier *.bat)

ren *.jpg *.bmp

ca RENOMMERA tout les fichiers *.jpg en *.bmp dans le rep où est le fichier *.bat

Filipe

Also know as · Answer

c'est ce que j'avais pens&#233; au d&#233;but mais je pensais que la convertion sous delphi serait possible facilement mais apparemment non.
Pourquoi je veux pas utiliser DOS, ben parceque c'est pas tr&#232;s beau tout simplement...
Donc je vais utiliser delphi pour cr&#233;er un fichier .bat qu ifera ce que je souhaite.

Merci pour toutes vos r&#233;ponses, et d&#233;s que j'ai fini je vous dis ce que donne ma source.

sokoban · Answer

D&#233;j&#224;, il faudrait savoir si tu veux juste changer l'extension, ou bien changer &#233;galement le format du fichier, car renommer des BMP en JPG (ou l'inverse) ne suffit pas pour changer le format de l'image. Et ne changer que l'extension me parait dangereux pour une utilisation future...


Ghislain "Sokoban" Martin
http://perso.wanadoo.fr/sokoban

Also know as · Answer

non c'est pour moi personnellement pour faire des tests, je voudrais juste changer l'extension voil&#224; tout.

Also know as · Answer

merci je vais regarder cela de plus pr&#234;t une fois que je serais &#224; nouveau install&#233;.

moldov · Answer

Salut,



Tu dis que c pour toi, tu veux juste changer l'extensions du fichier alors il faut que tu utlise la fonction ChangeFileExt

Ex : 

ChangeFileExt(OpenDialog1.FileName,'.BMP');



Bonne Prog

.jpg -> .bmp

7 réponses

Votre réponse

Discussions similaires