XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps: Größe eines Bitmaps ermitteln (aus Datei)
Declare size#

Proc GetBmpDimension

    Parameters bmpfile$
    Dim size#,8
    Assign #1,bmpfile$
    OpenRW #1
    Seek #1,18
    BlockRead(#1,size#,0,8)
    Close #1
    Print Breite,Long(size#,0)
    Print Höhe,Long(size#,4)
    Dispose size#

EndProc

Beispiel
GetBmpDimension Add$($WinPath,WELLEN.BMP)	 Pfad und Dateinamen ggf. anpassen
WaitInput
print
GetBmpDimension Add$($WinPath,SETUP.BMP)	 Pfad und Dateinamen ggf. anpassen
WaitInput