اشتراک گذاری صفحه ای که webview داخلش لود میشه

[farzad 41]

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

[farzad 41]

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

[پژمان نیکروان 6,055]

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

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

[namo_57 8]

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

سلام

 

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

وچطوری میشه یه خیر دیگه رو پیوتد کرد به وب ویو همون اکتیوتی pejman3

 

مثال من میخوام به جز rssرز بلاگ یکrssدیگه هم داشته باشم اما نمیخوام باز اکتیوتی تعریف کنم وrssدر همون اکتیوتی ها باشه فقط لینک rssو اضافه کنم

 

 

متشکرم

[مهدی ایزدی 9,203]

درود

خب شما توی WebBrowser خودتون یک String دارید به نام URL

توی Sub Globals یک String تعریف کنید مثلا به نام Address

بعد توی Page Finished بگید Address = URL

بعد اشتراک گذاری متن رو انجام بدید و متن اشتراک رو هم همون Address بنویسید دیگه

[farzad 41]

سلام آقای ایزدی میشه کدش را بذارید

[farzad 41]

منظورم کدی که باید برای اشتراک گذاری هست

[farzad 41]

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

[مهدی ایزدی 9,203]

درود . تشکر بابت خریدتون و حمایت از برنامه نویسش.

پست هاتون رو نگاه کنید زمان هاشون رو: 10:05 ، 10:29 ، 10:40 ...

اینجور پست ها اسپم محسوب میشن. لطفا دیگه به هیچ وجه همچین کاری رو تکرار نکنید چون برخورد میشه

در مورد کد هم:

Sub Globals
   Private WebView1 As WebView
   Dim address As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Layout1")
   WebView1.LoadUrl("http://answercenter.ir")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub WebView1_PageFinished (Url As String)
   address = Url
   ToastMessageShow("صفحه به طول کامل باز شد",False)
End Sub

Sub Button1_Click
   Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",address)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)
End Sub

تست نکردم ولی 100% جواب میده :-d

[farzad 41]

آقای ایزدی تست کردم جواب نداد فقط این را می نویسه در اشتراک گذاری

file:///

[پژمان نیکروان 6,055]

سلام ...

خب معلومه باید اینو بنویسه چون شما اشتراک گذاری رو دارید با url صفحه ای که لود شده اشتراک میذارید. که مدونم اقای ایزدی هم نمیدونستن و فکر کردن که شما دارید ادرس سایت رو مستقیم باز میکنید.

اگه به کمک سورس خبرخوان رزبلاگ دارید اینکارو انجام میدید. باید بگم که...

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

و عنوان رو از تگ <Title> میگیره و متن رو از یه تگ دیگه...

حالا اراس اس هر سایت به جز متن و عنوان یه تگ دیگه ای به نام <link> داره که میشه ادرس هر صفحه رو از اونجا گرفت.

نمونه کد کوچیک اراراس یک مطلب:

<title>آژیر شارژر جدید مخصوص گوشی اندروید</title>
<link>http://peji-net.ir/post/526</link>
<description>متن خبر</description>

دیدین؟ اولی عنوان و دومی تگ لینک...

یعنی شما به راحتی میتونید همونطور که با تگ متن و عنوان ، متن مخصوص به خودش رو میگیرید حالا بیاید با تگ لینک ، لینک هرخبر رو بگیرید و مثل من که تو یه متغیر ذخیره کردم ، متغیری جدا برای اینکار تعریف کنید و اونجا قرار بدید و موقع اشتراک گذاری لینک مربوط به همون خبر رو شر کنه (همونطور که موقع لود مطلب ، مطلب مربوط به عنوانش رو تو وب ویو لود میکنه)

درضمن حتی میشه متن توی وب ویو هم به اشتراک گذاشت...

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

[farzad 41]

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

[پژمان نیکروان 6,055]

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

کد گرفتن متن و عنوان هر خبر رو هم که بلدید. که به ای صورت هست داخل کد های سورس:

Sub WebView1_PageFinished (Url As String)
   ProgressDialogHide
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[1].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[2].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[3].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[4].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[5].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('title')[6].innerHTML)")

web.executeJavascript(WebView1,"B4A.CallSub('matn1',true,document.getElementsByTagName('description')[1].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('matn2',true,document.getElementsByTagName('description')[2].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('matn3',true,document.getElementsByTagName('description')[3].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('matn4',true,document.getElementsByTagName('description')[4].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('matn5',true,document.getElementsByTagName('description')[5].innerHTML)")
web.executeJavascript(WebView1,"B4A.CallSub('matn6',true,document.getElementsByTagName('description')[6].innerHTML)")
End Sub

خب حالا دیگه من با کد میگم به شما... اینکاری که میگم بکنید.

داخل procces_Gloubal همین اکتیویتی که کدهای بالا توشه یه متغیر از نوع لیست تعریف کنید:

        Dim list2 As List

و قسمت Activity_Create لیست رو intiziale میکنیم:

list2.Initialize

حالا این کد زیر رو به پایین کد های بالا که گذاشتم اضافه کنید:

Dim i As Int
For i=1 To 6
web.executeJavascript(WebView1,"B4A.CallSub('links',true,document.getElementsByTagName('link')["&i&"].innerHTML)")
Next

تا اینجا میاد لینک های هرخبر رو هم از اولی تا ششمی میگیره و میده به ساب links و ماهم این ساب رو اینجا ایجاد میکینم:

Sub links(lk As String)
list2.Add(lk)
End Sub

این هم ساب links که هروقت یه لینک میده اون لینک رو به لیستی که تعریف کردیم اضافه میکنه.

حالا پس لینک ها هم تو list2 داریم.

بازهم به سورست دقت کن ، توی اکتیویتی pejman3 قسمت activity_create اومده متن خبرارو لود کرده توی وب ویو.

یعنی کداش اینه:

WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body>")
   If Main.ch=0 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l1)
   Else If Main.ch=1 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l2)
   Else If Main.ch=2 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l3)
   Else If Main.ch=3 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l4)
   Else If Main.ch=4 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l5)
   Else If Main.ch=5 Then
   WebView2.LoadHtml("<body background='http://up.peji-net.ir/up/nimbuzz-tak/Pictures/roz986160.gif'></body><p align='right' dir='rtl'>"&Main.l6)
   End If

حالا تو همین اکتیوتی بیا تو قسمت sub Gloubal یه متغیر تعریف کن:

    Dim address As String

و بالای کد های if که نوشته شده این کد رو اضافه کن ، یعنی هرایتمی که کلیک شده ادرس مربوط به همون رو بریز تو متغیر address:

    address=pejman2.list2.get(Main.ch)

دیگه هم دست خودته که بیای با کلیک کردن رو یه باتون اون address رو به اشتراک بذاری:

Sub Button1_Click
   Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",address)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)
End Sub

[a.ahmadi 1]

بهترین سایت دنیاست