MediaPanel

Модуль MediaPanel 1.0

Нет прав для скачивания

Shegorat

Lord of Madness
Администратор
Пользователь Shegorat разместил новый ресурс:

MediaPanel - Пример создания плеера в Inno Setup

Не совсем модуль. Скорее пример создания плеера в Inno Setup.
Реализованы функции:
  • Сканирование папки с музыкой и добавление файлов в плей-лист
  • Чтение тегов MP3-файлов, отображение их при наведении на название трэка
  • Переход по трэкам
  • Информация о общей длительности и сколько уже воспроизведено
  • Ну и другое...
Узнать больше об этом ресурсе...
 

PrinceGupta

Мимокрокодил
How can I make a mp3-postion seeker

Как я могу найти поиск в формате MP3?

Код:
function BASS_ChannelSeconds2Bytes(handle: DWORD; pos: Double): DWORD; external 'BASS_ChannelSeconds2Bytes@files:bass.dll stdcall delayload';
function BASS_ChannelSetPosition(handle: HStream; pos: DWORD; mode: DWORD): BOOL;  external 'BASS_ChannelSetPosition@files:bass.dll stdcall delayload';
procedure Mp3Seek(pos: integer);
begin
  if Mp3Info.IsMp3Playing then begin
    n:= GetSelected;
    if (n<>-1) then begin
      Mp3NewPOS := (Mp3Info.Mp3Files[n].TotalTime * pos)/100.0;
      BASS_ChannelSetPosition(Mp3Info.Mp3Handle,BASS_ChannelSeconds2Bytes(Mp3Info.Mp3Handle,Mp3NewPOS),0);
    end;
  end;
end;
But Program just terminates, Any Help will be much appreciated
Но программа просто прекращается, любая помощь будет высоко оценена
 
Сверху