Perfect, dit werkt:
MediaPlayer1.Volume := TrackBar2.Value / 100; //De TrackBar geeft een waarde van 0...100 gedeeld door 100 is een waarde van 0....1
Nu ben ik er bijna, alles werkt maar alle liedjes staan nu in één "ListView"
Code:
procedure TForm1.FormCreate(Sender: TObject);
var
LList: TStringDynArray; //
LItem: TListViewItem; //
path: string; //
i: Integer;
begin
if TDirectory.Exists('/storage/') then
path := '/storage/'
else path := '/sdcard/';
{ ? mp3 ? }
try
LList := TDirectory.GetFiles(path, '*.mp3', TSearchOption.soAllDirectories);
except
ShowMessage('?????? #1!');
Exit;
end;
ListView1.BeginUpdate;
try
for i := 0 to Length(LList) - 1 do
begin
LItem := ListView1.Items.Add;
LItem.Text := TPath.GetFileNameWithoutExtension(LList[I]);
LItem.Detail := LList[I];
end;
finally
ListView1.EndUpdate;
end;
end;
Ik zou graag eerst de Mappen zien waarin de muziek staat, en dan één Map kunnen kiezen en de liedjes uit deze map in de ListView te zien krijgen.
Hoe kan ik dat voor elkaar krijgen ?
Bookmarks