من با کد زیر از صفحه عکس میگیرم و میخوام اشتراک کنم
این کد رو نوشتم برای عکس گرفتن
Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap
Dim c As Canvas
Dim now As Long
DateTime.DateFormat = "yyMMddHHmmss"
now = DateTime.now
File.MakeDir(File.DirRootExternal, "/DOST/ax/")
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(Activity.Width, Activity.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 , "/DOST/ax/" & now & ".png", False)
bmp.WriteToStream(Out, 100, "PNG")
Out.Close
Dim i As Intent
i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
"file://" & File.Combine(File.DirRootExternal,"/DOST/ax/" & now & ".png"))
Dim p As Phone
p.SendBroadcastIntent(i)
ToastMessageShow("با موفقیت در گالری ذخیره شد",True)
برای اشتراک این کد رو گزاشتم و نمیفرسته
Dim b As Bitmap
b = ImageView1.Bitmap
Dim Out As OutputStream
Out = File.OpenOutput(File.DirDefaultExternal,"/DOST/ax/" & now & ".png", False)
b.WriteToStream(Out, 100, "JPEG")
Out.Close
Dim a As AriaLib
StartActivity(a.SharePic(File.DirDefaultExternal,"/DOST/ax/" & now & ".png","اشتراک گذاری با :"))
سوال
dostmobile 329
سلام دوستان عزیز
من با کد زیر از صفحه عکس میگیرم و میخوام اشتراک کنم
این کد رو نوشتم برای عکس گرفتن
Dim Obj1, Obj2 As Reflector Dim bmp As Bitmap Dim c As Canvas Dim now As Long DateTime.DateFormat = "yyMMddHHmmss" now = DateTime.now File.MakeDir(File.DirRootExternal, "/DOST/ax/") Obj1.Target = Obj1.GetActivityBA Obj1.Target = Obj1.GetField("vg") bmp.InitializeMutable(Activity.Width, Activity.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 , "/DOST/ax/" & now & ".png", False) bmp.WriteToStream(Out, 100, "PNG") Out.Close Dim i As Intent i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _ "file://" & File.Combine(File.DirRootExternal,"/DOST/ax/" & now & ".png")) Dim p As Phone p.SendBroadcastIntent(i) ToastMessageShow("با موفقیت در گالری ذخیره شد",True)برای اشتراک این کد رو گزاشتم و نمیفرسته
ممنون میشم راهنمایی کنید یا کد بهتر معرفی کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.