|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
|||
|
|||
Цитата:
|
#32
|
||||
|
||||
Заметил, только толком ничего не понял.
По программе: проверяй, наверняка что-нибудь прозевал. testsnd2.rar Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#33
|
|||
|
|||
Цитата:
|
#34
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#35
|
|||
|
|||
Цитата:
|
#36
|
||||
|
||||
Превый получает инфу из файлов, второй приводит в читаемый вид.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#37
|
|||
|
|||
Цитата:
|
#38
|
||||
|
||||
Всё это читается, если есть в файле (VerifySongData).
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#39
|
|||
|
|||
Цитата:
|
#40
|
||||
|
||||
В ListView показывает
Код:
St := Format('%s - %s', [fTag_ID3V2.TagData.fArtist, fTag_ID3V2.TagData.fTitle]) // либо это St := Format('%s - %s', [TagData.fArtist, TagData.fTitle]); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (15.12.2012)
|
#41
|
|||
|
|||
angvelem, подскажите как добавить эту функцию отображение CPU, использованного плеером в то окошко, где показ инф о треке?
Код:
sLabel1.Caption := 'CPU% ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2); |
#42
|
||||
|
||||
Юнит 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); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Dmitry_DM (22.12.2012)
|
#43
|
|||
|
|||
angvelem, еще я заметил в плеере авто запуск песни из плейлиста, при запуске формы, где этот автозапуск, что бы я смог его настроить CheckBox'om ?
|
#44
|
||||
|
||||
В файле mp3.pas
Код:
if FileExists(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u')) then SongClass.LoadSongList(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u')); Код:
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; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |