اشتراک گذاری عکس داخل دیتابیس

[eskandarinasab1 14]

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

مثلا برای به اشتراگ گذاری متن داخل دیتابیس از کد زیر استفاده می کنم حالا برای عکس چیکار کنم

Dim cur As Cursor
(cur=home1.s.ExecQuery("select * from tbl1 where fasl="& home1.fasl

cur.Position=0
Dim share As Intent  
  ("",share.Initialize(share.ACTION_SEND
    ("share.SetType("text/plain
    (("share.PutExtra("android.intent.extra.TEXT",cur.GetString("matn
    ("به اشتراک بگذارید")share.WrapAsIntentChooser
      (StartActivity(share

[eskandarinasab1 14]

کسی جواب نمیده

[eskandarinasab1 14]

    کد زیر برای متن

Dim cur As Cursor

cur=home1.s.ExecQuery("select * from tbl1 where fasl="& home1.fasl)

cur.Position=0

Dim share As Intent

share.Initialize(share.ACTION_SEND,"")

share.SetType("text/plain")

share.PutExtra("android.intent.extra.TEXT",cur.GetString("matn"))

share.WrapAsIntentChooser("به اشتراک بگذارید")

StartActivity(share)

[eskandarinasab1 14]

???????????????????????????????????????????

[امین شاهدی 5,767]

این پسترو ببینید : http://answercenter.ir/topic/4402-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-database/#entry29241

[Kazem Forghani 2,927]

خواهش می کنم اسپم ندید .

مدیران پیگیری کنند .

[eskandarinasab1 14]

من از این کد استفاده کردم ولی نتیجه نداد

Dim cur As Cursor
    cur = home1.s.ExecQuery("SELECT aks FROM tbl1 WHERE fasl = "& home1.fasl)
    cur.Position = 0
    Dim Buffer() As Byte
    Buffer = cur.GetBlob("aks")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    Dim b As Bitmap
    b.Initialize2(InputStream1)
	    InputStream1.Close
	Dim o As OutputStream
	o=File.OpenOutput(File.DirDefaultExternal,"share.png",False)
	b.WriteToStream(o,100,"PNG")
Dim a As AriaLib
StartActivity(a.SharePic(File.Combine(File.DirRootExternal,"share.png"),"به اشتراک بگذارید"))