[R] DLL, AVI, et Vidéo dans une fênetre

[DJSIR]

Bonjour. Je viens vous demander une petite question, j'ai une vidéo, et je veux la mettre dans une DLL pour l'animer dans une fênetre AutoIt.
Le problème c'est que la vidéo n'est pas dans le bon format (pourtant conteneur avi).

J'ai suivi le tuto de Tlem à la lettre, sans succés
J'ai aussi suivi un bout de code pour inclure de l'avi dans une gui mais sans succés

Je m'adresse a Tlem particulièrement, peux tu me faire une DLL avec ma vidéo STP...

lien : http://djsir.free.fr/uploads/aperture.avi.AVI

[jumby]

Je t'ai créé ta dll.

Information de ta dll :
Resource name : VIDEO1
Resource type : AVI

[DJSIR]

Merci, comment as-tu fait ?


edit :mais cela ne marche pas

► Afficher le texte

Code : Tout sélectionner

#Region Variables

#cs ----------------------------------------------------------------------------

Nom du script : start.au3
Principe : Permet de lancer la suite logicielle Aperture avec un ou plusiuers paramètres.
Auteur : DJSIR

#ce ----------------------------------------------------------------------------

#AutoIt3Wrapper_icon=framakey.ico
#AutoIt3Wrapper_outfile=start.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Cette application permet de lancer la suite logicielle Aperture avec plusieurs paramètres.
#AutoIt3Wrapper_Res_Description=Aperture Launcher
#AutoIt3Wrapper_Res_Fileversion=0.0.0.12
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include "GuiCtrlSetOnHover_UDF.au3"
#include <GUIConstants.au3>
#include <IE.au3>

#EndRegion Variables



SplashImageOn("",@ScriptDir & "\Framakey\splash.jpg",360,240,-1, -1,1)
Sleep(1500)
SplashOff()
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
$Form1 = GUICreate("Aperture", 501, 501)

$openracine = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openracine.jpg", 8, 8, 233, 121)
_GUICtrl_SetOnHover($openracine, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openracine, "Windows Explorer")

$openkiosk = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openkiosk.jpg", 256, 8, 233, 121)
_GUICtrl_SetOnHover($openkiosk, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openkiosk, "Framakiosk")

Dim $InetActive = Ping("www.google.com")
If Not $InetActive > 0 Then
$openamsn_off = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openamsn_off.jpg", 8, 173, 233, 121)
GUICtrlSetTip($openamsn, "aMSN")
Else
$openamsn = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/openamsn.jpg", 8, 173, 233, 121)
_GUICtrl_SetOnHover($openamsn, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($openamsn, "aMSN")
EndIf

$opendata = GUICtrlCreatePic("Apps/Aperture_Apps/ressources/opendata.jpg", 256, 173, 233, 121)
_GUICtrl_SetOnHover($opendata, "_Hover_Func", "_Hover_Func")
GUICtrlSetTip($opendata, "Windows Explorer")

$hAvi1 = GUICtrlCreateAvi ( "video.dll", "VIDEO1", 8, 344, 481, 145)  ; Mise en place élément AVI

;GUICtrlCreatePic("Apps/Aperture_Apps/ressources/aperturelogo.jpg", 8, 344, 481, 145)
GUICtrlCreateLabel("Ouvrir la racine de la clé Aperture", 8, 136, 161, 17)
GUICtrlCreateLabel("Ouvrir le Framakiosk et le Framalauncher", 256, 136, 216, 17)
GUICtrlCreateLabel("Lancer aMSN", 8, 302, 68, 17)
GUICtrlCreateLabel("Ouvrir le dossier des documents", 256, 302, 154, 17)
GUISetState(@SW_SHOW)

GUICtrlSetState($hAvi1, 1)  ; Activation de l'animation de l'élément AVI

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $openracine
Run("explorer " & @ScriptDir)   
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $openkiosk
Run("startfk.exe")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $openamsn
Run(@ScriptDir & "\Apps\PortableaMSN\PortableaMSN.exe")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
case $opendata
Run("explorer " & @ScriptDir & "Data")
SplashImageOn("",@ScriptDir & "\Framakey\splash_chargement.jpg",360,240,-1, -1,1)
Sleep(300)
SplashOff()
Exit
EndSwitch
WEnd

#Region Fonctions
Func _Hover_Func($iCtrlID, $iParam)
$iopenracine = $openracine
$iopenkiosk = $openkiosk
$iopenamsn = $openamsn
$iopendata = $opendata
Switch $iCtrlID
Case $openracine
GUICtrlSetImage($iopenracine,"Apps/Aperture_Apps/ressources/openracine_hover.jpg")
Case $openkiosk
GUICtrlSetImage($iopenkiosk,"Apps/Aperture_Apps/ressources/openkiosk_hover.jpg")
Case $opendata
GUICtrlSetImage($iopendata,"Apps/Aperture_Apps/ressources/opendata_hover.jpg")
Case $openamsn
GUICtrlSetImage($iopenamsn,"Apps/Aperture_Apps/ressources/openamsn_hover.jpg")
EndSwitch

If $iParam = 2 Then
GUICtrlSetImage($openracine, "Apps/Aperture_Apps/ressources/openracine.jpg")
GUICtrlSetImage($openkiosk, "Apps/Aperture_Apps/ressources/openkiosk.jpg")
GUICtrlSetImage($openamsn, "Apps/Aperture_Apps/ressources/openamsn.jpg")
GUICtrlSetImage($opendata, "Apps/Aperture_Apps/ressources/opendata.jpg")
EndIf
EndFunc 


Func _GifSet($s_gif, ByRef $pwidth, ByRef $pheight)
If FileGetSize($s_gif) > 9 Then
Local $sizes = FileRead($s_gif, 10)
ConsoleWrite("Gif version: " & StringMid($sizes,1,6) & @LF)
$pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
$pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
ConsoleWrite($pwidth & " x " & $pheight & @LF)
EndIf
EndFunc
#EndRegion Fonctions

$hAvi1 = GUICtrlCreateAvi ( "video.dll", "VIDEO1", 8, 344, 481, 145) ; Mise en place élément AVI

[jumby]

Utilise le fichier RDG.exe
Il te permettra de créer de manière très simple tes dll.

[DJSIR]

La vidéo ne s'anime pas ! et n'apparait meme pas

[jumby]

La fonction GUICtrlCreateAvi ne permet pas d'accéder aux ressources vidéo contenu dans une dll.

Il te faudra passer par un autre script pour parvenir à tes fins (si il existe...).

[ani]

Regarde l'exemple fourni par GUICtrlCreateAvi(dll,id,....)

As-tu tapé le mot AVI dans la recherche de l'aide d'Au3 ?
Normalement dans la partie U(ser)D(efined)F(unctions) tu dois apercevoir GuiAvi management et autant d'exemple

bonne continuation

[DJSIR]

oui, c'etait un problème de codec dans la vidéo. il faut enlever la compression !