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

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

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

اطلاعیه

کاربر گرامی

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

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


  • 0
rasool.g

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

سوال

rasool.g    92

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

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

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 پاسخ به این سوال تا کنون داده شده است

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

  • 1
rasool.g    92

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

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

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


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

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

میدونم این دو کد آرایه رو به فایل تبدیل میکنه و برعکسش فایل رو به آرایه بایت. ولی ترجیحا امکانش هست آرایه رو مستقیم ارسال و دریافت کرد به جای اینکه فایل ساخته بشه و ارسال بشه؟ :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:

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

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


×
×
  • جدید...