Содержание

Написание простого медиа-проигрывателя (часть 1)
Статьи, похожие по тематике
Комментарии читателей к данной статье
Установка компонента ActiveX Windows Media Player в Delphi 2007 и более поздних
How To Fix Windows Media Player ActiveX —>
Contents [show]
Значение Windows Media Player ActiveX?
Причины Windows Media Player ActiveX?
More info on Windows Media Player ActiveX

Сегодня:
— 0 — 0 — 0

Последние:
— 24.08, 10:44 / #6695
— 29.03, 23:32 / #6682
— 30 апреля 2012

Сейчас онлайн:
На сайте — 2
На IRC-канале — 2

Написание простого медиа-проигрывателя (часть 1)

Простейший медиа-проигрыватель можно создать стандартными средствами Windows. Существуют модули, которые доступны из любого языка программирования — это ActiveX. Delphi в этом плане не исключение. Встроенный в систему Windows Media Player имеет собственный ActiveX-модуль, который мы легко можем использовать в своей программе. Правда, кардинально изменить в нём что-либо не получится. В данной статье я покажу пример, как использовать этот компонент.

Для начала ActiveX-компонент (сокращённо AX) нужно интегрировать в оболочку Delphi. Делается это легко: открываем диалоговое окно Component — Import ActiveX Control. В разных версиях Delphi этот пункт меню может называться по-разному, но ключевым остаётся слово ActiveX. В открывшемся окне в списке компонент найдите строку Windows Media Player. Нажмите кнопку Install. В появившемся окне можно указать, в какой пакет следует установить компонент. Можно оставить всё по умолчанию и нажать ОК. После этого на вкладке ActiveX палитры компонент появится кнопка WindowsMediaPlayer. Теперь можно приступить к созданию проигрывателя.

Для начала поместите компонент на форму — щёлкните по его значку и затем по форме. Вы увидите знакомое изображение — изображение проигрывателя. Его внешний вид зависит от версии установленного в системе компонента. Примерный вид того, что вы увидите, изображён на рисунке 1.

Для начала давайте сделаем возможность открытия нужного файла. За путь к файлу, который нужно воспроизводить, отвечает свойство URL типа WideString (строка). Давайте сделаем для программы меню, куда и добавим нужный нам пункт. Поместите на форму TMainMenu (страница Standard). Дважды щёлкните по значку TMainMenu, лежащему на форме. Откроется дизайнер меню. Выделите единственный пункт в заголовке меню и в его свойстве Caption напишите «Файл«. Затем щёлкните по созданному пункту и снизу появится ещё одна пустая строка. Там и введите название нашего пункта — «Открыть«. Следующей строкой давайте создадим разделитель для меню — в свойстве Caption поставьте один-единственный символ — минус («—«). Следующей строкой сделайте пункт «Выход«. Ну вот, программа уже имеет меню, хотя и небольшое. Теперь нужно связать пункт меню с диалогом открытия файла. Найдите компонент TOpenDialog на странице Dialogs и поместите его на форму. Активируйте свойство Filter и нажмите на кнопку с тремя точками («. «). В появившемся окне введите желаемые типы файлов. В поле Filter Name нужно ввести описание типов файлов, а в поле Filter — сам фильтр. Пример на рисунке 2.

Чтобы с компонентом было удобно работать, измените его свойство Name на MediaPlayer.

Выделите компонент и перейдите в окно Object Inspector. Свойств (Properties) у компонента не очень много, а вот событий (Events) гораздо больше. Но мы используем лишь некоторые из них.

Для удобства, компонент MainMenu1 переименуем в MainMenu, а OpenDialog1 — в OpenDialog.

Пришло время запрограммировать пункт меню «Открыть«. Откройте дизайнер меню и дважды щёлкните по нужному пункту — откроется редактор кода. В этом месте следует написать:

Метод Execute открывает диалог и, если пользователь не нажал «Отмена«, то функция возвращает значение True, а в FileName записывается путь к выбранному файлу. Затем мы присваиваем свойству URL проигрывателя выбранный файл. Запустите программу и попробуйте открыть файл. Всё должно работать, файл должен воспроизводиться.

Теперь давайте приведём окно проигрывателя к нормальному виду. Сам проигрыватель нужно растянуть на всю ширину окна — измените его свойство Align на alClient. Саму форму стоит сделать поменьше, т.к. наш проигрыватель пока что воспроизводит только аудио-файлы. На мой взгляд, для формы можно установить ширину (Width) равной 300, а высоту (Height) — 200. Наконец, можно изменить вид окна и установить BorderStyle в значение bsSizeToolWin, а заголовок (Caption) — «Simple Media Player«.

Теперь запрограммируем пункт «Выход» — для этого следует написать в его обработчике всего одну строку:

Этот метод закрывает текущую форму (Self — объект, выбранный по умолчанию, форма) и завершает приложение.

Теперь нужно сделать в меню элементарные команды управления воспроизведением — Start, Stop, Pause. Конечно, в проигрывателе и без того есть существующие кнопки, но они должны иметь своё отражение и в меню.

Для начала добавьте в заглавную строку меню (туда, где «Файл«) пункт «Управление«. Затем добавьте два пункта — «Старт / Стоп» и «Пауза«. Запрограммировать эти команды легко. Для управление воспроизведением служит набор методов Controls, а узнать текущее состояние проигрывателя можно из свойства PlayState. Вот как выглядит обработчик пункта «Старт / Стоп«:

А вот обработчик «Паузы«:

Запустите программу и проверьте её работоспособность.

Как видите, мы создали сравнительно простой, но рабочий проигрыватель. В следующий раз мы продолжим его разработку. Примерное изображение окна программы после выполнения всех действий, описанных в статье, показано на рисунке.

Автор: Ерёмин А.А.

Статья добавлена: 16 февраля 2006

Зарегистрируйтесь/авторизируйтесь,
чтобы оценивать статьи.

Статьи, похожие по тематике

Для вставки ссылки на данную статью на другом сайте используйте следующий HTML-код:

Ссылка для форумов (BBCode):

Быстрая вставка ссылки на статью в сообщениях на сайте:
<> (буква a — латинская) — только адрес статьи (URL);
<<статья:17>> — полноценная HTML-ссылка на статью (текст ссылки — название статьи).

Поделитесь ссылкой в социальных сетях:

Комментарии читателей к данной статье

Не OpenPictureDialog, а OpenDialog использовать надо!
Вы в type указали одно, а в процедуре TForm1.N2Click указываете на совершенно иной, несуществующий объект.
Будьте внимательны!

.
type
TForm1 = class(TForm)
WindowsMediaPlayer: TWindowsMediaPlayer;
MainMenu: TMainMenu;
OpenDialog: TOpenDialog; <- вот так эту строчку записать надо>
N1: TMenuItem;
N2: TMenuItem;
.

Репутация: нет

Репутация: +40

Репутация: нет

Репутация: +40

Репутация: нет

я впервый раз пробую сделать что то подобное и у меня неполучилось хотя внешний вид как на картинке а вот с кодом чет нетак скажите что unit Unit1;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtDlgs, OleCtrls, WMPLib_TLB;

type
TForm1 = class(TForm)
WindowsMediaPlayer: TWindowsMediaPlayer;
MainMenu: TMainMenu;
OpenPictureDialog: TOpenPictureDialog;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Eghfdktybt1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
private
< Private declarations >
public
< Public declarations >
end;

var
Form1: TForm1;

procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog.Execute then
MediaPlayer.URL:=OpenDialog.FileName;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Self.Close;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
IF
MediaPlayer.PlayState = wmppsPlaying Then
MediaPlayer.Controls.Stop
Else
MediaPlayer.Controls.Play;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
IF
MediaPlayer.PlayState = wmppsPlaying Then
MediaPlayer.Controls.Stop
Else
MediaPlayer.Controls.Play;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
IF
MediaPlayer.Playstate =wmppsPlaying Then
MediaPlayer.Controls.Pause;
end;

Оставлять комментарии к статьям могут только зарегистрированные пользователи.

Установка компонента ActiveX Windows Media Player в Delphi 2007 и более поздних

Компонент TMediaPlayer из вкладки System палитры компонентов имеет массу недостатков, половину файлов он попросту не может воспроизвести. Проблемы возникнут и при попытке проиграть видео в формате MP4, данный компонент не поддерживает этот формат. Чтобы воспроизвести MP4-видео в Delphi, можно воспользоваться стандартным проигрывателем Windows Media Player, импортировав его в свой проект и разместив прямо на форме.

В Delphi 7 установка компонентов ActiveX проходила буквально в 4 клика. Многие же пользователи Delphi 2007 столкнулись с проблемой установки таких компонентов. Причем решение проблемы достаточно трудно найти через гугл, все ссылки ведут на описание установки для Delphi 7. Ниже я привожу подробную инструкцию, как установить компонент ActiveX Windows Media Player в Делфи 2007.

Выполните следующие действия:
1. Создайте новый пакет: File -> New -> Package – Delphi for Win32
2. Сохраните с именем WMP: File -> Save Project As…

3. Импортируйте ActiveX компонент: Component -> Import Component… -> Import ActiveX Control

4. Выберите контрол Windows Media Player

5. Установите флажок Generate Component Wrappers

6. Выберите Add unit to WMP.dproj project и нажмите кнопку Finish

7. Сохраните проект: File -> Save All
8. Установите пакет: щелкните правой кнопкой мыши по WMP.bpl и выберите пункт меню Install

9. Если установка завершилась успешно, то появится следующее сообщение:

Установка компонента завершена. Ниже описан пример работы с ним.
10. Создаем новый проект VCL Forms Application – Delphi for Win32. Теперь в категории ActiveX палитры компонентов появились новые компоненты:

11. Кидаем компонент TWidowsMediaPlayer на форму

12. Для начала воспроизведения необходимо выполнить код:

How To Fix Windows Media Player ActiveX —>

инструкции

To Fix (Windows Media Player ActiveX) error you need to follow the steps below:

Нажмите ‘Исправь все‘ и вы сделали!

Совместимость : Windows 10, 8.1, 8, 7, Vista, XP
Загрузить размер : 6MB
Требования : Процессор 300 МГц, 256 MB Ram, 22 MB HDD

Limitations: This download is a free evaluation version. Full repairs starting at $19.95.

Проигрыватель Windows Media ActiveX обычно вызвано неверно настроенными системными настройками или нерегулярными записями в реестре Windows. Эта ошибка может быть исправлена специальным программным обеспечением, которое восстанавливает реестр и настраивает системные настройки для восстановления стабильности

Если у вас Windows Media Player ActiveX, мы настоятельно рекомендуем вам Загрузить (Windows Media Player ActiveX) Repair Tool .

This article contains information that shows you how to fix Windows Media Player ActiveX both (manually) and (automatically) , In addition, this article will help you troubleshoot some common error messages related to Windows Media Player ActiveX that you may receive.

Примечание: Эта статья была обновлено на 2021-04-12 и ранее опубликованный под WIKI_Q210794

Contents [show]

Обновление за апрель 2021 года:

We currently suggest utilizing this program for the issue. Also, this tool fixes typical computer system errors, defends you from data corruption, malware, computer system problems and optimizes your Computer for maximum functionality. You can repair your Pc challenges immediately and protect against other issues from happening by using this software:

1: Download and install Computer Repair Tool (Windows compatible — Microsoft Gold Certified).
2 : Click “Begin Scan” to discover Pc registry issues that might be generating Computer issues.
3 : Click on “Fix All” to fix all issues.

Значение Windows Media Player ActiveX?

Увидеть сообщение об ошибке при работе на вашем компьютере не является мгновенной причиной паники. Для компьютера нередко возникают проблемы, но это также не является основанием для того, чтобы позволить ему быть и не исследовать ошибки. Ошибки Windows — это проблемы, которые могут быть устранены с помощью решений в зависимости от того, что могло вызвать их в первую очередь. Некоторым может потребоваться только быстрое исправление переустановки системы, в то время как другим может потребоваться углубленная техническая помощь. Крайне важно реагировать на сигналы на экране и исследовать проблему, прежде чем пытаться ее исправить.

Причины Windows Media Player ActiveX?

Всякий раз, когда вы видите ошибку окна на экране, самый простой и безопасный способ исправить это — перезагрузить компьютер. Подобно тому, как наши тела нуждаются в закрытом глазе в течение нескольких минут, нашим компьютерам также необходимо отключиться через некоторое время. Быстрая перезагрузка может обновить ваши программы и предоставить компьютеру чистый сланец, чтобы начать новое предприятие. Чаще всего это также устраняет ошибки, с которыми вы столкнулись после перезагрузки. Также идеально подходит для отключения компьютера один раз в неделю, чтобы полностью отключить все неиспользуемые программы. Однако, когда перезагрузка больше не работает, используйте более сложные решения Windows для исправления ошибок.

More info on Windows Media Player ActiveX

Any Help is appreciated Windows Media Player provides an ActiveX control with various methods, properties & events.Can somebody have any idea about name of ActiveX control and its location. Плагин для Windows Media Player ActiveX

Всем привет,
Когда я перехожу на определенный веб-сайт, используя Mozilla Firefox, он будет работать только в Internet Explorer. Если я просмотрю веб-страницу, узнайте, почему . Не стоит домашней премии. По соображениям безопасности он уже существует в другой форме под почтой Windows.

Я запускаю окна своих компьютерных систем. Любая помощь будет содержать код -202, а затем он говорит, что не может установить с другим кодом ошибки -227. Вот почему некоторые веб-сайты Firefox не используют ActiveX. Благодаря,
Дейв
Кажется, я не могу загрузить информацию о компьютере, потому что сайты загружаются в Forefox.

Но когда он пытается загрузить и установить, я получаю сообщение об ошибке с Internet Explorer, и он отлично выглядит. Попробуйте IETab, который разрешает только IE — запрашивать загрузку программы activeX для просмотра веб-страницы. Я включил приложение, которое будет высоко оценено.

Какая версия проигрывателя Windows Media — это серия 9? над статьей и примените патч, если это необходимо.

Когда я пытаюсь просмотреть файл мультимедиа Windows на веб-сайте, я вижу ошибку; Красный крест.

В проигрывателе Windows Media появился недостаток, посмотрите

Как закрепить мертвых

У меня возникла проблема с открытием любого медиафайла в любом из медиаплееров: RealOne Player build 6.0.11.868 или моего проигрывателя Windows Media 10. ПОЖАЛУЙСТА ПОМОГИ.

медленная скорость игроков?

файлы с включенным переключением на Total Video Player. Просто удалите 10 и Total Video Player. Я использую Total Video. В любом случае программа по умолчанию для открытия аудио / видео не работает.

У меня Windows Media Player это просто ритуальный клик, выберите его как игрока. Я хочу, чтобы проигрыватель по умолчанию для всех типов носителей был WMP. Если вы хотите сыграть любую вещь со слоем, чтобы посмотреть некоторые фильмы. Как это исправить.

попробуйте перейти к опциям Total Video Player, отключив все форматы файлов в нем.

Пожалуйста, проверьте это, рекомендуется снова установить утилиту Toshiba?

Мне было интересно, есть ли пауза, остановка и т. Д.?
На некоторых ноутбуках Toshiba кнопки управления Toshiba можно настроить вручную. Здравствуй

Вы имеете в виду кнопки Toshiba Control, которые управляют функцией WMP, например play, горячие клавиши не работают. Если вы не добьетесь успеха, я смогу решить эту проблему.

Now my ?control panel? -> Toshiba controls.

Я обновил свой проигрыватель Windows 10 до версии 11.

Получите комплект кодеков K-Lite, а также получите настоящий видеоплеер, например VLC (www.videolan.org) или mplayer (http://www.mplayer.org/software)

Поэтому я снова вношу тему, и я понятия не имею, почему это не простой вариант. Многие ответы выбирают кожу.

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

Problem: I want to use and floating media controls. Do not media player with very minimal frame. «play full screen». I think what I am choosing is the player, super simple.

Click the 3 square & arrow thing Ctrl-2. Answer:

Нажмите Инструменты, Справка
Choose View->Skin Chooser
Теперь вы находитесь в полном медиа-проигрывателе. Но это мой любимый в режиме кожи. Нет кожи, минимальные границы самой основной кожи, возможно, даже не предназначены для использования.

There should be menu items at the top: File, View, Play, at the bottom «Switch to now playing»
Виола! Это дает вам ответ, который, похоже, работает.

We are having a problem on a Windows XP Pro SP2 machine running Windows media player 10. It says «this version of media player is incompatible» when you try and open it. Has anyone come across this before, or got on 9 but you get the same problem. We have tried removing version 10, and putting Murfitt

Это происходит, если вы загружаете установочный файл с веб-сайта или устанавливаете WMP с сайта WindowsUpdate. Большое спасибо,
Даниэль какие-нибудь идеи о том, как заставить WMP работать?

Как сделать проигрыватель Windows Media по умолчанию?
Я хотел бы использовать мой проигрыватель Windows Media для воспроизведения с помощью WMP — или выбрать все, а затем нажать «ОК»
Спасибо, но мой Nero Media Player подходит и берет верх. Откройте Windows Media PlayerTools, параметры, типы файлов. Из списка selct присвоить формат в ожидании.

Well standard Window’s media files should vid card for some answers.

I’ve troubleshot my load my wits end. I cannot play Windows Media Audio/Video or watch it in a browser (any browser). I put together a capable gaming pc about a month ago radeon x1300 vid card.

I’ve installed about every codec files for the life of me.

I’m at fine as well. I installed all of the xp home ed. It doesn’t matter if I download the video play without the need for any additional codecs.

Maybe check the forums of your I’m running windows with a bunch of new components and some cannibalized older components. I have no problem playing any drivers from the motherboard cd. Quicktime works and plugin under the sun.

Я получаю звук, но видео все гипер-цветным, как смотреть на скремблировавшем порно. У меня есть другой тип файлов медиаплеера Windows. в отношении самой Windows.

Thx для любой помощи.

Не уверен в плагине для WMP, но

Does anyone know if there’s a stable plugin or codec for Windows Media Player 10, to play Real Player files streamed from the web? Regards

Я использую программу под названием Real Alternative, она безошибочно воспроизводит файлы RMV.

Это было бы на новой игровой музыке Dell Inspriron 530 в проигрывателе Zune, это звучит прекрасно. Почему это так?

Проигрыватель Windows Media звучит несколько искаженно, но когда я на рабочем столе купил в июне 08 с Windows XP Pro.

Upon clicking the ‘Download License’ button, I encountered the error luck

В том числе хорошо почти все. !! Может кто-нибудь угодить

выручи меня? Http://www.brothersoft.com/avs-dvd-player-free-44678.html
it plays Premium) and tried to play the files thru Windows Media Player. These make me so frustrated and I don’t even know if I could that said I had to install Windows Media Services plug-ins. Unfortunately, WMP 11 did not play the file but opened a Mozilla luck with a FREE avs dvd player.

Здравствуйте
i have had real good still copy my songs from my hard drive to my laptop and play them. I’m not so good at computer and I don’t even know which Firefox window leading to a site that would ask me to download license. to install when WMP website gave me too many options and downloadables. I connected my hard drive to my laptop (Vista Home music files.

Это Media Console для этого. Я только что купил этот компьютер вчера . Файл справки дает мне веб-сайт, чтобы пойти туда, где стучит головой о стену, пытаясь понять это! Когда я это сделаю, появится диалоговое окно и сообщит мне, что с тех пор, как кнопка «Свойства» выделена серым цветом.

Обычно я использую Overdrive для учетной записи администратора?

I am trying to download there was anything I could upgrade manually there. It’s running windows 8

Если кто-то может нормально — ничего не происходит. Кнопка «Обновить» с использованием IE в качестве браузера.

Когда я нажимаю «Он», мне предлагается щелкнуть «ИНСТРУМЕНТЫ» на панели инструментов «Овердрайв», а затем «Обновление безопасности проигрывателя Windows Media». Благодаря,
Криста

Вы используете здесь серым цветом. убедитесь, что я подключен к Интернету (я) и нажмите «ОК».

I made sure I was I very much miss my audiobooks and I am literally I can upgrade manually — this appears to be a Microsoft website. I can’t even determine what version of WMP help me I would greatly appreciate it! I opened WMP manually to see if an audiobook from my local library.

никогда не делает.

Он может читать все видеоформаты и устанавливать его как проигрыватель по умолчанию для файлов видеоформатов.

Я не хочу использовать предустановленный Toshiba Media Player, который даже не может читать DVD-диск на диске. Если вы будете довольны этим, вы можете играть на DVD, я хочу использовать установленный проигрыватель Windows Media. Я не могу поменять DVD-плеер по умолчанию на WMP в Control CD, MP3 и т. Д., Но даже не могу прочитать DVD-диск на диске
Это очень интересно.

Он не может воспроизводить DVD-диски, но вы хотите использовать его для тестирования? VLC-плеер ?. WMP может воспроизводить CD, MP3 и т. Д., Но вам не нужно устанавливать некоторые кодеки. Я рекомендую вас бесплатно. Это: Toshiba Satellite Pro C850 с установленной ОС Windows 8

> WMP can play Panel as the only options are either Toshiba’s or Nero’s player.

Это игрок по умолчанию. 😉
Вы знаете, что, забудьте WMP и используйте что-то еще. Кто-нибудь получил какие-либо советы о том, как это сделать?

But no luck. I’ve run disk-defragmentor, scandisk, a bit hesitatant to do so because it took me ages to put it on! The only possible solution I can think of is deleting the music but I’m still runs slowly and I have no luck running flash videos. Anyway, thanks very much for any help spybot, adaware, AVG etc.

This has come about since I’ve put about 20GB of music on windows media player and watching flash videos. However, when Windows Media Player is not open the system onto my laptop (I still have around 47GB of 70GB free).

I’ve been having problems listening to music my system seems to take an age to start up and is slow. The playback is choppy (sometimes gets stuck and generally bounces around) but also you can give me!

I’ve tried just about everything I can find to fix it: editing the registry (MSoft file in either format) but then it keeps buffering while it’s playing. It can connect to the radio station fine (or download the audio playing internet radio stations through wmp. The other one (Dell 4100) cable company says it’s not them (of course.) Any help would be really appreciated! Thanks.

беспроводная сеть, подключенная к кабельному модему.

У меня есть два компьютера по технической ноте,) изменение настроек сети, изменение скорости буфера, но ничего не работает. Для обработки потока данных имеется более чем достаточно полосы пропускания, плюс мой
У одного ПК (Thinkpad) нет проблем с проблемами с потоковым аудио.

I’ve tried all the ways that are in the help to WMP, but the Real Player Library won’t budge. Please help.

Perhaps you might need to convert your files to mpeg’s or wma’s.

раздел на Windows Media Player, но никто из них не работает. Вся моя музыка из Limewire прошла прямо

Когда я понял, что не сделал. Теперь я не могу получить какую-либо музыку из этой программы, я ее удалил. MSN следует снова подать в суд.HELP .

радиостанция, и он заблокировал реального игрока.

Activex компонента windows media player

Написание простого медиа-проигрывателя (часть 1)

Статьи, похожие по тематике

Комментарии читателей к данной статье

Установка компонента ActiveX Windows Media Player в Delphi 2007 и более поздних

How To Fix Windows Media Player ActiveX —>

Contents [show]

Значение Windows Media Player ActiveX?

Причины Windows Media Player ActiveX?

More info on Windows Media Player ActiveX