VB.NET - Vor dem Webrequest den Contenttype lesen

Häufig könnte es nützlich sein vor dem Lesen der Daten den ContentType zu kennen.
Diese Variante habe ich mir ausgedacht um das zu handeln.

Für Verbesserungsvorschläge wäre ich sehr Dankbar! -> ralf.reinartz@web.de

Erst die Imports:
‘http://msdn2.microsoft.com/de-de/library/system.net.mime.contenttype(VS.80).aspx
‘Für den Contenttype wird die Mime-Klasse benötigt:
Imports System.Net.Mime
Imports System.Web.HttpUtility
Imports System.Diagnostics
Imports System.IO
Imports System.Net
Imports System.Text

…….

Dim IoStream As System.IO.Stream
Dim StrRead As System.IO.StreamReader

‘ Einen WebRequest für den URL erzeugen
Dim wRequest As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(URL), System.Net.HttpWebRequest)

……

Dim oContentType As ContentType
oContentType = New ContentType(wRequest.GetResponse.ContentType)

Dim charset As String
charset = oContentType.CharSet()

If charset = “” Then
charset = “iso-8859-1″
End If

StrRead = New System.IO.StreamReader(IoStream, System.Text.Encoding.GetEncoding(charset), False)

……
StrRead.Close()
IoStream.Close()