Question

记忆量在不断上升和扩展,直到没有记忆。 I m 采用GHeat.Net plugin to building pornography。这里的全文是:

Dim pm As New gheat.PointManager()
Dim g As Graphics

Dim startZoom As Integer = 2
Dim maxZoom As Integer = 17

gheat.Settings.BaseDirectory = "C:\gheatWeb\__\etc\"

pm.LoadPointsFromFile("C:\points.txt")

For zoom As Integer = startZoom To maxZoom
    Dim startX As Integer = 0
    Dim startY As Integer = 0
    Dim maxX As Integer = 2 ^ zoom
    Dim maxY As Integer = 2 ^ zoom

    For x As Integer = startX To maxX
        For y As Integer = startY To maxY
            Dim filename As String = "C:\images\" + zoom.ToString + "\x" + x.ToString + "y" + y.ToString + "zoom" + zoom.ToString + ".gif"
            gheat.GHeat.GetTile(pm, "classic", zoom, x, y).Save(filename, System.Drawing.Imaging.ImageFormat.Gif)
        Next
    Next
Next

由于某种原因,当我打上<<>><<>>>>><>>>>路程时,使用的记忆量刚刚增加,直到达到上限。即便如此,方案仍然运作,但记忆却未补。该方案在20Mb处产生罚款,因此,我无法说明为什么它只是继续实施。

我也尝试了<代码>GC.Collect,在最晚的休息期结束时没有结果。任何想法?

Answer 1

GHeat.GetTile returns a Bitmap which must be disposed.
Also, there s no need to escape paths like that in VB.

For x As Integer = startX To maxX
  For y As Integer = startY To maxY
    Dim filename As String = String.Format("C:images{0}x{1}y{2}zoom{3}.gif", zoom, x, y, zoom)
    Using img = gheat.GHeat.GetTile(pm, "classic", zoom, x, y)
      img.Save(filename, System.Drawing.Imaging.ImageFormat.Gif)
    End Using
  Next
Next

友情链接