GD - Fehler in erzeugten Gif-Files (solved) (Fragen zu Perl-Modulen)

[thread]16280[/thread]

GD - Fehler in erzeugten Gif-Files [solved]

Tags: GD Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+13 replies
KKO

2011-05-11 23:01
User since
2003-11-05
124 articles
BenutzerIn
Hallo miteinander,
kann sein, dass mir irgendwo eine Info entwischt ist ...

Versuche seit Stunden in einer Schleife Gif-Images zu erstellen.
Die Image-Files werden erzeugt, aber der Inhalt ist bei einigen nicht so wie er sein soll. (verzerrt, verstreut, fehlend)
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use warnings; use strict; use GD; my $x = 36; my $y = 21; my @arr=("2","3","4","5","6","7","8","9"); for(my $i = 0; $i <= $#arr; $i++) { my $image = new GD::Image($x,$y); my $white = $image->colorAllocate(255,255,255); my $red = $image->colorAllocate(255,0,0); my $black = $image->colorAllocate(0,0,0); $image->filledRectangle(0,0,35,20,$white); $image->string(gdGiantFont,2,1,$arr[$i],$red); $image->string(gdGiantFont,17,1,$arr[$i],$black); my $outimage = $image->gif(); open FILE,"> $arr[$i]h.gif"; print FILE $outimage; close FILE; }
Bei ein paar kleinen Änderungen machen sich die "Fehler" in anderen Image-Dateien bemerkbar.
Bin für jeden Tipp dankbar.
Gruß
KKO
- +7 replies
- topeg
  
  2011-05-11 23:37
  User since
  2006-07-10
  2611 articles
  BenutzerIn
  bei mir funktioniert es:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
  
  #!/usr/bin/perl use warnings; use strict; use GD; my $width = 36; my $height = 21; my $file='images/%uh.gif'; for my $i (2..9) { my $image = GD::Image->new($width,$height); my $white = $image->colorAllocate(255,255,255); my $red = $image->colorAllocate(255,0,0); my $black = $image->colorAllocate(0,0,0); $image->filledRectangle(0,0,35,20,$white); $image->string(gdGiantFont,2,1,$i,$red); $image->string(gdGiantFont,17,1,$i,$black); my $f=sprintf($file,$i); print "WRITE: $f\n"; open(my $fh, '>:raw', $f) or die("ERROR open $f ($!)\n"); print $fh $image->gif(); close($fh); }
  
  Sofern du die Zahlen 2 bin 9 einmal in rot und einmal in schwarz auf weißen Grund haben willst.
  - +5 replies
  - KKO
    
    2011-05-12 00:59
    
    User since
    2003-11-05
    124 articles
    BenutzerIn
    
    Hallo topeg,
    
    bei funktioniert es nicht .. und keine Ahnung wieso ????
    
    Habe mal das Image, welches "4 4" zeigen soll, zu meinem Avatar gemacht.
    (nix gefunden, wo man ein image im Posting einfügen kann).
    
    Und das ist merkwürdigerweise von den 8 Images .. auch bei "7 7".
    Bei "5 5" ist sogar nichts zu sehen.
    
    Gruß
    KKO
    - +4 replies
    - topeg
      
      2011-05-12 01:17
      
      User since
      2006-07-10
      2611 articles
      BenutzerIn
      
      Welches OS nutzt du?
      Wie hast du GD und/oder das GD-Modul installiert?
      
      Es könnt sein, dass das Modul gegen eine andere GD Version kompiliert worden ist als welche die vorhanden ist.
      - +2 replies
      - KKO
        
        2011-05-12 01:37
        
        User since
        2003-11-05
        124 articles
        BenutzerIn
        
        Strawberry auf WinXP, GD Vers. 2.46
        
        habe es auch mal mit png-Files versucht .. sind aber alle buggy
        
        Gruß
        KKO
        
        bianca
        
        2011-05-12 07:42
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2011-05-11T23:37:21 KKO
        Strawberry auf WinXP, GD Vers. 2.46
        
        Ich meine mich ganz dunkel zu erinnern, dass ich mit der neuesten GD Version auf Windows auch mal Probleme hatte. Ich glaube sogar es gibt einen Thread dazu, konnte ihn aber bisher nicht finden. Die Suche hier bereitet mir noch Probleme.....
        Wenn es nich allzuviel Aufwand für dich ist, empfehle ich, mal die 2.38 zu installieren und damit nochmal zu versuchen. Ich schaue mal, ob ich das noch finde.
        
        Edit:
        Auf http://static.cpantesters.org/distro/G/GD.html findet man etwas dazu. Leider nichts zur 2.38. Aber die 2.40 sieht in der Summary am besten aus von den neueren Versionen. Leider steht bei Windows meistens unknown, wenn es überhaupt dabei ist.
        
        Na ja, bei mir klappt topeg's Code mit der GD 2.38 fehlerfrei, vielleicht hilft dir das.
        
        Edit 2:
        Hab auch jetzt den Thread gefunden, hatte mich aber falsch erinnert. Es ging damals um GD::Graph::pie und ein Problem mit Active State Perl und eine DLL Version. Hilft hier also nicht weiter.
        Last edited: 2011-05-12 08:03:01 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
      - KKO
        
        2011-05-12 01:45
        
        User since
        2003-11-05
        124 articles
        BenutzerIn
        
        eigentlich sollen das Pokerkarten-Darstellungen im Miniformat werden (siehe neues Avatar, das ist eines von denen die o.k. sind).
        Gruß
        KKO
  - bianca
    
    2011-05-12 07:18
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2011-05-11T21:37:55 topeg
    bei mir funktioniert es:
    
    Das hier funktioniert bei mir auf Win auch einwandfrei. Scheint also nicht an Windoof zu liegen.
    10 print "Hallo"
    20 goto 10
- bianca
  
  2011-05-12 07:16
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Hab dein Code mal bei mir auf Win 7 mit Strawberry 5.1 und GD::Image 2.38 versucht, die 4, 5 und 7 sind bei mir auch kaputt/verzerrt. Der Rest sieht gut aus.
  10 print "Hallo"
  20 goto 10
- +4 replies
- GwenDragon
  
  2011-05-12 08:16
  User since
  2005-01-17
  14835 articles
  Admin1
  Du hast für das Dateihandle nicht auf den binären Modus mit binmode geschaltet, der unter Windows bei Binärdateien notwendig ist.
  Ich kann die zerstörten Gifs mit deinem Code bei mir nachvollziehen (mit GD 2.46).
  
  Abhilfe gibt's.
  Nach Zeile 15 einfügen:
  
  Code (perl): (dl )
  
  binmode FILE;
  
  Dann sind die Gifs in Ordnung.
  Last edited: 2011-05-12 08:24:20 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - KKO
    
    2011-05-12 15:03
    
    User since
    2003-11-05
    124 articles
    BenutzerIn
    
    Da es - wie geschrieben wurden - laufen muss habe ich mir @inc angeschaut:
    D:\strawberry\perl\lib
    D:\strawberry\perl\site\lib
    C:\strawberry\perl\vendor\lib
    
    Im Endeffekt scheint es daran gelegen zu haben.
    (unterschiedliche Versionen auf den Laufwerken)
    Nachdem das bereinigt wurde sind die Gifs einwandfrei.
    
    @bianca: mit binmode hatte ich es zuvor auch ausprobiert - ohne Erfolg.
    Aber klar - muss gesetzt werden!!
    
    DANKE an Alle!!
    
    Gruß
    KKO
    - bianca
      
      2011-05-12 15:23
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2011-05-12T13:03:55 KKO
      DANKE an Alle!!
      
      GwenDragon hatte den Tipp mit binmode, nicht ich.
      Ich war das mit den Versionen, was ja anscheinend zufällig auch nicht ganz daneben war :)
      Also auf den falschen Beitrag geantwortet oder die Namen falsch, wie man will.
      
      Macht nichts, Hauptsache es läuft.
      10 print "Hallo"
      20 goto 10
    - GwenDragon
      
      2011-05-12 16:15
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Auch 'ne Methode zur besseren Verwirrung, wenn man inkompatible Perl-Versionen installiert und das nicht korrekt einrichtet, dass sie nebeneinander laufen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-05-11 23:01.