TNewMediaPlayer ->Обновлённый TMediaPlayer

[uberchel]

Завтра вечером выложу полный комплект.

[uberchel]

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

Спасибо, я бы хотел их посмотреть. А насчет наездов моя позиция должна быть очевидна "професиионалам": практически во всех сторонних компонентах я чтото меняю на свое усмотрение, как правило исправляю ошибки, иначе пользоваться ими я считаю нельзя. Компоненты без исходников это только для баловства. Ни в коем случае не хочу умалить труд разработчика и извиняюсь перед ним за резкость.

Ну вот, выложил! Не знай, что ты там хочешь найти , кроме нескольких новых и переписанных функций! Если сам говоришь, переделываешь под себя все компоненты, дык не проще ли было бы самому переделать (исправить ошибки) TMediaPlayer ??? или что...

З.Ы. И почему, я не выкладываю никогда исходники, да потому что-б люди сами что-то делали, а не просто тупо копировали код, и конечно Уважаю свой труд!!!

[Virus25]

Нет я переделывать не собираюсь просто хочю посмотреть что ты там зделал может что нибуть доделаю а переделывать компоненты мне незачем просто запустить компонент немогу если нет Pas файлов Delphi 2007 не даёт вот сижу качаю delphi 7.

[Virus25]

Слухай uberchel может ты мне поможешь я тут тему создал но пока не удачно вот ссылка http://www.programmersforum.ru/showt...684#post328684 но могу тут отписать мою проблему.

[Molochnik]

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

Ну вот, выложил! Не знай, что ты там хочешь найти , кроме нескольких новых и переписанных функций! Если сам говоришь, переделываешь под себя все компоненты, дык не проще ли было бы самому переделать (исправить ошибки) TMediaPlayer ??? или что...

З.Ы. И почему, я не выкладываю никогда исходники, да потому что-б люди сами что-то делали, а не просто тупо копировали код, и конечно Уважаю свой труд!!!

Спасибо! А насчет классического Tmediaplayer, он у меня используется в очень частном случае, я когда то эн лет назад его тестировал, что-то там исправил, но сейчас случайно начал смотреть, а исправил то криво. А тратить новое время на него неохота абсолютно, есть куча задач поважнее, вот и решил поискать в инете может кого нибудь он задел за живое

[uberchel]

Вот и дошли руки до компонента и вот что там исправил\добавил:

Глюка с изменением размера нету.
Сменил функцию Open;
Добавил функции :
OpenMediaFile - Открыть файл с обработкой исключений
MCIPlayAudio - Проиграть файл mp1,mp2,mp3,wav,wma,midi,rmi,au,aif f. также можно проиграть несколько звуков одновременно.
SetVolume - Изменить громкость
GetVolume - Получить громкость
SetWaveVolume - Изменить громкость WavOut
GetWaveVolume - Получить громкость WAvOut
В property добавил восстановление громкости : RestoretVol = Boolean;

Скачать: http://ubersoft.ucoz.com/index/0-5

[Rebel123]

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

Вот и дошли руки до компонента и вот что там исправил\добавил:

Глюка с изменением размера нету.
Сменил функцию Open;
Добавил функции :
OpenMediaFile - Открыть файл с обработкой исключений
MCIPlayAudio - Проиграть файл mp1,mp2,mp3,wav,wma,midi,rmi,au,aif f. также можно проиграть несколько звуков одновременно.
SetVolume - Изменить громкость
GetVolume - Получить громкость
SetWaveVolume - Изменить громкость WavOut
GetWaveVolume - Получить громкость WAvOut
В property добавил восстановление громкости : RestoretVol = Boolean;

Скачать: http://ubersoft.ucoz.com/index/0-5

Отлично! + 5 вам! позже на обновленном компоненте посижу по тестю!

[Molochnik]

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

Скачать: http://ubersoft.ucoz.com/index/0-5

Привет! Давно не заходил, смотрю уже исправленная версия имеется, правда ссылка не работает, не обновишь? Спасибо!

[uberchel]

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

Привет! Давно не заходил, смотрю уже исправленная версия имеется, правда ссылка не работает, не обновишь? Спасибо!

Скачать можно отсюда: Тырк