一个对象会多次分配内存吗?

hehex · 发表于 2014-7-18 10:03

liucqa 发表于 2014-7-18 08:46
如果用WB控件的话，会有内存泄漏问题，这不一定是控件的bug。

如果采用动态创建WB的方法，据说可以手工 ...

我已经查到上次造成内存泄漏的源码了，是在循环中使用
With CreateObject("xxxxx")

end with

最后对象的实体内存没有得到释放造成了泄露。 With End With 之间引用对象，可以认为是匿名引用对象吧。微软没有公开细节，但是从Set 语句的表现来看，是立即将失去引用的对象内存释放了。是否可以认为这是Set 语句本身带的操作内存的功能而不是VB 整体的内存管理策略？

liucqa · 发表于 2014-7-18 10:23

hehex 发表于 2014-7-18 10:03
我已经查到上次造成内存泄漏的源码了，是在循环中使用
With CreateObject("xxxxx")

你再仔细测测

wangg913 · 发表于 2014-7-18 11:35

hehex 发表于 2014-7-17 13:54
这个问题很有趣。

aa 是一个局部变量，里面装的是对象实体的引用。在你执行set aa = createobject("..." ...

循环制作一定数量的对象，比如说5000个过或一万个，检查一下内存，试试。

hehex · 发表于 2014-7-18 11:57

liucqa 发表于 2014-7-18 10:23
你再仔细测测

下面这段代码，要提取两千多页的网页数据，在循环内使用with createobject("xxx") 造成内存泄漏，经查每页抓取对象实体占3M 内存，当系统内存占用达到1.5G 时excel 崩溃。如前面测试，如果使用Set 语句则程序不会出现问题。

Sub 提取_XMLHTTPP()
Dim URL$, hmlFile, arr(), r, s, i%, j%
Dim t As Single
Dim brr(), crr()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.ShowWindowsInTaskbar = False
On Error Resume Next
t = Timer
brr = Sheets(1).Range("a1").CurrentRegion.Value
For k = 1089 To UBound(brr)
Workbooks.Add
URL = "http://www.marketwatch.com/investing/Stock/" & brr(k, 1) & "/financials/income/quarter"
With CreateObject("microsoft.xmlhttp")
.Open "GET", URL, False
.send
Do Until .ReadyState = 4
DoEvents
Loop
Set hmlFile = CreateObject("htmlfile")
hmlFile.body.innerhtml = .responsetext
End With
Set r = hmlFile.all.tags("table")(0).Rows
ReDim arr(r.Length - 1, r(0).Cells.Length - 1)
For i = 0 To UBound(arr)
For j = 0 To UBound(arr, 2)
arr(i, j) = r(i).Cells(j).innertext
Next
Next
Set s = hmlFile.all.tags("table")(1).Rows
ReDim crr(s.Length - 1, s(0).Cells.Length - 1)
For l = 0 To UBound(crr)
For m = 0 To UBound(crr, 2)
crr(l, m) = s(l).Cells(m).innertext
Next
Next
Set hmlFile = Nothing
Set r = Nothing
Set s = Nothing
Cells.ClearContents
Range("a1").Resize(UBound(arr) + 1, UBound(arr, 2) + 1) = arr
Range("a" & i + 1).Resize(UBound(crr) + 1, UBound(crr, 2) + 1) = crr
Cells.Columns.AutoFit
ActiveWorkbook.SaveAs "D:" & brr(k, 1) & ".xlsx"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.ShowWindowsInTaskbar = True
MsgBox Timer - t
End Sub

复制代码

liucqa · 发表于 2014-7-18 13:30

本帖最后由 liucqa 于 2014-7-18 13:42 编辑

Set hmlFile = CreateObject("htmlfile")
hmlFile.body.innerhtml = .responsetext

问题出在这里吧，你把对象的一个属性引用给了另一个对象的属性，前者就不能自动释放了，而临时变量是不能手工释放的，这就造成了典型的内存泄漏

你可以试试改成字符串拷贝语句，把原来的浅复制变成深复制，摆脱对原对象属性的直接引用，看看是不是解决问题。

不过，最好的办法，还是不要在With里面跨End With使用对象或者其属性的引用。或者把代码改成不使用With语句，这样就能人工释放对象了。

其实，如果你学习其他的语言，都会涉及到对象的浅复制和深复制问题。字符串表面上是个值变量，实际上是个特殊的引用变量。因此，使用上要小心

数组有的时候，如果使用不当，也会发生类似的泄漏问题。

实际上，在写代码的时候，如非万不得已，尽量不要在编程中使用自动生成的临时变量，这是个基本规则，能避免很多麻烦。

hehex · 发表于 2014-7-18 16:10

liucqa 发表于 2014-7-18 13:30
Set hmlFile = CreateObject("htmlfile")
hmlFile.body.innerhtml = .responsetext

感谢学导老师，通过这个帖子又学到了不少知识。
不过上面那个程序不是我写的，是别人出了问题找我改的。

数组的泄漏问题，俺已经感觉到了，是指动态数组的问题吧。

字符串是引用变量，这个俺也知道一些，经你这么一提，印象会更加深刻一些。

最大的收获是通过本帖深刻了解了VB 的内存回收模式，是使用.Com 的计数内存回收模式。使用计数内存回收
虽然很多时候被人诟病，认为不如.net 的整体gc 模式，但是仍然也算是一种内存回收机制吧。

关于上面的程序的具体泄露点，俺准备回家之后再详细测试一下，那个直接对另一个变量的属性的赋值语句断开
赋到变量中去，然后看看是否能正确回收内存。还是实验一下，更好。

liucqa · 发表于 2014-7-18 16:19

hehex 发表于 2014-7-18 16:10
感谢学导老师，通过这个帖子又学到了不少知识。
不过上面那个程序不是我写的，是别人出了问题找我改的。 ...

那代码错误太多，你可以作为反面教材进行分析

实际上，在循环体内部使用CreateObject是非常不好的做法的，而用With语句就更加错误了

VB的内存管理已经很方便了，但实际操作的时候，如果不按照规矩写代码，那什么事情都会发生的

我也希望其他会员能从这个帖子中学到一点写程序的基本规则...

sz_wap · 发表于 2014-7-18 16:39

学习

用户名		自动登录	找回密码
密码			免费注册

[求助] 一个对象会多次分配内存吗?