cincap
Messages postés460Date d'inscriptiondimanche 5 décembre 2004StatutMembreDernière intervention 6 avril 20092 27 sept. 2012 à 10:05
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és71Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention15 décembre 2011 30 déc. 2008 à 15:14
J'ai oublié la note : 10 !!!
cs_mcapp
Messages postés71Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention15 décembre 2011 30 déc. 2008 à 15:11
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és2Date d'inscriptionjeudi 8 décembre 2005StatutMembreDernière intervention30 décembre 2008 30 déc. 2008 à 11:15
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és56Date d'inscriptionvendredi 2 mars 2007StatutMembreDernière intervention27 mars 2010 29 déc. 2008 à 15:48
Merci pour ta source, bonne fête et à bientôt.
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 27 déc. 2008 à 04:03
11,8 ?! pfffft! Autant dire la plume que l'aigle abandonne aux airs...
Debiars
Messages postés285Date d'inscriptionlundi 16 juin 2003StatutMembreDernière intervention11 février 2018 26 déc. 2008 à 22:35
Conseil ô combien judicieux, mon cher Cari, comment se fait-ce que je n'y pensâs pas moi-même ? Merci. D'autant plus que cela simplifie encore le code. Le fichier exemple joint passe de 65 ko à 11,8.
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 25 déc. 2008 à 19:56
Comme d'hab, rien à redire sur ton code, mon cher Debiars. C'est de l'eau de source, comme on dit ici. :)))
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?
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 25 déc. 2008 à 14:00
Tout simplement génial ... maintenant il y a plus qu'à apprendre tout ça !
Nico
offlake
Messages postés190Date d'inscriptionmercredi 3 septembre 2008StatutMembreDernière intervention17 janvier 2009 24 déc. 2008 à 22:05
Bon, comme d'habitude, les codes de Debiars demandent une attention particulière et sont toujours riches d'enseignement. Je vais donc prendre mon temps.
Sinon Bon Code !!
BY OFFLAKE
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 24 déc. 2008 à 17:23
Merci Debiars pour ta source ,
malheureusement pas le temps de regarder ta source , je me fais déjà engueulé d'ailleurs !
Bon Noël à tous
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 24 déc. 2008 à 16:53
Hrgnmm ...
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
Debiars
Messages postés285Date d'inscriptionlundi 16 juin 2003StatutMembreDernière intervention11 février 2018 24 déc. 2008 à 16:31
Merci, ô Cari ben Sila, Joyeuses fête à toi également ainsi qu'à tous ceux qui le liront.
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 24 déc. 2008 à 16:19
Pas bcp de temps pour regarder ton code maintenant, cher maître.
Juste « Joyeuses fêtes de fin d'année à toi », en passant... :)))
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... :)))
@++