ارسال عکس به سمت سرور در b4a

[lakers 0]

با سلام بر اساتید

من میخوام با کتابخانه camera یک عکسی بگیرم و در حافظه ذخیره کنم بعد به سمت سرور (پایتون) ارسال کنم: یک کدی را گیر آوردم لطفا بگید درست هست یا نه ؟

کداصلی این هست: حالا سئوال اینجا هست که کد باید به صورت دیتا ارسال بشه یا بافر ؟

Sub cam_PictureTaken (Data() As Byte)
	Dim ou As OutputStream
	ou = File.OpenOutput(File.DirRootExternal,"pic.jpg",False)
	ou.WriteBytes(Data,0,Data.Length)
	ou.Close

سپاس