"Cor Ligthert[MVP]" <notmyfirstname@planet.nl> schrieb:
[quoted text, click to view]

| After a few days of operation, I get an Out of Memory exception.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>

[quoted text, click to view]

Why is that out of the question? Send them a support request and complain a
lot and they should fix it.

Michael

Herfried,

You are right, can it be that the Op is using something as a recursiving
code as I like it so much and from what you forever wrote in past: If there
is enough memory that is not problem.

:-)

(It is friday)

Cor

Thanks for the advice. Several people asked for details, so here they
are:

- The leak does come at a cost. My application needs to run for weeks,
but I get an Out of Memory exception after ony a few days.

- Yes, I'm using Task Manager to monitor the memory. I know it isn't a
great tool for this purpose, but I'm watching it over a long period of
time (days), and it seems to be okay for that.

- I've looked for Close, Shutdown, Release, Dispose, and any other
method that may cleanup the class, but it just doesn't exist.

- I encapsulated the class in a wrapper, and I'm careful to dispose
the wrapper when I'm done. The memory leaks anyway.

- The reason it will be difficult to get the third-party component
fixed is that it isn't commercial software; it was written by
engineers in a distant branch of the company. They aren't accountable
for the performance of the software, and they aren't responsive to
requests for changes. I'm lucky to have what I've got. Nevertheless,
the point is well taken; I acknowledge that the ideal solution is to
fix their code.

I don't want to post my code because I'm not looking for specific
advice. I really just wanted to know if there was a standard solution
for the "What if a component leaks?" problem. From the replies I've
received, I conclude that there are three options: 1) get the
component fixed; 2) live with the leak; and 3) automatically shut down
and restart the application periodically (per CJ). In this case, I
think the best solution for me may be option 3.

Thanks again to everyone for the help.

Yes the 4th option would work too. A master app to restart the troubled
app periodically. In my case folks here felt it was a good idea for the
pc to be rebooted too. But yes, at least in my case, the memory is
cleared up by shutting down and restarting just the leaky app so the 4th
option is good too.

For what it's worth in my app I have menu item to set the time of day
for the reboot to happen and you menu to check which days of the week to
reboot on. We figured the system should be the least busy at 2:00am so
we set it for then. I decided I wanted it to reboot on 2:00am of a day
I would be in at 8:00 in case it failed so selected Friday at 2:00am,
but it's all adjustable. The time and days selected are saved in a cfg
file with other program info. When the program starts or someone makes
adjustments to the reboot info it calculates when it will next reboot using.

Private Sub UpdateAutoReboot()
Dim testDate As Date
Dim tempStr As String

autoRebootActive = False
tempStr = "Auto Reboot Disabled"

For x As Int32 = 0 To 7
testDate =
Now.Date.AddDays(x).AddTicks(TimeValue(rebootTime).Ticks)
If testDate.DayOfWeek = DayOfWeek.Sunday And
SunMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Monday And
MonMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Tuesday And
TueMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Wednesday And
WedMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Thursday And
ThuMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Friday And
FriMenuItem.Checked Or _
testDate.DayOfWeek = DayOfWeek.Saturday And
SatMenuItem.Checked Then

If testDate > Now Then 'if x=0 (today) it might be too
late in the day
autoRebootActive = True
nextReboot = testDate
tempStr = "Next Reboot" & vbCrLf & testDate.ToString
Exit For
End If
End If
Next

Label5.Text = tempStr
End Sub

A timer used in the program among other things checks to see if it's
time to reboot. If so it sets a flag and closes the program.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If autoRebootActive And Now() >= nextReboot Then
rebootNow = True
Me.Close()
End If
End Sub

During closing the program if the flag is set to reboot it will do so.

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Timer1.Enabled = False
If rebootNow = True Then
Dim WMIService, Computer As Object
WMIService =
GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each Computer In
WMIService.InstancesOf("Win32_OperatingSystem")
Computer.Win32Shutdown(2 + 4, 0) 'reboot
Next
End If
End Sub

Remember to have the pc automatically start your program when it starts.


[quoted text, click to view]