Hallo,
ich hole mir über die WMI ein paar Systemdaten die von Everest
geschrieben werden. Da dieses Programm manchmal etwas 'schusselt' lösche
ich die Daten vor dem Auslesen. Dabei läuft mein Speicher voll. Beim
Takt von einer Sekunde kommen in 1,5min ca. 1MB zusammen.
Hier mein 'Konstrukt', aber nicht lachen, ich bin Anfänger.
1 | Public Function getWert(ByVal Name As String) As Integer
|
2 | Dim objSensor As Object
|
3 | getWert = 0
|
4 | On Error GoTo ende
|
5 | Set objSensor = GetObject("winmgmts:\\.\Root\WMI").Get( _
|
6 | "EVEREST_SensorValues.ID='" & Name & "'")
|
7 | getWert = objSensor.Value
|
8 | objSensor.Delete_
|
9 | ende:
|
10 | End Function
|
Wenn ich das Löschen rausnehme ist alles fein. Leider stehen nach dem
Beenden von Everest die Werte immer noch in der WMI. 'objSensor =
Nothing' bringt auch nichts.
Wie kann ich mir denn in VB6 die Speichergrösse einer Variablen zur
Laufzeit anzeigen lassen?
Bin für jeden Tip dankbar
schönen Sonntag noch
bernd