Página 1 de 1
Seleccionar imagenes y videos de una carpeta
Publicado: 29 Abr 2015, 17:25
por 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!
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 29 Abr 2015, 23:51
por Dany
La verdad no entiendo. quieres que se vean y se puedan mover estilo powerpoint?
Saludos
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 00:35
por 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.
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 01:22
por 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
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 03:27
por 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!!
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 16:35
por 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
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 19:48
por 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!
Re: Seleccionar imagenes y videos de una carpeta
Publicado: 30 Abr 2015, 21:19
por Dany
La verdad no se
. luego lo miro.
Saludos