Grafikausgabe klappt nicht, oder doch?

[Rolf]

Hi LEX und Robert,

nochmal ausführlich:

---Bild zum Browser schicken---
#!perl

$bilddatei = 'd:/bilder/ahorn.jpg';
$teilbildgroesse = 1024;    
open(BILD, $bilddatei);

Den Header senden...

print "Content-type: image/gif\n\n";

print "Content-type: image/jpeg\n\n"; # <- Oder den...

binmode(BILD); # Hier ist der Knackpunkt!
binmode(STDOUT);

while(read(BILD, $teilbild, $teilbildgroesse)) {
print $teilbild;
}
close(BILD);
---eof---

Mit Hilfe der read() Funktion wird das Image also häppchenweise zum Browser geschickt, naja vielleicht klappts damit.

Viele Grüße, Rolf