GESTION DE BANQUE D'IMAGES
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
-
24 déc. 2008 à 16:19
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 27 sept. 2012 à 10:05
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 27 sept. 2012 à 10:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48789-gestion-de-banque-d-images
https://codes-sources.commentcamarche.net/source/48789-gestion-de-banque-d-images
27 sept. 2012 à 10:05
@ Debiars, Avec ta source qui fonctionne correctement avec D6 et Seven 64Bits, j'aurai aimé pouvoir ouvrir les photos d'un dossier qui sera pointé à l'exécution de la fiche.
Il faut donc sonder le dossier et compter les fichiers images en Jpg puis les afficher dans le TlistBox.
Code :
Function CompteFichiers(Chemin:String):Integer;
Var S:TSearchRec;
Begin
Chemin:=IncludeTrailingPathDelimiter(Chemin);
Fmain.FileBox.clear;
Result:=0;
// Recherche de la première entrée du répertoire
If FindFirst(Chemin+'*.jpg',faAnyFile,S)=0
Then Begin
Repeat
// Il faut absolument dans le cas d'une procédure récursive ignorer
// les . et .. qui sont toujours placés en début de répertoire
// Sinon la procédure va boucler sur elle-même.
if (S.Name<>'.')And(s.Name<>'..')
Then Begin
If (S.Attr And faDirectory)<>0
// Dans le cas d'un sous-repertoire on appelle la même procédure
Then
Result:=Result+CompteFichiers(Chemin+S.FindData.cFileName)
// Sinon on compte simplement le fichier
Else
Inc(Result);
End;
// Recherche du suivant
Until FindNext(S)<>0;
FindClose(S);
End;
End;
A ce niveau j'ai un problème, une image 0 s'affiche et le compte des autres n'est pas correct.
Si quelqu'un a une idée pour ne pas utiliser un TopenDialog, cela m'intéresse.
@+,
Cincap
30 déc. 2008 à 15:14
30 déc. 2008 à 15:11
Effectivement, c'est remarquable ! Et il y a beaucoup à y apprendre !
Une remarque, qui prouve que j'ai testé (et apprécié) ton programme : il manquait l'Autoscroll à l'aide.
Merci à toi de nous proposer régulièrement des codes très intéressants et bonnes fêtes à tous !
30 déc. 2008 à 11:15
Merci.
29 déc. 2008 à 15:48
27 déc. 2008 à 04:03
26 déc. 2008 à 22:35
25 déc. 2008 à 19:56
Mais, pour une fois, je vais quand même ramener ma fraise sur la structure du fichier que tu as choisie. Pourquoi ne pas avoir choisi de tout stocker au format JPEG?
Il s'agit quand même d'un fichier et autant le compresser au max, non?
Sauf si qq chose m'échappe, je ne vois pas bcp d'intérêt à stocker du Bitmap. A part peut-être pour éviter une perte d'info sur qq pixels. Mais alors, un choix de la qualité de compression pouvait toujours être proposé à l'utilisateur.
Quoi que t'en penses, toi?
25 déc. 2008 à 14:00
Nico
24 déc. 2008 à 22:05
Sinon Bon Code !!
BY OFFLAKE
24 déc. 2008 à 17:23
malheureusement pas le temps de regarder ta source , je me fais déjà engueulé d'ailleurs !
Bon Noël à tous
24 déc. 2008 à 16:53
Donc en fait, si je comprends bien, tu mets les images l'une après l'autre dans le stream en mettant en premier leur taille et leur position dans le stream, pour pouvoir décoder le stream correctement.
C'est bien ce que j'avais fait, mais j'ai dû mal le faire car je n'avais que des violations d'accès ! :o
Je vais regarder ça de plus près, voir comment tu fais pour organiser le stream, ça va sûrement beaucoup m'aider :)
Cordialement, Bacterius !
PS : dis donc Debiars tu es généreux sur le nom des images ! 11 caractères ! :p
24 déc. 2008 à 16:31
24 déc. 2008 à 16:19
Juste « Joyeuses fêtes de fin d'année à toi », en passant... :)))
@++