XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmap: Prüfen, ob die Datei ein BMP-Bitmap ist (unabhängig von der Extension)

PROC GETBMPMOD

    Parameters Fle$
    Declare Tmem#,Mem$
    Clear Mem$
    assign #1,Fle$
    OpenRW #1
    dim Tmem#,2
    BlockRead(#1,Tmem#,0,2)
    Mem$ = String$(Tmem#,0)

    If Mid$(Mem$,1,2)=BM

        return 1

    else

        return 0

    endif

    Close #1
    Dispose Tmem#

ENDPROC

cls

if GETBMPMOD(FLASCHEN.BMP)

    print Es ist ein Bitmap!

else

    print Es ist kein Bitmap!

endif

WaitInput
end