اطلاعیه

کاربر گرامی

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

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


hossein92

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

9 ارسال در این موضوع قرار دارد

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

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

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

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


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

منون نیما جان

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

بازم منون

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


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

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


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

ویرایش شده در توسط babecatdog

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


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

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

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

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


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

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

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

موفق باشید

crop camera.rar

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


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

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


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

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

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


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

سلام

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

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

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


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

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

attachment.php?attachmentid=1205&stc=1

SaveImageToDB.zip

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

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

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری