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

[mahfelsoft 130]

دوستان ببینید من خیلی گشتم اما به نتیجه نرسیدم ...

1. میخوام در یک صفحه کاربر یا از گالری یا با دوربین عکسی رو بگیره و توی صفحه نمیش بده . 

2 . هر عکسی در یک فیلد در دیتابیس با نام خاص ذخیره بشه .

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

 

 

( ببینید به طور معمول فراخوانی از دیتابیس و ذخیره در دیتابیس و انتخاب از گالری رو میدونم . اما ذخیره عکس به نام خاص و گرفتن اون نام و ذخیره اش رو نمی دونم .)

[peyman007 8]

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

ولی فک کنم ماله ذخیره کردن باشه

Dim out As OutputStream
out=File.OpenOutput(File.DirRootExternal&"/اسم پوشه/اسم زیر پوشه",EditText1.Text&".Png",True)
Dim Ax As Bitmap
Ax=ImageView1.Bitmap
Ax.WriteToStream(out,100,"PNG")
out.Close
ToastMessageShow("تصویر با موفقیت در پوشه ... ذخیره شد",True)
End If

[mahfelsoft 130]

در 12 دقیقه قبل، peyman007 گفته است :

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

ولی فک کنم ماله ذخیره کردن باشه

Dim out As OutputStream
out=File.OpenOutput(File.DirRootExternal&"/اسم پوشه/اسم زیر پوشه",EditText1.Text&".Png",True)
Dim Ax As Bitmap
Ax=ImageView1.Bitmap
Ax.WriteToStream(out,100,"PNG")
out.Close
ToastMessageShow("تصویر با موفقیت در پوشه ... ذخیره شد",True)
End If

»منون که جواب دادید . اما از اینا استفاده کرده بودم . اما به نتیجه نرسیدم . از دیروز کلی کد نوشتم ولی نتونستم چیزی که میخوام رو انجام بدم . دوستان لطفا راهنمایید کتید . تاپیک بی جواب نمونه .. ممنون

[AMiN.M7892 1,029]

سلام دوست عزیز؛

بفرمایید این سورس رو استفاده کنید، دقیقا همون چیزی هست که لازم دارید.

CameraIntent.zip

[mahfelsoft 130]

در 17 ساعت قبل، AMiN.M7892 گفته است :

سلام دوست عزیز؛

بفرمایید این سورس رو استفاده کنید، دقیقا همون چیزی هست که لازم دارید.

CameraIntent.zip

ممنون که این سورس رو گذاشتید اما همچین چیزی رو قبلا داشتم .

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

 

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