Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Библиотека KOLATL [Delphi, Windows]


Efir ©   (2007-12-30 19:09:00) 

Как считать доп. информацию (OtherProps) из MPEG файла. Пишу как показано в примере:

var
 MPEGInfo:TMPEGAudioInfo;

 MPEGInfo:=NewAudioMPEG;
 MPEGInfo.ReadFromFile(FileName);

 {$IFDEF USE_OtherAudioProps}
   for i:= 0 to  MPEGInfo.OtherProps.Count-1 do begin
     Vendor:= MPEGInfo.OtherProps.Items[i];
   end;
 {$ENDIF}

Но никакой реакции.
Использую библиотеку в обычном приложении, т.е. мне нужна только KOLATL. Там исправлены нек. баги в отличие от оригинала.


Efir   (2007-12-31 14:22:00) [1]


> Dimaxx ©   (31.12.07 10:07) [5]


Огромное спасибо. Разобрался, за одно почитал немного об условной компиляции.


Dimaxx   (2007-12-31 10:07:00) [2]


> Точнее я в курсе что делает этот код, я просто не могу понять
> зечем он закомментирован

Он не закомментирован, а работает только при наличии символа условной компиляции USE_OtherAudioPropsв опциях проекта. Если его нет, то и код выполнятся не будет.


Efir   (2007-12-30 23:40:00) [3]

Точнее я в курсе что делает этот код, я просто не могу понять зечем он закомментирован:
{$IFDEF USE_OtherAudioProps}
{$ENDIF}


Efir   (2007-12-30 23:37:00) [4]

Просто я раньше не оспользовал KOL, поэтому плохо представляю его идеологию.


Efir   (2007-12-30 23:35:00) [5]

Я не совсем в курсе, что есть это:

{$IFDEF USE_OtherAudioProps}
  for i:= 0 to  MPEGInfo.OtherProps.Count-1 do begin
    Vendor:= MPEGInfo.OtherProps.Items[i];
  end;
{$ENDIF}

При каких условиях этот блок выполняется.


Dimaxx   (2007-12-30 22:52:00) [6]


>Но никакой реакции.

В чем заключается? Ничего не читает или ничего возвращает?


Наверх

Титульная страница Поиск, карта сайта Написать письмо