نمایش نتایج 1 تا 12 از 12

نام تاپیک: وب سرويس بيمه سلامت

  1. #1
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرویس

    سلام و درود
    دوستان گرامي در آدرس زير "وب سرويس بيمه سلامت " براي دريافت توكن و تاييد نسخه هست
    https://yz.ihio.gov.ir/Portals/37/HD...-23-105319-563

    لطفا راهنمايي بفرماييد با استفاده از vb.net چطوري مي تونم از وب سرويس توكن دريافت كنم .

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  2. #2
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    پست
    1,841

    نقل قول: وب سرویس

    من یک نمونه با VB.NET میگذارم تا متوجه بشین چقدر کار ساده هست اونجا.

    اول یک SERVICE REFRENCE به پروژه اضافه میکنیم:
    ضمیمه 152335
    اگر دقت کنید لیست تمام عملیات این سرویس خودکار ساختمه میشه و مثل یک تابع آماده میتونین از اون استفاده کنین.

    یک کد نمونه شبیه زیر هست:
    Dim asc As New HDKAuthenticationServiceClient
    Dim w As New dtoAuthenticationInfoWrapper
    w = asc.fetchAgentDailyToken(terminalId:=123, userName:="test", password:="test123")
    Dim Token As String = w.generatedToken
    عکس های ضمیمه عکس های ضمیمه
    • نوع فایل: jpg 1.JPG‏ (76.7 کیلوبایت, 15 دیدار)

  3. #3
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرویس

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    من یک نمونه با VB.NET میگذارم تا متوجه بشین چقدر کار ساده هست اونجا.

    اول یک SERVICE REFRENCE به پروژه اضافه میکنیم:
    ضمیمه 152335
    اگر دقت کنید لیست تمام عملیات این سرویس خودکار ساختمه میشه و مثل یک تابع آماده میتونین از اون استفاده کنین.

    یک کد نمونه شبیه زیر هست:
    Dim asc As New HDKAuthenticationServiceClient
    Dim w As New dtoAuthenticationInfoWrapper
    w = asc.fetchAgentDailyToken(terminalId:=123, userName:="test", password:="test123")
    Dim Token As String = w.generatedToken
    http://s17.picofile.com/file/8411202092/error
    با سلام و احترام
    با تشکر از کمک های ارزنده شما طبق راهنمایی وب سرویس رو به رفرنس ها اد کردم و کدهای نمونه رو اضافه و اجرا کردم که متاسفانه در مرحله اجرا متوقف شد.ممنون میشم بررسی بفرمایید.

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  4. #4
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرویس

    با سلام و احترام
    فایل پروژه رو اپلود کردم.در صورت امکان دوستان عزیز بررسی و اشکال کار رو مرتفع کنند.
    ...........................
    سپاسگزارم
    BimeWS.rar

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت


  5. #5
    کاربر دائمی
    تاریخ عضویت
    خرداد 1391
    محل زندگی
    ایران
    پست
    262

    نقل قول: وب سرويس بيمه سلامت

    سلام

    برای دریافت توکن، شما باید پارامترهای مربوطه را با متد POST به وب سرویس ارسال کنید.(میتوانید از کتابخانه RestSharp استفاده نمایید که در nuget موجود است)

    این پروژه را تست کنید
    فایل های ضمیمه فایل های ضمیمه

  6. #6
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرويس بيمه سلامت

    با سلام و درود
    بررسي مي كنم و نتيجه رو اعلام مي كنم

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  7. #7
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرويس بيمه سلامت

    نقل قول نوشته شده توسط 336699 مشاهده تاپیک
    سلام

    برای دریافت توکن، شما باید پارامترهای مربوطه را با متد POST به وب سرویس ارسال کنید.(میتوانید از کتابخانه RestSharp استفاده نمایید که در nuget موجود است)

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

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  8. #8
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    پست
    1,841

    نقل قول: وب سرویس

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    من یک نمونه با VB.NET میگذارم تا متوجه بشین چقدر کار ساده هست اونجا.

    اول یک SERVICE REFRENCE به پروژه اضافه میکنیم:
    ضمیمه 152335
    اگر دقت کنید لیست تمام عملیات این سرویس خودکار ساختمه میشه و مثل یک تابع آماده میتونین از اون استفاده کنین.

    یک کد نمونه شبیه زیر هست:
    Dim asc As New HDKAuthenticationServiceClient
    Dim w As New dtoAuthenticationInfoWrapper
    w = asc.fetchAgentDailyToken(terminalId:=123, userName:="test", password:="test123")
    Dim Token As String = w.generatedToken
    من این چند روز تاپیک بخش vb.net رو چک میکردم و از این تاپیک بی خبر بودم!

    میخواستم بدونم اشکال این کد (که آقای میرزازاده تست کردن و جواب نداده) در کجاست و روش درست اون چی هست.

  9. #9
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    پست
    1,841

    نقل قول: وب سرويس بيمه سلامت

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

    اما در حالت عادی و صرفا برای ارسال به وب سرویس نیاز به چیز خاصی نیست.

    Const AccountJSON As String = "{""terminalId"": 123456,""userName"": ""username_test"",""password"": ""password_test""}"
    Dim wc As New System.Net.WebClient
    wc.Encoding = System.Text.Encoding.UTF8
    Dim response As String = wc.UploadString(wsurl, AccountJSON)
    MsgBox(response,, "Response")

    2.JPG

  10. #10
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    پست
    1,841

    نقل قول: وب سرويس بيمه سلامت

    اما برای ساخت و تفسیر رشته های json بهتره از ابزار مناسب استفاده کنیم.
    یک نمونه کد با استفاده از newtonsoft.json شبیه این میشه:

    Imports Newtonsoft.Json


    Public Class Account
    Public Property terminalId As Int32
    Public Property userName As String
    Public Property password As String
    End Class


    Public Class DailyToken
    Public Property resCode As Integer
    Public Property resMessage As String
    Public Property info As DailyTokenInfo
    End Class


    Public Class DailyTokenInfo
    Public Property token As String
    End Class


    Dim account As Account = New Account With {
    .terminalId = 123456,
    .userName = "username_test",
    .password = "password_test"
    }


    Dim AccountJSON As String = JsonConvert.SerializeObject(account, Formatting.None)
    Dim wc As New System.Net.WebClient
    wc.Encoding = System.Text.Encoding.UTF8
    Dim response As String = wc.UploadString(wsurl, AccountJSON)
    Dim dt As DailyToken = JsonConvert.DeserializeObject(Of DailyToken)(response)
    MsgBox(dt.info.token,, "Daily Token")


    1.JPG

  11. #11
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    پست
    1,841

    نقل قول: وب سرويس بيمه سلامت

    تاپیک مشابه در بخش اکسس:
    https://barnamenevis.org/showthread....88%DB%8C%D8%B3

  12. #12
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,875

    نقل قول: وب سرويس بيمه سلامت

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    اما برای ساخت و تفسیر رشته های json بهتره از ابزار مناسب استفاده کنیم.
    یک نمونه کد با استفاده از newtonsoft.json شبیه این میشه:

    Imports Newtonsoft.Json


    Public Class Account
    Public Property terminalId As Int32
    Public Property userName As String
    Public Property password As String
    End Class


    Public Class DailyToken
    Public Property resCode As Integer
    Public Property resMessage As String
    Public Property info As DailyTokenInfo
    End Class


    Public Class DailyTokenInfo
    Public Property token As String
    End Class


    Dim account As Account = New Account With {
    .terminalId = 123456,
    .userName = "username_test",
    .password = "password_test"
    }


    Dim AccountJSON As String = JsonConvert.SerializeObject(account, Formatting.None)
    Dim wc As New System.Net.WebClient
    wc.Encoding = System.Text.Encoding.UTF8
    Dim response As String = wc.UploadString(wsurl, AccountJSON)
    Dim dt As DailyToken = JsonConvert.DeserializeObject(Of DailyToken)(response)
    MsgBox(dt.info.token,, "Daily Token")


    1.JPG

    بسیار سپاسگزارم و ممنون به خاطر صرف وقت و انرژی

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

تاپیک های مشابه

  1. استوديو مژده - نياز به يك برنامه نويس و كدنويس حرفه اي - پروژه اي
    نوشته شده توسط tenaonline در بخش آگهی های استخدام
    پاسخ: 0
    آخرین پست: یک شنبه 22 شهریور 1394, 12:07 عصر
  2. راه اندازي وب سرويس ها بر روي IIS - تنظيمات IIS ​براي اجراي وب سرويس ها
    نوشته شده توسط kienshien در بخش WCF , Web Services , .Net Remoting
    پاسخ: 1
    آخرین پست: پنج شنبه 14 اردیبهشت 1391, 19:39 عصر
  3. سرانجام مجله برنامه نويس!
    نوشته شده توسط Microname در بخش گفتگو با مسئولین سایت، درخواست و پیشنهاد
    پاسخ: 2
    آخرین پست: سه شنبه 04 اسفند 1388, 14:43 عصر
  4. سوال: معماري سرويس گرا
    نوشته شده توسط hrshamaily در بخش تحلیل و طراحی نرم افزار
    پاسخ: 1
    آخرین پست: شنبه 28 آذر 1388, 14:47 عصر

قوانین ایجاد تاپیک در تالار

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