Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Нарисовать на Image. https://www.cyberforum.ru/ delphi-multimedia/ thread567386.html
Здравствуйте. Не могли бы объяснить, почему при рисовании на TImage вместо прорисовки на картинке, нужный прямоугольник рисуется на заднем фоне и его не видно. Процедура BringToFront не работает.
Delphi Печать на бумагу динамических изображений
Существует форма, на ней расположено фоновое изображение, т.к. оно большего размера чем форма этот фон лежит на компоненте ScrollBox. Все остальные динамически создаваемые изображения также создаются...
Создание графика. Delphi
День добрый. Написал программу для расчёта х и у. Теперь надо как то сделать график по этим значениям. Много смотрел примеров не понял ничего. Можно пошагово написать как создать график? В примерах...
Delphi Выделить объект. Здравствуйте. Помогите, пожалуйста, выделить объект в прямоугольник, нажав на него, на изображении, которое находится на компоненте Panel. На изображении уже выделены все контуры. https://www.cyberforum.ru/ delphi-multimedia/ thread566292.html
Delphi Замена стандартного окна формы! https://www.cyberforum.ru/ delphi-multimedia/ thread566213.html
Подскажите, как в заменить в Delphi заменить стандартное окно формы картинкой?
Delphi Движение шарика по траектории кардиоиды
Здравствуйте! Помогите, пожалуйста, переделать программу. (нашла ее на вашем форуме, переделала формулы). Нужно, чтобы шарик летел по траектории кардиоиды, и за ним прорисовывалась сама кардиоида. То...
Delphi Subversion overlay icon получить полную иконку
Доброго времени суток! Возникла проблема, как получить иконку файла или папки с отрисованным оверлеем TortoiseSVN? В функции SHGetFileInfo, имеется только SHGFI_LINKOVERLAY, а это ярлыки( ...
Delphi Очистить компонент TPanel. Здравствуйте. Не могли бы подсказать, как очистить содержимое компонента Panel, перепробовала много вариантов, но не один не работает должным образом. https://www.cyberforum.ru/ delphi-multimedia/ thread565886.html
Delphi Трёхмерное тело с двухточечным проецированием https://www.cyberforum.ru/ delphi-multimedia/ thread565294.html
Здравствуйте уважаемые пользователи, есть такое задание: "Написать программу изображения трехмерных тел с двухточечным проецированием." Есть программа, http://rghost.ru/37904495 с выполненным...
Delphi Возможно ли пустить название серии вдоль линии графика в TeeChart Собственно сабж: Возможно ли пустить название серии вдоль линии графика в TeeChart? https://www.cyberforum.ru/ delphi-multimedia/ thread565170.html
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 7
0

ID3-Tag'и из MP3-файла

08.05.2012, 20:28. Просмотров 1956. Ответов 1
Метки (Все метки)

Здравствуйте.
Для прочтения ID3 тегов из файла нашёл вот такой код:

Процедура читающая теги из MP3:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;
и, обработчик открытия файла и чтения тегов:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
Но в данном коде приходится открывать диалоговое окно и выбирать файл. Я пытаюсь сделать, что бы теги читались при дабл клике на строку файла в listbox..
Заменил (OpenDialog1.FileName) на (IntToStr(ListBox1.ItemIndex))
всё запускается, но при щелчке на строку выдаёт ошибку, что фаил не найден и выделяет эту строку:
Delphi
1
 FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Подскажите, что тут не так? Что изменить? А то уже запутался...

Добавлено через 6 часов 43 минуты
Ну, подскажите как вытянуть этот тег из файла...

Добавлено через 22 часа 47 минут
Лан, с этим кодом я разобрался, но может кто поможет, а?
Как вывести при помощи отрисовки не название файла, а содержимое тегов в listbox?

Вернуться к обсуждению:
ID3-Tag'и из MP3-файла
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2012, 20:28
Готовые ответы и решения:

Читать ID3 Тэг MP3 файла
Здравствуйте! Помогите пож-та с разработкой программки... Нужно считать тэг из MP3...

ID3 теги mp3 файла Delphi
Помогите с программой. Нашел исходник, такое ощущение, что он один вообще) Не работает, выводит...

Работа с mp3 id3 тегами
Здравствуйте, мне нужно работать с mp3 id3 тегами, то есть название трека, альбом , исполнитель!!...

ID3 теги в mp3 файлах
Долго искал информацию, как получить из файла mp3 теги. Нашёл какой-то пример, взял из него нужный...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.