Все что нужно плееру!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Все что нужно плееру!

Сообщение _Мика_ » 25.12.2004 (Сб) 18:22

Ну раньше я писал всякие плееры на основе MediaPlayer, а теперь решил своё замутить, и тут столкнулся с двумя траблами:

1). Как воспроизвести звук (wav mp3 wma midi ну хотябы эти), узнавать сколько минут длится, изменять позицию воспроизведения.

2). Эквалайзер, и индикатор эквалайзера :roll:
:D спасибо :D
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Zer
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 460
Зарегистрирован: 26.09.2003 (Пт) 13:08
Откуда: Нижний Новгород

Сообщение Zer » 25.12.2004 (Сб) 18:31

Во-первых тебе нужно узнать форматы файлов - ищи, в инете есть. Если надо по wav - могу прислать. Далее раскодируй и проигрывай. С миди хуже. Они проигрываются на синтезаторе - без его знания и не пытайся...
Microsoft DirectX - Маломягкий Прямой Х...
Не откладывай на завтра то, что можно выпить сегодня...

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 25.12.2004 (Сб) 18:35

Не ну wav понятно sndPlay и вс е Ок! наверное! :roll: а вот как воспроизвести мр3







Или всетаки использовать media player :P
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Zer
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 460
Зарегистрирован: 26.09.2003 (Пт) 13:08
Откуда: Нижний Новгород

Сообщение Zer » 25.12.2004 (Сб) 22:54

Так ты вроде-бы хотел свой писать??? Зачем стандармтные функции юзаешь - это равноценно Windows Media Player... :?
Microsoft DirectX - Маломягкий Прямой Х...
Не откладывай на завтра то, что можно выпить сегодня...

deepslam
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 286
Зарегистрирован: 19.08.2002 (Пн) 2:25
Откуда: Russia

Сообщение deepslam » 26.12.2004 (Вс) 1:15

Вот структура тегов mp3, если нужно:
Код: Выделить всё
Public Type ID3V1MP3TAGS
    strTag      As String * 3
    strTitle    As String * 30
    strArtist   As String * 30
    strAlbum    As String * 30
    strYear     As String * 4
    strComment  As String * 30
    bytGenre    As Byte
End Type
Public tags As ID3V1MP3TAGS

Public Sub ReadTag(strfile As String)
Open strfile For Binary Access Read As #1
        Seek #1, LOF(1) - 127
        Get #1, , tags
'Здесь нужно вставить обработчик событий с перменной tags
Close #1
End Sub

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 26.12.2004 (Вс) 10:49

Спасибо конечно, но теги у меня есть :D
Короче наверное лучше MediaPlayer использовать! 8)
Еще вопрос: как закруглить форму на концах? Когда-то был пример такой, после фоматирование - НЕТ! :cry:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 26.12.2004 (Вс) 17:30

CreateRoundRectRgn, SetWindowRgn. Примера под рукой нет.
Изображение

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 27.12.2004 (Пн) 19:21

to _Мика_
В двух словах написание плеера сводиться к двум простым задачам:
1) Создание функций вывода (через waveOut, DirectX, ASIO, A3D, KO или еще что-то)
2) Создание декодеров форматов (mp3, ogg, wma и-что-ты-еще-хотел)

Декодер превращает кодированный файл в звуковой поток который поступает на обработчик вывода, а он в свою очередь выводит звук на колонки.. На самом деле ни чего очень сложного тут нет, почитай какие-нить ресурсы по этой теме. Hydrogenaudio forum, websound, в конце концов google есть, он поможет :wink:

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 28.12.2004 (Вт) 0:49

:shock: :shock: :shock: ...да,.. и кто нибудь такое делал??? :shock: :shock:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 28.12.2004 (Вт) 2:53

[опять мысли]
Эх, и никто-то не смотрел таки новую версию моего ClearPlayer'а, все таки-забили :cry:
[/опять мысли]

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

Aleksej
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 191
Зарегистрирован: 03.06.2003 (Вт) 9:58

Сообщение Aleksej » 28.12.2004 (Вт) 9:28

Посмотри, может это пригодится.

Aleksej
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 191
Зарегистрирован: 03.06.2003 (Вт) 9:58

Сообщение Aleksej » 28.12.2004 (Вт) 9:32

Опа, приложить файл не удалось, всё ушло на мыло.

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 28.12.2004 (Вт) 15:15

Куда, на чьё мыло :D

еще вопрос:
как сделать свой слайдер с помощью (Picture или Image) :roll:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Сообщение Sirik » 29.07.2005 (Пт) 10:11

_Мика_ писал(а):Спасибо конечно, но теги у меня есть :D
Короче наверное лучше MediaPlayer использовать! 8)
Еще вопрос: как закруглить форму на концах? Когда-то был пример такой, после фоматирование - НЕТ! :cry:


может дашь код как вытащить теги: ID3V1 и ID3V2
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 10:31

эмм.....даже не знаю.... :roll:

Код: Выделить всё

Dim fNum As Integer
Dim sTagIdent As String * 3
Dim sTitle As String * 30
Dim sArtist As String * 30
Dim sAlbum As String * 30
Dim sYear As String * 4
Dim sComment As String * 30

fNum = FreeFile
Open "C:\1.mp3" For Binary As fNum
Seek #fNum, LOF(fNum) - 127
Get #fNum, , sTagIdent
If sTagIdent = "TAG" Then
Get #fNum, , sTitle
Get #fNum, , sArtist
Get #fNum, , sAlbum
Get #fNum, , sYear
Get #fNum, , sComment
End If
Close #fNum
MsgBox sTitle & "," & sArtist & "," & sAlbum & "," & sYear & "," & sComment



у меня есть только это, но я уверен, что это у тебя есть :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 10:32

млин....так не кто и не узнал как сделать эквалайзер? :cry:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Сообщение Sirik » 29.07.2005 (Пт) 10:47

2 Мика, меня тоже мучит данный вопрос
на счёт тегов: уменя такой код есть, спасибо
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 29.07.2005 (Пт) 16:45

2_Мика_

Смотрел последнюю версию моего EasyPlayer'а?


P.S. Хм... Никто не знает, куда подевался xolod?
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 19:51

BV писал(а):2_Мика_

Смотрел последнюю версию моего EasyPlayer'а?


P.S. Хм... Никто не знает, куда подевался xolod?

Нет :roll:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 29.07.2005 (Пт) 20:24

Типа...

- Будем брать или будем отступать?
- ...Да!



Нет - т.е. проигрыватель не видел, или xolod'а не видел?

EasyPlayer тут: http://bbs.vbstreets.ru/viewtopic.php?t=17815&start=0
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 22:45

Пасибо! Буду разбираться....

Нет - относилось к плееру....ну и собственно к xolod'у :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 22:52

Респект.....но это мне не как не поможет, потому что нету исходников :wink: :roll: :D
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 22:58

Так так так......а как использовать FMOD.dll? :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 29.07.2005 (Пт) 23:05

О! НАШЕЛ!

http://www.planetsourcecode.com/Upload_ ... 112004.zip
:P BV спасибо! :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 29.07.2005 (Пт) 23:27

Да всегда пожалуйста :)

Но ты бы лучше SDK скачал: http://www.fmod.org
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

CodeName33
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 297
Зарегистрирован: 01.09.2004 (Ср) 13:25
Откуда: SPb

Сообщение CodeName33 » 01.08.2005 (Пн) 13:15

Или BASS юзай, я раньше тоже fMod юзал, потом на BASS перешёл, потом на плагины винампа. Результат вот http://codename33.sysad.ru/apps/mptriamp/index.htm Исходник могу дать, если надо.
Программисты не глючат - глючат компиляторы...

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 01.08.2005 (Пн) 17:24

Давай, конечно: borisbox@mail.ru
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

CodeName33
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 297
Зарегистрирован: 01.09.2004 (Ср) 13:25
Откуда: SPb

Сообщение CodeName33 » 02.08.2005 (Вт) 0:37

Да, ладно я не жадный. Вроде всё собрал в архив.
Вложения
mpTRIAMP.rar
(1.45 МиБ) Скачиваний: 44
Программисты не глючат - глючат компиляторы...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 66

    TopList