MciSendString и Windows 10

@CRIDEL · Регистрация: 03.05.2013

Author24 — интернет-сервис помощи студентам

Не проигрывает mp4 на десятке, ошибок не выдает, кодеки установлены, на семерке и восьмерке полет нормальный, в чем может быть причина?

@VBOrion · 16.07.2018, 17:31

Код покажите.

@CRIDEL · 16.07.2018, 23:20 **[ТС]**

Visual Basic

    FileName = Path & "\VID.mp4" 
    
    comnd = StrConv("open " & FileName & " alias mpeg type MPEGVideo  parent " & Picture1.hwnd & " style child", vbUnicode)
    
    r = mciSendString(comnd, vbNullString, 0, 0)
    If r <> 0 Then MsgBox "1 " & r
    
    comnd = StrConv("put mpeg window at 0 0 " & Picture1.Width & " " & Picture1.Height, vbUnicode)
    
    r = mciSendString(comnd, 0&, 0, 0)
    If r <> 0 Then MsgBox "2 " & r
    
    comnd = StrConv("PLAY mpeg repeat", vbUnicode)
    
    r = mciSendString(comnd, vbNullString, 0, 0)
    If r <> 0 Then MsgBox "3 " & r

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 393
		1
	MciSendString и Windows 10 15.07.2018, 21:40. Показов 1227. Ответов 2 Метки нет (Все метки) Не проигрывает mp4 на десятке, ошибок не выдает, кодеки установлены, на семерке и восьмерке полет нормальный, в чем может быть причина? 0

@VBOrion 10 / 6 / 0 Регистрация: 06.11.2017 Сообщений: 21
	16.07.2018, 17:31	2
	Код покажите. 0

	16.07.2018, 23:20