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

[mohammade79 127]

سلام دوستان یه برنامه ساختم که عکس میگیرم با دوربین و پس از عکسای در یک 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

[پژمان نیکروان 6,055]

سلام.

شما تو این ادرس ذخیرش کردین که: 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"))

[mohammade79 127]

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

[mohammade79 127]

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

[mohammade79 127]

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