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

[Kazem Forghani 2,927]

سلام

چطوری می تونم عکس رو از دیتابیس آفلاین اشتراک گذاری کنم ؟

از آقای غفاری هم که می دونن درخواست ویژه دارم!

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

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

Dim cur As Cursor
    cur = sql1.ExecQuery2("SELECT image FROM table2 WHERE name = ?", Array As String("felan"))
    cur.Position = 0
    Dim Buffer() As Byte
    Buffer = cur.GetBlob("image")
    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"),"Share")

[Kazem Forghani 2,927]

اره

فکر کنم یه اشتباهی کردم اگه اخطار داد

اینو پاک کن

	If File.Exists(File.DirRootExternal, "pictures/1.jpg") = True Then
		File.Delete(File.DirRootExternal, "pictures/1.jpg")
	End If

در کل این کارو برات میکنه

 

1.فایل رو از دیتابیس میخونه

2.اونو در جایی ذخیره میکنه

3.ارسال میکنه

4.خودت قسمتی که میخوای برنامه کلا بسته بشه این کد رو بنویس

	If File.Exists(File.DirRootExternal, "pictures/1.jpg") = True Then
		File.Delete(File.DirRootExternal, "pictures/1.jpg")
	End If

من اشتباهی در Activity_Pause نوشتم

کارم اشتباه بود چون شما برای ارسال فایل startactivity میکینی و این باعث میشه فایل شما پاک بشه و فایلی ارسال نشه

به نطرتون برنامه کند نمی شه با این کار ؟

[سیدمحمد 248]

در در 1394/04/13, 04:05:40، امین شاهدی گفته است :

StartActivity(a.SharePic(File.Combine(File.DirRootExternal,"share.png"),"Share")

این خط ارور میده مشکلش چیه؟؟

[Kazem Forghani 2,927]

 

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

Dim cur As Cursor
    cur = sql1.ExecQuery2("SELECT image FROM table2 WHERE name = ?", Array As String("felan"))
    cur.Position = 0
    Dim Buffer() As Byte
    Buffer = cur.GetBlob("image")
    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"),"Share")

خیلی ممنون .

آقای شاهدی راه دیگه ای وجود نداره ؟

امکان این نیست که عکس یک imageview رو به اشتراک بگذاریم ؟

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

چرا به این صورت : 

Dim img As ImageView
 Dim b As Bitmap
 b.Initialize3(img.Bitmap)
	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"),"Share")

[Kazem Forghani 2,927]

 

چرا به این صورت : 

Dim img As ImageView
 Dim b As Bitmap
 b.Initialize3(img.Bitmap)
	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"),"Share")

ببینید من می خوام یه فایل که توی imageview گذاشتم رو (حالا از دیتابیس یا هر جای دیگه) به اشتراک بگذارم . به وسیله imageview .

می شه درباره کد های بالا توضیح بدید

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

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

اول ایمیج ویو رو معرفی کردیم

یه bitmap به اسم b معرفی کردیم 

اونو initialize3 کردیم که bitmapرو بهش بدیم و گفتیم bitmap اون برابر باشه با عکس Imageview

 یه فایل outputstream  ایجاد کردیم 

وبعد گفتیم اونو روstream ذخیره کنه  (سیوکردن عکس روحافطه خارجی)

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

[Nemesis 1,846]

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

و عکس هم به صورت bytes هست یا آدرس؟

[Kazem Forghani 2,927]

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

سلام.

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

اگر هم می شه فقط در برنامه های مسنجر به غیر از پیامک .

اشکال نداره . فقط می خوام بتونم به اشتراک بگذارم .

[Alireza.Ghafari 2,104]

سلام 

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

شرمنده سورس در هارد قبلیم بود و گر نه حتما قرار میدادم براتون...

[Kazem Forghani 2,927]

سلام 

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

شرمنده سورس در هارد قبلیم بود و گر نه حتما قرار میدادم براتون...

هر وقت فرصت داشتید قرار بدید لطفا

[Nemesis 1,846]

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

 

پسورد : basic4android.org

 

Share Image.zip

[Kazem Forghani 2,927]

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

 

پسورد : basic4android.org

این می آد و عکس رو از دیتایس می گیره و ذخیره می کنه و اشتراک گذاری می کنه؟؟؟

[Nemesis 1,846]

اره

فکر کنم یه اشتباهی کردم اگه اخطار داد

اینو پاک کن

	If File.Exists(File.DirRootExternal, "pictures/1.jpg") = True Then
		File.Delete(File.DirRootExternal, "pictures/1.jpg")
	End If

در کل این کارو برات میکنه

 

1.فایل رو از دیتابیس میخونه

2.اونو در جایی ذخیره میکنه

3.ارسال میکنه

4.خودت قسمتی که میخوای برنامه کلا بسته بشه این کد رو بنویس

	If File.Exists(File.DirRootExternal, "pictures/1.jpg") = True Then
		File.Delete(File.DirRootExternal, "pictures/1.jpg")
	End If

من اشتباهی در Activity_Pause نوشتم

کارم اشتباه بود چون شما برای ارسال فایل startactivity میکینی و این باعث میشه فایل شما پاک بشه و فایلی ارسال نشه