[Dmitry_DM]

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

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

Конечно актуально. Оно все будет актуально, минимум до февраля 2014 года. И плеер.. и сам шифратор данных wav. Как раз я сейчас на шифровании застрял.. Может вы заметили, я новую тему создал Значения случайной величины, интервалы..

[angvelem]

Заметил, только толком ничего не понял.
По программе: проверяй, наверняка что-нибудь прозевал.
testsnd2.rar

[Dmitry_DM]

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

Заметил, только толком ничего не понял.
По программе: проверяй, наверняка что-нибудь прозевал.
testsnd2.rar

У меня есть вопросы: В папке находятся файлы PlayList.pas, ID3ver2.pas, Convert.pas. Но в программе они отсутствуют.. Они что, не подключены? Но судя по названию, они были бы очень полезны в плеере. И еще одно: если в плей листе несколько песен, то при удалении все норм, но если загружен всего 1 трек, или остался по мере удаления нескольких, то при удалении возникает ошибка Access Violetion. И еще не плохо было бы задать действия кнопок клавишами. Открыть - Ctrl+O, Пауза\Воспр - Пробел. Stop - S.

[angvelem]

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

... В папке находятся файлы PlayList.pas, ID3ver2.pas, Convert.pas. ...

Задействованы, посмотри ещё раз. Остальное гляну.

[Dmitry_DM]

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

Задействованы, посмотри ещё раз. Остальное гляну.

И как действует ID3ver2.pas, Convert.pas? PlayList.pas отвечает за плейлист, правильно? А первые 2 за что?

[angvelem]

Превый получает инфу из файлов, второй приводит в читаемый вид.

[Dmitry_DM]

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

Превый получает инфу из файлов, второй приводит в читаемый вид.

Понятно.. А оно может читать исполнителя, альбом и т.д? Это же тоже к ID3v.2 относиться.

[angvelem]

Всё это читается, если есть в файле (VerifySongData).

[Dmitry_DM]

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

Всё это читается, если есть в файле (VerifySongData).

Я ж чего спросил.. У меня в файлах есть все инфа, вбита в него через программу MP3 Tag Editor. А в плеере кроме kbps, khz и chans ничего не показывает..

[angvelem]

В ListView показывает

Код:

  St := Format('%s - %s', [fTag_ID3V2.TagData.fArtist, fTag_ID3V2.TagData.fTitle])
// либо это
  St := Format('%s - %s', [TagData.fArtist, TagData.fTitle]);

по-возможности.

[Dmitry_DM]

angvelem, подскажите как добавить эту функцию отображение CPU, использованного плеером в то окошко, где показ инф о треке?

Код:

sLabel1.Caption := 'CPU%  ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2);

Спрашиваю, так как если добавить Label1 просто на форму - визуализация мерцает, а если нарисовать на канве - то не будет. Так вот как оформить такую процедуру?

[angvelem]

Юнит DrawUnit, процедура DrawSongInfo, в конце процедуры

Код:

  Dest.Canvas.Brush.Style := bsClear;
  Dest.Canvas.Font.Name := 'Lucida Sans';//'Tahoma';
  Dest.Canvas.Font.Color := $CCFF00;//clWhite;
  Dest.Canvas.TextOut(20, 30, Format('kbps:   %d', [BPS]));
  Dest.Canvas.TextOut(20, 42, Format('~khz:   %d', [Trunc(Freq / 1000)]));
  Dest.Canvas.TextOut(20, 54, Format('Chans: %s', [Chans[ci.chans > 0]]));
  Dest.Canvas.TextOut(20, 66, 'CPU%  ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2);
  Canvas.Draw(Left, Top, Dest);

[Dmitry_DM]

angvelem, еще я заметил в плеере авто запуск песни из плейлиста, при запуске формы, где этот автозапуск, что бы я смог его настроить CheckBox'om ?

[angvelem]

В файле mp3.pas

Код:

  if FileExists(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u')) then
    SongClass.LoadSongList(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u'));

в файле PlayList.pas

Код:

procedure TSongClass.LoadSongList(PlayList : String);
var
  Index : Integer;
begin
  ClearSonglist;
  ParsingSongList(PlayList);

  if fSongList.Count = 0 then
    Exit;

  FillSongList;

  Randomize;
  repeat
    // здесь выбирается номер трека для запуска.
    Index := Random(fParent.Items.Count);
  until FileExists(TSongListData(fSongList.Objects[Index]).OpenFile);
  FileName := TSongListData(fSongList.Objects[Index]).OpenFile;

  PlaySongList(Index);
end;