با سلام و خسته نباشید
من میخوام بین اندروید با پایتون از طریق برنامه نویسی سوکت ارتباط برقرار کنم : به طوریکه بتونم اطلاعات دوربین را مثل وبکم به صورت زنده یا به صورت عکس به سمت سرور بفرستم : برای فرستادن دیتا به سمت سرور از این کد استفاده میشه 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
سپاس