Sub TimerLive_Tick
Dim Livebild As HttpJob
Livebild.Initialize("Livebildladen", Me)
Livebild.Download2(LadeService.ServerPfad & "/GetImages", Array As String("absender", Main.manager.GetString("Absender"), "passwort", PasswortServer, "type", "livebild", "id", LiveBildKey))
Wait For JobDone(Livebild As HttpJob)
If Livebild.Success Then
If Livebild.GetString<>"" Then
Dim img As Bitmap = BytesToImage(stu.DecodeBase64(Livebild.GetString))
ivViewer.Bitmap=img
End If
End If
Livebild.Release
End Sub
Public Sub BytesToImage(bytes() As Byte) As Bitmap
Dim In As InputStream
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
Return bmp
End Sub