Enlaces
Tuesday, July 31, 2012, 06:35 PM - Php
Con este script php se puede cargar un archivo MID en forma aleatoria , cada ves que se recarga la pagina el archivo midi va cambiarsolo se tiene que modificar el titulo que mejor nos paresca y la ubicacion de la carpeta donde estan los midis , este script ahora esta guardando en la carpeta midis
random_mid.php
<html>
<head>
<title>Bienvenidos !</title>
</head>
<?php // Joue midi v1.1 joue des fichiers midi de manière aléatoire
// Testé sur IE (4.01) et Netscape (3.01).
$repertoire='./midis/'; // Nom du répertoire contenant les fichiers midi
$compteur=0; // Initialisation du compteur de fichier midi
$handle=opendir($repertoire); // Ouverture du répertoire.
while ($fichier = readdir($handle)) // Lecture de tous les fichiers du repertoires.
{
if (strlen($fichier)>3) // On ne lit que les fichiers de plus de 3 caracteres.
{$extension= strtolower(substr( strrchr( $fichier, "." ), 1 )); // On recupère l'extension du fichier
if ($extension=="mid") // Seule les fichiers ayant une extension .mid
{ $compteur++; // sont des fichiers midi :))
$fichmidi[$compteur]=$fichier;
}
}
}
closedir($handle);
if ($compteur>0) // Avons-nous au moins un fichier ??
{srand((double)microtime()*1000000); // Si oui, on en prends un au hasard.
$aleatoire=rand(1,$compteur);
if (ereg("MSIE", $HTTP_USER_AGENT)) // L'ecplorateur est-il Internet explorer ??
{
echo "<bgsound src='$repertoire$fichmidi[$aleatoire]' LOOP=INFINITE>";} // Si oui instruction miracle IE
else
{
echo "<EMBED src='$repertoire$fichmidi[$aleatoire]' AUTOSTART=true HIDDEN=true loop=true></EMBED>";} // Si non, instruction miracle Netscape.
}
?>
</body></html>funciona en explorer y con firefox pide un plugins