رفتن به مطلب

mohammad_2015

کاربر عادی
  • تعداد ارسال ها

    13
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

1 متوسط

درباره mohammad_2015

  • درجه
    کاربر
  • تاریخ تولد 22 بهمن 1366

مشخصات پروفایل

  • محل زندگی
    اهواز
  • محل تولد
    اهواز
  • علاقه مندی ها
    بازی ، فیلم ، موسیقی ، کدنویسی
  1. درود همونطور که تا حدودی از عنوان مشخص هست مشکل فیکس یا ثابت نگهداشتن اسکرول عمودی وب ویو دارم البته من نمیخوام با وب ویو لینک باز کنم و قرار هست فقط متن نمایش بدم (به دلایلی) یه چک باکس گذاشتم و میخوام اگر تیک خورده بعد ار هربار بارگذاری اسکرول به آخر بره. اما اگر تیک نخورده اسکرول همونجا بمونه (فیکس بشه جایی که دستی اسکرول کردم) به کمک کتابخونه های Webviewextras و WebviewXtender تونستم دستور رفتن به آخر اسکرول و همچنین مختصات اسکرول عمودی رو بدست بیارم. اما در قسمت PageFinished وقتی دستور اسکرول به مختصات رو میدم غمل نمیکنه و میاد بالا جالب اینجاست همون دستور رو داخل یه دکمه گذاشتم عمل کرد :| هم کدها رو میذارم و هم سورس + کتابخونه ها اگر کسی میتونه ممنون میشم کمک کنه ضمن اینکه حتما میخوام تو قسمت PageFinished عمل بکنه Sub Globals Private Button1 As Button Private WebView1 As WebView Dim WebX As WebViewExtras Dim WebX2 As WebViewXtender Dim count As Int=0 Dim html As String Private AutoScroll As CheckBox Dim GetY As Int=0 Private Button2 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") WebX.addJavascriptInterface(WebView1, "B4A") End Sub Sub Button1_Click count=count+1 html=html&"<div>count "&count&"</div>"&CRLF GetY=WebX2.getScrollY(WebView1) WebView1.LoadHtml(html) End Sub Private Sub Webview1_PageFinished (Url As String) If AutoScroll.Checked=True Then Dim Javascript As String Javascript="B4A.CallSub('ProcessHTML', false, window.scrollTo(0,document.body.scrollHeight))" WebX.executeJavascript(WebView1, Javascript) Else WebX2.scrollTo(WebView1,0,GetY) End If End Sub Sub Button2_Click WebX2.scrollTo(WebView1,0,GetY) End Sub http://s17.picofile.com/file/8411847492/WebScroll.zip.html
  2. دست گلت درد نکنه مشکل چند ماهم حل شد
  3. مرسی از شما ، این کدهایی که دریافت کردین به معنی اتصال موفقیت آمیزه !!! خیلی عجیبه وقتی که کدی که گفتین server.InitializeSSLAcceptAll("server") قرار دادم خطای نات کانکت میده ، یعنی اصلا ب سرور وصل نمیشه و به مرحله ی کدهایی که بهشون مشکوک بودم نمیرسه الان بیشتر گمراه شدم چون مثل اینکه کدها درست و کاملن ، با چند گوشی تست کردم و همچنین با نت همراه و وای فای ، همچنین با قندشکن و بدون قندشکن، الان دیگه اصلا نمیدونم رو کدوم قسمت زوم کنم که عیب رو پیدا کنم
  4. این پروژه رو با کمی تغییرات اومدم طبق روالی که سایت xmpp توضیح داده نوشتم. لینکشم گذاشتم. همچنین سورس این روش https://xmpp.org/extensions/xep-0178.html از مشکل <failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><encryption-required/></failure> که پست قبلی اشاره کردم گذر کردم. اما بعدش پروسه ادامه پیدا نکرد. یعنی باید طبق توضیحات لینک بالایی ؛ کد xml قسمت example7 و example8 برام بیاد . اما نمیاد که روند رو ادامه بدم بازم یادآور میشم تمام کدهای xml رد و بدل شده تا اتصال موفقیت آمیز تو پوشه پروژه قرار دادم. لینک سورس دوم
  5. همچنین این خطایی که خود سرور به سوکت میفرسته <failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><encryption-required/></failure>
  6. متاسفانه برای من عمل نمیکنه ، روی یه گوشی دیگه هم تست کردم دقیقا همین مشکل پابرجاست. یه دستور دیگه هم هست server.InitializeSSL("server" , Keystorestream, "password") چیزی که من متوجه شدم ایراد از سرتیفیکیت کانکشن هست ، که خود سرور تو سایتش زده TLS requeired اما نمیدونم چجوری اعمالش کنم تعجب میکنم برای شما مشکلی نداشته !! یعنی پیغام coneccted succesfully هم ظاهر شد ؟
  7. تست کردم ، تو قسمت server_Connected(Connected As Boolean) که شرط گذاشتیم اگر سوکت وصل نشده پیغام عدم دسترسی به اینترنت گذاشتم نمایان شد. در صورتی که با کد قبلی به سرور وصل میشد و دوتا xml هم رد و بدل میشد
  8. سورس رو قراردادم به همراه یک فایل داخل پوشه پروژه به اسم xml که حاوی تمام کدهای رد و بدل شده حین کانکت شدن ، که از یه برنامه تحت ویندوز که به سرور وصل شده ، میتونه کمکتون کنه راحتر به مشکل پی ببرین http://s16.picofile.com/file/8410971234/ConnectToJabber.zip.html
  9. کسی نیست بتونه مشکلمو حل بکنه ؟ واقعا کلافه م کرده !! مطمئنم خیلی ساده میشه کانکت شد چون کدهای xml که تو اپلیکیشن ها دیگه استخراج کردم دقیقا مثل سورس هایی هست که توی سایت هم موجوده ، اما یه نکته ریزی داره که متاسفانه با کدهایی ک پیوست کردم لاگین نمیشه برای راحتی مشاورین سایت ، نام کاربری و رمز هم تو کامت قبلی گذاشتم ممنون میشم اگر کسی بلد باشه به دادم برسه
  10. Sub Connect_Click server.Initialize("server") server.Connect("jabber.hot-chilli.net",5222 ,5000) End Sub Sub server_Connected(Connected As Boolean)As Boolean If Connected = True Then x.Initialize(server.InputStream,server.OutputStream,"x") If x.IsInitialized = False Then Return Dim buffer() As Byte buffer =( "<stream:stream xmlns='jabber:client' to='jabber.hot-chilli.net' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >").GetBytes("UTF8") x.Write(buffer) Dim buffer1() As Byte Dim stf As String = Chr(0) & "test" & Chr(0) & "test" Dim stU As StringUtils Dim str As String = stU.EncodeBase64(stf.GetBytes("UTF8")) Dim str1 As String = "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" & str & "</auth>" buffer1 = str1.GetBytes("UTF8") x.Write(buffer1) Else ToastMessageShow("please check internet connection.",True) End If End Sub Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket) If Successful Then StartService("Test") server = NewSocket x.InitializePrefix(server.InputStream, False, server.OutputStream, "x") Else ToastMessageShow(LastException.Message, True) End If End Sub Sub x_NewData (Buffer() As Byte) Try Dim xml As String xml = BytesToString(Buffer, 0, Buffer.Length, "UTF8") xml = xml.Replace("""","'") If xml.Contains("<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then Dim buffers() As Byte buffers = ("<stream:stream xmlns='jabber:client' to='jabber.hot-chilli.net' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >").GetBytes("UTF8") x.Write(buffers) Dim buffers1() As Byte Dim stt As String = "<iq type='set'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>basic4android</resource></bind></iq>" buffers1= stt.GetBytes("UTF8") x.Write(buffers1) Dim buffers2() As Byte buffers2= "<iq id='jcl_2' type='set'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>".GetBytes("UTF8") x.Write(buffers2) Else If xml.Contains("<bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'>") Then Dim buffers3() As Byte buffers3= "<iq type='get' id='aab9a'><query xmlns='jabber:iq:roster'/></iq>".GetBytes("UTF8") x.Write(buffers3) Dim buffers4() As Byte buffers4= "<presence><show></show></presence>".GetBytes("UTF8") x.Write(buffers4) Else If xml.Contains("<not-authorized/>") Then x.Close server.Close ToastMessageShow("Wrong Password Or Username",False) Else If xml.Contains("<presence from='test@jabber.hot-chilli.net/basic4android' to='test@jabber.hot-chilli.net/basic4android' xml:lang='ar'><show/><x xmlns='vcard-temp:x:update'><photo/></x></presence>") Then ToastMessageShow("Connect Successful",False) End If Catch Log(LastException) End Try End Sub ضمنا همونطور که در کدها مشخصه نام کاربری و رمز test هست که براحتی با تمام اپلیکیشن ها کانکت میشه ، همچنین با لایبرری xmpp هم کانکت شد اما چون کتابخونه خریداری نشده اکثر امکاناتش غیر فعال بود
  11. درود همونطور که از عنوان مشخص هست برای اتصال به سرور jabber که بسیار کاربردی هم هست به مشکل خوردم. در واقع ماه هاست به مشکل خوردم و هرچی سرچ گردم چیزی دست گیرم نشد. یه سروی سورس موجود هست ک دوستان قبلا زحمت کشیدن و قرار دادن اما به سرورهای جدید مثل jabber.hot-chilli.net متصل نمیشه ، سورس های قرار داده شده مشکلی ندارن و به سرورهای قدیمی که نمیتونم اسم ببرم متصل میشد همچنین به سرور jabber.ru وصل میشد که متاسفانه اون سرور دیگه سرویس نمیده ، اما چند سالی هست ک کللی سرور اضاف شده ک متاسفانه سورس ها متصل نمیشه ، بنظر کدها نیاز ب کمی ویرایش داره اما ماه هاست دارم تلاش میکنم و سودی نداشت کدهای xml رو بررسی کردم از طریق اپلیکیشن bombusmod اندروید و نرم افزارهایی مثل gajim یا pandion که به راحتی به سرورها وصل میشن و حتی کدهای xml رد و بدل شده رو هم گرفتم اما بعد از یکی دو xml پروسه متوقف میشه . خطایی هم رخ نمیده که متوجه بشم ایراد از کجاست. فقط یجورایی مطمئنم یه نکته ریزی داره ک مشکل حل بشه. لطفا اگر کسی به این موضوع تسلط داره کمک بکنه در حال حاضر مشکل من اتصال به سرور jabber.hot-chilli.net هست . بتونم کانکت بشم باقی کارهاش راحته ، فقط کد اتصال میخوام
×
×
  • جدید...