| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как извлечь информацию из ID тэгов mp3-файлов
leonidus © (2004-07-01 14:19:00)Подскажите пожалуйста как извлечь информацию из ID тэгов mp3-файлов?
leonidus (2004-07-06 08:38:00) [1]MPEGaudio это как раз то что нужно. Большое спасибо.
leonidus (2004-07-05 07:52:00) [2]>SelloutS спасибо, попробую.
SelloutS (2004-07-05 00:24:00) [3]
Uses ... MPEGaudio;
...
procedure TForm1.Button1Click(Sender: TObject);
var
MPEGAudio_: TMPEGAudio;
begin
MPEGAudio_ := TMPEGAudio.Create;
if MPEGAudio_.ReadFromFile('C:\mp3\Track.mp3') then
Label1.Caption := FloatToStr(MPEGAudio_.Duration); //в секундах
MPEGAudio_.Free;
end;
...
leonidus (2004-07-04 11:18:00) [4]>SelloutS спасибо. А все таки можно примерчик?
ПЛОВ (2004-07-04 11:02:00) [5]Наверное, обсуждение уже можно считать оконченым, но на всякий случай говорю - в самом модуле есть пример его использования для чтения и изменения тегов файла. Длительность - duration
SelloutS (2004-07-04 02:12:00) [6]вот эта хрюнь умеет - http://kolhozska.narod.ru/MPEGaudio.zip, свойство Duration... и ещё умеет многа чего другого, если нужен пример пиши
leonidus (2004-07-04 00:09:00) [7]>SelloutS спасибо за модуль, но он не умеет определять длину звучания композиции, как быть?
SelloutS (2004-07-03 22:27:00) [8]http://kolhozska.narod.ru/atl-id3.zip
поддерживается ID3v1, ID3v2, кому нада могу дать пасы для работы с wma и ogg
leonidus (2004-07-03 21:50:00) [9]>ПЛОВ можно мне прогу для просмотра тэгов?
ПЛОВ (2004-07-03 17:06:00) [10]Вообщем мораль сей басни такова: модуль пашет только с отдельными файлами (чтение/запись тегов), с плелистами выходит облом...
ПЛОВ (2004-07-03 16:55:00) [11]ндя, проверил, Леонид, указанные вами ф-ции действительно не работают... (((((((( хорошо что хоть остальное пашет)
Видимо где-то в функции ошибка, искать прийдеться долго ((
ПЛОВ (2004-07-03 16:16:00) [12]Люди, тока ради вас - пишу прогу для просмотра тегов. Убедитесь что все работает - вышлю кому надо
ПЛОВ (2004-07-03 16:12:00) [13]Вы что, ШЮТИТЕ????
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, MPGTOOLS;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Откомпилила Дельхфя без проблем... Получил MPGTOOLS.DCU. У меня Delphi 5 Enterprice Ver. 5.0 Build 5.62
> clampo ©
Я ВЫСЛАЛ... Высылаю еще раз...
> TagInfo
А что это такое??? Включил поиск по MPGTOOLS.PAS - не нашел там такого...
clampo (2004-07-03 13:05:00) [14]Ошибочка вышла!!! clampo@bk.ru
antonn (2004-07-03 12:47:00) [15]Следующий контакт через 12 часов
antonn (2004-07-03 12:45:00) [16]
> clampo © (03.07.04 12:23) [18]
> И мне тоже plz!!! clampo@.ru
У тя че за ящик???
> dominus (03.07.04 11:39) [17]
> вышлите исходник, plz :)
> dominus@mailgate.ru
Послал
antonn (2004-07-03 12:34:00) [17]Ok
clampo (2004-07-03 12:23:00) [18]И мне тоже plz!!! clampo@.ru
dominus (2004-07-03 11:39:00) [19]вышлите исходник, plz :)
dominus@mailgate.ru
clampo (2004-07-03 11:30:00) [20]Ачто такое "TagInfo", и где его взять?
| |
Страницы: 