🚀 go-pugleaf

Pugi! schreef:

> Mijn vraag geldt in feite in het algemeen, maar ik begon er mij vragen
> bij te stellen bij het gebruik van XmlTextReader. Worden resources
> vrijgegeven bij een exception of moet je in een finally blok een .close
> doen ?
> Het voorbeeld uit cursus opleiding XML.NET (VB.NET):
>
>         Dim lezer As New
> XmlTextReader(Me.Server.MapPath("personeel.xml"))
>         Try
>             Do While lezer.Read
>             Loop
>             lezer.Close()
>             lblWellFormed.Text = "Well-Formed"
>         Catch ex As XmlException
>             lblWellFormed.Text = ex.Message
>         End Try
>
> Is oefening om te testen of xml-bestand well-formed is of niet bij het
> sequentieel nodes lezen.
> Indien personeel.xml niet well-formed is => XMLException. De reader
> wordt dan klaarblijkelijk niet gesloten.
> Ik kan natuurlijk op veilig spelen en code vervangen door :
>
>         Dim lezer As New
> XmlTextReader(Me.Server.MapPath("personeel.xml"))
>         Try
>             Do While lezer.Read
>             Loop
>             lblWellFormed.Text = "Well-Formed"
>         Catch ex As XmlException
>             lblWellFormed.Text = ex.Message
>         Finally
>             lezer.Close()
>         End Try
>
> Dan wordt de reader gesloten of er nu een exception optreedt of niet.
> Vraag is : 'Is het nodig ?'
> Hoe kan ik dat testen ? Met 'Is Nothing' test je op het bestaan van het
> object en is dus in beide gevallen false.
>
> thanx,
>
> Pugi!

Bedankt voor de reacties en de link. Met behulp hiervan en de reacties
in engelse newsgroup, plus nog stukje VB.NET help-functie, ben ik tot
volgende code gekomen.

        Dim xmlrdr As XmlTextReader = Nothing
        Try
            'Deze coding zou ook werken zonder de If Not (xmlrdr Is
Nothing)
            'in het Finally-blok, maar zodra hier, voor xmlrdr = New
Xml...
            'coding zou staan die een exception veroorzaakt, zou
xmlrdr.close
            'een exception veroorzaken in het Finally-blok, vandaar de
If Not (...
            xmlrdr = New
XmlTextReader(Me.Server.MapPath("personeel.xml"))
            Do While xmlrdr.Read
            Loop
            lblWellFormed.Text = "Well-Formed"
        Catch ex As XmlException
            lblWellFormed.Text = "XML : " & ex.Message
        Catch ex As Exception
            lblWellFormed.Text = "Andere fout : " & ex.Message
        Finally
            If Not (xmlrdr Is Nothing) Then
                xmlrdr.Close()
            End If
        End Try

Denk dit het is, tenzij er nog suggesties zijn.

Pugi!