[VB.NET] Byte-Array -> Bitmap

[Tobi S. (schmidlitsky)]

Hallo zusammen,

ich brauche Hilfe bei der Ausgabe einer Bitmap.
Und zwar bekomme ich über eine TCP/IP Verbindung einen Byte Array, der 
eine Bitmap darstellen soll.
Die Kommunikation funktioniert, nur kann ich den Byte-Array nicht als 
Bitmap in einer "PictureBox" darstellen oder die Bitmap abspeichern.

VB.NET Code:

Imports System.IO
Imports System.Collections
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.Threading

Imports System.Drawing.Bitmap
Imports System.Drawing.Image

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim Socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim IP As IPAddress = IPAddress.Parse("192.168.5.5") 'IP Server

If Socket.Connected = False Then
Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Socket.Connect(IP, 23)  'Verbindung mit der IP-Adresse und dem Port herstellen
ElseIf Socket.Connected = True Then
MessageBox.Show("Verbindung bereits hergestellt")
End If

Dim Get_Image() As Byte
Dim Response_Image(362038) As Byte

Get_Image = Encoding.ASCII.GetBytes("GI0100") 'Befehl zur Bildübertragung 
Socket.Send(Get_Image) 'Bildanfrage Senden
Socket.Receive(Response_Image) 'Bild empfangen

Dim Pfad As String = "C:\Bilder.bmp" 'Ort
Dim Speicher As New MemoryStream(Response_Image) 'Bild zwischenspeichern
Dim Bild As Image

Bild = Image.FromStream(Speicher) '<- Fehlermeldung: Ungültiger Parameter. 

PictureBox1.Image = Bild
Bild.Save(Pfad)

Socket.Disconnect(True)
End Sub

End Class

Der Byte-Array, den ich von der Server-Anwendung bekomme hat folgenden 
Aufbau:
RI|01|00|00058636|BM...

Die ersten beiden Bytes stehen für Response Image,
Der nächste Block (gekennzeichnet durch |) sagt mir, ob es ein Livebild 
ist oder aus dem Speicher kommt.
Danach folgt die Bildnummer und die letzten acht Bytes geben Aufschluss 
über die länge der Bilddaten.
Ab "BM" folgen die eigentlichen Daten der Bitmap.


Falls jemand weiß, wie man eine Bitmap vernünftig aus einem Byte Array 
heraus bekommt, würde ich mich sehr über ein paar Tipps freuen.

Edit: MS Visual Studio 2013
Grüße

[Markus (Gast)]

Schaue Dir doch mal die Klasse System.Collections.BitArray an.

Grüße
Markus

[bluppdidupp (Gast)]

Socket.Receive() liest nur das in den Puffer was bereits an Daten 
eingetroffen ist, das kann ggf. auch nur 1 Byte sein! Hier muss der 
Rückgabewert beachtet werden und Socket.Receive() ggf. mehrmals 
aufgerufen werden bis alle Daten abgerufen und irgendwohin gespeichert 
wurden.

Man kann sich dazu z.B. sowas bauen (C#, sollte in VB.net aber ähnlich 
möglich sein):

public byte[] ReadBytes(Socket s, int byteCount)
{
  byte[] buffer = new byte[byteCount];    // store incoming bytes here

  int bytesRead = 0;  // bytes read in the last .Receive() call
  int bytesLeft = byteCount;

  while(bytesLeft>0) // until we have read byteCount bytes.
  {
    bytesRead=s.Receive(buffer, bytesRead, bytesLeft, SocketFlags.None);    // append to buffer
    bytesLeft = bytesLeft - bytesRead;  // calculate how much bytes the next call may read
  }

  return buffer;
}

Man könnte dann die jeweiligen Blöcke durch einzelne Aufrufe von 
ReadBytes() mit entsprechendem byteCount einlesen.
Mit z.B. BitConverter kann man byte-Arrays auch leicht in passende 
Datentypen umwandeln (z.B. BitConverter.ToInt32(), 
BitConverter.ToInt16(), etc.)
ggf. besser Socket.ReceiveTimeout auf irgendeinen sinnvollen Wert 
setzen, damit man im Fehlerfalle nicht endlos auf Daten wartet.