Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > ทำยังไง winapp รับข้อมูล video stream ผ่านทางTCP มาโชว์ ใน panel ครับ ช่วยหน่อยครับ

[.NET] ทำยังไง winapp รับข้อมูล video stream ผ่านทางTCP มาโชว์ ใน panel ครับ ช่วยหน่อยครับ

เริ่มหัวข้อใหม่

Natthiko Matthiphong

โพสกระทู้ ( 55 )
บทความ ( 0 )

โปรเจคคือ ใช้เครื่อง raspberry pi3 ต่อ camera V2 ปล่อย video ทาง TCP เหมือน กล้องวงจรปิด
สิ่งที่ต้องการ คือ รับ ภาพจาก TCP(IP,port) มาโชว์ ที่ panel ครับ

โค้ดครับ ที่ยังติดอยู่

Code (PHP)

Imports System.Net.Sockets
Imports System.Threading.Thread
Imports System.Text
Imports System.IO
 
Public Class Form1
    Dim measur(63) As Integer
    Dim IPCamera As New TcpClient
    Dim byteData As Byte()
    Dim stx As Byte = 255
    Dim ender As Byte = 217
    Dim starter As Byte = 216
    Dim byteval1 As Byte()
    Dim ms As System.IO.MemoryStream
    Dim bmp As Bitmap
    Dim gh As Graphics
    Dim chk As Integer
 
 
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'On Error GoTo lExit
        Timer1.Stop()
 
        If IPCamera.Connected Then
            If IPCamera.Available > 0 Then
                Sleep(100)
                lbltext1.Text = IPCamera.Available
                ReDim byteData(IPCamera.Available)
                IPCamera.GetStream.Read(byteData, 0, byteData.Length)
                'ms = New IO.MemoryStream(byteData)
                Dim endIndex As Integer = 0
                Dim enddata As Boolean = False
                Dim startIndex As Integer = 0
                Try
 
                    '--------------------------------------
                    While (Not enddata)
                        endIndex = Array.IndexOf(byteData, stx, endIndex)
                        If byteData(endIndex + 1) = starter Then
                            startIndex = endIndex
                        End If
                        If byteData(endIndex + 1) = ender Then
                            ReDim byteval1(endIndex + 1)
                            Array.Copy(byteData, startIndex, byteval1, startIndex, endIndex + 1)
                            ms = New IO.MemoryStream(byteval1)
                            Panel1.BackgroundImage = Image.FromStream(ms)
                            If Panel2.BackColor = Color.Red Then
                                Panel2.BackColor = Color.Pink
                            Else
                                Panel2.BackColor = Color.Red
                            End If
                            Exit While
                        End If
                        enddata = (endIndex = -1)
                        endIndex += 1
 
                    End While
 
 
                Catch ex As Exception
 
                    lbltext3.Text = byteData.Length
 
                End Try
            End If
        End If
        'lExit:
        Timer1.Start()
    End Sub
 
    Private Sub btConnect_Click(sender As Object, e As EventArgs) Handles btConnect.Click
        Dim ip As String = TextBox1.Text
        If TextBox1.Text = "" Then ip = "127.0.0.1"
        Try
            If IPCamera.Connected Then
                IPCamera.Close()
                Label69.Text = "Disconnect"
            Else
                IPCamera = New TcpClient
                IPCamera.Connect(ip, 5000)
                Sleep(100)
                If IPCamera.Connected Then
                    Label69.Text = "Connected"
                    Timer1.Start()
                Else
                    Label69.Text = "Disconnect"
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("Error target IP: " + ip, "Error")
        End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 0 To measur.Length - 1
            Dim lbl As Label = Me.Controls.Find("Label" & (i + 1), True).FirstOrDefault
 
            lbl.BackColor = Color.FromArgb(50, Color.LightGray)
            lbl.Text = ""
        Next
        'Label68.BackColor = Color.FromArgb(50, Color.LightGray)
    End Sub
End Class

Tag : .NET, Win (Windows App), VB.NET, C#, VS 2015 (.NET 4.x), VS 2017 (.NET 4.x)

ประวัติการแก้ไข
2018-05-11 10:37:22
2018-05-14 09:28:27

Date : 2018-05-11 10:31:22

By : 2127832830566218

View : 1069

Reply : 1

No. 1

Natthiko Matthiphong

โพสกระทู้ ( 55 )
บทความ ( 0 )

วิธี รับข้อมูล video แบบ steamming real time นะครับ นำมาแชร์ วิธีทำ
รับเป็นแบบ MJPEG นะครับ โค้ดนี้ฝั่ง client นะครับ

Code (VB.NET)

Imports System.Net.Sockets
Public Class Form1
    Dim TcpClient As TcpClient
    'Dim byteData As Byte()
    Dim iStart As Integer, iEnd As Integer
    Dim indexByte As Integer, iLen As Integer
    Dim fps As Integer
    Dim ms As New System.IO.MemoryStream
    Dim buffer1() As Byte, buffer2() As Byte
    Dim NS As NetworkStream
    Dim iScan As Integer
    'Dim bEnd As Boolean, bStart As Boolean
    Const picMarker = &HFF
    Const picStart = &HD8
    Const picEnd = &HD9
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TcpClient = New TcpClient
        TcpClient.Connect("192.168.1.29", 5000)
        TcpClient.ReceiveBufferSize = 100000
        indexByte = 0
        ReDim buffer1(TcpClient.ReceiveBufferSize - 1)
        ReDim buffer2(TcpClient.ReceiveBufferSize - 1)
        If TcpClient.Connected Then
            NS = TcpClient.GetStream
            Timer1.Start()
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error GoTo lExit
        Timer1.Stop()
        If TcpClient.Connected Then
            If TcpClient.Available > 0 Then
                iScan += 1
                iLen = TcpClient.Available
                If iLen > (buffer1.Length - indexByte) Then
                    Array.Clear(buffer1, 0, buffer1.Length)
                    indexByte = 0
                End If
 
                NS.Read(buffer1, indexByte, iLen)
                indexByte += iLen
                Label1.Text = indexByte
 
                Do
                    iStart = -1
                    For i = 0 To buffer1.Length - 2
                        If buffer1(i) = picMarker Then
                            If buffer1(i + 1) = picStart Then
                                iStart = i
                                Exit For
                            End If
                        End If
                    Next
 
                    iEnd = -1
                    For i = iStart To buffer1.Length - 2
                        If buffer1(i) = picMarker Then
                            If buffer1(i + 1) = picEnd Then
                                iEnd = i
                                Exit For
                            End If
                        End If
                    Next
 
                    If iStart >= 0 And iEnd >= 0 And iStart < iEnd Then
                        ms.Dispose()
                        ms = New System.IO.MemoryStream(buffer1, iStart, iEnd)
                        PictureBox1.Image = Image.FromStream(ms)
 
                        Array.Copy(buffer1, iEnd + 1, buffer2, 0, indexByte - iEnd)
                        Array.Clear(buffer1, 0, buffer1.Length)
                        Array.Copy(buffer2, 0, buffer1, 0, indexByte - iEnd)
 
                        Label2.Text = iStart
                        Label3.Text = iEnd
                        indexByte = indexByte - iEnd - 1
                        fps += 1
                    Else
                        Exit Do
                    End If
                Loop
            End If
        End If
lExit:
        Timer1.Start()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label5.Text = fps
        Label10.Text = iScan
        fps = 0
        iScan = 0
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Stop()
        If TcpClient.Connected Then TcpClient.Close()
        TcpClient = New TcpClient
        TcpClient.Connect("192.168.1.29", 5000)
        indexByte = 0
        If TcpClient.Connected Then
            NS = TcpClient.GetStream
            Timer1.Start()
        End If
 
    End Sub
End Class

ขอบคุณครับ

ประวัติการแก้ไข
2018-05-15 09:39:13

Date : 2018-05-15 09:36:58

By : 2127832830566218

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ทำยังไง winapp รับข้อมูล video stream ผ่านทางTCP มาโชว์ ใน panel ครับ ช่วยหน่อยครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] ทำยังไง winapp รับข้อมูล video stream ผ่านทางTCP มาโชว์ ใน panel ครับ ช่วยหน่อยครับ

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] ทำยังไง winapp รับข้อมูล video stream ผ่านทางTCP มาโชว์ ใน panel ครับ ช่วยหน่อยครับ