Discussion :

[fab56]

Bonjour,

je développe actuellement un lecteur MP3 en delphi avec l'api fmod et j'aimerais des renseignements pour gérer une liste (Tlist) d'enregistrement (type record);

L'idée est de stocker en mémoire, parallèlement à la liste de lecture FPlaylist de type TStringList qui stocke le chemin d'accès des chansons présents dans la liste de lecture, une variable FPlaylistInfo de type TList et qui contient les informations du morceau.

Voici le type TSongInfo :

Code :

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

1
2
3
4
5
6
  type
    TSongInfo = record
      Title, Artist, Album, Year, Comment: String;
      Genre: Integer;
      LengthMs: Integer;
    end;

Pour obtenir les informations à partir d'un chemin d'accès d'une chanson j'ai écris la fonction GetSongInfo

Code :

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

    function GetSongInfo(AFilename: String): TSongInfo;

La liste de lecture est présentée à l'utilisateur sous la forme d'un TListView avec la propriété Style à vsReport.

A chaque fois qu'une chanson est ajouté, supprimé, que l'utilsateur change l'ordre des chansons, je fais appel à la procédure UpdatePlaylist : celle-ci vide le contenu du TListView et le remet à jour, en renseignant les informations de la chanson.

Voila le problème : dans la procédure UpdatePlaylist, je fais appel à GetSongInfo() qui ouvre un fichier avec fMod dans un flux à part (j'entend à part du flux de lecture) et qui scanne les informations ID3 puis les retourne en résultat.

Seulement à chaque modifications de la playlist il y a de nombreux appel à UpdatePlaylist mais aussi à GetSongInfo donc cela représente bcp d'ouverture/fermeture de fichier et donc les performances s'en ressentent : avec seulement 15 morceaux dans la liste de lecture, le temps d'exécution de UpdatePlaylist est d'environ 3 secondes !!!

Voila pourquoi je voudrais stocké ces informations dans une liste de TSongInfo afin de limiter les appels à GetSongInfo() (elle ne serait donc appelé qu'à l'ajout d'une nouvelle chanson) et que la procédure de mise à jour UpdatePlaylist ne pioche ces informations précédemment lu directement dans cette liste au lieu de rappelé GetSongInfo, ce qui entrainait un gain de performances considérables.

Etant donné que j'ai bcp de mal avec les pointeurs, j'aurais aimé des conseils sur la gestion d'une telle liste. Dois-je créer un type pointé sur TSongInfo :

Code :

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

1
2
3
type
  PSongInfo = ^TSongInfo;
  ...

Merci d'avance pour vos éventuelles réponses et désolé si ce message vous parrait long mais j'ai pensé que ce serait mieux d'exposé le problème en détails.

A bientot.

[qi130]

Regarde là http://www.developpez.net/forums/d11...st/#post761261
Ca devrait te faciliter la vie...

[Dr.Who]

sous delphi 2009 / 2010 je t'aurais dis :

Code :

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

1
2
3
4
5
6
7
8
9
uses
  Generics.Collections;
 
type
  TMp3Info = record
    {...}
  end;
 
  TMp3InfoList = TList<TMp3Info>;

ça facilite la vie hein ?


sinon plutot que de switcher entre une TStringList et une TList, inclus l'URI du fichier dans le record et utilise une seule et unique liste.


hihihi

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
unit uSongList;
 
interface
 
uses
  Windows, SysUtils, Classes, Contnrs;
 
type
  TSongInfo = class
  private
    fFileName, fTitle, fArtist, fAlbum, fYear, fComment: string;
    fGenre, fDuration : integer;
  protected
     function ID3V1Exists: boolean;
     procedure readID3V1;  // not defined
     procedure writeID3V1; // not defined
  public
    property FileName : string  read fFileName write fFileName;
    property Title    : string  read fTitle    write fTitle;
    property Artist   : string  read fArtist   write fArtist;
    property Album    : string  read fAlbum    write fAlbum;
    property Year     : string  read fYear     write fYear;
    property Comment  : string  read fComment  write fComment;
    property Genre    : integer read fGenre    write fGenre;
    property Duration : integer read fDuration write fDuration;
  public
    procedure ExplodeDuration(var vMin, vSec, vMSec: word);
    constructor Create; overload;
    constructor Create(aFileName: string); overload;
    constructor Create(aFileName, aTitle, aArtist, aAlbum, aYear, aComment: string; aGenre, aDuration: integer); overload;
  end;
 
  TPlayList = class(Contnrs.TObjectList)
  private
    fLastPlayed: integer;
    fItemIndex : integer;
  protected
    function GetItem(aIndex: Integer): TSongInfo;
    procedure SetItem(aIndex: Integer; aSongInfo: TSongInfo);
  public
    property Items[Index: Integer]: TSongInfo read GetItem write SetItem; default;
 
    // playlist specific functions
    function GetShuffled: TSongInfo;
    function Previous: TSongInfo;
    function Next: TSongInfo;
    property CurrentSongIndex: integer read fItemIndex;
 
    // list functions
    function Add(aSongInfo: TSongInfo): Integer;
    function Extract(aSongInfo: TSongInfo): TSongInfo;
    function Remove(aSongInfo: TSongInfo): Integer;
    function IndexOf(aSongInfo: TSongInfo): Integer;
    procedure Insert(aIndex: Integer; aSongInfo: TSongInfo);
 
    function First: TSongInfo;
    function Last: TSongInfo;
 
    procedure LoadFromFile(aFileName: string); // not defined
    procedure SaveToFile(aFileName: string);   // not defined
 
    constructor Create; reintroduce;
  end;
 
 
 
implementation
 
{ TSongInfo }
 
constructor TSongInfo.Create;
begin
  fFileName := '';
  fTitle    := '';
  fArtist   := '';
  fAlbum    := '';
  fYear     := '';
  fComment  := '';
  fGenre    := 0;
  fDuration := 0;
end;
 
constructor TSongInfo.Create(aFileName, aTitle, aArtist, aAlbum, aYear, aComment: string; aGenre, aDuration: integer);
begin
  fFileName := aFileName;
  fTitle    := aTitle;
  fArtist   := aArtist;
  fAlbum    := aAlbum;
  fYear     := aYear;
  fComment  := aComment;
  fGenre    := aGenre;
  fDuration := aDuration;
end;
 
procedure TSongInfo.ExplodeDuration(var vMin, vSec, vMSec: word);
begin
  vMSec := fDuration mod 1000;
  vSec  := (fDuration div 1000) mod 60;
  vMin  := (fDuration div 60000) mod 60;
end;
 
function TSongInfo.ID3V1Exists: boolean;
begin
  result := false;
end;
 
procedure TSongInfo.readID3V1;
begin
  //
end;
 
procedure TSongInfo.writeID3V1;
begin
  //
end;
 
constructor TSongInfo.Create(aFileName: string);
begin
  fFileName := aFileName;
  fTitle    := '';
  fArtist   := '';
  fAlbum    := '';
  fYear     := '';
  fComment  := '';
  fGenre    := 0;
  fDuration := 0;
  readID3V1;
end;
 
{ TSongInfoList }
 
function TPlayList.Add(aSongInfo: TSongInfo): Integer;
begin
  result := inherited Add(aSongInfo);
end;
 
constructor TPlayList.Create;
begin
  inherited Create(True);
  fLastPlayed := -1;
end;
 
function TPlayList.Extract(aSongInfo: TSongInfo): TSongInfo;
begin
  result := TSongInfo(inherited Extract(aSongInfo));
end;
 
function TPlayList.First: TSongInfo;
begin
  result := TSongInfo(inherited First);
end;
 
function TPlayList.GetItem(aIndex: Integer): TSongInfo;
begin
  result := TSongInfo(inherited GetItem(aIndex));
end;
 
function TPlayList.GetShuffled: TSongInfo;
var R, C: integer;
begin
  C := Count;
  R := random(C);
  while (R = fLastPlayed) and (R <> fItemIndex) do
    R := random(C);
 
  fItemIndex := R;
  result := Items[fItemIndex];
end;
 
function TPlayList.IndexOf(aSongInfo: TSongInfo): Integer;
begin
  result := inherited indexOf(aSongInfo);
end;
 
procedure TPlayList.Insert(aIndex: Integer; aSongInfo: TSongInfo);
begin
  inherited Insert(aIndex, aSongInfo);
end;
 
function TPlayList.Last: TSongInfo;
begin
  result := TSongInfo(inherited Last);
end;
 
procedure TPlayList.LoadFromFile(aFileName: string);
begin
  //
end;
 
function TPlayList.Next: TSongInfo;
begin
  fItemIndex := (fItemIndex + 1) mod Count;
  result := Items[fItemIndex];
end;
 
function TPlayList.Previous: TSongInfo;
begin
  fItemIndex := fItemIndex -1;
  if fItemIndex < 0 then
    fItemIndex := Count-1;
  result := Items[fItemIndex];
end;
 
function TPlayList.Remove(aSongInfo: TSongInfo): Integer;
begin
  result := inherited Remove(aSongInfo);
end;
 
procedure TPlayList.SaveToFile(aFileName: string);
begin
  //
end;
 
procedure TPlayList.SetItem(aIndex: Integer; aSongInfo: TSongInfo);
begin
  inherited SetItem(aIndex, aSongInfo);
end;
 
initialization
  Randomize;
 
end.

[fab56]

Rebonjour,

Dr.Who, tu es du genre productif toi ^^, en tout cas merci pour ton code je vais regarder çà de plus près demain et l'incorporer au mien.

Malheureusement je n'utilise que Delphi 7 donc le

Code :

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

TMp3InfoList = TList<TMp3Info>

je peux l'oublier...

Merci pour l'aide. Je post si j'ai d'autres problèmes

A bientôt

[fab56]

J'ai une autre question, un peu tardive , concernant la méthode IndexOf.

Je ne sais pas trop comment l'utiliser.

Il faudrait que je passe en paramètres toute la structure correspondant à la chanson, alors que je souhaiterais juste passé en paramètre le chemin d'accès de la chanson.

De plus comment utiliser la fonction Add()

Merci d'avance.

[khena]

Salut,
Overload la méthode IndexOf pour qu'elle prenne également un chemin, mais le parcours sera alors pour ta pomme

Code :

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

1
2
3
 
function IndexOf(aSongInfo: TSongInfo): Integer; overload;
function IndexOf(aFileName : string): Integer; overload;

et la déclaration

Code :

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

1
2
3
4
5
6
7
8
9
10
 
i := 0;
trouve := false;
while( i < count) and (not trouve) ) do begin
       if items[i].Filename = aFileName then trouve := true
       else inc(i);
end;
 
if trouve then result := i
else result := -1

Pas de copier/coller, je l'ai tapé comme ça le code hein

[Dr.Who]

non,
il te suffit de creer des fonctions de recherche :

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
 
 
// fonction de recherche Up Down
function TPlayList.FindSong(aSongTitle: string): Longint;
var U, D: LongInt;
begin
  result := -1; 
 
  U := 0;
  D := Count-1;
 
  while U < D do
  begin
    // scan le début et la fin de la liste.
    if Items[U].Title = aSongTitle then
    begin
      result := U;
      exit;
    end;
 
    if Items[D].Title = aSongTitle then
    begin
      result := D;
      exit;
    end;
    inc(U); 
    dec(D);
  end;
end;

[fab56]

Bonjour,

Désolé d'intervenir de façon si tardive mais j'ai une autre question.

Je dois afficher les chansons de la playlist dans un TListView avec ViewStyle à vsReport.

Sauf que si la playlist contient suffisamment de chansons pour qu'il y ait une barre de défilement verticale, à chaque fois que je met à jour le contrôle (avec une méthode qui vide le contrôle puis le rempli avec les informations à jour), la liste défile automatiquement en haut.

Donc je sais pas trop comment faire.

Voila. Merci d'avance.

[popo]

Plutot que de vider puis remplir à nouveau ton ListView pourquoi ne pas ajouter ou supprimer seulement les éléments qui t'interressent

[Dr.Who]

utilise une TListBox pour la playlist avec customisation de l'affichage (OnDrawItem + DrawVariable)

tu pourra y mettre les infos que tu veux sans passer par ce boulet de TListView.