Discussion :

[pradier4]

Bonjour, j'ai créé une appli avec deux programmes qui se surveillent mutuellement, notamment s'ils ne sont pas mis en pause, grace à ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Imports System.IO
Public Class Form1
    Private WithEvents IP As InterProcess
    Private WithEvents IP2 As InterProcess
    Dim ancien As String = ""
    Dim eA As Double = 0
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IP = New InterProcess("Form1")
        IP2 = New InterProcess("Form2")
        Timer1.Start()
        Timer2.Start()
        File.WriteAllText("result.txt", "Surveillance démarrée " & Date.Now & vbNewLine)
        File.WriteAllText("result2.txt", "Surveillance démarrée " & Date.Now & vbNewLine)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Try
            If IP.Stream <> "" And IP.Stream = ancien Then
                File.AppendAllText("result.txt", Date.Now.ToLongTimeString & " Non Connecté" & vbNewLine)
                File.AppendAllText("result2.txt", Date.Now.ToLongTimeString & IP.Stream & " " & ancien & vbNewLine)
            ElseIf IP.Stream <> ancien Then
                File.AppendAllText("result.txt", Date.Now.ToLongTimeString & " Connecté" & IP.Stream & " " & ancien & vbNewLine)
            End If
            ancien = IP.Stream
        Catch ex As Exception
        End Try
 
    End Sub
 
 
 
 
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        IP2.Stream = eA
        If eA < 99 Then
            eA += 1
        Else
            eA = 0
        End If
 
 
    End Sub
End Class

Le problème est que les deux process prennent de plus en plus de mémoire vive au fur et à mesure qu'il marchent.
Comment résoudre cela?
Merci de votre patience à lire ce code.

[pradier4]

Les deux applis ont IP et IP2 inversés pour que ça fonctionne

[Pol63]

à tout hasard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ancien IsNot Nothing Then ancien.Dispose
ancien=IP.Stream

[pradier4]

mais la méthode dispose ne fonctionne pas pour les string.
quel était le but de cette manip?

[Pol63]

ah oui pas fait gaffe, j'avais pas vu que ancien était un string ...

quand une appli monte en mémoire ce n'est pas forcément dérangeant, le mécanisme de .net fait que quand windows a besoin de mémoire ou que le pc a rien à faire, la mémoire baisse
si elle ne baisse jamais (= pas pendant une heure et que ca monte à 2Go de ram ^^) ca fini en général par un outofmemory, là il devient urgent d'intervenir car il s'agit d'une fuite mémoire

une fuite mémoire c'est quand on a des variables qu'on ne déréférence jamais
dans le cas ou la mémoire monte mais redescend de temps en temps quand même c'est qu'on a oublié quelques .dispose (voir mémoire managée / non managée)

si je parle chinois, quelle est cette classe interprocess ?

[pradier4]

A priori j'ai réussi plus ou moins à stabiliser, mais j'aimerais bien savoir s'il y a quand même un oubli dans mon code ou une manière plus simple de procéder.
Merci

[Pol63]

Regarde ici :

http://www.developpez.net/forums/d99...e/#post5560136