vb编写的上位机，每次运行一天左右后报错 - 编程论坛

#2

风吹过b2014-03-13 19:52

要么程序里有内存泄漏，长时间运行出现错误。
要么你的机子的内存存在不稳定。
如果每次报错的内存地址都是这二个，那就内存或系统出问题的可能性更大，
如果每次报错的内存地址都是随机的，那就存在内存泄漏的可能性就更大一些。

1、写程序时，在没有 on error resume next 的情况下，所有的出错问题都得到解决，确保程序的健壮性。
2、程序最后打包时，每个函数、过程再加上 on error resume next 这句进行编译。
3、所以涉及到分配内存的地方（redim ，split 函数,strconv 函数等），创建对象等，使用完后，是否显式销毁释放内存了？？
4、动态控件，如 winsock, 端口控件，是否对不再使用的对象重新使用的情况？定时扫描控件状态，出现问题时关闭，并重新使用。

从这几个方面去检查程序吧，一般健壮的程序，一般不出现一天就出问题的。

--------------------------
有句话，很久很久以前，都不记得是从哪里看到的：
我写个程序只要三天，IBM要三个月；我的程序能用三个月，IBM的能管三年。

#3

czz原来如此2014-03-17 09:59

多谢指点！
还有以下问题：
1、redim使用完后怎么释放？
2、怎么算是“对不再使用的对象重新使用的情况？”怎么定时去扫描控件状态？

#4

风吹过b2014-03-17 10:10

redim 定义的数组，如果下次还要继续使用，那么重新定义一下这个数组元素只有一个，就会释放所占的内存。

对不再使用的对象重新使用的情况
是指连接用的控件等，如 winsock 控件。
当你需要保存多个连接，并且需要动态生成连接的情况下，
使用一个定时器，time1
假设 winsock 控件组的名字为 wsk1
for i=1 to wsk1.count              '0号为侦听，不需要判断
    if wsk1(i).start = 9 or wsk1(i).start = 8 then      '如果为错误\远程关闭
            wsk(i).close           '则关闭
    end if
next i
浏览器写的代码，可能有单词错误，自己更正一下。

-------------------
在需要连接时
for i=1 to wsk1.count
   if wsk1(i).strart=0 then          '关闭状态
        exit for
   end if
next i
if i>wsk1.count then            '如果没找到
    load wsk1(i)                '载入新的
end if
使用  wsk1(i)  进行联接

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

这样一个小程序，长时间超过 3天+ ，还没出现问题来。
也与那个程序很小有关吧。但看内存没有出现自动增长的情况。

#5

czz原来如此2014-03-17 10:53

我在网上看了erase可以清空数组，但是我的代码只有在查询中才用到redim函数。上位机正常运行时没有使用查询操作，但是也会报那个错误。
Public Sub Find_date(ByVal Top As String, ByVal Down As String, ByVal i As Byte, ty As String, name As String)

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String, j As Integer, Z As Integer

    DbPath = App.Path & "\T_data.mdb"
    Constr = "provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DbPath
    con.Open Constr

    sql = "SELECT COUNT(ID) as Z FROM Channels_1 WHERE ID between '" & Top & "' and '" & Down & "' and number='" & ty & " '  and Prj_name ='" & name & "'"

    rs.Open sql, con, 3, 3

    XXX = rs(Z)
    con.Close

    ReDim History(XXX)
    ReDim Date_time(XXX)
    con.Open

    strSQL = " SELECT * FROM Channels_1 WHERE ID between '" & Top & "' and '" & Down & "'"
    rs.CursorLocation = adUseClient
    rs.Open strSQL, con, adOpenStatic, adLockBatchOptimistic

    For Z = 1 To XXX
        History(Z) = rs.Fields(Val(i)).Value
        Date_time(Z) = rs.Fields(1).Value
        rs.MoveNext
    Next Z
    con.Close

End Sub

#6

风吹过b2014-03-17 20:03

ReDim History(XXX)
ReDim Date_time(XXX)

这个在查询时，随时都需要变化，释放不释放内存都问题不会是很大。VB6 在重定义数组时，它是会内存回收的。

1、使用编译环境运行一天试试。
2、把整个程序拆出几个程序，然后程序之间使用消息或网络通迅或数据库连接起来。然后判断哪个部分出问题，每运行多长时间自动重启该部分。（难度很大）。

＝＝＝＝＝＝＝＝＝＝＝
0X000006CF ，这个地址小于 0x00400000 这个EXE 加载地址。
猜测情况：
这个需要读取的地址小于基地址，按我的理解来说，基地址之前的地址属于系统保护内存，应用程序不能使用到。
而你这里报错的地址却在基地址之前，那么要么内存出现问题，要么系统有问题。

#7

czz原来如此2014-03-19 09:22

我把redim的数组每次使用后都用erase函数释放，但是问题依然没解决。而且每次报错的地址都不一样

只有本站会员才能查看附件，请登录

#8

lowxiong2014-03-19 10:08

数组不需要释放，你查下有没有api调用，一般这种情况是api调用参数传递出现的。

#9

czz原来如此2014-03-21 14:01

回复 8楼 lowxiong

没有调用API

#10

水到渠成VB2014-03-21 17:39

你给的信息不是很全，会不会这样硬件接口这个地方，程序一直被占用。
你用的上位机跟下位机是怎么通讯的？

#11

czz原来如此2014-03-24 11:37

回复 10楼水到渠成VB

上位机和下位机通过scoket 进行通讯，tcp协议。发现一个比较奇怪的现象，我timer是1min储存一次，但是存储的数据后面的秒数不是一致，是一直在递增

只有本站会员才能查看附件，请登录

#12

lowxiong2014-03-24 12:17

timer控件是利用cpu时钟中断计数的，该时钟中断每秒发生18.2次，系统时钟是cmos里自带的，两个时钟不共用一个时钟发生器，另windows时钟还自动进行网络校时，因此有累积误差正常。

[ 本帖最后由 lowxiong 于 2014-3-24 12:19 编辑 ]

#13

czz原来如此2014-03-24 13:56

回复 10楼水到渠成VB

只有本站会员才能查看附件，请登录

#14

czz原来如此2014-03-24 13:56

回复 13楼 czz原来如此

调试显示这里的问题

#15

czz原来如此2014-03-24 13:58

回复 12楼 lowxiong

麻烦帮忙看下这个问题，用反汇编，程序执行到这里有问题。

只有本站会员才能查看附件，请登录

#16

czz原来如此2014-03-24 14:26

只有本站会员才能查看附件，请登录

#17

lowxiong2014-03-24 14:55

从汇编一般看不出毛病，肯定是程序出了问题。你没有源代码，怎么知道我在8楼说的没有api调用？
出问题的汇编是返回语句，要进行栈弹出到EIP的操作，肯定是你的程序把内存搞乱了，使栈指针指到了系统内存（只有0级权限操作），才出错了。