Discussion :

[zouhib]

salut tout le monde.
(VB 2005 express edition)
mon souci c'est que lorsque j'execute mon application qui au début lit un fichier 'texte' (.dbc) puis ecrit dans un autre fichier texte (.txt), une exception est générée :cannot read from a closed text reader.
quelqu'un a une solution ?

[bossun]

tu ferme ton stream trop tot.....

met un bout de code pour voir..

[zouhib]

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
 
    Dim SW As IO.StreamWriter = File.CreateText("C:\user\U256265\Visual Studio 2005\scarv06.txt")
    Dim SR As StreamReader = File.OpenText("C:\user\U256265\Visual Studio 2005\WindowsApplication1\F2005.dbc")
    Public Function lecture(ByVal fichier As String)
        Do
            ligne = SR.ReadLine()
            SR.Close()
        Loop Until (str = ligne.IndexOf("BO_" & ID))
        'Call oDecodage.decoder(tempRxCanMsg)
 
        If ID = 256 Then
 
        End If
        Return ID
    End Function
 
    Sub ecritureFichier(ByVal fichier As String)
Try
 SW.WriteLine("")
            SW.WriteLine("Private Function findData(ByVal buffer As Byte, ByVal i0 As Integer, ByVal len As Integer) As Integer")
            SW.WriteLine("Dim myBV As New BitVector32(0)")
            SW.WriteLine("Dim mySect1 As BitVector32.Section = BitVector32.CreateSection(255)")
            SW.WriteLine("myBV(mySect1) = Buffer ")
            SW.WriteLine("Dim mySectData As BitVector32.Section")
                       SW.WriteLine("Return myBV(mySectData)")
            SW.WriteLine(" End Function")
            SW.WriteLine("")
            lecture("C:\user\U256265\Visual Studio 2005\WindowsApplication1\F2005.dbc")
 
            If ID = 256 Then            ' réception trame 100h périodique (256)
.... ' un peu longue cette procédure !!!
' ensuite là j'appelle cs 2 fonctions dans form1_load
Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ecritureFichier("C:\user\U256265\Visual Studio 2005\scarv06.txt")
            swf1.Width = 800
            swf1.Height = 600
            swf1.Movie = Application.StartupPath & "\scar.swf"
            Console.WriteLine(Application.StartupPath)
            oCanusb = New Canusb
            oCanusb.CanListen()
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Exclamation, "Chargement")
        End Try
    End Sub
' et c'est là que sa marche pas !!!!

c'est lors de la lecture que sa marche pas ! je comprend pas pourquoi.

[zouhib]

à cause du SR.close() non (stream reader) ???

[bossun]

à cause du SR.close() non (stream reader) ???

oui cêst à cause de sR.Close()

dès que tu lis la première ligne tu ferme ton flux... or après il n'est jamais ouvert..

ton SR.Close doit se trouve après la boucle....

place-le après

Code :

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

Loop Until (str = ligne.IndexOf("BO_" & ID))

[zouhib]

wé genial ! j'ai une autre exception !!!!

"Object reference not set to an instance of an object" sa je crois c'est pas dû à SR.close() !!!