رفتن به مطلب

majid08

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

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

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

  • روز های برد

    2

پست ها ارسال شده توسط majid08

  1. در 1 دقیقه قبل، محمدرضا شاهپیری گفته است :

    سلام. دوست عزیز شما فونت iransansmobile.ttf رو توی asset کپی نکردید

    سلام

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

  2. سلام

    بسیار عالی

    فقط یه سوال

    برای نمایش دادن عکس ها موقع انتخاب از چی استفاده کردین(منظورم گلاید هست یا چیز دیگه ای) چون من یه چنتا کتابخونه پیدا کردم برای انتخاب عکس به صورت چنتایی از گالری ولی همه با گلاید مشکل داشتن

  3. در 10 ساعت قبل، msd313 گفته است :

    سلام دوست عزیز
    فکر کنم منظورتون این کتابخونه باشه downloadprogress
    لینک دانلود

    سلام 

    ممنونم

    این رو دارم

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

  4. در 2 ساعت قبل، محمدرضا شاهپیری گفته است :

    سلام.لطفا جیسون رو بذارید. اینجوری یه خورده سخته تبدیل کردنش.

    سلام

    {"AdsPosts":[{"id":"1","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u0647","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u0641\u0644\u0633\u0637\u06cc\u0646","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"},{"id":"2","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u06472","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u067e\u06cc\u0631\u0648\u0632\u06cc","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"}]}

     

  5. سلام

    اگر میشه این رو برام تبدیل کنید به PersianJson

    Dim parser As JSONParser
    parser.Initialize(Json)
    Dim root As Map = parser.NextObject
    Dim NewPosts As List = root.Get("NewPosts")
    For i = 0 To NewPosts.Size-1
    Dim colNewPosts As Map = NewPosts.Get(i)
    Dim id As String = colNewPosts.Get("id")
    Dim onvan As String = colNewPosts.Get("onvan")
    Next

    ممنونم

  6. سلام مجدد

    این کلاس واسه کتابخانه زدین پال هست

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

    هم قسمت جیسونش و هم دانلودش 2 تا کتابخانه رو هم گرفتم

    این لینک گیت هاب

    GitHub - Seyyed-Morteza-SeyyedAghaei/ZarinPal-Sample-For-B4A

     

    اینم کدهاش

     

    #Event : ResultPaymentRequest(Result As ResultPaymentRequest)
    #Event : ResultVerificationPayment(Result As ResultVerificationPayment)
    
    Private Sub Class_Globals
    	Private MERCHANT_ID_PARAMS = "MerchantID" As String
    	Private AMOUNT_PARAMS = "Amount" As String
    	Private DESCRIPTION_PARAMS = "Description" As String
    	Private CALLBACK_URL_PARAMS = "CallbackURL" As String
    	Private MOBILE_PARAMS = "Mobile" As String
    	Private EMAIL_PARAMS = "Email" As String
    	Private AUTHORITY_PARAMS = "Authority" As String
    	Private PAYMENT_GATEWAY_URL = "https://www.zarinpal.com/pg/StartPay/" As String
    	Private PAYMENT_REQUEST_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentRequest.json" As String
    	Private VERIFICATION_PAYMENT_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentVerification.json" As String
    	Type ResultPaymentRequest(Status As Int,Authority As String,Url As String,Intent As Intent)
    	Type ResultVerificationPayment(IsPaymentSuccess As Boolean,RefID As String,Payment As ZPaymentRequest)
    	Type ZPaymentRequest(MerchantID As String,Amount As Long,Description As String,CallbackURL As String,Email As String,Mobile As String,Authority As String)
    	Private vPayment As ZPaymentRequest
    	Private event As String
    	Private target As Object
    End Sub
    
    'Initializes the object. You can add parameters to this method if needed.
    Public Sub Initialize(EventName As String,TargetModule As Object)
    	event = EventName
    	target = TargetModule
    End Sub
    
    Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As String
    	Dim jg As JSONGenerator
    	jg.Initialize(CreateMap(MERCHANT_ID_PARAMS : ZPaymentRequest.MerchantID,AMOUNT_PARAMS : ZPaymentRequest.Amount,DESCRIPTION_PARAMS : _
    		ZPaymentRequest.Description,CALLBACK_URL_PARAMS : ZPaymentRequest.CallbackURL,MOBILE_PARAMS : ZPaymentRequest.Mobile, _
    		EMAIL_PARAMS : ZPaymentRequest.Email))
    	Return jg.ToString
    End Sub
    
    Public Sub StartPayment(ZPaymentRequest As ZPaymentRequest)
    	Dim SP As HttpJob
    	SP.Initialize("StartPayment",Me)
    	vPayment = ZPaymentRequest
    	SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest))
    	SP.GetRequest.SetContentType("application/json")
    End Sub
    
    Private Sub JobDone(Job As HttpJob)
    	If Job.Success Then
    		Dim jp As JSONParser
    		jp.Initialize(Job.GetString)
    		Dim Result As Map = jp.NextObject
    		Select Job.JobName
    			Case "StartPayment"
    					Dim Intent As Intent,Url As String = PAYMENT_GATEWAY_URL&Result.Get("Authority")
    					Intent.Initialize(Intent.ACTION_VIEW,Url)
    					Dim ResultPayment As ResultPaymentRequest
    					ResultPayment.Initialize
    					ResultPayment.Authority = Result.Get("Authority")
    					ResultPayment.Intent = Intent
    					ResultPayment.Status = Result.Get("Status")
    					ResultPayment.Url = Url
    					vPayment.Authority = ResultPayment.Authority
    					CallSub2(target,event&"_ResultPaymentRequest",ResultPayment)
    			Case "VerificationPayment"
    					Dim ResultVarification As ResultVerificationPayment
    					ResultVarification.Initialize
    					ResultVarification.IsPaymentSuccess = True
    					ResultVarification.RefID = Result.Get("RefID")
    					ResultVarification.Payment = vPayment
    					CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification)
    		End Select
    	Else
    		Select Job.JobName
    			Case "StartPayment"
    				Try
    					
    			
    				Dim ResultPayment As ResultPaymentRequest
    				ResultPayment.Initialize
    				ResultPayment.Authority = Null
    				ResultPayment.Intent = Null
    				ResultPayment.Status = Result.Get("Status")
    				ResultPayment.Url = Null
    				CallSubDelayed2(target,event&"_ResultPaymentRequest",ResultPayment)
    				Catch
    					Log(LastException)
    				End Try
    			Case "VerificationPayment"
    				Try
    				Dim ResultVarification As ResultVerificationPayment
    				ResultVarification.Initialize
    				ResultVarification.IsPaymentSuccess = False
    				ResultVarification.RefID = Null
    				ResultVarification.Payment = vPayment
    				CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification)
    				Catch
    					Log(LastException)
    				End Try
    		End Select
    	End If
    	Job.Release
    End Sub
    
    Public Sub VerificationPayment(Intent As Intent)
    	If Intent = Null Or Not(Intent.IsInitialized) Then Return
    	Dim r As Reflector
    	r.Target = Intent
    	r.Target = r.RunMethod("getData")
    	If r.Target = Null Or vPayment = Null Or Not(r.RunMethod("isHierarchical")) Then Return
    	Dim VP As HttpJob
    	VP.Initialize("VerificationPayment",Me)
    	Dim jg As JSONGenerator
    	Dim vAuthority As String = r.RunMethod2("getQueryParameter","Authority","java.lang.String")
    	If vAuthority <> vPayment.Authority Or Not(r.RunMethod2("getQueryParameter","Status","java.lang.String") = "OK") Then
    		Dim ResultVarification As ResultVerificationPayment
    		ResultVarification.Initialize
    		ResultVarification.IsPaymentSuccess = False
    		ResultVarification.RefID = Null
    		ResultVarification.Payment = vPayment
    		CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification)
    	End If
    	jg.Initialize(CreateMap(AUTHORITY_PARAMS : vPayment.Authority,MERCHANT_ID_PARAMS : vPayment.MerchantID,AMOUNT_PARAMS : vPayment.Amount))
    	VP.PostString(VERIFICATION_PAYMENT_URL,jg.ToString)
    	VP.GetRequest.SetContentType("application/json")
    End Sub

     

    ممنونم

     

    • پسندیدن 1
  7. سلام

    چرا با کتابخانه OkHttp مشکل داره؟

    Convert byte code - optimized dex.    Error
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokhttp3/internal/platform/JdkWithJettyBootPlatform$JettyNegoProvider;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$1;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$2;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$Watchdog;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Base64;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$1;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$2;
    UNEXPECTED TOP-LEVEL EXCEPTION:
    java.lang.RuntimeException: Translation has been interrupted
    	at com.android.dx.command.dexer.Main.processAllFiles(Main.java:689)
    	at com.android.dx.command.dexer.Main.runMultiDex(Main.java:368)
    	at com.android.dx.command.dexer.Main.run(Main.java:277)
    	at com.android.dx.command.dexer.Main.main(Main.java:247)
    	at com.android.dx.command.Main.main(Main.java:106)
    Caused by: java.lang.InterruptedException: Too many errors
    	at com.android.dx.command.dexer.Main.processAllFiles(Main.java:681)
    	... 4 more

     

  8. سلام

    با تشکر از کتابخانه خوبتون

    میشه این مشکل اپلود فایل من رو حل کنید

    کدهای بیسیک

    
    Dim pr As PersianFastNetwork
    Private upl As UploadRequest
    pr.initialize("pr")
    
    upl=pr.BuildUploadQuery(all_D_cod.hostname&"/up_image_post.php","image_post1")
    upl.addMultipartFile("image",fp)
    upl.startUploadAsJSONObject
    
    
    
    
    Sub pr_onJSONObjectUploadOK(JsonString As String , Tag As String )
    	ProgressDialogHide
    	Log(JsonString)
    End Sub

    و طرف php

     

    <?php
    
    // Path to move uploaded files
    $target_path = "up_image_post/";
     
    // array for final json respone
    $response = array();
    
    // final file url that is being uploaded
     
    
     if (isset($_FILES['image']['name'])) {
        $target_path = $target_path . basename($_FILES['image']['name']);
            try {
            // Throws exception incase file is not being moved
            if (!move_uploaded_file($_FILES['image']['tmp_name'], $target_path)) {
                // make error flag true
                $response['error'] = true;
                $response['message'] = 'Could not move the file!';
            }
        } catch (Exception $e) {
            // Exception occurred. Make error flag true
            $response['error'] = true;
            $response['message'] = $e->getMessage();
        }
    }
    
    
    
    echo json_encode($response);
    ?>

     

    ممنونم میشم راهنمایی کنید

  9. ا

    در 2 دقیقه قبل، محمدرضا شاهپیری گفته است :

    عزیز اینجا اشتباهه.

    
    addJSONParametrs(getPaymentRequestJson(ZPaymentRequest))

    ورودی متد addJSONParametrs باید جیسون باشه نه استرینگ. باید از کتابخونه persianjson استفاده کنید.

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

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

    1 دونه کلاس اماده هست

     

  10. در ۱ ساعت قبل، محمدرضا شاهپیری گفته است :

    خب عزیز این که یه هدره. تو درخواستهاتون این هدر رو اضافه کنید به صورت زیر.

    
    request.addHeader("content-type", "application/json")
    request.addHeader("Accept","application/json")

     

    سلام

    بله حله

    فقط این رو من میخام تبدیل کنم ارور میده 

    میشه راهنمایی کنید

    
    Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As JSONGenerator
    	Dim jg As JSONGenerator
    	jg.Initialize(CreateMap(MERCHANT_ID_PARAMS : ZPaymentRequest.MerchantID,AMOUNT_PARAMS : ZPaymentRequest.Amount,DESCRIPTION_PARAMS : _
    		ZPaymentRequest.Description,CALLBACK_URL_PARAMS : ZPaymentRequest.CallbackURL,MOBILE_PARAMS : ZPaymentRequest.Mobile, _
    		EMAIL_PARAMS : ZPaymentRequest.Email))
    	Return jg.ToString
    End Sub
    
    	Dim SP As HttpJob
    	SP.Initialize("StartPayment",Me)
    	vPayment = ZPaymentRequest
    	SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest))
    	SP.GetRequest.SetContentType("application/json")
    

    این با کتابخانه httputils بوده میخام عوض کنم ارور میده

    این رو نوشتم

    	Dim download As PersianFastNetwork
    	download.initialize("download").BuildPostQuery(PAYMENT_REQUEST_URL,"StartPayment") _
    			.addJSONParametrs(getPaymentRequestJson(ZPaymentRequest)) _
    		.executRequesAsString

     

  11. سلام و خسته نباشید

    واقعلا کتابخونه پرسرعت وعالی هست

    دارم توی چنتا پروژه بزرگ استفاده میکنم

    فقط الان یه چیزی کم داره 

    SetContentType("application/json")

    این قسمت رو نداره نمیشه SetContentType کرد

    اگر لطف کنید اضافه کنید عالی میشه

    ممنونم

  12. در 16 ساعت قبل، fileman گفته است :

    تمام مواردی رو که گفتین چک کردم. همه درست بود . ولی بازم مشکلم وجود داره! راه حل دیگه ای به ذهنتون میرسه؟:scratch_one-s_head:

    سلام

    لطفا کل سورستون رو بدین تا چک کنم برام توی تلگرام بفرستید

    @goodarzi1

    • پسندیدن 1
  13. در 11 دقیقه قبل، fileman گفته است :

    سلام به همه دوستان
    من یه مشکلی دارم :
    الان من توی دیتابیس 3 تا پست دارم (3  تا ردیف) توی برنامه میاد 3 تا ردیف رو لود میکنه بعد دوباره زیرش میاد از اول 3 تا ردیف رو لود میکنه ! یعنی درواقع هر پست رو 2 بار نوشن میده .مشکل از کجاست؟
    ممنون میشم کمک کنید:give_heart:

    سلام

    لطفا کدی که در جاب دان نوشتین رو بزارین

  14. سلام

    دوستان و استادان گرامی 

    اینجا اموزش ساخت شبکه اجتماعی با بیسیک با 4 فصل تموم شد

    میخام اگر وقت کردم ساخت پنل مدیریت انلاین رو با php و html توضیح بدم برای همین برنامه که باهم نوشتیم

    و همچنین اگر دوستان موافق باشن اموزشها رو ادامه بدیم

    اموزش اضافه کردن امکان ارسال فیلم و صوت جهت فصل جدید یعنی 5(ربطی به کل اموزش نداره)

    • پسندیدن 2
  15. در 7 ساعت قبل، bewas گفته است :

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

    تمام مواردی را که آموزش می دهید خط به خط نوشتم و پستی که ارسال می کنم در هاست با نام کاربری null ذخیره می شوند

    پس بی صبرانه منتظر فصل بعدی آموزش هستیم استاد

    در این فصل آموزش فصل سوم کدهای ملزوم را قرار داده بودید در روند نوشتن کدها کمک فراوانی به ما شد از این بابت هم تشکر میکنم

    سلام

    قرار شده این مشکلات رو بگین من کلیپش رو بسازم و به خریداران فصل 4 رایگان بدم

    من این رو براتون اماده میکنم میزارم توی انجمن

    • پسندیدن 1
×
×
  • اضافه کردن...