XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafik: Maße einer nicht geladenen Bitmap aus Datei lesen
PRFellow-Vorlage
Autor: Thomas Hölzer
Maße einer nicht geladenen Bitmap aus Datei lesen
Declare size#

Proc GetBmpDimension

    Parameters bmpfile$
    Dim size#,8
    FileMode 0
    Assign #1,bmpfile$
    OpenRW #1
    Seek #1,18
    BlockRead(#1,size#,0,8)
    Close #1
    FileMode 2
    Print Maße von,bmpfile$;:
    Print Breite,Long(size#,0)
    Print Höhe,Long(size#,4)
    Dispose size#

EndProc

Beispiel
GetBmpDimension Add$($WinPath,WELLEN.BMP)
WaitInput