[angvelem]

Для начала я накидал простенький вариант, посмотри.
testsnd 3.67Kb

[Dmitry_DM]

Сообщение от angvelem

Для начала я накидал простенький вариант, посмотри.
testsnd 3.67Kb

Спасибо! Это очень хороший код. Мне там все понятно, что и где происходит тоже. Как видно разницы в PaintBox и Image нету. Я конечно не специалист, но мне кажется стоит оставить вариант с PaintBox. Как по мне он лучше. И еще я сразу заметил, что при запуске программы открывается диалог открытия. Мне кажется стоит сделать открытие файла только через кнопку и "О". Да, и когда нажимаешь на паузу "ПРОБЕЛ" то постоянно открывается OpenDialog. А как на счет объединения программ и исправления 2 ошибок в плеере?

[angvelem]

Меня для таких целей PaintBox также больше устраивает, меньше проблем с мерцанием.
Кнопка стоит в фокусе вот и срабатывает на пробел, можно подправить

Код:

    VK_SPACE :
    begin
      case Active of
        BASS_ACTIVE_PAUSED :
        begin
          BASS_ChannelPlay(ChanPlay, False);
          Caption := 'BASS spectrum analyser';
        end;

        BASS_ACTIVE_PLAYING :
        begin
          BASS_ChannelPause(ChanPlay);
          Caption := 'BASS spectrum analyser - PAUSED';
        end;
      end;
      Key := 0;
    end;

Пример днём накидал, так что объединение ещё не смотрел.

[Dmitry_DM]

Сообщение от angvelem

Меня для таких целей PaintBox также больше устраивает, меньше проблем с мерцанием.
Кнопка стоит в фокусе вот и срабатывает на пробел, можно подправить

Код:

    VK_SPACE :
    begin
      case Active of
        BASS_ACTIVE_PAUSED :
        begin
          BASS_ChannelPlay(ChanPlay, False);
          Caption := 'BASS spectrum analyser';
        end;

        BASS_ACTIVE_PLAYING :
        begin
          BASS_ChannelPause(ChanPlay);
          Caption := 'BASS spectrum analyser - PAUSED';
        end;
      end;
      Key := 0;
    end;

Пример днём накидал, так что объединение ещё не смотрел.

Мне этот пример очень даже понравился, как для накиданного.

[angvelem]

Немного переделал
testsnd 15.6 Kb

[Dmitry_DM]

Сообщение от angvelem

Немного переделал
testsnd 15.6 Kb

Ну спасибо огромное вам!!! Мне понравилось. Это именно то, что я представлял себе. Но те недочеты остались, к сожалению. Я про удаление объекта из плейлиста и деформация(искажение) звука при пауза\воспроизведение. Так же хотелось бы управление клавишами. Но это я и сам сделаю. А вот перемотку аудио вряд-ли. Если можно - выполните мои пожелания. Если нет - ну что же, и за это спасибо. Это уже для меня великое изменение в лучшую сторону + практика с bass.

[angvelem]

Просто плэйлистом я не занимался.
Искажения звука при "пауза\воспроизведение" у меня не замечалось.
Остальное гляну.
И судя по выложенному вами коду, 1600 строк можно прилично ужать.

[Dmitry_DM]

Сообщение от angvelem

Просто плэйлистом я не занимался.

Там просто кнопка del выполняет процедуру

Код:

procedure TForm_player.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DELETE then
  begin
    ListBox1.Items.Delete(SongNumber);
  end;
end;

Удаляет оно все-равно именно верхнюю строчку, а не выделенную.

Сообщение от angvelem

Искажения звука при "пауза\воспроизведение" у меня не замечалось.

Искажается только когда эквалайзер "Rock" и при многоразовом "пауза\воспроизведение"

Сообщение от angvelem

И судя по выложенному вами коду, 1600 строк можно прилично ужать.

Ну 1600 строк это всей программы. А это только плеер.

[angvelem]

Сообщение от Dmitry_DM

Искажается только когда эквалайзер "Rock" и при многоразовом "пауза\воспроизведение"

Проверил, это не от стиля зависит, а от любого изменения ползунков эквалайзера. Нужно также глянуть.

Обновил вложение.

[angvelem]

Смотреть выше.

[Dmitry_DM]

Сообщение от angvelem

Смотреть выше.

Это превосходный плеер!! Все же хотелось бы узнать что вы сделали, что бы решить проблему с искажением звука. P.S новый плейлист очень порадовал.

[angvelem]

Искажения происходили из-за того, что постоянно делался вызов

Код:

    // настройка эквалайзера
    for I := 1 to 10 do
      fx[i] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1); // канал эквалайзера

    // настройка каналов эквалайзера
    for I := 1 to 10 do
    begin
      tb := TTrackBar(FindComponent('tbEqualizer' + IntToStr(I)));
      p.fGain      := 15 - tb.Position;                           // усиление
      p.fBandwidth := 3;                                          // ширина полосы пропускания
      p.fCenter    := Freq[tb.Tag];                               // частота регулирования
      BASS_FXSetParameters(fx[tb.Tag], @p);                       // применение заданных настроек
    end;

из таймера. Немного передвинул его.
Нужно ещё доделать корректную загрузку новых файлов, чтобы не было дубликатов. И не плохо бы подключить чтение внутренней инфы файлов.

[Dmitry_DM]

Сообщение от angvelem

Нужно ещё доделать корректную загрузку новых файлов, чтобы не было дубликатов. И не плохо бы подключить чтение внутренней инфы файлов.

Было бы вообще отлично. К стати: я пробовал весь плеер переместить в свою общую программу. Точно знаю, что все правильно переместил, но при компиляции возникает access violetion. А дальше все работает кроме эквалайзера. И в CPU Viev немного сказано про track bar position. Я не знаю с чем это связано, но скорее всего просто подключу эту форму и сделаю ее вызов кнопкой в моей программе. Нет ли какого-то подвоха в этих 10 track bar'ах?

[angvelem]

Сообщение от Dmitry_DM

...Точно знаю, что все правильно переместил...

Всё-таки, где то накосячил.
На всё время не хватает (приспичило перевести DOS-графику на Дельфи).
Ну какой там может быть подвох, обычные TrackBar-ы.

[angvelem]

После долгого перерыва вернулся к программе. Если ещё актуально, выложу исходный код.