Bild online vom Webserver laden und anzeigen Wie man mit VB.NET ein Bild online von einem Webserver laden und anzeigen kann, zeigt dieser Tipp.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  25.151
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 24 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Heute möchten wir Ihnen eine Möglichkeit aufzeigen, wie man ein Bild, das online auf einem Webserver gespeichert ist, laden und in einem PictureBox-Control anzeigen kann.

Erstellen Sie hierzu ein neues WindowsForms-Projekt mit einem PictureBox-Control und einem CommandButton und fügen nachfolgenden Code ein:

Imports System.IO, System.Net
 
Public Class Form1
  Inherits System.Windows.Forms.Form

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Bild online laden
    Dim oImg As Image = ImageFromWeb("http://www.vbarchiv.net/images/forum.gif")
 
    If oImg Is Nothing Then
      ' Falls Nothing zurückgegeben wurde...
      MsgBox("Bild nicht vorhanden oder Server nicht erreichbar!")
    Else
      ' ... andernfalls Bild im PictureBox-Control anzeigen
      PictureBox1.Image = oImg
    End If
  End Sub

  ' Bild von Webserver laden
  Public Function ImageFromWeb(ByVal sURL As String) As Image
    Try
      ' Web-Anfrage mit vorgegebener URL zur Bilddatei
      Dim oRequest As WebRequest = WebRequest.Create(sURL)
      oRequest.Method = "GET"
 
      ' Antwort unserer Anfrage...
      Dim oResponse As WebResponse = oRequest.GetResponse()
      Application.DoEvents()
 
      ' Stream-Objekt mit den Bilddaten erstellen
      Dim oStream As New StreamReader(oResponse.GetResponseStream())
 
      ' Bild aus dem Stream-Objekt in ein Image-Objekt kopieren
      Dim oImg As Image = Image.FromStream(oStream.BaseStream)
 
      ' Objekte zerstören
      oStream.Close()
      oResponse.Close()
 
      ' Image-Objekt zurückgeben
      Return oImg
 
    Catch ex As Exception
      ' Fehler: Nothing zurückgeben
      Return Nothing
    End Try
  End Function

End Class