اطلاعیه

کاربر گرامی

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

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


  • 0
hossein92

خواندن عکس از gallery یا دوربین وذخیره کردن آن در دیتابیس

سوال

با سلام خدمت دوستان عزیز

کسی میتونه کمک کنه که ی کدی بنویسیم که عکس از داخل گالری یا با دوربین بگیرم و داخل دیتابیس ذخیره کنم

اینم بگم سرچم کردم ی موضوع بود ولی متوجه نشدم با تشکر

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


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

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

  • 0

منون نیما جان

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

بازم منون

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


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

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


Sub Button3_Click

   Dim chooser As ContentChooser

   chooser.Initialize("chooser")

    chooser.Show("image/*", "Choose image")    End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)

   If Success Then

       Dim bmp As Bitmap

       bmp.Initialize(Dir, FileName)


  ImageView1.Bitmap=bmp

   Else

       ToastMessageShow("No image selected", True)

   End If

End Sub

SaveImageToDB.rar

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


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

ببخشید زیاد سوال میکنم الان دسترسی به بیسیک ندارم نمیتونم تست کنم

پس الان bmp شده مسیر فایل انتخاب شده ی ما که قرار اونو ذخیره کنیم تو دیتابیس درسته ؟ بجایاینکه تو ویو نمایش بدم تو دیتابس ذخیره کنم

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


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

بله وقتی روی باتن 3 می زنید به گالری گوشی میره و یک عکس انتخاب میشه و به imageview فرستاده میشه و با زدن باتن 1 اون توی بانک ذخیره میشه

اینم یه کد دیگه شاید به دردتون خورد

موفق باشید

crop camera.rar

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


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

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


Sub Button3_Click

Dim chooser As ContentChooser

chooser.Initialize("chooser")

chooser.Show("image/*", "Choose image") End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)

If Success Then

Dim bmp As Bitmap

bmp.Initialize(Dir, FileName)


ImageView1.Bitmap=bmp

Else

ToastMessageShow("No image selected", True)

End If

End Sub

سلام میشه کتابخونه مورد نیازشم لطف کنید؟؟؟

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


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

سلام

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

چه جوری می تونم مشکلم رو مطرح کنم

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در در 1393/12/25, 14:36:53، نیما قبادی گفته است :

بفرما یه سورس آماده داشتم

attachment.php?attachmentid=1205&stc=1

SaveImageToDB.zip

من ایکلیپس کار میکنم کسی هست همچین کدی برای ایکلیپس داشته باشه

زیاد سرچ کردم اما چیزی دستگیرم نشد

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


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

مطالب شما نیاز است به تایید مدیران برسد

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

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

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

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

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

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