|
Вопрос # 1 990/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
Меня интересует такой вопрос: Можно ли как-то проигрывать различные mp3 файлы при помощи одного проигрывателя TMediaPlayer (если на каждый mp3 будет баттон отдельны)? Если да, то как это можно сделать, если mp3 файлы будут лежать в папке, например Folder, которая, в свою очередь будет лежать рядом с экзешником программы? Спасибо.
 |
Вопрос задал: Вечперик (статус: Посетитель)
Вопрос отправлен: 12 октября 2008, 19:31
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: min@y™
Надо создать список этих файлов в памяти (например, TStringList), чтобы поочерёдно подсовывать их имена медиаплееру в свойство FileName.
Для составления такого списка можно использовать функции FindFirst(), FindNext(), FindClose().
Если же такой список хранить в доступном и видимом юзеру ListBox'e, то это будет подобие плей-листа, как в WinAmp, на строки которого можно быдет тыкать, т.е. запускать на воспроизведение нужный файл.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 13 октября 2008, 08:19
Оценка за ответ: 5
|
Ответ #2. Отвечает эксперт: Feniks
Здравствуйте, Вечперик!
В дополнении min@y™.
А когда вы научитесь создавать список всех файлов, то можете еще и информацию из ID3Tag вытащить ;-) Примерчик в Приложении.
Приложение: Переключить в обычный режим- {
- Byte 1-3 = ID 'TAG'
- Byte 4-33 = Titel / Title
- Byte 34-63 = Artist
- Byte 64-93 = Album
- Byte 94-97 = Jahr / Year
- Byte 98-127 = Kommentar / Comment
- Byte 128 = Genre
- }
-
-
- type
- TID3Tag = record
- ID: string[3];
- Titel: string[30];
- Artist: string[30];
- Album: string[30];
- Year: string[4];
- Comment: string[30];
- Genre: Byte;
- end;
-
- const
- Genres : array[0..146] of string =
- ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge',
- 'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B',
- 'Rap','Reggae','Rock','Techno','Industrial','Alternative','Ska',
- 'Death Metal','Pranks','Soundtrack','Euro-Techno','Ambient',
- 'Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance','Classical',
- 'Instrumental','Acid','House','Game','Sound Clip','Gospel','Noise',
- 'Alternative Rock','Bass','Punk','Space','Meditative','Instrumental Pop',
- 'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial','Electronic',
- 'Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult','Gangsta',
- 'Top 40','Christian Rap','Pop/Funk','Jungle','Native US','Cabaret','New Wave',
- 'Psychadelic','Rave','Showtunes','Trailer','Lo-Fi','Tribal','Acid Punk',
- 'Acid Jazz','Polka','Retro','Musical','Rock & Roll','Hard Rock','Folk',
- 'Folk-Rock','National Folk','Swing','Fast Fusion','Bebob','Latin','Revival',
- 'Celtic','Bluegrass','Avantgarde','Gothic Rock','Progressive Rock',
- 'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus',
- 'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera',
- 'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove',
- 'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad',
- 'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo',
- 'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House',
- 'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat',
- 'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C',
- 'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop');
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- function readID3Tag(FileName: string): TID3Tag;
- var
- FS: TFileStream;
- Buffer: array [1..128] of Char;
- begin
- FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
- try
- FS.Seek(-128, soFromEnd);
- FS.Read(Buffer, 128);
- with Result do
- begin
- ID := Copy(Buffer, 1, 3);
- Titel := Copy(Buffer, 4, 30);
- Artist := Copy(Buffer, 34, 30);
- Album := Copy(Buffer, 64, 30);
- Year := Copy(Buffer, 94, 4);
- Comment := Copy(Buffer, 98, 30);
- Genre := Ord(Buffer[128]);
- end;
- finally
- FS.Free;
- end;
- end;
-
- procedure TfrmMain.Button1Click(Sender: TObject);
- begin
- if OpenDialog1.Execute then
- begin
- with readID3Tag(OpenDialog1.FileName) do
- begin
- LlbID.Caption := 'ID: ' + ID;
- LlbTitel.Caption := 'Titel: ' + Titel;
- LlbArtist.Caption := 'Artist: ' + Artist;
- LlbAlbum.Caption := 'Album: ' + Album;
- LlbYear.Caption := 'Year: ' + Year;
- LlbComment.Caption := 'Comment: ' + Comment;
- if (Genre >= 0) and (Genre <=146) then
- LlbGenre.Caption := 'Genre: ' + Genres[Genre]
- else
- LlbGenre.Caption := 'N/A';
- end;
- end;
- end;
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 13 октября 2008, 11:57
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 13 октября 2008, 13:48; участников в обсуждении: 3.
|
|
Вечперик (статус: Посетитель), 13 октября 2008, 08:43 [#1]:
Большое спасибо... начну разбираться... только для начала - не могли бы Вы подсказать, как создать TStringList? Спасибо...
|
|
|
min@y™ (статус: Доктор наук), 13 октября 2008, 10:00 [#2]:
uses Classes
var
List: TStringList;
// Создать:
List:= TStringList.Create();
// Освободить память:
List.Free();
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вечперик (статус: Посетитель), 13 октября 2008, 13:30 [#3]:
Feniks, min@y™ спасибо! Буду разбираться!
|
|
|
Feniks (статус: Бакалавр), 13 октября 2008, 13:48 [#4]:
Всегда пожалуйста 
Будут вопросы, спрашивайте.
|
31 января 2011, 19:32: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
