Что нового

Сменить разрешение ролика WMPlayer.OCX

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Не пойму как сменить разрешение ролика или как называют, фрэйм по моему, или нет, не важно, когда воспроизводится ролик, то компонент берёт его разрешение и вставляет такого размера, как свои указывать? в MSDN вроде что то написано про это но так и не получилось у меня сделать, может у Вас получится MSDN WMPLayer.OCX

Код:
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

$WMPObj = ObjCreate("WMPlayer.OCX")
$hForm = GUICreate('', 800, 600)
;GUISetBkColor(0x000000)
GUICtrlCreateObj($WMPObj, 0, 0, 800, 600)
GUISetState()

With $WMPObj
	.enableContextMenu = (True)                ; Выключаем контекстное меню
	.windowlessVideo = (False)                  ; Не знаю
	.stretchToFit = (True)                      ; Что то про соответствие
	.url = (@ScriptDir & "\Andrea - Dokrai.mp4") ; Загрузить медиа файл
	.settings.volume = (100)                     ; Громкость звука
	;.controls.Play()                            ; Воспроизведение файла
	;.controls.currentPosition = (50)            ; Перемотка
	;.settings.Balance = 0                       ; Баланс
	;.settings.rate()                            ; Не знаю
	;.fullScreen = True                          ; Режим Full Screen
	;.enabled = True                              ; Не знаю
	;.settings.autostart()                       ; Авто старт фала
	;.settings.mute = False                      ; Вкл/Выкл звук
	;.settings.playCount()                       ; Не знаю
	.fullScreen = (False)
	.uiMode = ('none')
EndWith

;$WMPObj.currentMedia.durationString ; Возвращает продолжительность файла

While True
	WinSetTitle($hForm, "", "Прошло: " & $WMPObj.controls.currentPositionString()) ; Возвращаем время ролька (сколько прошло)
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Viktor1703
когда решишь эту проблему покажи реализацию..я слабо в этом понимаю, но скрипт с осзона криво работает
 
Верх