3 en ligne

Recherche

Acheter - Vendre
neuf et occasion
pda, jeux vidéo, graveur, cd vierges, dvd vierges, matériel informatique, pc, ordinateur portable, logiciel, antivirus, annonces gratuites

NewsLetter

Diaporama

Affichage automatique de photos en ASP ou en PHP

Retour de vacances... les CD de photos numériques viennent juste d'arriver et les copains veulent admirer les couchers de soleil :) Pas moyen de mettre toutes les photos dans un même dossier pour utiliser la fonction diaporama d'XP... sur chaque CD il y a une photo 001.jpg, 002.jpg, etc... faudrait toutes les renommer ou relancer le diaporama sur chaque dossier :(( alors :

Tester la démo
Version ASP - Version PHP - Questions

Préparation

Sur le bureau, un dossier photos partagé (alias PHP), et dedans plusieurs sous-dossiers, 1 par CD (pellicule)

Paramétrage

Le délai par défaut est de 5 secondes entre chaque vue à modifier éventuellement sur la ligne : <META http-equiv="refresh" content="5">

Options

Plusieurs contrôles pourraient être facilement ajoutés, par exemple :

Arrêt sur image
Retour au début du diaporama
Zoom avant/arrière,
etc...
A vous d'y réfléchir d'ici la prochaine version :)

Placer le fichier diaporama.asp dans le dossier photos et tapez dans votre navigateur http://localhost/photos/diaporama.asp

diaporama.asp
<% ' Diaporama 1.1 © D.YVER 11/05/2006

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

sub display(rep)
   dim fc,f
   set fc = FSO.getFolder(server.MapPath(rep))

   ' Lit les sous-dossiers
   for each f in fc.subfolders
      display rep & "/" & f.name
   next

   ' Lit les photos du dossier courant
   for each f in fc.files
      if instr("jpeg.jpg.gif.bmp",right(f.name,4))>0 then
         ' Déjà affichée ?
         if session("photo")=rep & "/" & f.name Then
            ' Oui alors prépare pour la suivante
            session("photo")=""
         elseif session("photo")="" then
            ' Affiche la photo
            session("photo")=rep & "/" & f.name
            exit for
         end if
      end if
   next

end Sub

display "."
%>
<HTML><HEAD>
   <TITLE>Diaporama 1.1</TITLE>
   <META http-equiv="refresh" content="<%
      If session("photo")<>"" Then response.write 5 _
      Else response.write 0%>">
</HEAD><BODY bgcolor=black><center>
   <TABLE height=100%><TR><TD align=right>
   <% If session("photo")<>"" Then %>
      <img src="<%=session("photo")%>" height=400><br>
      <font size=1 color=white>
         <%=Mid(session("photo"),InstrRev(session("photo"),"/")+1)%>
      </font>
   <%End if%>
   </TD></TR></TABLE>
</BODY></HTML>

Placer le fichier diaporama.php dans le dossier photos et tapez dans votre navigateur http://localhost/photos/diaporama.php

diaporama.php

<? // Diaporama 1.0 © D.YVER 05/07/2002
session_register("photo");

function display($rep,$niv) {
   global $photo;
   $dir = opendir($rep);

   if($niv>0) {
      // Lit les sous-dossiers
      while ($f = readdir($dir))
         if($f!="." && $f!=".." && !is_file($rep."/".$f))
            display($rep."/".$f,$niv-1);
      // Si fini, on recommence...
      if($photo=="") display($rep,$niv);
   }

   while ($f = readdir($dir)) {
      // Lit les photos du dossier courant
      if(is_file($rep."/".$f))
         if(strpos("jpeg.jpg.gif.bmp",substr($f,-4))) {
            // Déjà affichée ?
            if($photo == $rep."/".$f) {
               // Oui alors prépare pour la suivante
               $photo = "";
            } elseif($photo == "") {
               // Affiche la photo
               $photo = $rep."/".$f;
               echo $photo;
               break;
            }
         }
   }

   closedir($dir);
}
?>
<HTML><HEAD>
   <TITLE>Diaporama 1.0</TITLE>
   <META http-equiv="refresh" content="5">
</HEAD><BODY bgcolor=black><center>
   <TABLE><TR><TD align=right>
      <img src="<? display(".",1); ?>" height=600><br>
      <font size=1 color=white><? echo $photo; ?>
   </TD></TR></TABLE>
</BODY></HTML>

diaporama-1_1.php

<?php // Diaporama 1.1 © D.YVER 22/12/06
session_start();

function display($rep,$niv) {
   $dir = opendir($rep);

   if($niv>0) {
      // Lit les sous-dossiers
      while ($f = readdir($dir))
         if($f!="." && $f!=".." && !is_file($rep."/".$f))
            display($rep."/".$f,$niv-1);
      // Si fini, on recommence...
      if(!@$_SESSION["photo"]) display($rep,$niv);
   }

   while ($f = readdir($dir)) {
      // Lit les photos du dossier courant
      if(is_file($rep."/".$f))
         if(strpos("jpeg.jpg.gif.bmp",substr($f,-4))) {
            // Déjà affichée ?
            if(@$_SESSION["photo"] == $rep."/".$f) {
               // Oui alors prépare pour la suivante
               $_SESSION["photo"] = "";
            } elseif(@$_SESSION["photo"] == "") {
               // Affiche la photo
               $_SESSION["photo"] = $rep."/".$f;
               echo $_SESSION["photo"];
               break;
            }
         }
   }

   closedir($dir);
}
?>
<HTML><HEAD>
   <TITLE>Diaporama 1.0</TITLE>
   <META http-equiv="refresh" content="5">
</HEAD><BODY bgcolor=black><center>
   <TABLE><TR><TD align=right>
      <img src="<?php display(".",1); ?>" height=600>
      <br /><font size=1 color=white>
     <?php echo @$_SESSION["photo"]; ?></font>
   </TD></TR></TABLE>
</BODY></HTML>

Allez zou... le portable sur la table, les copains agglutinés autour... le bar est libre :)

Pour pouvoir écrire dans ce forum, identifiez-vous !

Lire 01/10/2007 de fourniey

Même pour moi, pas moyen de voir les photos. Je vo...

v1.3p © ASP-PHP.net 2002

Didier le 22/12/2006 (160 619 hits)

Téléchargez gratuitement !!!

7 logiciels illimités dont Visual Studio Pro et SQL Server 2005 !

SQL Server 2008 ß !

[gratuit] 11-12-13 février
les MS TechDays 2008 !!!

Au fil des news

Dreamweaver CS3 + XML + Ajax - Création d'une région détail
Dans cet article, je vais vous montrer comment utiliser la technique région détail, avec Spry

PHP - joli arborescence dynamique

Magazines - Le N°104 de Programmez est disponible

PHP - PhPBB 3.0.0 !!!

[MAJ] Université de Sherbrooke - située dans un beau coin du Québec, l'Estrie...
- Ajout du programme d'imagerie et de médias numérique - Le département de mathématiques et ...

Magazines - Le N°103 de Programmez est disponible

PHP - Calcul jours ouvrables entre dates, gestion fériés

PHP - WampServer 2.0, la nouvelle version de WAMP5 !

SharePoint 2007 et Workflows Designer - Part 2 - Modifions un workflow dans SharePoint 2007
Dans la première partie, nous avons vu comment créer un WorkFlow dans MOSS avec SharePoint ...

Modifier le ruban de Word 2007 avec Open XML -
Open XML est un format de document bureautique flexible : structure basée sur l'Open Packaging ...

La corbeille de SharePoint 2007 - Fonctionnement de la corbeille de SharePoint 2007
Une des nouveautés de SharePoint 2007 est la mise en place de la corbeille pour chaque site. Il est ...

SharePoint 2007 et Workflows Designer - Part 1 - Créer un workflow simple dans SharePoint 2007
L'automatisation de Workflows, ou Flux de travail, résulte d'une volonté d'amélioration de ...

CSS - Dégradé de couleur

Magazines - Le N°102 de Programmez est disponible

Dreamweaver CS3 + Mysql - Formulaire de redirection
Suite au coup de pouce de DB77, je vous propose ce petit script pour améliorer vos pages Internet. ...

[MAJ] Tutoriel AJAX simple - En avant vers le WEB2.0
Mis à jour le 26/10/2007

Magazines - Le Hors-Série .Net de Programmez est disponible

LINQ et vous - Part 2 - Le .NET Framework 3.5 décortiqué !
Ce nouvel article fait suite à mon premier article de cette nouvelle collection « LINQ et vous ». ...

Présentation des KPI dans SharePoint - Présentation des KPI dans SharePoint 2007
Nous verrons au travers de cet article une présentation détaillée de ce qu'est un KPI et dans quel ...

LINQ et vous - Part 1 - Evolutions du .NET Framework - Visual Studio 2008
Voilà plus d'un an que je n'ai plus posté d'articles sur ma communauté préférée. Il était temps ...

Agenda - 21-22 novembre : Le Forum PHP 2007 !

Microsoft - Essayez gratuitement MS Expression Studio !!!

Les Utilisateurs dans SharePoint - La gestion des utilisateurs dans SharePoint
SharePoint dont le coeur est l'outil collaboratif, Windows SharePoint Services. Chaque utilisateur ...

Magazines - Le N°101 de Programmez est disponible

Hebergement - hébergement de forum gratuit - créer un forum.

Revue de presse - Nouvelle mise à jour chez Adobe

PHP - import csv vers bdd avec verification

PHP5 - Csv2array

PHP - Framework PHP5 - PoppyFramework

Le Moteur de Recherche de MOSS 2007 - Installer le moteur de recherche de MOSS 2007
Nous avons vu dans un précédent article comment mettre en place le moteur de recherche dans un site ...

PHP5 - incrementation alphanumerique

Magazines - Le N°100 de Programmez est disponible

Agenda - Adobe vous donne rendez-vous du 4 au 9 septembre..

ABAP leçon 1 : Les variables - Auteur : Jerome Fortias
je me devais de continuer mon travail de vulgarisation à SAP. En parallèle à mon site destiné aux ...

Agenda - Nov 2007 : Les TechEd Developers à Barcelone !

Microsoft - Vista SP1 et XP SP3 pour bientôt !

Le Moteur de Recherche de WSS V3 - Installer le moteur de recherche de WSS V3
Parmi les évolutions de Windows SharePoint Services V3, on trouve le moteur de recherche. Nous ...

PHP - array2xml convertie un array en xml

Revue de presse - Flash Player 9 Update beta

PHP5 - class Timer - ajouter/enlever du temp au time unix

Partitions gratuites à la demande !ARTVOILA - ArtVoila! Un lieu pour découvrir les Arts ...Carte, plan et informations sur les communes de France