Создание настраиваемого Windows Media Player для панелей с отсутствующими элементами управления

Delphi , Технологии , OLE

Создание настраиваемого Windows Media Player для панелей с отсутствующими элементами управления

В данной статье мы рассмотрим, как можно создать пользовательский интерфейс на базе Windows Media Player, который будет встраиваться в панели и не содержать стандартные элементы управления, такие как кнопка воспроизведения. Это может быть полезно, например, для создания медиафонов в приложениях на Delphi.

Проблема

Разработчики часто сталкиваются с необходимостью встраивания Windows Media Player в свои приложения таким образом, чтобы он мог изменять свой размер в зависимости от размера панели, при этом не показывая элементы управления, такие как кнопка воспроизведения. Это требует специального подхода к настройке объекта ActiveX.

Решение

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

1. Разместить объект Windows Media Player на панели и установить его свойство Align в значение alClient. Это позволит объекту занимать всю доступную область панели.

2. Скрыть область управления плеером, установив свойство uiMode в значение 'none'. Это можно сделать как в IDE, так и в коде.

3. Назначить событие изменения размера панели обработчику, который будет корректно изменять размеры объекта Windows Media Player. Пример такого обработчика представлен ниже:

uses Ole2;

procedure TForm1.PanelResize(Sender: TObject);
const
  IID_IOleInPlaceObject: TGUID = '{00000113-0000-0000-C000-000000000046}';
var
  IOIPObj: IOleInPlaceObject;
begin
  SYSTEM.IDispatch(WindowsMediaPlayer1.OleObject).QueryInterface(IID_IOleInPlaceObject, IOIPObj);
  IOIPObj.SetObjectRects(Panel1.ClientRect, Panel1.ClientRect);
end;

procedure TForm1.Play;
begin
  WindowsMediaPlayer1.uiMode := 'none'; // Показать интерфейс управления не нужно
  WindowsMediaPlayer1.URL := 'movie.mpg';
  WindowsMediaPlayer1.stretchToFit := True;
  WindowsMediaPlayer1.Controls.play;
end;

Для корректной работы кода может потребоваться добавить путь к библиотеке Ole2 в настройки компилятора Delphi.

Также для удобства можно использовать вспомогательную функцию SmoothResizeMediaPlayer, которая принимает объект Windows Media Player, а также прямоугольники для позиционирования и клиппирования, и автоматически устанавливает их размеры:

uses Ole2;

procedure SmoothResizeMediaPlayer(aMediaPlayer: TWindowsMediaPlayer; PosRect, ClipRect: TRect);
const
  IID_IOleInPlaceObject: TGUID = '{00000113-0000-0000-C000-000000000046}';
var
  IOIPObj: IOleInPlaceObject;
begin
  SYSTEM.IDispatch(aMediaPlayer.OleObject).QueryInterface(IID_IOleInPlaceObject, IOIPObj);
  IOIPObj.SetObjectRects(PosRect, ClipRect);
end;

Вызов функции:

SmoothResizeMediaPlayer(WindowsMediaPlayer1, panel1.ClientRect, panel1.ClientRect);

Подтвержденный ответ

Данный подход был подтвержден на практике и может быть использован в проектах на Delphi, например, в версии 7 с Windows Media Player 11.

Альтернативный ответ

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

В данной статье мы рассмотрели, как создать настраиваемый Windows Media Player, который будет подстраиваться под размеры панели и не будет содержать стандартные элементы управления. Приведенные примеры кода на Object Pascal (Delphi) помогут разработчикам быстро решить подобную задачу.

Создано по материалам из источника по ссылке.

Создание пользовательского интерфейса для Windows Media Player без стандартных элементов управления для встраивания в панели приложений на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE ::