رفتن به مطلب
  • 0

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


mohammade79

سوال

سلام دوستان یه برنامه ساختم که عکس میگیرم با دوربین و پس از عکسای در یک imageview نشون میده که میخوام این امیج ویو رو به اکتیویتی دیگری انتقال دهم اینم کدمه برای نمایش ایمیج ویو ممنون میشم

    Sub Camera1_PictureTaken (Data() As Byte)
    cam.StartPreview
    Dim random As Int
    random= Rnd(0,99999)
    File.MakeDir(File.DirRootExternal,"telescope/pic")
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal,"telescope/pic" & random & ".jpg", False)
    out.WriteBytes(Data, 0, Data.Length)
    out.Close
    ToastMessageShow("عکس ذخیره شد در: " & File.Combine(File.DirRootExternal, ".jpg"), True)
    cap.Enabled = True
	Spinner1.BringToFront
	Spinner1.Enabled=True
	Dim bt3 As BitmapDrawable
	bt3.Initialize(LoadBitmap(File.DirRootExternal,"telescope/pic" & random & ".jpg"))
	imageview1.Background = bt3
	imageview1.Gravity = Gravity.FILL
	imageview1.Visible=True
	imageview1.BringToFront
	Button16.BringToFront
	Button15.BringToFront
	Button14.BringToFront
	Button13.BringToFront
End Sub

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

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

ارسال های توصیه شده

سلام.

شما تو این ادرس ذخیرش کردین که: File.DirRootExternal,"telescope/pic" & random & ".jpg"

فقط باید این random رو توی متغیر نگه دارید تا بدونید چطور باید لود کنید.

یه متغیر داخل Procces Gloubal تعریف کنید مثلا به نام: r

Dim r as int

بعد کد های خودتون رو به این ویرایش کنید:

Sub Camera1_PictureTaken (Data() As Byte)
    cam.StartPreview
    Dim random As Int
    random= Rnd(0,99999)
    File.MakeDir(File.DirRootExternal,"telescope/pic")
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal,"telescope/pic" & random & ".jpg", False)
    out.WriteBytes(Data, 0, Data.Length)
    out.Close
    ToastMessageShow("عکس ذخیره شد در: " & File.Combine(File.DirRootExternal, ".jpg"), True)
    cap.Enabled = True
	Spinner1.BringToFront
	Spinner1.Enabled=True
	Dim bt3 As BitmapDrawable
	bt3.Initialize(LoadBitmap(File.DirRootExternal,"telescope/pic" & random & ".jpg"))

r=random

	imageview1.Background = bt3
	imageview1.Gravity = Gravity.FILL
	imageview1.Visible=True
	imageview1.BringToFront
	Button16.BringToFront
	Button15.BringToFront
	Button14.BringToFront
	Button13.BringToFront
End Sub

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

imageview2.SetBackgroundImage(LoadBitmap(File.DirRootExternal,"telescope/pic" & main.r & ".jpg"))

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

اقا این کد نشد اررو میده اصلا اینت نمیگیره

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

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

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

دوستان ببخشید من یه اشتباهی کرده بودم و نوشتم r as random  که حواسم نبود باید میزدم int درسته مشکلی نداره ممنون

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...