رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • 0
rasool.g

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

سوال

rasool.g    98

کاربر رو به رشد

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

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

rasool.g    98

کاربر رو به رشد

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

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
rasool.g    98

کاربر رو به رشد

کتابخانه 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 قبلا کار کردم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
مهمان
این موضوع برای عدم ارسال قفل گردیده است.

×
×
  • جدید...