XProfan

proc getBmpSizeByHeader

    parameters fle$
    declare fh&,tmem#,mem$
    clear mem$
    fh&=fopen(fle$,b)

    if fh&

        mem$=fgets(fh&,54)
        fclose fh&

        if mid$(mem$,1,2)==BM

            dim tmem#,54
            clear tmem#
            tmem#=addr(mem$)
            mem$=str$(long(tmem#,18))+,+str$(long(tmem#,22))
            dispose tmem#

        endif

    endif

    return mem$

endproc