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

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


ehadi

سوال

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

 استفاده کنید

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

 

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

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

 استفاده کنید

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

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

 

 

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

 

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

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

بایگانی شده

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

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

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