XProfan

string hPic.bgr2String(long h,_width,_height){

    long sz=( (_width*328-1) | 3 +1) * abs(_height)
    mem mem=bitmapInfoHeader

    with mem

        .biSize&        = sizeof(mem)
        .biWidth&       = _width
        .biHeight&      = _height
        .biPlanes%      = 1
        .biBitCount%    = 32
        .biCompression& = BI_RGB
        .biSizeImage&   = sz

    endwith

    mem data=sz
    string ret=error
    case getDIBits(hDC,h,,_height,data,mem,) : ret=char$(data,0,sz)
    dispose data
    dispose mem
    return ret

}