M-CAP7AIN

مثال شما کلمه Salam رو تایپ میکنید میشه new به حالت قبلی این رشته (Sala) میشه old

اینا یسری هدره برای هر درخواست باید ارسال بشه ، بطور مثال با مرورگر چندتا تب باز میکنید نمیتونید بگید تب 1 رو ست میکنم تب دیگه رو لازم نیست. سرور این هدرها (ترجمه فارسی سرآیند) براش مهمه!

Dim mm As MC7Http mm.Initialize("" , "Job1" , 8000 , Me) mm.SetContentType("application/x-www-form-urlencoded") mm.SetHeader("User-Agent" , "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:61.0) Gecko/20100101 Firefox/61.0") تست کنید

به گفته گوگل و ارل باید رو 26 ست بشه ، تو اندروید 8 به بالا به مشکل بر میخوره. تا اندروید 8 پرمیشن اینترنت لازم به دسترسی نیست، فقط باید اضافه بشه. ولی پرمیشن حافظه لازمه

سلام تو بخش Header کتابخونه ها من تو MC7FastNetworking تست میکنم اوکی بوده ، رو مثل این کتابخونه ها هم جواب میده اگه هدر ساپورت کنه

از هدر استفاده کنید. (تو یه پروژه کار میکردم سرور به هدر حساس بود، به عنوان حمله DOS میشناخت ، زیاد اهمیت نمیداد به پکت ، از 10 تا درخواست 2 تاش بر می گشت) Dim USER_AGENT As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:61.0) Gecko/20100101 Firefox/61.0" Dim CONTENT_YTPE As String = "application/x-www-form-urlencoded"

به گفته گوگل باید روی 26 ست بشه ، احتمالش هست تو اندروید بالاتر مشکل به وجود بیاد.

stickerview2v1.0.2.zip StickerView2.rar رمز : answercenter.ir

احتمالا کتابخونه ها مشکل دارند API رو 26 به بالا گذاشته بشه SDK آپدیت نیست.

1. خود گوگل مثالی نزده 2. اندروید هنگام اجرا apk اول دسترسی رو چک میکنه ، اگه دسترسی نباشه برنامه درست عمل نمیکنه یا با ارور مواجه میشه.(نشدنیه مخصوصا از اندروید +7)

AddManifestText(<permission android:name="com.test.mcap7ain" android:label="M-CAP7AIN" android:protectionLevel="dangerous"></permission>) AddPermission(com.test.mcap7ain) (Manifest editor)

احتمالا از ریسورس باشه یا اندازه استاتوس بار تاثیر گذاشته روش (متدهاشو چک کنید یا همین سورس رو پیوست کنید ، تست بشه)

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

این بخش رو مثال میزنم If job.JobName = "get_news" Then Dim dat As List dat = parser.NextArray For i = 0 To dat.Size -1 Dim m As Map m = dat.Get(i) lb_title.Text = m.Get("title") lb_user.Text= m.Get("user") lb_cat.Text = m.Get("cat") id = m.Get("id") lb_text.Text = m.Get("text") Next SV.Panel.AddView(lb_text,0,1%x,93%x,50%y) lb_text.Height = stu.MeasureMultilineTextHeight(lb_text,lb_text.Text) + 2%y SV.Panel.AddView(bt_send,0,lb_text.Height + 2%y , 23%x , 8%y ) SV.Panel.AddView(ed_text,23.1%x , lb_text.Height + 1%y , 100%x , 10%y ) End If به این. If job.JobName = "get_news" Then Dim dat As List dat = parser.NextArray For i = 0 To dat.Size -1 Dim m As Map m = dat.Get(i) lb_title.initialize("") ' بقیه هم به همین صورت باید ساخته بشه. lb_title.Text = m.Get("title") lb_user.Text= m.Get("user") lb_cat.Text = m.Get("cat") id = m.Get("id") lb_text.Text = m.Get("text") SV.Panel.AddView(lb_text,0,1%x,93%x,50%y) lb_text.Height = stu.MeasureMultilineTextHeight(lb_text,lb_text.Text) + 2%y SV.Panel.AddView(bt_send,0,lb_text.Height + 2%y , 23%x , 8%y ) SV.Panel.AddView(ed_text,23.1%x , lb_text.Height + 1%y , 100%x , 10%y ) Next End If خیلی راحت با نرم افزار (چاقو همه کاره دیزاینر) ، میتونید آیتم های اسکرول ویو رو بسازید.

سورس رو نگاه نکردم ولی sleep متد پیشفرض B4A اندروید، اگه نسخه قدیمی بیسیک رو دارید آپدیت کنید