Delphi-PRAXiS - PHP: Script geht .... inzwischen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - PHP: Script geht .... inzwischen (https://www.delphipraxis.net/46584-php-script-geht-inzwischen.html)

PHP: Script geht .... inzwischen

Das funktionierende ist unten(in meinem letzten post) angehängt und kann gerne verwendet werden.

habe ein php-skript geschreiben, das mir alle bilder eines verzeichnisses in einer tabelle anzeigt.

es geht auch wunderbar, aber ab und an verschluckt es ein paar dateien, sprich zeigt nicht alle an.

hier is mal der code:

Code:

			<?php

function is_image($filename) //diese funktion sollte selbsterklärend sein. stimmt sie?

 {

  //echo "Prüfung für $filename ergab ";

  if (is_dir($filename))

   {

   //print "false\n";

    return false;

   }

  $ext=strtolower(substr($filename,-3));

  switch ($ext)

   {

    case "png":

    case "bmp":

    case "gif":

    case "wmf":

    case "jpg":

    case "peg":

     //print "true\n";

     return true;

     break;

    default:

     //print "false\n ";

     return false;

     break;

   }

 }

if (isset($_REQUEST["dir"]   ))   $dirname  = $_REQUEST["dir"]; //hier wird die var $dirname initialisiert.

 else $dirname = ".";

$dir = opendir($dirname);

if (isset($_REQUEST["height"])) $height = $_REQUEST["height"]; //noch mehr init....

if (isset($_REQUEST["width"] )) $width  = $_REQUEST["width"];

 else $width="100%";

if (isset($_REQUEST["cols"]))   $cols   = $_REQUEST["cols"];

 else if (isset($width))

  $cols= floor(400 / $width);

else $cols=4;

//print "PHP-Skript-Debug-Infos:\n$cols";  //auskommentiert, würde $cols anzeigen

readdir($dir); // . und

readdir($dir); // .. abfangen

$table_string = "<table class=\"main\">\n"; //init für den string, der später in den html-code kommt

while ( $file = readdir($dir))  //alle files werden durchlaufen

 {

  $break=false;

  $table_string .= " <tr>\n";  //eine neue zeile.....

  for ($i=0;$i<$cols;$i++)     //dieser loop liest die zeile komplett ein

   {

    $table_string .= "  <td>";

    while (! is_image($file))  //dieser loop sichert, dass in $file ein image steht 

     if (! ($file = readdir($dir)))

     { $break=true;

       break;

     }

    if ($break) break;

    $img_string = "<image src=\"$dirname/$file\" ";            //von hier...

    if (isset($height)) $img_string .= "height=\"$height\" ";

    if (isset($width )) $img_string .= "width=\"$width\" ";

    $img_string .= "alt=\"$file\">";

    $table_string .= $img_string;

    $table_string .= "</td>\n";                               //...bis hier wird der stirng erzeugt.

    $file=readdir($dir);                                      //Hö? ach ja damit wird... das is ja eins zu viel des guten... nein ist es nicht, gerade überprüft! stimmt so!

   }

  $table_string .= " </tr>\n";

 }

$table_string .= "</table>\n";

?>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

       "http://www.w3.org/TR/html4/transitional.dtd">

<html>

 <head>

  <title>Galerie</title>

 </head>

<body>

<?php echo $table_string; ?>

</body>

</html>

also, ich kann da keinen fehler finden.

ps: dir ist das verzeichnis, cols ist die anzahl der spalten. mehr braucht man nicht. einfach per get übergeben.

[edit=alcaeus][Klammern ersetzt] Mfg, alcaeus[/edit]

Re: [PHP] Script geht nicht.....

Hi,

In der Funktion is_image() steht folgendes:

Delphi-Quellcode:

			case "png":

case "bmp":

case "gif":

case "wmf":

case "jpg":

case "peg":

 //print "true\n";

return true;

break;

das geht so nicht ...
entweder schreibst Du:

Delphi-Quellcode:

			case "png":

return true;

break;

case "bmp":

return true;

break;

case "gif":

return true;

break;

case "wmf":

return true;

break;

case "jpg":

return true;

break;

case "peg":

 //print "true\n";

return true;

break;

oder einfacher:

Delphi-Quellcode:

			$arrExt = new Array('bmp','gif','jpg','png');

if(in_array($myExt, $arrExt)) return true;

Dein zweifaches readdir() (um . und .. zu filtern) solltest Du so umsetzen:
(ich habe das Bilder filtern gleich mal reingeschrieben)

Delphi-Quellcode:

			<?php 

$arrExt = new Array('bmp','gif','jpg','png');

$handle=opendir('.'); 

while ($file = readdir ($handle)) { 

    if ($file != "." && $file != "..") {

    $myExt = strtolower(substr($filename,-3));

    if(in_array($myExt, $arrExt)) echo "$file\n"; 

    } 

}

closedir($handle); 

?>

Ausserdem kann ich nur jedem raten bei der Entwicklung eines Scriptes am Anfang 'error_reporting(E_ALL);' zu notieren, denn dann hilft einem der Interpreter ungemein ...

grüsse,
hannes

Re: [PHP] Script geht nicht.....

Zitat:

Zitat von DGL-luke

es geht auch wunderbar, aber ab und an verschluckt es ein paar dateien, sprich zeigt nicht alle an.

Kannst du vielleicht mal ein Beispiel-Verzeichnis posten, in dem du den Code testest? Also so:

Code:

			dein_ordner

- das_bild.bmp

- das_bild_2.jpg

- foto.gif

usw.

Dann vielleicht noch sagen, welche Dateien es verschluckt. Nur wenn man diese Informationen hat, kann man nach dem Fehler im Code suchen. Wenn man sie nicht hat, braucht das ewig. :wink:

Edit: Es gab keine rote Nachricht. :gruebel:
@noch_ein_hannes: Das switch ist imho so ok. Man kann in der Tat mehrmals case schreiben und nachher für alle auf einmal etwas ausführen lassen. :wink: