Discussion :

[cincap]

Bonjour à toutes et à tous,

Etant revenu, j'ai repris mon application de test pour le tri des photos avec la propriété "Modifiée le".

Avec ce code, j'affiche la photo et sa date + l'heure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.BdateClick(Sender: TObject);
var
  FAge: Integer;
  FileParam: TDateTime;
begin
 
  chemin := C:\Data\Photos_date\ ;
  FAge:=FileAge(chemin + EddateBis.Text);
  FileParam:=FileDateToDateTime(FAge);
  Eddate.text:='- Cette photo à été créée le '+ DateToStr(FileParam) + ' à '+ TimeToStr(Fileparam) +' -';
 
end;

Je n'arrive pas à l'adapter à l'unité "TbiThumb.pas" ou directement dans le code de l'application pour la recherche des photos depuis le dossier.

Si un des membres qui ont suivi cette discussion avait la solution, je serai heureux de poursuivre mes tests.

https://www.developpez.net/forums/d2...windows-10-d6/

@+,

cincap

[Bernard B]

Pour afficher les vignettes des jpg, j'utilise CCR Exif qui récupère les vignettes intégrées dans les exif :

https://delphihaven.wordpress.com/ccr-exif/

S'il n'y a pas d'exif donc pas de vignette, je charge la photo directement mais au quart ou au huitième de la taille réelle pour aller plus vite.

[cincap]

@ Bernard B, merci de ta réponse et de ton lien.

J'aimerai dans mon cas utiliser la procédure remaniée principalement par le membre Cirec car mon application à usage personnel utilise cette procédure que j'avais transmise.

Le code que j'ai fourni me donne dans un Tedit la date de modification d'une photo .jpg car dans ce dossier se sera toujours ce type de photos et ce dossier sera alimenté avec une date modifiée dans ses propriétés.

L'affichage de toutes mes photos par des vignettes est correct même si il n'y a pas d'exif, ce qui compte pour moi c'est de contrôler le nombre de photos dans ce dossier et de les afficher par ordre de la date contenue dans les propriétés.

@+,

cincap

[SergioMaster]

Bonjour,
Pour moi le problème vient plus de l'utilisation d'un TStringList pour le stockage de la date qu'autre chose.

Bon, cela dit avec D6 on est limité mais quand même ! Une liste d'objets est le BABA de Pascal Object non ?

Je suis peut-être hors sujet mais voilà comment je verrais les choses plutôt qu'avec un TStringList

Code :

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

1
2
3
4
5
6
type
  TUneImage = class(TObject) 
    nom : string;
    horaire : TdateTime;
    procedure Create(inom : String; iHoraire : TDateTime);   // ajouté pour plus de facilité 
  end;

cela dit un puriste créerait des propriétés avec get et set

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
type
  TUneImage = class (TObject)
  private
    FFileDate: TDateTime;
    FNom: String;
    procedure SetFileDate(const Value: TDateTime);
    procedure SetNom(const Value: String);
  published
    property Nom : String read FNom write SetNom;
    property FileDate : TDateTime read FFileDate write SetFileDate;
    procedure Create(ANom : String; ADate : TDateTime);
  end;
 PUneImage=^TUneImage; 
 
...
implementation
...
{ TUneImage }
 
procedure TUneImage.Create(ANom: String; ADate: TDateTime);
begin
 FNom:=ANom;
 FFileDate:=ADate;
end;
 
procedure TUneImage.SetFileDate(const Value: TDateTime);
begin
  FFileDate := Value;
end;
 
procedure TUneImage.SetNom(const Value: String);
begin
  FNom := Value;
end;

pour le(s) tri(s) Cirec à déjà montré la voie, voilà mes propositions

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
function SortByDate(item1, item2: TUneImage): Integer; 
var d1,d2 : TDate;
begin
  Result := -1;
  d1:=Trunc(item1.FileDate);  // ne tient pas compte de l'heure
  d2:=Trunc(item2.FileDate);  // ne tient pas compte de l'heure
  if D1 = D2 then Result := 0
  else
    if D1 > D2 then Result := 1;
end;
 
function SortByNom(item1, item2: TUneImage): Integer;
begin
 CompareText(item1.nom, item2.nom) ;
end; 
 
function SortByDateetNom(item1, item2: TUneImage): Integer;
var d1,d2 : TDate;
begin
  Result := -1;
  d1:=trunc(item1.FileDate);  
  d2:=trunc(item2.FileDate); 
  if D1 = D2 then Result:= CompareText(item1.nom, item2.nom) 
  else 
   if D1 > D2 then Result := 1;
end; 
 
function SortByAnMoisNom(item1, item2: TUneImage): Integer;
var d1,d2 : integer;
     aa,mm,jj : word;    
begin
  Result := -1;
  DecodeDate(item1.FileDate,aa,mm,jj);
  d1:=aa*100+mm;
  DecodeDate(item2.FileDate,aa,mm,jj);
  d2:=aa*100+mm; 
  if D1 = D2 then Result:= CompareText(item1.nom, item2.nom) 
  else 
   if D1 > D2 then Result := 1;
end;

[cincap]

Bonjour à toutes et à tous,

@ SergioMaster, merci de tes réponses, j'en prends note, N. B. j'ai plusieurs solutions de la plus simple comme dans le topic de ma demande à la plus compliquée.

Avec un TlistBox et les variables (TSearchRecObj, TSearchRec) j'obtiens aussi un excellent résultat très rapidement avec la possibilité d'afficher la photo, le nom du fichier avec/sans la date, de choisir Décroissant/croissant (photo en attache).

Si maintenant le résultat contenu dans mon TlistBox pouvait être récupéré par la procédure de l'affichage des vignettes c'est gagné mais….

C'est la que je bloque car l'affichage des vignettes se trouve par l'ordre de placement dans le dossier.

Je vais étudier ta solution et essayer de l'adapter avec une application de test on verra par rapport à mon test.

@+,

cincap