PureBoard

Verfasst: **28.03.2005 22:20**

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

Verfasst: **28.03.2005 22:26**

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!

Verfasst: **29.03.2005 12:43**

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

PureBoard

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

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