Gestion de banque d'images

Soyez le premier à donner votre avis sur cette source.

Vue 7 194 fois - Téléchargée 1 165 fois

Description

Au vue de l'énergie déployée par Bactérius pour stocker des images et pour répondre à quelques commentaires, je poste ce programme très simple qui n'utilise que des MemoryStream pour réaliser ce propos.
J'y ai joint un exemple de fichier (Gestima.pak) contenant les images ayant servi au programme.
Je pense que le code est suffisamment commenté pour sa compréhension,
sinon j'attends les questions.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cincap
Messages postés
490
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ 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
cs_mcapp
Messages postés
74
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
15 décembre 2011

J'ai oublié la note : 10 !!!
cs_mcapp
Messages postés
74
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
15 décembre 2011

Encore une création de Debiars que j'ai téléchargée sans hésiter ! Le nom du concepteur est gage de qualité !
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 !
mafuku
Messages postés
2
Date d'inscription
jeudi 8 décembre 2005
Statut
Membre
Dernière intervention
30 décembre 2008

Je vous souhaite une bonne nouvelle année 2009 et qu'elle vous apporte bcq d'inspirations pour d'autres codes sources !!!!
Merci.
Zicson1
Messages postés
56
Date d'inscription
vendredi 2 mars 2007
Statut
Membre
Dernière intervention
27 mars 2010

Merci pour ta source, bonne fête et à bientôt.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.