Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
BMP Reader V1.0
| Uploader: |  AndT |
| Datum/Zeit: | 13.01.2008 12:11:10 |
' Dieser kleine Code liese nahezu alle Bmp Dateien.
' Es spiel dabei keine rolle ob 16, 256 oder mehr Farben.
' Wenn das entsprechende Bild fehlerhaft sein könnte, wird wird eine mögliche Ursache angegeben.
' Anstelle das Programm verrecken zu lassen.
' Programmed by AndT
#include "fbgfx.bi"
dim as string Imagefile
Input "Bild(BMP): ";Imagefile
dim as ubyte FF = FREEFILE
dim as integer resx,resy,smallimage,depth
dim as short bmpid,col
open Imagefile for input as #FF
IF LOF(FF) = 0 then
Print "Fehler: ";"Datei konnte nicht geladen oder gefunden werden!"
close #FF
sleep
end
end if
open Imagefile for binary as #FF
get #FF ,,bmpid ' BMPChecksum (BM)
get #FF,19,resx
get #FF,23,resy
get #FF,29,col
close #FF
if bmpid <> 19778 then Print "Fehler: Dies ist keine BMP Datei!":sleep:end
If Resx > 5000 or Resy > 5000 or Resx < 0 or Resy < 0 then
Print "Fehler: Dieses Bild ist zu gross!"
close #FF
sleep
end
end if
if resx * resy < 76800 then
Print "Fehler: Zu kleines Bild! Benutzte 320x240..":smallimage = 1
else
print resx
print resy
end if
depth = col
if smallimage = 1 then screenres 320,240,depth else screenres resx,resy,depth
Dim As FB.Image Ptr myImg = ImageCreate (resx+1, resy+1)
BLOAD Imagefile,myImg
put(1,1),myImg
sleep