با سلام و خسته نباشید
من میخوام بین اندروید با پایتون از طریق برنامه نویسی سوکت ارتباط برقرار کنم : به طوریکه بتونم اطلاعات دوربین را مثل وبکم به صورت زنده یا به صورت عکس به سمت سرور بفرستم : برای فرستادن دیتا به سمت سرور از این کد استفاده میشه send.Write(allapp.GetBytes(“UTF-8”)) الان سئوال اینجا هست که اطلاعات مثل تصویر چطور باید به سمت سرور ارسال کرد؟ مثلا باید به بایت تبدیل بشوند یا روش دیگه ای داره؟ میخوام از یکسری کد استفاده کنم و خروجی اش را به سمت سرور بفرستم

نمونه کد ارسالی به سرور


Sub s1_Connected (Successful As Boolean)

    

    If Successful = True Then

        Log("Connected !")

        send.Initialize(socket.InputStream,socket.OutputSt  ream,"data")

    End If

End Sub



Sub data_NewData (Buffer() As Byte)

    

    Dim newdata As String

    newdata = BytesToString(Buffer,0,Buffer.Length,"UTF-8")

    

    If newdata = "allapp" Then

        

        Dim allapp As String

        allapp = Application.LabelName

        send.Write(allapp.GetBytes("UTF-8"))

        

    Else

            s.Initialize

            p.Shell(newdata,Null,s,Null)

            Dim cmd As String = s.ToString

            send.Write(cmd.GetBytes("UTF-8"))

    End If

نمونه کد دوربین


Sub Globals

    Private pnl_1 As Panel

    Private img As ImageView

    Dim ca As Camera

End Sub



Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("l1")

    ca.Initialize(pnl_1,"cam")

End Sub



Sub cam_Ready (Success As Boolean)

    If Success Then

        ca.StartPreview

    Else

        ToastMessageShow("خطای دوربین",False)

    End If

End Sub



Sub Activity_Resume

    

End Sub



Sub Activity_Pause (UserClosed As Boolean)

    

End Sub



Sub btn_take_Click

    ca.TakePicture

End Sub



Sub cam_PictureTaken (Data() As Byte)

    Dim ou As OutputStream

    ou = File.OpenOutput(File.DirRootExternal,"pic.jpg",Fal  se)

    ou.WriteBytes(Data,0,Data.Length)

    ou.Close

    ToastMessageShow("عکس ذخیره شد",False)

    img.Bitmap = LoadBitmap(File.DirRootExternal,"pic.jpg")

End Sub

سپاس