请问如何在VFP8.0中实现CTOBIN( LEFT( m.cPI, 4 ), 'rs' ) 相同的功能？

    m.cSI = BINTOC( 0, 'rs' ) + BINTOC( This.pcNewDesktop, 'rs' ) + REPLICATE( CHR(0), 14*4 )
    m.cSI = BINTOC( LEN( m.cSI )+4, 'rs' ) + m.cSI
     m.hProcess = CTOBIN( LEFT( m.cPI, 4 ), 'rs' )
这些代码只能在VFP9.0中实现，可我用的是VFP8.0，请问这几行代码改如何改变为VFP8.0的呢？

自己写个CTOBIN()
如
cPI=0h78563412
CTOBIN(cPI)就是 0x12345678

[此贴子已经被作者于2020-4-7 20:47编辑过]

BINTOC和CTOBIN这些函数内部的运算机制我真地是搞不懂，对我来说太深奥了，因为没有深入的学习计算机方面的专业知识。
    m.cSI = BINTOC( 0, 'rs' ) + BINTOC( This.pcNewDesktop, 'rs' ) + REPLICATE( CHR(0), 14*4 )
    m.cSI = BINTOC( LEN( m.cSI )+4, 'rs' ) + m.cSI
    m.hProcess = CTOBIN( LEFT( m.cPI, 4 ), 'rs' )
肯请版主帮忙写个VFP8.0的函数，比如函数名BTOCRS(参数)，等价于VFP9.0的BINTOC(参数,'RS')，函数名CTOBINRS(参数)，等价于VFP9.0的CTOBIN(参数,'RS')。这样上述三行代码，我就可以顺利的在VFP8.0中改成
   m.cSI = BTOCRS( 0) + BTOCRS( This.pcNewDesktop) + REPLICATE( CHR(0), 14*4 )
   m.cSI = BTOCRS( LEN( m.cSI )+4 ) + m.cSI
   m.hProcess = CTOBRS( LEFT( m.cPI, 4 ) )
本人愿意微信支付100元略表感谢！

nPI = ASC(SUBSTR(cPI,1,1));
    + ASC(SUBSTR(cPI,2,1)) * 0x100;
    + ASC(SUBSTR(cPI,3,1)) * 0x10000;
    + ASC(SUBSTR(cPI,4,1)) * 0x1000000

吹版主，您这个代码用在VFP8.0中就相当于VFP9.0中的CTOBIN(参数,'rs')对吗？

适用32位数（无符号、占4个字节）

吹版，那VFP9.0中的CTOBIN(参数,'RS')在VFP8.0中如果实现呢？

吹版，不好意思，上面写错了。应该是VFP9.0中的BINTOC(参数,'RS')在VFP8.0中如果实现呢？

自己做了函数BTOCRS(nSI)，代码如下：
lPARAMETERS nSI
LOCAL c1,c2,c3,c4
c4=CHR(INT(nSI/0x1000000))
nSI=MOD(nSI,0x1000000)
c3=CHR(INT(nSI/0x10000))
nSI=MOD(nSI,0x10000)
c2=CHR(INT(nSI/0x100))
nSI=MOD(nSI,0x100)
c1=CHR(nSI)
RETURN c1+c2+c3+c4
运行了一下btocrs(100)，返回字符d，感觉差不多