Sub btnScrShot_LongClick
' Take a screenshot.
Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap
Dim c As Canvas
Dim now, i As Long
Dim dt As String
DateTime.DateFormat = "yyMMddHHmmss"
now = DateTime.now
dt = DateTime.Date(now) ' e.g.: "110812150355" is Aug.12, 2011, 3:03:55 p.m.
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, dt & ".png", False)
bmp.WriteToStream(Out, 100, "PNG")
Out.Close
End Sub
توی گالری عکسی که ذخیره کردم رو نشون نمیده
عکس توی مسیر مشخص شده ذخیره شده ، اما خیلی طول میکشه که توی گالری گوشی جز عکسای دیگه بیاد
اما با برنامه های دیگه (مثه pixlr)تا یه عکس ذخیره میکنم سریع به گالری هم اضافه میشه
سوال
naeini89 30
سلام
با این کد که از پنل خروجی عکس میگیرم :
توی گالری عکسی که ذخیره کردم رو نشون نمیده
عکس توی مسیر مشخص شده ذخیره شده ، اما خیلی طول میکشه که توی گالری گوشی جز عکسای دیگه بیاد
اما با برنامه های دیگه (مثه pixlr)تا یه عکس ذخیره میکنم سریع به گالری هم اضافه میشه
مشکل کجاس؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.