Sub Activity_Pause (UserClosed As Boolean)
	'If Socket1.IsInitialized Then
	'Socket1.Close
	'End If
	Log("Paused")
	End Sub
	
	Sub Activity_Resume
	' Nothing needed here for now
	Log("Resumed")
End Sub

Sub Sok_NewData(Buffer() As Byte)


	Log("new data sub triggered.")
	
	Try
		Log("Received data of length: " & Buffer.Length)

		If  Buffer(0) = 255 And Buffer(1) = 216 Then
			' It's a JPEG image
			Try
				Dim Bitmap As Bitmap
				Dim ByteArrayInputStream As JavaObject
				ByteArrayInputStream.InitializeNewInstance("java.io.ByteArrayInputStream", Array(Buffer))
				Bitmap.Initialize2(ByteArrayInputStream)

				' Display the image
				ImageView1.Bitmap = Bitmap
				Log("Image displayed successfully.")
			Catch
				Log("Error displaying image: " & LastException.Message)
				ToastMessageShow("Error displaying image.", True)
			End Try
		Else
			' Treat it as text
			
			Dim Message As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
			Log("Received text: " & Message)
			ToastMessageShow(Message, True)
		End If
	Catch
		Log("Error in NewData handler: " & LastException.Message)
		ToastMessageShow("Error receiving data: " & LastException.Message, True)
	End Try
	
End Sub