Seleccionar imagenes y videos de una carpeta

[iamchavo]

Hola buen dia, quiero armar un script que seleccione las imagenes y videos de una carpeta, y las abra.
como para usarlo en una presentación, sin necesidad de depender de programas como powerpoit.

Por ejemplo si tengo la carpeta llamada "Proyecto 1" , la cual tiene

imagen1.jpg
imagen2.jpg
video1.avi
imagen3.jpg
video2.avi
video3.avi
imagen4.jpg
...etc etc

Tengo en mente que estas imagenes y videos se abran en alguna especie de ventana que las contenga dentro.
el método para seleccionar la siguiente imagen podría ser mediante el uso de las flechas del teclado.

Mientras espero ayuda, voy a investigar el foro y si logro avanzar publico lo que logre armar. Saludos!

[Dany]

La verdad no entiendo. quieres que se vean y se puedan mover estilo powerpoint?

Saludos

[iamchavo]

la idea es que los videos e imagenes esten en una carpeta, y el script autoit, tome esos archivos, y los muestre en pantalla completa.
Al tocar una flecha del teclado podriamos retroceder o avanzar ,para ver otra foto o video.

[Dany]

Puedes Hacer lo siguiente.

Creas Una GUI Al tamaño completo de la pantalla.

Creas cuadro para seleccionar la carpeta. opendialogfloder (algo asi mira la ayuda jajaja no recuerdo)

Luego hacer un array de los archivos que existe.

casa vez que le des a un flecha <-(te vas a la derecha del array) ->(te vas a la izquierda del array) verificas si es video o imagen y usas GUICtrlCreateAvi y GUICtrlCreatepic respectivamente. :)

Si puedo mañana te hago un ejemplo.

Saludos

[iamchavo]

Por favor si me harias un ejemplo, puedo trabajar en base a ese y aprender a entenderlo!, soy mas bien visual , si veo un codigo de ejemplo me guio mejor, Gracias!!

[Dany]

Pensé en algo así. Espero te ayude.

Código: Seleccionar todo

#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{ESC}", "Salir")
HotKeySet("{RIGHT}", "Derecha")
HotKeySet("{LEFT}", "Izquierda")
HotKeySet("p", "PlayAvi")
HotKeySet("s", "StopAvi")
Local $sCarpeta = FileSelectFolder("Selecciona La Carpeta con Imagenes y Videos", "")
Local $aImagenesyVideos = _FileListToArray($sCarpeta, "*", 0, True)
Global $iIndex = 0
Global $hGUI = 0
Global $oAviPic = 0

;~ _ArrayDisplay($aImagenesyVideos)

CrearGUI()

While 1
	Sleep(100)
WEnd



Func Salir()
	If Not WinActive($hGUI) Then Return
	GUIDelete($hGUI)
	Exit
EndFunc   ;==>Salir

Func Derecha()
	Local $sRutaArchivo = ""
	If Not WinActive($hGUI) Then Return
	$iIndex -= 1
	Local $iArrayIndex = Abs(Mod($iIndex, Int($aImagenesyVideos[0]) + 1))
	If $iArrayIndex = 0 Then $iArrayIndex += 1
	$sRutaArchivo = $aImagenesyVideos[$iArrayIndex]
	ConsoleWrite("---> " & $sRutaArchivo & @CRLF)
	If StringInStr($sRutaArchivo, ".avi") Then
		CreateAvi($sRutaArchivo)
	Else
		CreatePic($sRutaArchivo)
	EndIf

EndFunc   ;==>Derecha


Func Izquierda()
	Local $sRutaArchivo = ""
	If Not WinActive($hGUI) Then Return
	$iIndex += 1
	Local $iArrayIndex = Abs(Mod($iIndex, Int($aImagenesyVideos[0]) + 1))
	If $iArrayIndex = 0 Then $iArrayIndex += 1
	$sRutaArchivo = $aImagenesyVideos[$iArrayIndex]
	ConsoleWrite("<--- " & $sRutaArchivo & @CRLF)
	If StringInStr($sRutaArchivo, ".avi") Then
		CreateAvi($sRutaArchivo)
	Else
		CreatePic($sRutaArchivo)
	EndIf

EndFunc   ;==>Izquierda

Func CrearGUI()
	$hGUI = GUICreate("Prueba", @DesktopWidth, @DesktopHeight)
	GUISetState(@SW_SHOW, $hGUI)
EndFunc   ;==>CrearGUI

Func CreateAvi($sRuta)
	If $oAviPic Then
		GUICtrlDelete($oAviPic)
		$oAviPic = 0
	EndIf
	$oAviPic = GUICtrlCreateAvi($sRuta, 0, 100, 100, 300, 300)
	ToolTip("Presione P Para Reproducir el Video y s para Detenerlo")
EndFunc   ;==>CreateAvi

Func CreatePic($sRuta)
	If $oAviPic Then
		GUICtrlDelete($oAviPic)
		$oAviPic = 0
	EndIf
	$oAviPic = GUICtrlCreatePic($sRuta, 100, 100, 300, 300)
	ToolTip("")
EndFunc   ;==>CreatePic

Func PlayAvi()
	GUICtrlSetState($oAviPic, $GUI_AVISTART)
EndFunc   ;==>PlayAvi
Func StopAvi()
	GUICtrlSetState($oAviPic, $GUI_AVISTOP)
EndFunc   ;==>StopAvi

Saludos

[iamchavo]

Muchas gracias, me sirve para guiarme y adaptarlo como necesito :) , cuando pongo un video .AVI y apreto la letra "P" , no lo reproduce, por que puede ser?
Voy a probar agregarle mas formatos aparte del .AVI a ver si puedo, y hacer que las imagenes se vean tamaño completo.
Gracias!

[Dany]

La verdad no se . luego lo miro.

Saludos