Discussion :

[cincap]

Bonjour à toutes et à tous,

Reprenant une ancienne source pour une petite application personnelle, je cale sur le remplacement d'un TopenDialog (Bdimage) par les items de TListBox qui s'affichent un par un dans un Timage.

Le TopenDialog est repris souvent dans la conversion des formats.

Voici le 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
24
25
26
 
if not Bdimage.Execute then exit else
  begin
 
     { initialisation }
  BMPLoaded := false;
 
   { recuperation de l'extention }
    Ext := LowerCase(ExtractFileExt(Bdimage.FileName));
 
     { creation du bitmap temporaire }
    BMP := TBitmap.Create;
    JPGBis := TJPegImage.create;
 
    try
      { si c'est un jpeg }
      if (ext = '.jpg') or (ext ='.jpeg') then
      begin
        { creation d'une image jpeg }
        JPG := TJPegImage.Create;
        try
          { charge a partir du fichier }
          JPG.LoadFromFile(Bdimage.FileName);
          { convertion JPG > BMP }
………
…..

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

@+,

cincap

[Charly910]

Bonjour,

je n'ai pas trop compris. Tu veux dire que les noms des fichiers Jpg sont affichés dans un TlistBox et qu'en sélectionnant un item l'image doit s'afficher dans un TImage ?

A+
Charly

[cincap]

@Charly910, merci de ta réponse.

J'affiche dans le TlistBox depuis un dossier toutes les photos au format .jpg donc après réflexion, je n'aurai pas besoin de tous les autres formats repris dans l'exemple de code.

Ces items lorqu'ils sont sélectionné s'affichent bien dans mon Timage mais j'aimerai rajouter une option comme par exemple un cadre de couleur et la il faut le format .bmp pour ce faire.

Donc le fichier .jpg qui s'affiche dans le Timage et repris dans le TlisBox doit être convertit en .bmp, puis appliquer le cadre de couleur et ensuite sauver à nouveau en .jpg avant de l'exploiter sans toucher à l'original.

J'ai testé des solutions mais j'ai chaque fois une exception.

Je continue aussi.

@+,

cincap

[Cirec]

Bonjour,

il va falloir être un peu plus précis sur le problème:
- à quel moment du processus as-tu l'erreur ?
- quel type d'exception ?

et peut être fournir le code qui pose problème !

mais là ça manque de précisions

Cordialement,

@+

[Charly910]

Bonjour,

je ne sais pas si ce sera utile, mais regarde ce post qui encadre une image

A+
Charly

[cincap]

@ Cirec, merci de ta réponse.

En fait le code que j'ai communiqué au début fonctionne très bien si j'utilise un TopenDialog et que je suis dans le dossier ou sont mes photos au format .jpg.

Mais comme maintenant j'utilise un Tlistbox qui me charge mes photos uniquement au format .jpg, j'aimerai aussi appliquer un cadre de couleur mais cela ne fonctionne pas car la procédure pour le cadre de couleur fonctionne qu'avec au départ le format .bmp.

Donc ma question est d'enlever à mon code le TopenDialog et d'utiliser un des items du Tlistbox, items qui indiquent le nom et l'extension du fichier soit "monfichier.jpg".

L'erreur c'est que je ne sais pas adapter le code prévu avec un TopenDialog qui fonctionne très bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    { initialisation }
  BMPLoaded := false;
 
   { recuperation de l'extention }
    Ext := LowerCase(ExtractFileExt(ListBox1.items));
 
     { creation du bitmap temporaire }
    BMP := TBitmap.Create;
    JPGBis := TJPegImage.create;
 
    try

@+,

cincap

[tourlourou]

Code :

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

1
2
3
4
i := ListBox1.itemIndex;
if i > -1 then
  Ext := LowerCase(ExtractFileExt(ListBox1.items[i]))
else ShowMessage('No Item selected');

[Cirec]

Ok,

La différence entre

Code :

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

1
2
   { recuperation de l'extention }
    Ext := LowerCase(ExtractFileExt(Bdimage.FileName));

et

Code :

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

1
2
   { recuperation de l'extention }
    Ext := LowerCase(ExtractFileExt(ListBox1.items[i]));

est que "Bdimage.FileName" contient le chemin complet du fichier
alors que "ListBox1.items[i]" ne contient que le nom et l'extension !!

et si tu essayes de charger ou d'enregistrer sans préciser le chemin ça peut poser des problèmes
en fonction du répertoire courant.

Cordialement,

@+

[cincap]

@ tourlourou, merci de ta réponse, je testerai demain ta suggestion.

Entretemps comme j'affichais l'item sélectionné dans un Tedit, j'ai donc utilisé :

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
25
 
    { initialisation }
  BMPLoaded := false;
 
   { recuperation de l'extention }
    Ext := LowerCase(ExtractFileExt(edit1.text));
 
     { creation du bitmap temporaire }
    BMP := TBitmap.Create;
    JPGBis := TJPegImage.create;
 
    try
      { si c'est un jpeg }
      if (ext = '.jpg') or (ext ='.jpeg') then
      begin
        { creation d'une image jpeg }
        JPG := TJPegImage.Create;
        try
          { charge a partir du fichier }
          JPG.LoadFromFile(edit1.text);
          { convertion JPG > BMP }
          JPEGToBMP(JPG,BMP);
          { BMP est prét }
          BMPLoaded := true;
        finally

Et cela fonctionne mais je testerai directement avec l'item du Tlistbox demain matin.

Merci à tous, je ferme le topic.

@+,

cincap

[Charly910]

Un peu tard, mais voici une solution (en D7) :

ListImage.zip

Bonne soirée
A+
Charly

[cincap]

Bonjour à toutes et à tous,

@ tourlourou, j'ai testé ta suggestion et cela fonctionne aussi en le codant comme 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
    { initialisation }
  BMPLoaded := false;
 
   { recuperation de l'extention }
 
  if i > -1 then begin
  Ext := LowerCase(ExtractFileExt(ListBox1.items[i]));
 
 { creation du bitmap temporaire }
    BMP := TBitmap.Create;
    JPGBis := TJPegImage.create;
 
    try
      { si c'est un jpeg }
      if (ext = '.jpg') or (ext ='.jpeg') then
      begin
        { creation d'une image jpeg }
        JPG := TJPegImage.Create;
        try
          { charge a partir du fichier }
          JPG.LoadFromFile(edit1.text);
          { convertion JPG > BMP }
          JPEGToBMP(JPG,BMP);
          { BMP est prét }
          BMPLoaded := true;
        finally
          { liberation de JPG }
          JPG.Free;
        end;
 
      end
      else
 
      if ext = '.png' then
      begin
        Png := TPNGObject.Create;
      try
        { charge a partir du fichier }
        png.LoadFromFile(edit1.text);
        pngToBMP(png,BMP);
        { BMP est prét }
        bmpLoaded := true;
 
      finally
          { liberation de PNG }
          PNG.Free;
        end;
…….
….

@ Cirec, tu as totalement raison concernant ta remarque mais le chemin et dossier sont bien définis à l'avance, je ne l'avais pas noté.

@ Charly910, excellent ton exemple à garder bien entendu.

Merci à tous pour votre aide,

@+

cincap