[Vagac]

Engine_Startup(@ScriptDir & '\DSEngine_UDF.dll') ну правилино из папки скрипта экзешник и сам скрипт работает потому что DSEngine_UDF.dll находится в этой же папке а мне надо чтобы DSEngine_UDF.dll был вшит в скрипт я и спрашиваю можно ли как нибуд. перед компиляцией вставить с помощью AutoIt3Wrapper DSEngine_UDF.dll в скрипт потом скомпилить в один exe чтобы не таскать с собой DSEngine_UDF.dll

прошу прощения не заметил сообщения тогда другой вопрос если нельзя UDF встроить в exe есть ли какой нибудь способ проигрывать видео используя стандартные библиотеки Windows.

[madmasles]

Vagac,

потом скомпилить в один exe чтобы не таскать с собой DSEngine_UDF.dll

А в чем проблема:

Код:

;...
FileInstall('DSEngine_UDF.dll', @TempDir & '\DSEngine_UDF.dll')
;...
;в конце
FileDelete(@TempDir & '\DSEngine_UDF.dll')

[Yashied]

Vagac, использовать DLL непосредственно из памяти, не распаковывая на диск, нельзя (по крайней мере не в AutoIt). Самый правильный вариант - это тот, который предложил madmasles. Воспользуйся им или таскай с собой DLL.

[Vagac]

#Include <DSEngine.au3>
FileInstall('DSEngine_UDF.dll', @TempDir & '\DSEngine_UDF.dll')
$sFile = FileOpenDialog('Select Video File', @ScriptDir, 'Video Files (*.avi;*.mpg;*.wmv;*.mov;*.3gp;*.asf;*.mp4;*.flv;*.rv)')
If Not $sFile Then
Exit
EndIf

$hForm = GUICreate('MyGUI')

Engine_Startup(@ScriptDir & '\DSEngine_UDF.dll')
Engine_LoadFile($sFile, $hForm)
$aSize = Engine_GetVideoSize()
WinMove($hForm, '', (@DesktopWidth - $aSize[0])/2 , (@DesktopHeight - $aSize[1])/2, $aSize[0], $aSize[1])
Engine_SetRects(0, 0, 0, 0, 0, 0, $aSize[0], $aSize[1])
GUISetState()

Engine_StartPlayback()

Do
Until GUIGetMsg() = -3

Engine_Shutdown()
FileDelete(@TempDir & '\DSEngine_UDF.dll')

После компиляции все равно не работает вываливается с ошибкой

[madmasles]

Vagac,
Поменяйте

Код:

;...
Engine_Startup(@ScriptDir & '\DSEngine_UDF.dll')
; на
Engine_Startup(@TempDir & '\DSEngine_UDF.dll')
;...

Для кода: Au3ToPost - Инструмент для расскраски AutoIt-кода.

[Vagac]

Ладно всем спасибо за ответы и внимание к моим вопросам один из немногих форумов где так быстро и корректно отвечают.
А со скриптом я понял что нормально с помощью AutoIt этого не реализовать это мое субъективное мнение.
Еще раз спасибо.

[Iska]

я понял что нормально с помощью AutoIt этого не реализовать » Как скриптом проиграть видеофайл чтобы он открылся на полный экран. »

Command Line Options Available for Windows Media Player

Код:

Mplayer2.exe /play /fullscreen /close <Path to video file>

[gregaz]

Как скриптом проиграть видеофайл чтобы он открылся на полный экран. »

А со скриптом я понял что нормально с помощью AutoIt этого не реализовать »

Приблизительно так можно :

Код:

#include <GUIConstantsEx.au3>

$hForm = GUICreate('MyGUI',400,400)

$oWmp = _wmpcreate(1,5,5,390,240)
$oWmp.uiMode = "none"

$sFile = FileOpenDialog('Select Video File',"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 'Video Files (*.*)')
If Not $sFile Then
	Exit
EndIf
_wmploadmedia( $oWmp, $sFile ) 

While  $oWmp.controls.currentPosition = 0
	Sleep(100)
WEnd
$oWmp.fullscreen = "true"

$btExit = GUICtrlCreateButton("Exit", 340, -1,'', '')

GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE,$btExit
			Exit
	EndSwitch
WEnd

Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
	$oWMP = ObjCreate("WMPlayer.OCX")
	If $oWMP = 0 Then Return 0
	$oWMP.settings.autoStart = "False"
	If $show = 1 Then
		GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
	EndIf
	Return $oWMP
EndFunc

Func _wmploadmedia( $object, $URL, $autostart = 1 )
    $object.URL = $URL
    While Not $object.controls.isAvailable("play")
        Sleep(1)
    WEnd
    If $autostart = 1 Then $object.controls.play()
EndFunc

Источник

[Vagac]

Спасибо gregaz это то что нужно!!!