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

[uberchel]

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

Да, ещё ошибочка - сообщение об ошибке при open(какие-то_там_параметры), как я ни пробовал его вызвать, не вылетает никогда, что конечно хорошо, но всё-таки..

procedure Open(ErrorText, Caption: string; TypeMsg: Cardinal; SysMsg, OffMsg : boolean);

Open('ваш текст', 'заголовок окна',  
        48, - системное окно "Внимание"
        true\false - использовать встроенный обработчик MCI
        false\true - вообще отключить сообщения об ошибках!

А насчет этого :

А при установке NewPlayer и Mediaplayer на одну форму возникает ошибка Duplicate recources

Так и будет!

[Molochnik]

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

Вот решил обновить стандартный медиаплеер, а то последний раз его дорабатывали 1999г - а глюков осталось много, вот и я решил внести не большую доработку, делал я в основном под себя, добавил 3 функции которые часто бывают нужны(Playing: boolean; , PlayWavFile(FileName: string; , PlayWavRes(resName,TypeRes: string): boolean)!
Глюки при обращении к файлу, EMCIDeviceError - больше не будет мешать тем самым пропала нужда писать всякие обработчики, щас вы сами сможете выбрать что будет показывать при File Not Found или неопределенного типа файла! Я сделал 1 глобальный обработчик который тоже можно отключить, находиться он в процедуре Open; Нету Ошибки при записи с Микшера. Он еще сырой и я выкладываю на обозрение, можек у кого то есть какие то идеи, по доработке МедиаПлеера !

Так чего коды то в архив не выложил? Без кодов даже смотреть не интересно. Или ты его продавать собрался?

[Пепел Феникса]

Molochnik, вообще-то это его труд.
не нравится пиши сам.

смотреть не интерестно?
тебе подавай исходники всего может?
(прог которые за тысячи баксов продаются)
так что все верно. уважаем чужой труд.

[uberchel]

Пепел Феникса! Спосибо за поддержку +1 )
Molochnik! Я просто дописал TMediaPlayer и он абсолютно бесплатен !

[Пепел Феникса]

я действительно так считаю.

ладно если бы попросил исходники, это одно...
но такой наезд это наглость уже(собственно кто ему минус прописал понять не трудно)

[uberchel]

Нет я минус не писал, пусть пишет что хочет ))
А исходники, если-бы попросил я бы дал.

[postal2]

Продолжение следует или же компонент больше не обновляется?!

[uberchel]

Как обещал продолжение будет !
Просто сейчас нет времени, занимаюсь др проектом, очень скоро продолжу, все доработки сделаю ))

[Molochnik]

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

Нет я минус не писал, пусть пишет что хочет ))
А исходники, если-бы попросил я бы дал.

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

[Virus25]

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

Пепел Феникса! Спосибо за поддержку +1 )
Molochnik! Я просто дописал TMediaPlayer и он абсолютно бесплатен !

Спасибо что обновил компонент но уменя проблема я немогу установить компронент он требует *.Pas файлы для установки у меня Delphi 2007 может зделаешь для него или выложи полную сборку компонента.