رفتن به مطلب

محمدرضا شاهپیری

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

    4,153
  • تاریخ عضویت

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

  • روز های برد

    833

تمامی مطالب نوشته شده توسط محمدرضا شاهپیری

  1. نسخه جدید کتابخونه PersianJson آپلود شد عزیز. متدهای اضافه شده. isKeyExsit isKeyisArray isKeyisNull If pr.isKeyExsit("key") Then ToastMessageShow("exist ",False) Else ToastMessageShow("not exist",False) End If
  2. تا شب آماده میشه عزیز. درگیر ریسایکلر ویوام فعلا
  3. دو خط بالا هم کافی بود عزیزم متدش هست که چک کنه فلان کلید وجود داره یا نه. اعمال میکنم و میتونید دریافت کنید
  4. پسوند فایل تاثیری تو روند برنامه نداره عزیز. من با فیلم 900 مگابایتی با پسوند mkv تست کردم. موردی نداره و آپلود میکنه. آدرسها رو چک کنید. اگه اروری چیزی میده هم ذکر کنید که راهنمایی بهتر صورت بگیره
  5. ریسایکلرویو به زودی:53:

    1. arastooms

      arastooms

      به به دست شما درد نکنه
      (باگ گیر حرفه ای نیاز داشتید من حاظر تستش کنم ) 
      :Laie_53::Laie_53:

    2. محمدرضا شاهپیری

      محمدرضا شاهپیری

      حتما عزیزم. روت حساب باز کردم خخخ

    3. mahdi tahan

      mahdi tahan

      ماشالله.انشالله بدون باگ و مشکلی باش

  6. نسخه جدید اضافه شد. مثال استفاده برای جیسون خودتون. {"as":"AS12874 Fastweb","city":"Turin","country":"Italy","countryCode":"IT","isp":"Fastweb","lat":45.05,"lon":7.6667,"org":"Fastweb","query":"93.36.162.171","region":"21","regionName":"Piedmont","status":"success","timezone":"Europe/Rome","zip":"10127"} Dim prjs As PersianJSONOBject prjs.initialaizJsonString(JsonString) Dim root As Map =prjs.MapObject Dim zip As String = root.Get("zip") Dim country As String = root.Get("country") Dim city As String = root.Get("city") Dim org As String = root.Get("org") Dim timezone As String = root.Get("timezone") Dim isp As String = root.Get("isp") Dim query As String = root.Get("query") Dim regionName As String = root.Get("regionName") Dim lon As Double = root.Get("lon") Dim as As String = root.Get("as") Dim countryCode As String = root.Get("countryCode") Dim region As String = root.Get("region") Dim lat As Double = root.Get("lat") Dim status As String = root.Get("status")
  7. اضافه میشه این امکان. بررسی میکنم.
  8. ارور که مشخصه عزیز. JSONException به وجود اومده. چیزی که گرفتین جیسون نبوده و شما به عنوان جیسون استفاده کردین. اما شما منظورتون از موقع ارسال یعنی چی؟ کجا این اتفاق افتاده؟
  9. این همه مشکل عجیب غریب از کجا میاد خدایی؟ سورسشو نوشتم براتون. test_arastoo.rar
  10. برای بیسیک امکانش نیست فعلا عزیز. فعلا لیوت coordinator برای بیسیک نیومده.
  11. خیلی سادس که. Sub senddata(url As String) PersianFastNetwork_1.initializeforSSLSupport("persianfastnetwork") PostRequest_1=PersianFastNetwork_1.BuildPostQuery(url,"tag1") Dim json As String =("{'client_request':'get_city_data','country_key':'21'}").replace("'",QUOTE) Dim prjs As PersianJSONOBject prjs.initialaizJsonString(json) PostRequest_1.addJSONParametrs(prjs.DefaultJsonObject) PostRequest_1.executeRequesAsJSONObjectt End Sub
  12. تست کردم موردی نداره عزیز. تایمر رو هم روی 2 ثانیه گذاشتم و بدون هیچ مشکلی روی سه تا دیوایس اطلاعات رو میگیره. شما دقت داشته باشین حتما از initializeforSSLSupport برای اینشیالایز کردن استفاده کنید چون سایت ssl داره
  13. این مطالبی که فرمودین چه ربطی به کتابخونه داره عزیز؟ شما وقتی از متد initializString استفاده میکنید هر جیسونی رو به عنوان ورودی میتونید بدید. مشکل اینه که شما نمیتونید جیسون رو به سادگی به صورت یه متغیر استرینگ توی بیسیک در بیارید. شما میتونید جیسونی که میخواین رو توی یه فایل تکست بزارین و با دستور file.readstring اونو بخونید و به کتابخونه بدین بدون هیچ مشکلی.
  14. Api ها رو بدین بررسی کنم. بعید میدونم مشکل از کتابخونه باشه. شاید تلگرام محدودیت گذاشته
  15. این استرینگ غلطه که. DIM JSON AS STRING = "{"client_request":"get_city_data","country_key":"21"}" شما تو حالت عادی چجوری استرینگها رو به هم میچسبونید؟ اینجا هم همونجوریه. باید بعد از گیومه & بزارید که به هم بچسبن به صورت زیرمیشه. بقیشم کامل کنید خودتون DIM JSON AS STRING = "{"&"client_request"&":"&"get_city_data"&","&"country_key":"21"}"
  16. مثال تو پست اول آورده شده
  17. پیشاپیش از صبر و شکیبایی دوستان و کمک در بهتر شدن کتابخونه صمیمانه تشکر میکنم
  18. خواهش میکنم. انجام وظیفه اس عزیز. انشالا که تونسته باشم وظیفمو درست انجام بدم درمورد مشکل به وجود اومده باید بگم که مشکل از certificate سمت سرور هست. در صورتی که فایل مربوط به گواهی رو داشته باشین میتونین با ارسال اون به سرور متصل بشین بدون مشکل. راه دیگه ای که هست اینه که بیایم و کلا certificate رو نادیده بگیریم که این ممکنه روی ssl های کاستوم شده جواب نده و حتما باید گواهی ارسال بشه. بنده از روش دوم استفاده کردم که برای اکثر ssl هایی که رایگان هستند و به صورت پیشفرض نصب میشن موردی نداره. فعلا تنها راهش استفاده از متغرهای متفاوت با eventname های متفاوته. سعی میکنم یه راه بهینه واسه این موضوع پیدا کنم
  19. خب شما که چیزی نگرفتین از آرایه. فقط آبجکتا رو گرفتین. به شکل زیره دیگه For i=0 To mesasge.size-1 Dim PersianJSONOBject_1 As PersianJSONOBject PersianJSONOBject_1=mesasge.getJsonObject(i) Log ("داده شماره city_name_farsi "& i &" ==> "&PersianJSONOBject_1.getString("city_name_farsi")) Next
  20. مشکل برطرف شد عزیز. نسخه جدید رو دریافت کنید و ازمتد initializeforSSLSupport برای اینشیالایز استفاده کنید
  21. مجوز رو باید به صورت یه فایل با پسوند crt به کتابخونه بدی به نظرم. این فایل رو اگه دارین تا کتابخونه رو ویرایش کنم که فایل رو بخونه.
  22. مشکل ارورها رفع شد. نسخه جدید رو دریافت کنید.
  23. کتابخونه مشکلی نداره عزیز. تو سایت دیگه ای که SSL داشت تست کردم و موردی نداشت. شاید سمت سرور مشکل داشته باشه شما اصلا لینک رو تست کردین ببینید چیزی برمیگردونه یانه؟ با مثلا PHP یا مرورگر
  24. بله عزیز میتونید همه رو یه جا داشته باشید. البته کتابخونه picasso خیلی تخصصی به عکس میپردازه. تواین کتابخونه هم شما میتونید با استفاده از PersianNetIMG مثل پیکاسو عکسارو لود کنید
  25. متاسفانه بنده سایتی که ssl داشته باشه ندارم. تو خصوصی مشخصات سایتتونو بفرستین تا بررسی کنم.
×
×
  • اضافه کردن...