变量溢出引发的错误

admin 2019-7-22 144

前几天II型隧道广告由于安装位置由边墙调整到中墙,这一改动相当于列车到来的方向发生了逆转,程序需要改动才能适应这种情况。worker_1983网友曾留言说,“还好地铁只是朝一个方向开.如果反着开可就有意思了”,可谓一针见血,不过对我们来说不是有意思,麻烦大了。

在改动方面,其实对软件来说改动量不大,仅对下载的数据有一定调整,由于早期的程序用VB开发(唉,已经几年没用VB编写程序了,代码看起来很亲切),倒是在哪里插入这段代码费了我不少时间(由此想到了一个流传甚广的小故事,一个有名的工程师解决电机问题后,面对别人的质问时说,画一根线一美元,知道在哪里画需要999美元)。

程序很简单,如下:

Public Sub PicData(bytData() As Byte)
    … … 
    '------------------------------------------------
   Const intDataSize = 6144 'G_PicWidth * 24
    Dim bytData3(intDataSize) As Byte
    Dim bytData6(intDataSize) As Byte    
    On Error GoTo ToExit '打开错误陷阱

    '第3块数据缓存
    CopyMemory bytData3(0), bytData(intDataSize * 3), intDataSize
    '第5块数据移到第3块位置
    CopyMemory bytData(intDataSize * 3), bytData(intDataSize * 5), intDataSize
    '第6块数据移到第5块数据位置
    CopyMemory bytData(intDataSize * 5), bytData(intDataSize * 6), intDataSize
    '第3块数据移动到第6块位置
    CopyMemory bytData(intDataSize * 6), bytData3(0), intDataSize
    '------------------------------------------------
    … …
    Exit Sub
    '----------------
ToExit:
End Sub

程序修改编译后,信心满满的给硬件人员进行下载调试了,过了近一天的时间,一问硬件技术人员,说下载数据后,画面异常,不知道是硬件问题还是软件问题。只好把笔记本带到测试室,和硬件人员一起调试确认。就这么几句代码,费了我不少时间,我才发现问题的所在,第一我发现6144*6一定大于3万2千多,意味做对integer整型有可能溢出,第二错误处理直接退出了,没有提示(这种做法真危险!),第三定义intDataSize没有定义类型,默认也就是integer了。

把Const intDataSize = 6144 代码修改为Const intDataSize  As Long = 6144。

问题搞定。幸好修改的代码不多,否则这点错误还真要命,此外得到教训是,调试程序时最好把程序错误处理暂时关掉(或错误存在文件里,不过这个时候够呛想到去看)。


少客联盟- 版权声明 1、本主题所有言论和图片纯属会员个人意见,与少客联盟立场无关。
2、本站所有主题由该帖子作者发表,该帖子作者admin少客联盟享有帖子相关版权。
3、少客联盟管理员和版主有权不事先通知发贴者而删除本文。
4、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者admin少客联盟的同意。
5、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任。
6、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责。
7、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意。
8、官方反馈邮箱:chinasuc@chinasuc.cn


上一篇:FAT文件系统几点释疑
下一篇:HTTPS改造通用解决方案
Whatever is worth doing is worth doing well. juvenile hacker league
最新回复 (0)
    • 少客联盟
      2
        登录 注册 QQ登录(停用)
返回