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
Session-Cookies