Модуль MediaPanel 1.0

[Shegorat]

Пользователь 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
Но программа просто прекращается, любая помощь будет высоко оценена

 

[Yaroslav950]

@PrinceGupta,а вы не могли бы поделится или скинуть код даного модуля.Я хоть гляну,как там ищется музыка ну тд.