[..] Détection de video en streaming avec VIsta
Posté : jeu. 16 juil. 2009 21:49
Bonsoir a vous tous ! Voilà maintenant que j'ai développé mon scripte pour plusieurs utilisateur il se trouve que il ont un problème lors de l'utilisation de mon scripte sur Vista. Sur Xp pas de problème a la fin de chargement de la vidéo tous se passe comme prévus, mais pas pour Vista. A mon avis sa doit être une histoire de dossier qui change ou de sécurité a désactivé sur Vista. Voilà le code de détection des videos dans mon scripte.
Comment remédier a ce problème de compatibilité ?
Merci de me répondre.
Code : Tout sélectionner
Func detecteNouveauChargement() ; Contrôle de chargement des vidéo dans le dossier temporaire de Mozila Firfox
Local $i, $fFlaTmp
Local $dateCreation, $dateFichier, $dateActuelle
$dateActuelle = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
While 1
$fFlaTmp = _FileListToArray(@TempDir, "fla*.tmp", 1)
If Not @error Then
For $i = 1 To $fFlaTmp[0]
$dateCreation = FileGetTime(@TempDir & "\" & $fFlaTmp[$i], _
1, _ ; date création
1) ; format YYYYMMDDHHMMSS
; si un nouveau fichier fla*.tmp a été créé alors on sort des boucles
If $dateCreation > $dateActuelle Then ExitLoop 2
Next
EndIf
Sleep(250)
WEnd
; retourne le nom du fichier en chargement
Return $fFlaTmp[$i]
EndFunc ;==>detecteNouveauChargement
Func detecteFinChargement($nomFichier, $tailleFichier)
Do
Sleep(250)
Until FileGetSize(@TempDir & "\" & $nomFichier) = $tailleFichier
EndFunc ;==>detecteFinChargementMerci de me répondre.
Cordialement JIF,