|
Mit nachfolgender Klasse lässt sich der Inhalt einer Datei, die auf einem Webserver gespeichert ist, auslesen und als String zurückgeben, ohne dass die Datei vorher lokal zwischengespeichert werden muss.
Imports System.Net
Imports System.Text
Public Class clsDownload
''' <summary>
''' Inhalt einer Internetdatei auslesen ohne diese lokal zwischenzuspeichern
''' </summary>
''' <param name="sUrl">URL der Datei auf dem Webserver</param>
''' <returns>Inhalt der Datei als String</returns>
Public Shared Function TextDownload(ByVal sUrl As String) As String
Dim dWeb As New WebClient
With dWeb
.Encoding = Encoding.Default
.CachePolicy = New Cache.RequestCachePolicy( _
Cache.RequestCacheLevel.NoCacheNoStore)
End With
Try
Return dWeb.DownloadString(sUrl)
Catch ex As Exception
Return "[Error]"
End Try
End Function
End Class
Aufrufbeispiel:
Dim sBuffer As String
sBuffer = clsDownload.TextDownload("http://www...")
Letzte Änderung: 01 Feb 2009 at 09:20
Zurück |
