Discussion :

[Speed41]

Est il possible de sauvegarder un TImageliste lors de l'execution d'une appli et de récupérer le fichier ensuite dans cette même appli (ou une autre).

Une appli, un opérateur ajoute les images qu'il veux dans l'appli (TImageList).
Il sauve le fichier
Le lendemain il démarre l'appli, recharge le fichier et peux reconsulter ces images et même en ajouter.

Merci de votre aide

[Pierre Castelain]

Il y a peut-être plus simple, mais je sauvegarderais toutes les images dans un stream en ajoutant au départ le nombre d'images à charger.
Cela devrait donner quelque chose dans ce genre :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
procedure SaveImageList(AnImageList: TImageList; const Filename: string);
var
  i: Integer;
  bmp: TBitmap;
  bitmapCount: Integer;
  fs: TFileStream;
begin
  bmp:= TBitmap.Create;
  try
    bmp.Width:= AnImageList.Width;
    bmp.Height:= AnImageList.Height;
    fs:= TFileStream.Create(Filename, fmCreate);
    try
      // Ecriture du nombre d'images
      bitmapCount:= AnImageList.Count;
      fs.Write(bitmapCount, SizeOf(bitmapCount));
 
      // Ecriture de chaque image en séquence
      for i:= 0 to AnImageList.Count - 1 do
      begin
        AnImageList.GetBitmap(i, bmp);
        bmp.SaveToStream(fs);
      end;
    finally
      fs.Free;
    end;
  finally
    bmp.Free;
  end;
end;
 
procedure LoadImageList(AnImageList: TImageList; const Filename: string);
var
  i: Integer;
  bmp: TBitmap;
  bitmapCount: Integer;
  fs: TFileStream;
begin
  bmp:= TBitmap.Create;
  try
    fs:= TFileStream.Create(Filename, fmOpenRead);
    try
      // Lecture du nombre d'images
      fs.Read(bitmapCount, SizeOf(bitmapCount));
 
      // Lecture de chaque image en séquence
      for i:= 0 to bitmapCount - 1 do
      begin
        bmp.LoadFromStream(fs);
        AnImageList.Add(bmp, nil);
      end;
    finally
      fs.Free;
    end;
  finally
    bmp.Free;
  end;
end;

[Speed41]

A moi d'appliquer et ...

Merci de ton aide.