pic2html - Der hardcore Test für euren Browser!!

[Lukaso]

Hallo,

mir war gerade mal bissle Langweilig, habe daher einen quicky Programmiert. Das Programm wandelt Bilder in HTML Code um, da ist es keine seltenheit, dass der Code mehrere Megabyte groß ist. Daher ein Optimaler Stresstest für euren Browser!!
Sinn macht das Programm eigentlich nicht.

Code: Alles auswählen

Neue Version -> Siehe unten!

Danke und viel Spaß beim Testen

Lukaso

[125]

LOL
habs gerade auf das Beispielbild Blaue berge von XP laufen lassen danach warns Berge mit vielen Roten,grünen und blauen Blümchen

Und beim Laden wär der arme Opera fast verreckt.

aber sonst echt Fett das tool!

[Lukaso]

Habe den Fehler mit den Farben behoben

Code: Alles auswählen

; Author: Lukas 'Lukaso' Niewalda
; File: pic2html.exe

Procedure.s GetColorCode(color)
  ProcedureReturn "#" + RSet(Hex(Red(color)), 2, "0") + RSet(Hex(Green(color)), 2, "0") + RSet(Hex(Blue(color)), 2, "0")
EndProcedure

UseJPEGImageDecoder()
UsePNGImageDecoder()

file$ = OpenFileRequester("Bitte Bild zum Laden auswählen", "", "Images|*.bmp; *.jpg; *.jpeg; *.png", 0)

savefile$ = SaveFileRequester("Bitte Speicherort auswählen", "pic2html.html", "HTML-Dokument|*.html", 0)

If file$ And savefile$
  
  img = LoadImage(1, file$) 
  h = ImageHeight()
  w = ImageWidth()
  
  OpenFile(1, savefile$)
  
  WriteStringN("<style type='text/css'><!-- .a { height: 1px; width: 1px; } --></style>")
  
  WriteStringN("<table border=0 cellspacing=0 cellpadding=0>")
  
    StartDrawing(ImageOutput()) 
    
      For picx = 1 To w
      
        WriteStringN("<tr>")
      
        For picy = 1 To h
          
          p = Point(picy, picx)
           
          WriteStringN("<td bgcolor=" + GetColorCode(p) +" class=a></td>")
          
        Next
        
        WriteStringN("</tr>")
        
      Next
    
      StopDrawing()
      
    WriteStringN("</table>")
  
  CloseFile(1)
    
EndIf

MFG Lukaso

PS: Warum werden die Bilder abgeschnitten? Danke für die Hilfe