Простой видео плейер

Поделиться117.06.2019 21:27:04

Автор: newmayer
Активный участник
Зарегистрирован: 07.01.2015
Приглашений: 0
Сообщений: 34
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
16 часов 13 минут
Последний визит:
06.03.2025 23:23:58

Доброго всем времени суток!

Прошу обьяснить, как вот этот простой плейер при открытии файла разворачивать во весь экран?
Без рамок.

Код:

If InitMovie() = 0
  MessageRequester("Ошибка", "Невозможно инициализировать воспроизведение Видео-файла !", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Выберите Видео-файл для воспроизведения", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie")
    PlayMovie(0, WindowID(0))
      
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  Else
    MessageRequester("Ошибка", "Невозможно открыть Видео-файл...", 0)
  EndIf
EndIf

И еще вопрос. От чего зависит какие форматы видео файлов он будет проигрывать?

Огромммная благодарность заранее )))

0

Поделиться217.06.2019 21:57:08

Автор: newmayer
Активный участник
Зарегистрирован: 07.01.2015
Приглашений: 0
Сообщений: 34
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
16 часов 13 минут
Последний визит:
06.03.2025 23:23:58

Сделал вот так

Код:

OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie", #PB_Window_BorderLess | #PB_Window_Maximize )

Теперь как заставить видео изменять размер на весь размер окна не меняя пропорций?

0

Поделиться317.06.2019 22:04:26

Автор: newmayer
Активный участник
Зарегистрирован: 07.01.2015
Приглашений: 0
Сообщений: 34
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
16 часов 13 минут
Последний визит:
06.03.2025 23:23:58

Сделал еще и вот так

Код:

OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie", #PB_Window_BorderLess | #PB_Window_Maximize )
    PlayMovie(0, WindowID(0))
    w_wd = WindowWidth(0) ;Определяем ширину окна
    w_hd = WindowHeight(0) ; Определяем высоту окна
    ;Debug w_wd
    ;Debug w_hd    
    ResizeMovie(0, 0, 0, w_wd, w_hd) ; применяем размеры к видео

Видео меняет пропорции по ширине и высоте.
Как сделать что бы видео увеличивалось, но не меняло свои пропорции?

Отредактировано newmayer (17.06.2019 22:06:12)

0