Code: Alles auswählen
If OpenFile(0,OpenFileRequester("Öffnen","","BMP|*.bmp|All|*.*",0)) = 0
Debug "Konnte nich öffnen!"
End
EndIf
If ReadWord() <> 19778 ;"BM"
Debug "Kein BMP File!"
End
EndIf
Debug "Size: "+Str(ReadLong())+" Byte"
If ReadWord() <> 0 Or ReadWord() <> 0
Debug "Error! bfReserved isn't 0"
End
EndIf
Debug "Size of Headers: "+Str(ReadLong())+" Bytes" ; 54
Debug "Size of the Structure: "+Str(ReadLong())+" Bytes" ; 40
XSize = ReadLong()
YSize = ReadLong()
Debug "Image Width: "+Str(XSize)+" Pixels"
Debug "Image Height: "+Str(YSize)+" Pixels"
Debug "BitPlanes: "+Str(ReadWord())
Debug "Resolution: "+Str(ReadWord())
Debug "Compression: "+Str(ReadLong())
Debug "Size of Image: "+Str(ReadLong())
Debug "Pixels per Meter X: "+Str(ReadLong())
Debug "Pixels per Meter Y: "+Str(ReadLong())
Debug "Colors Used: "+Str(ReadLong())
Debug "Important Colors: "+Str(ReadLong())
CreateImage(0,XSize,YSize)
; Structure prgb
; re.b
; gr.b
; bl.b
; EndStructure
; Dim Pic.prgb(XSize-1,YSize-1)
StartDrawing(ImageOutput())
For y = 0 To YSize-1
For x = 0 To XSize-1
Blue = ReadByte()&$FF
Green = ReadByte()&$FF
Red = ReadByte()&$FF
Plot(x,YSize-y-1,RGB(Red,Green,Blue))
; Pic(x,YSize-y-1)\re = Red-128
; Pic(x,YSize-y-1)\gr = Green-128
; Pic(x,YSize-y-1)\bl = Blue-128
; Debug Red
; Debug Green
; Debug Blue
Next
Next
StopDrawing()
If SaveImage(0,"Test.bmp") = 0
Debug "Fehler beim speichern!"
End
EndIf
Debug "Fertig"Code: Alles auswählen
Blue = ReadByte()&$FF
Green = ReadByte()&$FF
Red = ReadByte()&$FF