88888880 0 ارسال شده در 14 آبان، ۱۳۹۷ اشتراک گذاری ارسال شده در 14 آبان، ۱۳۹۷ سلام خدمت همه کد زیر سورس اپارت هست میخام ی api دیگه جایگزیین کنم هر کار کردم نشد چون بلد نیستم ! عزیزانی ک وقت دارن برام مشکلمو حل کنن تازه کارم #Region Project Attributes #ApplicationLabel: Aparat #VersionCode: 1 #VersionName: 1.0 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals Private httpjob1 As HttpJob End Sub Sub Globals Private Panel1 As Panel Private ScrollView1 As ScrollView Private Button1 As Button Dim list1,list2,list3,list4,list5,list6 As List Dim lb As Label Dim st As String Dim links As Map Private Panel11 As Panel Private vid_img As ImageView Private vid_time As Label Private vid_title As Label Private vid_date As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") Dim aparat_un As String = "aparat"' <---- آی دی کانال آپارات شما httpjob1.Initialize("httpjob1",Me) httpjob1.Download("http://www.aparat.com/etc/api/videobyuser/username/"&aparat_un) ProgressDialogShow2("کمی صبر کنید ...",False) list1.Initialize list2.Initialize list3.Initialize list4.Initialize list5.Initialize list6.Initialize links.Initialize End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub jobdone(job1 As HttpJob) If job1.Success Then ProgressDialogHide Dim json As JSONParser json.Initialize(job1.GetString) Dim m As Map = json.NextObject Dim list As List list= m.Get("videobyuser") For i=0 To list.Size - 1 m=list.Get(i) list1.Add(m.Get("title")) list2.Add(m.Get("sender_name")) list3.Add(m.Get("duration")) list4.Add(m.Get("sdate")) list5.Add(m.Get("big_poster")) list6.Add(m.Get("frame")) Next Dim stop As Int = 2%y For ii = 0 To list1.Size -1 Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,stop,100%x,100%Y) p.LoadLayout("2") stop = stop + 72%y vid_title.Text = list1.Get(ii) vid_date.Text = list4.Get(ii) vid_time.Text = list3.Get(ii) vid_time.Text = tabdil(vid_time.Text) st = list6.Get(ii) lb.Initialize("lb") lb.Text = list6.Get(ii) Button1.Tag = lb.Text ScrollView1.Panel.Height = stop links.Put(vid_img,list5.Get(ii)) CallSubDelayed2(ImageDownloader, "Download",links ) Next Else End If End Sub Sub tabdil(ms As Int) As String Dim seconds, minutes As Int seconds = Round(ms / 1) minutes = Floor(seconds / 60) seconds = seconds Mod 60 Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0) End Sub Sub button1_click Dim btn As Button btn.Initialize("btn") btn=Sender Private in As Intent in.Initialize(in.ACTION_VIEW, btn.Tag) StartActivity(in) End Sub ' www.chara.ir میخام از api زیر استفاده کنم یعنی نتایج کلمه eshgh رو میخام تو برنامه بهم نشون بده ممنون میشم برام حل کنید مشکلمو http://telegrambots.cf/api/behmusic/index.php?q=eshgh سورس هم اپلود کردم اگر دوستان برام حل کنن ی دنیا ممنون میشم فقط میخام title و کاور نشون بده بعد خودم سورس نگاه میکنم یاد میگیرم New zip Archive لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
محمدرضا شاهپیری 5,579 ارسال شده در 14 آبان، ۱۳۹۷ اشتراک گذاری ارسال شده در 14 آبان، ۱۳۹۷ پیشنهاد میکنم برای کارهای سرور از کتابخونه های زیر استفاده کنید و اما جیسون رو میتونید به صورت زیر با کتابخونه های پیشفرض دریافت و پارس کنید. من فقط نحوه نمایشش رو میگم خدمتتون بقیش رو خودتون انجام بدید که ساده هم هست Dim pp As HttpJob pp.Initialize("mm",Me) pp.Download("http://telegrambots.cf/api/behmusic/index.php?q=eshgh") Wait For jobdone (job As HttpJob) If job.Success Then Dim str As String=job.GetString Dim parser As JSONParser parser.Initialize(str) Dim root As Map = parser.NextObject Dim count As Int = root.Get("count") Dim results As List = root.Get("results") For Each colresults As Map In results Dim cover As String = colresults.Get("cover") Log(cover) Dim id As String = colresults.Get("id") Log(id) Dim title As String = colresults.Get("title") Log(title) Next End If لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
88888880 0 ارسال شده در 14 آبان، ۱۳۹۷ سازنده اشتراک گذاری ارسال شده در 14 آبان، ۱۳۹۷ در 7 دقیقه قبل، محمدرضا شاهپیری گفته است : پیشنهاد میکنم برای کارهای سرور از کتابخونه های زیر استفاده کنید و اما جیسون رو میتونید به صورت زیر با کتابخونه های پیشفرض دریافت و پارس کنید. من فقط نحوه نمایشش رو میگم خدمتتون بقیش رو خودتون انجام بدید که ساده هم هست Dim pp As HttpJob pp.Initialize("mm",Me) pp.Download("http://telegrambots.cf/api/behmusic/index.php?q=eshgh") Wait For jobdone (job As HttpJob) If job.Success Then Dim str As String=job.GetString Dim parser As JSONParser parser.Initialize(str) Dim root As Map = parser.NextObject Dim count As Int = root.Get("count") Dim results As List = root.Get("results") For Each colresults As Map In results Dim cover As String = colresults.Get("cover") Log(cover) Dim id As String = colresults.Get("id") Log(id) Dim title As String = colresults.Get("title") Log(title) Next End If وای ممنون دستت درد نکنه ادامه شو وقت ندارید بنویسید؟ک ران کنم خیلی لازمم است. دوتا لینک هم ک دادید الان میرم میخونم چون خیلی تازه واردم واس همین گفتم اگ کامل سورس اینو در اخطیارم بزارید ران کنم بهتر متوجه میشم.مچکرم از شما دوست عزیز لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
88888880 0
سلام خدمت همه کد زیر سورس اپارت هست میخام ی api دیگه جایگزیین کنم هر کار کردم نشد چون بلد نیستم ! عزیزانی ک وقت دارن برام مشکلمو حل کنن تازه کارم
میخام از api زیر استفاده کنم یعنی نتایج کلمه eshgh رو میخام تو برنامه بهم نشون بده ممنون میشم برام حل کنید مشکلمو
http://telegrambots.cf/api/behmusic/index.php?q=eshgh
سورس هم اپلود کردم اگر دوستان برام حل کنن ی دنیا ممنون میشم فقط میخام title و کاور نشون بده بعد خودم سورس نگاه میکنم یاد میگیرم
New zip Archive
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.