Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2020, 16:04   #1
Cepguo
Пользователь
 
Регистрация: 03.04.2015
Сообщений: 31
По умолчанию stretchToFit в TWindowsMediaPlayer

Не знаю, к какому здесь разделу отнести Active X компонент TWindowsMediaPlayer,
столкнулся с тем, что свойство stretchToFit в TWindowsMediaPlayer работает, но
окно маштабируется только до определённого размера ?
Изображения
Тип файла: jpg Окно проигрывателя.jpg (73.1 Кб, 0 просмотров)
Вложения
Тип файла: zip Player.zip (1.19 Мб, 1 просмотров)
Cepguo вне форума Ответить с цитированием
Старый 29.02.2020, 07:09   #2
Cepguo
Пользователь
 
Регистрация: 03.04.2015
Сообщений: 31
По умолчанию MediaPlayer->stretchToFit = true;

При выполнении надо заново выставлять:
Код:
MediaPlayer->stretchToFit = true;
А может кто-нибудь дать пример получения Player->OnMediaChange = OnMediaChange; ?
Вложения
Тип файла: zip Player.zip (1.19 Мб, 1 просмотров)
Cepguo вне форума Ответить с цитированием
Старый 29.02.2020, 09:52   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

А это точно - синтаксис Делфи ? Народ сумлявается. -> - у Делфи отродясь не бывало.
Код:
MediaPlayer->stretchToFit = true;

Последний раз редактировалось digitalis; 29.02.2020 в 10:42.
digitalis на форуме Ответить с цитированием
Старый 01.03.2020, 06:18   #4
Cepguo
Пользователь
 
Регистрация: 03.04.2015
Сообщений: 31
По умолчанию

MediaPlayer - это ActiveX компонент TWindowsMediaPlayer, импортированный из системной wmp.dll ОС Windows,
вот статья об этом: https://chapmanworld.com/windows-med...yer-in-delphi/
Есть один нюанс: если компонент не кидать на форму во время созидания,
а создать динамически позже при выполнении, после процедуры FormCreate(TObject *Sender),
то можно наблюдать чёрное окно размером с видео, даже если стоит MediaPlayer->Align = alClient.
тут выход простой: на время создания и загрузки видео нужно сделать его невидимым
Код:
MediaPlayer->Visible = false
, а к моменту проигрыша
Код:
MediaPlayer->playState==wmppsPlaying
включить
Код:
MediaPlayer->Visible = true
см.@
Вложения
Тип файла: zip Player.zip (1.19 Мб, 1 просмотров)
Cepguo вне форума Ответить с цитированием
Старый 01.03.2020, 12:37   #5
Cepguo
Пользователь
 
Регистрация: 03.04.2015
Сообщений: 31
По умолчанию

Но остаётся видимым само окно формы ...
Чтобы оно появлялось вместе с окном проигрывателя - см.@
Вложения
Тип файла: zip Player.zip (1.19 Мб, 0 просмотров)
Cepguo вне форума Ответить с цитированием
Старый 01.03.2020, 12:53   #6
Cepguo
Пользователь
 
Регистрация: 03.04.2015
Сообщений: 31
По умолчанию

Кто найдёт более простой способ - пишите.
Cepguo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
покадровый просмотр видео в TWindowsMediaPlayer Elenik Мультимедиа в Delphi 5 21.05.2018 14:04
TWindowsMediaPlayer отобразить panel в fullscreen MyIE Мультимедиа в Delphi 0 22.04.2010 21:42