Discussion :

[tkx13140]

Bonjour,
je dois réaliser un programme permettant d'afficher des images en les sélectionnant dans une listbox et de pouvoir les "supprimer", j'ai réussi a les afficher en cliquant dessus dans la listbox avec :

Code :

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

1
2
3
4
5
6
//val est la valeur de la ligne sur laquelle on clique 
val = Form2->ListBox->ItemIndex;
//On retourne l'image sélectionné  
image = Form2->ListBox->Items->Strings[val];
//on affiche dans le TImage l'image sur laquelle on a cliqué
Form2->apercuImage->Picture->LoadFromFile("test1\\" + image);

Je dois pouvoir "supprimer" les images sélectionnées en cliquant sur un bouton, la suppression s'apparente plutôt à un déplacement en faite je dois envoyer les photos sélectionnées dans mon listbox (qui sont dans un dossier) dans un dossier "corbeille" qui me servira plus tard.

Seulement je ne sais pas comment réaliser cela, j'ai essayé avec la fonction MoveFile ainsi que SaveToFile mais je n'y suis pas arrivé , si quelqu'un pouvait m'aider...

Merci d'avance.

[ShaiLeTroll]

FAQ Delphi : Comment envoyer un fichier à la corbeille ?
FAQ C++ :Comment envoyer un fichier à la corbeille ?

Cela utilse SHFileOperation + FOF_ALLOWUNDO

[tkx13140]

Je ne veux pas envoyer mes images dans la corbeille mais dans un dossier "corbeille" propre a mon projet que j'aurais pu appelé par exemple "stockage" je dois utiliser FO_MOVE comme paramètre?
Et je ne veux supprimer que les photos que j'ai sélectionné dans ma listbox comment je dois faire pour ne sélectionner que celle la?

[ShaiLeTroll]

MoveFile fonctionne très bien pour cela !
MoveFileEx te permet de gérer le déplacement si disque différent !
Tu boucle sur ListBox->Items
Quel est ton code ?
tu n'aurais pas oublié le c_str() pour convertir String en char* comme paramètre de MoveFile

SaveToFile te fera une copie
DeleteFile pour nettoyer le précédent
Attention au chemin relatif, tu devrais stocker le chemin racine (calculé via Application->ExeName)

[tkx13140]

J'avais un code dans le style :

Code :

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

1
2
3
4
5
6
7
8
9
AnsiString  Chemain1 = "test1/", Chemain2 = "dossier2/";
if(MoveFile(Chemain1.c_str(), Chemain2.c_str()) == true)
{   
ShowMessage("Ok"); //Réperoire déplacé avec succès
}
else
{  
ShowMessage("Impossible de déplacer"); //Problème
}

Mais cela ne marche pas, quand bien même cela marcherai ca ne me déplacerai pas les fichiers sélectionnées mais tout les fichiers ...

[ShaiLeTroll]

Evite les chemins style "test1/" mais un chemin complet "C:\\Dossier\\SousDossier\\Fichier.ext"

MoveFile déplace des fichiers par des dossier
SHFileOperation est capable de déplacer des dossier !

Et comme je le disais, utilise tes ListBox->Items, fait une boucle for dessus dans laquelle tu appeles MoveFile

Code :

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

if(MoveFile(Chemain1.c_str(), Chemain2.c_str()) == true)

peut s'écrire tout simplement

Code :

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

if(MoveFile(Chemain1.c_str(), Chemain2.c_str()))

chemain ? chemin ? c'est original !

[tkx13140]

Code :

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

1
2
3
4
5
6
7
8
9
AnsiString  OldPath = "C:\\Documents and Settings\\IHM - 2 version\\test1\\Img001.jpg", NewPath = "C:\\Documents and Settings\\IHM - 2 version\\dossier2\\";
if(MoveFile(OldPath.c_str(),NewPath.c_str()))
{   ShowMessage("Ok");
   //Réperoire déplacé avec succès
}
else
{  ShowMessage("Impossible de déplacer");
   //Problème
}

Ça ne fonctionne pas je me suis demandé si c'était pas un problème sur le chemin donc j'ai essayé avec de simple antislash "C:\Document....\etc", j'ai aussi essayé avec le chemin relatif et absolue ca fonctionne pas non plus ca m'envoie direct dans le ShowMessage("Impossible de déplacer");

[ShaiLeTroll]

Arrête de bricoler !
Consulte un peu la Doc de MoveFile !
Tu dois mettre un nom de fichier dans les DEUX !
Il faut aussi que le dossier de destination existe !

Code :

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

1
2
OldPath = "C:\\Documents and Settings\\IHM - 2 version\\test1\\Img001.jpg";
NewPath = "C:\\Documents and Settings\\IHM - 2 version\\dossier2\\Img001.jpg";

[tkx13140]

J'ai enfin réussi, j'avais un autre problème qui m'empêcher de transférer le fichier sélectionné mais ça fonctionne maintenant !
Merci