ارسال آرایه باینری به سرور- ذخیره و دریافت آن

[rasool.g 135]

کد زیر میاد یه تصویر رو رمزنگاری میکنه و بعد آرایه باینری خروجی یا عکس رو در دیتابیش خود گوشی ذخیره میکنه و دوباره اون رو میخونه

Dim imgbitmap As Bitmap = LoadBitmap(File.DirAssets, "photo_2019-10-31_22-33-22 (2).jpg")

Dim imgbytes() As Byte = ImageToBytes(imgbitmap)

Dim ch As B4XCipher
Dim imgbytesEnc() As Byte = ch.Encrypt(imgbytes,"password")


SQL1.ExecNonQuery2("INSERT INTO table2 VALUES('img_name', ?)", Array As Object(imgbytesEnc))

  '###############################

Dim Cursor1 As Cursor = SQL1.ExecQuery2("SELECT image FROM table2 WHERE name = ?", Array As String("smiley"))
Cursor1.Position = 0
Dim Buffer() As Byte = Cursor1.GetBlob("image")



Dim imgbytesDec() As Byte = ch.Decrypt(Buffer,"password")

Dim imgbitmap2 As Bitmap = BytesToImage(imgbytesDec)
imgv1.Bitmap = imgbitmap2

حالا اگه بخوام فایل رمزنگاری شده به سرور ارسال بشه و اونجا ذخیره بشه و دوباره از سرور دریافت بشه. کد نویسیش چه جوری میشه؟

[rasool.g 135]

میدونم این دو کد آرایه رو به فایل تبدیل میکنه و برعکسش فایل رو به آرایه بایت. ولی ترجیحا امکانش هست آرایه رو مستقیم ارسال و دریافت کرد به جای اینکه فایل ساخته بشه و ارسال بشه؟

Sub BytesToFile (Dir As String, FileName As String, Data() As Byte)
	Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
	out.WriteBytes(Data, 0, Data.Length)
	out.Close
End Sub

Sub FileToBytes (Dir As String, FileName As String) As Byte()
	Return Bit.InputStreamToBytes(File.OpenInput(Dir, FileName))
End Sub

ارسال فایل هم البته خوب یادم نیست ولی فکر کنم قبلا انجام داده بودم

[rasool.g 135]

کتابخانه OkhttpUtils2 گزینه های زیر رو هم داره. کسی با این متد ها کار کرده؟

Dim Job1 As HttpJob
	Job1.Initialize("Job1", Me)


	Job1.PostFile("http://"& sip &"/44/getfile.php?FileName=" & encodedUrl,File.DirRootExternal & "/upload",file_name)


	Job1.GetInputStream
	Job1.PostBytes
	Job1.PutBytes

با PostFile قبلا کار کردم