گرفتن عکس و ارسال هم زمان از پنل

[ehadi 16]

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

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

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

دوستان کسی می تونه کمک کنه

Sub sav_Click
		Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap
Dim c As Canvas
If File.ExternalWritable = True Then

Dim random As String = Rnd("100","1000")
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(Panel4.Width, Panel4.Height)
c.Initialize2(bmp)
Dim args(1) As Object
Dim types(1) As String
Obj2.Target = c
Obj2.Target = Obj2.GetField("canvas")
args(0) = Obj2.Target
types(0) = "android.graphics.Canvas"
Obj1.RunMethod4("draw", args, types)
Dim Out As OutputStream

Out = File.OpenOutput(File.DirRootExternal,"ashegane" & random & ".jpeg" , False)

bmp.WriteToStream(Out,100,"JPEG")
Msgbox("ذخیره شد","ذخیره")
Else
Msgbox("مشکل در دسترسی به حافظه موبایل","خطا در ذخیره ی عکس")
End If
End Sub

[حاج حسین 2,098]

برای اشتراک گذاری عکس از 

کتابخانه AriaLib (اشتراک گذاری)

 استفاده کنید

[ehadi 16]

 

برای اشتراک گذاری عکس از 

کتابخانه AriaLib (اشتراک گذاری)

 استفاده کنید

تو کتابخونه اریا چیکار کنم که تشخیص بده آخرین فایلی که ذخیره شده رو ارسال کنه؟

[مهدی ایزدی 9,203]

 

 

تو کتابخونه اریا چیکار کنم که تشخیص بده آخرین فایلی که ذخیره شده رو ذخیره کنه؟

 

شما وقتی عکس رو ذخیره میکنید آدرس و اسم دقیق رو به صورت یک String در بیارید و به AriaLib بدید