صفحه 1 از 2 12 آخرآخر
نمایش نتایج 1 تا 40 از 91

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

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

    وب سرویس

    با سلام بنده قبلا با کمک اساتید محترم خصوصا جناب Mazoolag که خیلی لطف کردند و زحمت کشیدند توانستیم ارتباط با وب سرویس بیمه تامین اجتماعی را انجام دهیم حال با توجه به اینکه بیمه سلامت کشور اقدام به تهیه وب سرویس ارسال نسخ نموده است از اساتید محترم تقاضا دارد در صورت امکان راهنمایی نمایند تا بتوانیم نحوه ارتباط با این وب سرویس را نیز بدست آوریم فایل راهنما به پیوست میباشد
    قبلا از مساعدت شما دوستان نهایت تشکر را دارم

    Help_web.rar

  2. #2
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    نقل قول نوشته شده توسط ATA_TABRIZ مشاهده تاپیک
    با سلام بنده قبلا با کمک اساتید محترم خصوصا جناب Mazoolag که خیلی لطف کردند و زحمت کشیدند توانستیم ارتباط با وب سرویس بیمه تامین اجتماعی را انجام دهیم حال با توجه به اینکه بیمه سلامت کشور اقدام به تهیه وب سرویس ارسال نسخ نموده است از اساتید محترم تقاضا دارد در صورت امکان راهنمایی نمایند تا بتوانیم نحوه ارتباط با این وب سرویس را نیز بدست آوریم فایل راهنما به پیوست میباشد
    قبلا از مساعدت شما دوستان نهایت تشکر را دارم

    Help_web.rar
    سلام
    اساتید نمیخوان کمک کنن
    جناب Mazoolag کجایی ؟؟؟؟؟

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

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

    سلام
    آدرس وب سرويس لود نميشه.
    http://tdtst.ihio.gov.ir/ws/ServiceApprove.asmx

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

  4. #4
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    ضمن تشکر از توجه شما ادرس های زیر جهت استحضار
    در محيط تست:http://test.ihio.gov.ir/hdkcore/api/...onservice?wsdl
    در محيط عملياتی:http://webapi.ihio.gov.ir/hdkcore/ap...onservice?wsdl

  5. #5
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    اصول کار که فرقی نمیکنه، شما باید یک request با فرمتی که براتون مشخص شده بفرستین و یک response دریافت و اون رو طبق فرمتی که بهتون داده شده تفسیر کنین.
    تو پست های مربوط به تامین اجتماعی همه اینها بحث شد، کافی هست اسکلت کد رو نگه دارین و تغییرات رو در اون اعمال کنید.

    اینجا شما بیشتر از یک سرویس دارین :
    http://test.ihio.gov.ir/hdkcore/api/services/

    شما فقط لینک یکی از سرویس ها رو فرستادین، برای هر سرویس مستنداتش ارائه میشه که request و response چگونه باید باشن.
    یعنی فرمت تاریخ، اطلاعات نسخه، نوع سرویس ارائه شده به بیمار، ...
    اینجا شما نیاز دارین مستندات کامل و دقیق 4 نوع tag استفاده شده رو داشته باشین:
    operation = نوع عملیات سرویس
    input = مقدار ارسالی به سرویس
    output = مقدار برگشتی از سرویس
    fault = خطا

    بطور متعارف نمونه کد هم در مستنداتشون هست.

    ================
    فکر کنم قبلا هم اشاره کردم، برای کار با وب سرویس ها اگر desktop app بسازین (مثلا با vb.net) خیلی بهتره و در ارسال و دریافت هم خیلی راحتین.
    بعضی وقتها یک کمپوننت به شما میدن که به برنامه تون اضافه میکنین و فقط کافی هست مقادیر رو به تابع ارسال و نتایج رو بگیرین (وب سرویس ارسال پیامک اگر یادتون باشه).
    دیتابیس رو میتونین همون اکسس نگه دارین اگر مایل هستین.

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

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

    سلام
    چيزي كه من متوجه شدم در مرحله بايد از وب سرويس توكن دريافت بشه كه اعتبار يكروزه داره . براي اينكار بايد از وب سرويس getTOKEN استفاده بشه كه سه تا پارامتر كد موسسه نام كاربر و پسورد رو دريافت و كدي ارسال مي كنه.
    براي شروع من كدهاي جناب mazoolagh كمي تغيير دادم ولي تست نشده هست و احتمالا خطا خواهد داشت. لطفا تست بكنيد و نتيجه رو اعلام كنيد.
    Option Compare Database

    Option Explicit


    Const WSURL As String = "http://test.ihio.gov.ir/hdkcore/services/authenticationservice?wsdl"


    '--------------------------




    Public Type Request_Response


    TOKEN_ID As String
    ERROR_MESSAGE As String
    End Type
    '--------------------------


    Public Function getTOKEN( _
    ByVal pUserInstKey As String, _
    ByVal pUserName As String, _
    ByVal pPassword As String) As Request_Response




    On Error GoTo ERR_HNDLR




    Dim RR As Request_Response
    RR.TOKEN_ID = ""
    RR.ERROR_MESSAGE = ""




    Dim XM As String




    XM = "<?xml version=""1.0"" encoding=""utf-8""?>"
    XM = XM + "<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"">"
    XM = XM + "<soap12:Body>"
    XM = XM + "<getTOKEN xmlns=""http://tempuri.org/"">"




    XM = XM + "<pUserInstKey>" + pUserInstKey + "</pUserInstKey>"
    XM = XM + "<pUserName>" + pUserName + "</pUserName>"
    XM = XM + "<pPassword>" + pPassword + "</pPassword>"




    XM = XM + "</getTOKEN>"
    XM = XM + "</soap12:Body>"
    XM = XM + "</soap12:Envelope>"




    Dim XML_HTTP As New MSXML2.XMLHTTP60
    XML_HTTP.Open "POST", WSURL, False
    XML_HTTP.setRequestHeader "HOST", "http://test.ihio.gov.ir/hdkcore/api/services/"
    XML_HTTP.setRequestHeader "CONTENT-TYPE", "application/soap+xml; charset=utf-8"
    XML_HTTP.setRequestHeader "SOAPACTION", "http://tempuri.org/Save_Request"
    XML_HTTP.send XM




    Dim XML_DOC As New MSXML2.DOMDocument60
    Dim XNL As MSXML2.IXMLDOMNodeList
    Dim I As Integer






    If XML_HTTP.Status = 200 Then
    XML_DOC.loadXML XML_HTTP.responseText
    Set XNL = XML_DOC.getElementsByTagName("*")
    For I = 0 To XNL.length - 1
    Select Case XNL(I).nodeName
    Case "TOKEN_Id"
    RR.TOKEN_ID = XNL(I).Text
    Case "ErrorMessage"
    RR.ERROR_MESSAGE = XNL(I).Text


    End Select
    Next
    Else
    RR.ERROR_MESSAGE = CStr(XML_HTTP.Status) + XML_HTTP.StatusText
    End If




    getTOKEN = RR
    Set XML_HTTP = Nothing




    Exit Function
    ERR_HNDLR:
    RR.ERROR_MESSAGE = "ERROR " + CStr(Err.number) + vbCrLf + Err.Description
    getTOKEN = RR




    End Function


    آخرین ویرایش به وسیله amirzazadeh : یک شنبه 20 مهر 1399 در 20:45 عصر

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

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

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

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

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

  8. #8

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

    نقل قول نوشته شده توسط amirzazadeh مشاهده تاپیک
    سلام و درود
    راهنماي كامل وب سرويس رو پيدا كردم.براي استفاده دوستان اپلود مي كنم.
    https://yz.ihio.gov.ir/Portals/37/HD...-23-105319-563
    با تشکر از جناب amirzazadeh

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

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

    سلام
    با استفاده از راهنماي پست 7 کدها رو بازنويسي کردم ولي هنوز مشکل داره.با آدرس "http://test.ihio.gov.ir/hdkcore/services/authenticationservice?wsdl" استاتوس 500 دريافت ميشه و با آدرس "http://http://test.ihio.gov.ir/erx-core/v1/service/auth/token/fetch" عدم دسترسي صادر ميشه.
    اين هم کد بازنويسي شده:
    Option Compare Database

    Option Explicit


    Const WSURL As String = "http://test.ihio.gov.ir/hdkcore/services/authenticationservice?wsdl"
    'Const WSURL As String = "http://http://test.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"

    '--------------------------

    Public Type Request_Response

    resCode As Integer
    token As String
    resMessage As String
    End Type
    '--------------------------


    Public Function getTOKEN( _
    ByVal terminalId As String, _
    ByVal userName As String, _
    ByVal Password As String) As Request_Response


    On Error GoTo ERR_HNDLR


    Dim RR As Request_Response
    RR.token = ""
    RR.resCode = -1
    RR.resMessage = ""


    Dim XM As String


    XM = "<?xml version=""1.0"" encoding=""utf-8""?>"
    XM = XM + "<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"">"
    XM = XM + "<soap12:Body>"
    XM = XM + "<getTOKEN xmlns=""http://tempuri.org/"">"


    XM = XM + "<terminalId>" + terminalId + "</terminalId>"
    XM = XM + "<userName>" + userName + "</userName>"
    XM = XM + "<password>" + Password + "</password>"


    XM = XM + "</getTOKEN>"
    XM = XM + "</soap12:Body>"
    XM = XM + "</soap12:Envelope>"


    Dim XML_HTTP As New MSXML2.XMLHTTP60
    XML_HTTP.Open "POST", WSURL, False
    XML_HTTP.setRequestHeader "HOST", "http://test.ihio.gov.ir/hdkcore/services/authenticationservice?wsdl"
    XML_HTTP.setRequestHeader "CONTENT-TYPE", "application/soap+xml; charset=utf-8"
    XML_HTTP.setRequestHeader "SOAPACTION", "http://tempuri.org/Save_Request"
    XML_HTTP.send XM



    Dim XML_DOC As New MSXML2.DOMDocument60
    Dim XNL As MSXML2.IXMLDOMNodeList
    Dim I As Integer


    If XML_HTTP.Status = 200 Then
    XML_DOC.LoadXML XML_HTTP.responseText
    Set XNL = XML_DOC.getElementsByTagName("*")
    For I = 0 To XNL.Length - 1
    Select Case XNL(I).nodeName
    Case "token"
    RR.token = XNL(I).Text
    Case "resmessage"
    RR.resMessage = XNL(I).Text
    Case "resCode"
    RR.resCode = XNL(I).Text
    End Select
    Next
    Else
    RR.resMessage = CStr(XML_HTTP.Status) + XML_HTTP.StatusText
    End If


    getTOKEN = RR
    Set XML_HTTP = Nothing

    Exit Function
    ERR_HNDLR:
    RR.resMessage = "ERROR " + CStr(Err.Number) + vbCrLf + Err.Description
    getTOKEN = RR

    End Function





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

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

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

    جناب ata_tabriz
    من کدی رو که جناب میرزازاده زحمتش رو کشیده بودن یک نگاه انداختم، شما باید فرمتش رو از xml به json تغییر بدین.
    برخلاف تامین اجتماعی که از فرمت xml استفاده میکرد، اینجا از json استفاده شده و این دو یکی نیستن.

    اول باید content type رو به application/json تغییر بدین.
    احتمالا باید پارامتر accept هم به header اضافه کنین با همین مقدار application/json.

    بعد متن درخواست رو شبیه زیر استفاده کنین:
    XM="{""terminalId"":123,""userName"":""test"",""pa  ssword"":""test123""}"

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

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

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

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

    یک کد نمونه شبیه زیر هست:
    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

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

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

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

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

    یک کد نمونه شبیه زیر هست:
    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
    .................................................
    قوانين سايت

  13. #13
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

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

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

    یک کد نمونه شبیه زیر هست:
    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 استفاده کنیم راحتی کار با استفاده از service reference بود و گرنه اگر قرار به استفاده از رفرنس و helper و کدنویسی باشه در اکسس هم اینکار شدنی هست و پیچیدگی بیشتری هم نداره.
    بر خلاف response های xml که در اکسس براحتی قابل parse کردن هستن (نمونه اش رو در وب سرویس ارسال پیامک آوردم)، پاسخ های json نیاز به parser بیرونی دارن.
    در هر صورت برای ارسال و گرفتن پاسخ نیازی به اونها نداریم و کار راحتی هست ولی برای تفسیر پاسخ داستان فرق میکنه.

  14. #14
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    جناب ata_tabriz
    من کدی رو که جناب میرزازاده زحمتش رو کشیده بودن یک نگاه انداختم، شما باید فرمتش رو از xml به json تغییر بدین.
    برخلاف تامین اجتماعی که از فرمت xml استفاده میکرد، اینجا از json استفاده شده و این دو یکی نیستن.

    اول باید content type رو به application/json تغییر بدین.
    احتمالا باید پارامتر accept هم به header اضافه کنین با همین مقدار application/json.

    بعد متن درخواست رو شبیه زیر استفاده کنین:
    XM="{""terminalId"":123,""userName"":""test"",""pa  ssword"":""test123""}"
    این مورد هم قبلا اشاره کرده بودم که اگر دقت میشد مشکل تابحال حل شده بود.

  15. #15
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    دوباره تاکید میکنم VBA برای اینکار ابزار مناسبی نیست، بخصوص که اینجا شما سرویس های متنوعی دارین و یک گردش کار نسبتا پیچیده (در مقایسه با وب سرویس تامین اجتماعی).

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

    بهتره یک windows application بنویسین که دست کم مشکل ساخت request و تفسیر response رو نداشته باشین و مطمئن باشین که اگر مشکلی هست به گردش کار برمیگرده.

  16. #16
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    سلام و روز خوش
    یک احتمال قوی این هست که کد نمونه ای که گذاشتم نادرست باشه (خودم چک نکردم) یعنی به شکل درست از تابع استفاده نکردم هرچند که ظاهرا درست باشه و موقع کامپایل خطا نگیره.
    قطعا شما namespace مناسب رو import کردین در غیر اینصورت کد اصلا اجرا نمیشد و خطا موقع کامپایل پیش میامد.

    احتمال هرچند ضعیفتر این هست که کدهای ساخته شده توسط visual studio مشکل داشته باشن و لازم باشه که اونها رو ویرایش کرد.

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

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

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

    با سلام و احترام
    به منظور جلوگيري از تداخل تالارها تاپيك رو در تالار دات نت ايجاد كردم. بنابراين مبحث رو با رويكرد VBA اينجا ادامه ميديم و بحت مربوط به استفاده از vb.net رو در تالار مربوطه پيگيري بفرماييد.
    لينك تاپك در تالار دات.نت
    https://barnamenevis.org/showthread....ه-سلامت

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

  18. #18
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    سلام آقای Amirzadeh, جناب Mazoolagh
    باز این تایپک قدمهایی جهت حل مشکل برداشته شد در قسمت vb هیچکس توجهی نکرد !!!!!

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

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

    نقل قول نوشته شده توسط ATA_TABRIZ مشاهده تاپیک
    سلام آقای Amirzadeh, جناب Mazoolagh
    باز این تایپک قدمهایی جهت حل مشکل برداشته شد در قسمت vb هیچکس توجهی نکرد !!!!!
    سلام و وقت به خير
    تو تالار وب سرويس ها نمونه با vb.net اراىه شده كه ارسال پارامترها رو انجام ميده ولي چون يوزر پسورد واقعي نداريم توكن دريافت نمي كنيم.

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

  20. #20
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط amirzazadeh مشاهده تاپیک
    سلام و وقت به خير
    تو تالار وب سرويس ها نمونه با vb.net اراىه شده كه ارسال پارامترها رو انجام ميده ولي چون يوزر پسورد واقعي نداريم توكن دريافت نمي كنيم.
    مرحله اول مهم نیست که User/pass واقعی داشته باشیم، همین که پروسه ارسال و دریافت پیغام خطا انجام بشه کافی هست.
    بفرمایید که شما با کدی که پیوست کردین جواب گرفتین؟

  21. #21
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط ATA_TABRIZ مشاهده تاپیک
    سلام آقای Amirzadeh, جناب Mazoolagh
    باز این تایپک قدمهایی جهت حل مشکل برداشته شد در قسمت vb هیچکس توجهی نکرد !!!!!
    البته همونجا یک تاپیک دیگه در همسایگی شما بود با مضمون مشابه (وب سرویس ارسال پیامک) که اون هم بی جواب مونده!
    پس احتمالا موضوع بی توجهی نبوده.

  22. #22
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط amirzazadeh مشاهده تاپیک
    با سلام و احترام
    به منظور جلوگيري از تداخل تالارها تاپيك رو در تالار دات نت ايجاد كردم. بنابراين مبحث رو با رويكرد VBA اينجا ادامه ميديم و بحت مربوط به استفاده از vb.net رو در تالار مربوطه پيگيري بفرماييد.
    لينك تاپك در تالار دات.نت
    https://barnamenevis.org/showthread....ه-سلامت

    البته یک تاپیک دیگه هم در بخش وب سرویس ها ساخته شده که من تا دست کم یک هفته ازش خبر نداشتم!
    https://barnamenevis.org/showthread....A7%D9%85%D8%AA
    چون در این تاپیک پاسخ دیگه هم هست و در بخش مناسبتری هم آمده، اونجا پست میکنم.

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

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

    Imports RestSharp

    Public Class Form1

    Private Async Function FetchAgentDailyToken() As Task(Of String)
    Dim Result As String = String.Empty
    Await Task.Run(Sub()
    Try
    Dim rest_client As IRestClient = New RestClient()
    Dim rest_request As IRestRequest = New RestRequest("http://webapi.ihio.gov.ir/erx-core/v1/service/auth/token/fetch", Method.POST)
    rest_request.AddJsonBody("{""terminalId"": 123,""userName"": ""123"",""password"": ""123abc""}")
    Dim rest_response As IRestResponse = rest_client.Execute(rest_request)
    Result = rest_response.Content
    Catch ex As Exception
    End Try
    End Sub)
    Return Result
    End Function

    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim test As String = Await FetchAgentDailyToken()
    MsgBox(test)
    End Sub
    End Class


    کدهای استفاده شده رو براتون ارسال کردم . همینطور که تو سطر اول کدها ملاحظه می کنید از restsharp استفاده شده، من این dll رو دانلود کردم ولی به رفرنس های اکسس اضافه نمیشه.

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

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

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

    سلام
    اکسس برای اینکار مناسب نیست، بهتر هست از vb.net و دیتابیس sqlite استفاده نمایید.

  25. #25
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط 336699 مشاهده تاپیک
    سلام
    اکسس برای اینکار مناسب نیست، بهتر هست از vb.net و دیتابیس sqlite استفاده نمایید.
    سلام و روز خوش
    لطف بفرمایید در همون بخش vb.net که جناب میرزازاده تاپیک مستقل برای همین موضوع ایجاد کردن (لینک تاپیک هم رو چند پست بالاتر گذاشتن) راهنمایی بفرمایید.
    در مورد این که vb.net مناسبتر هست قبلا اشاره شد و نوع دیتابیس هم اصلا اهمیتی در این کار نداره.

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

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

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    سلام و روز خوش
    لطف بفرمایید در همون بخش vb.net که جناب میرزازاده تاپیک مستقل برای همین موضوع ایجاد کردن (لینک تاپیک هم رو چند پست بالاتر گذاشتن) راهنمایی بفرمایید.
    در مورد این که vb.net مناسبتر هست قبلا اشاره شد و نوع دیتابیس هم اصلا اهمیتی در این کار نداره.
    سلام
    در اون بخش وی بی نمونه کد ارسال کردم که پاسخ از سرور هم دریافت میکنه(همین کدهای وی وبی دات نت که چند پست بالاتر هستند)
    الان ظاهرا چند پست آخر اون بخش کلا ناپدید شده

    در مورد دیتابیس هم اگه قرار باشه برنامه با وی بی دانت نوشته بشه بهتر هست از sql یا sqlite استفاده بشه و دیتابیس اکسس مناسب نیست.

  27. #27
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    من در پروژه های قدیمی در اکسس مستقیما از خود مفسر جاوااسکریپت (از طریق اضافه کردن رفرنس scripting runtime در دسترس هست) برای parse عبارتهای json استفاده میکردم.
    ولی برای این مورد یک کد سبک و جمع و جور پیدا کردم و چند تغییر جزئی در اون دادم و فکر میکنم کفایت هست (دست کم تا اینجا).

    کد رو در پست بعد میگذارم و اطلاعات بیشتر رو میتونین در لینک زیر پیدا کنین:
    https://medium.com/swlh/excel-vba-pa...y-c2213f4d8e7a

  28. #28
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    حالا با استفاده از این json parser میتونیم اطلاعات پاسخ رو بیرون بکشیم:
    Option Compare Database
    Option Explicit

    'Const WSURL As String = "http://webapi.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"
    Const WSURL As String = "http://test.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"
    Const AuthJSON As String = "{""terminalId"": 123456,""userName"": ""test_username"",""password"": ""test_password""}"

    Public Type DailyToken
    resCode As Long
    resMessage As String
    token As String
    End Type

    Public Function GetDailyToken() As DailyToken
    Dim D As New Dictionary
    Dim Request As New MSXML2.XMLHTTP60

    With Request
    .Open "POST", WSURL, False
    .SetRequestHeader "Host", "webapi.ihio.gov.ir"
    .SetRequestHeader "Content-Type", "application/json; charset=utf-8"
    .Send AuthJSON
    Set D = ParseJSON(.responseText, "")
    End With

    Dim i As Integer
    For i = 0 To D.Count - 1
    Select Case D.Keys(i)
    Case ".resCode"
    GetDailyToken.resCode = D.Items(i)
    Case ".resMessage"
    GetDailyToken.resMessage = D.Items(i)
    Case ".info.token"
    GetDailyToken.token = D.Items(i)
    End Select
    Next i
    End Function
    آخرین ویرایش به وسیله mazoolagh : سه شنبه 13 آبان 1399 در 08:44 صبح

  29. #29
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    حالا با استفاده از این json parser میتونیم اطلاعات پاسخ رو بیرون بکشیم:
    Option Compare Database
    Option Explicit

    'Const WSURL As String = "http://webapi.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"
    Const WSURL As String = "http://test.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"
    Const AuthJSON As String = "{""terminalId"": 123456,""userName"": ""test_username"",""password"": ""test_password""}"

    Public Type DailyToken
    resCode As Long
    resMessage As String
    token As String
    End Type

    Public Function GetDailyToken() As DailyToken
    Dim D As New Dictionary
    Dim Request As New MSXML2.XMLHTTP60

    With Request
    .Open "POST", WSURL, False
    .SetRequestHeader "Host", "webapi.ihio.gov.ir"
    .SetRequestHeader "Content-Type", "application/json; charset=utf-8"
    .Send AuthJSON
    Set D = ParseJSON(.responseText, "")
    End With

    Dim i As Integer
    For i = 0 To D.Count - 1
    Select Case D.Keys(i)
    Case ".resCode"
    GetDailyToken.resCode = D.Items(i)
    Case ".resMessage"
    GetDailyToken.resMessage = D.Items(i)
    Case ".info.token"
    GetDailyToken.token = D.Items(i)
    End Select
    Next i
    End Function
    یک مورد بود که دقت نکرده بودم و اینجا اصلاح کردم.
    در واقع token خودش در Info برمیگرده بنابراین باید بصورت زیر نوشته بشه:
    Case ".info.token"


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

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

  30. #30
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    سلام
    خسته نباشد از توجه شما نهایت تشکر را دارم
    من وقتی ماژول را به پروژه ام اضافه کردم این اررور را میده
    Error.png

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

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

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

    نقل قول نوشته شده توسط ATA_TABRIZ مشاهده تاپیک
    سلام
    خسته نباشد از توجه شما نهایت تشکر را دارم
    من وقتی ماژول را به پروژه ام اضافه کردم این اررور را میده
    Error.png

    لطف میکنید علت را بفرمائید
    ممنون از توجه شما
    سلام
    احتمالا ماژول دوم (JSON Parser)كه وظيفه تفسير پاسخ رو بر عهده داره به برنامه اضافه نكرديد( در برنامه ضميمه شده توسط جناب mazoolagh اين ماژول موجود هست).
    .......................
    موفق باشيد

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

  32. #32
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    سلام مجدداداز توجه شما ممنونم
    جناب امیرزاده ماژول دوم را اضافه کرده بودم باز دوباره تست کردم همان اررور را داد
    جالب بود یک دیتابیس جدید ایجاد کردم دوتا ماژول را ایمپورت کردم باز یک اررور دیگه داد Error.png
    آخرین ویرایش به وسیله ATA_TABRIZ : پنج شنبه 15 آبان 1399 در 16:44 عصر

  33. #33
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    روش استفاده:

    Sub TEST()
    Dim x As DailyToken
    x = GetDailyToken()
    Debug.Print "resCode=" + CStr(x.resCode) + vbCrLf + "resMessage=" + x.resMessage + vbCrLf + "token=" + x.token
    End Sub

  34. #34
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    برنامه نمونه
    فایل های ضمیمه فایل های ضمیمه

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

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

    سلام
    با سپاس و درود فراوان
    عالی و بدون نقص
    دست مریزاد.
    .....................
    موفق و پیروز باشید

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

  36. #36
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    برنامه نمونه
    با سلام و عرض ادب خدمت استاتید محترم

    من برنامه فوق را تست کردم متاسفانه پیغام ( اطلاعات ارسالی غیر معتبر میباشد با کد 1946-) را داد در حالی که با همین یوزر پس در سایت خود بیمه سلامت اطلاعات را میفرستیم و جواب میگیریم

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

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

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

    نقل قول نوشته شده توسط ATA_TABRIZ مشاهده تاپیک
    با سلام و عرض ادب خدمت استاتید محترم

    من برنامه فوق را تست کردم متاسفانه پیغام ( اطلاعات ارسالی غیر معتبر میباشد با کد 1946-) را داد در حالی که با همین یوزر پس در سایت خود بیمه سلامت اطلاعات را میفرستیم و جواب میگیریم

    مجددا از لطف تمامی دوستان که زحمت کشیدید بی نهایت متشکرم
    سلام
    یوزر پسورد و ترمینال ای دی متفاوت از یوزر پسورد خود سایت هست شما باید با تکمیل فرم از اداره بیمه این اطلاعات رو دریافت کنید.قسمتی از آنها به ایمیل و قسمتی از اون به صورت پیامک ارسال میشه.
    نمونه توکن دریافتی از برنامه:
    {
    "resCode" : 1,
    "resMessage" : "توکن با موفقیت ایجاد شد",
    "info" : {
    "token" : "Wo2xs1IyKV6z/lqbVPR9m++IBU4="
    }
    }

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

  38. #38
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    نقل قول نوشته شده توسط amirzazadeh مشاهده تاپیک
    سلام
    یوزر پسورد و ترمینال ای دی متفاوت از یوزر پسورد خود سایت هست شما باید با تکمیل فرم از اداره بیمه این اطلاعات رو دریافت کنید.قسمتی از آنها به ایمیل و قسمتی از اون به صورت پیامک ارسال میشه.
    نمونه توکن دریافتی از برنامه:
    {
    "resCode" : 1,
    "resMessage" : "توکن با موفقیت ایجاد شد",
    "info" : {
    "token" : "Wo2xs1IyKV6z/lqbVPR9m++IBU4="
    }
    }
    سلام و با تشکر از راهنمایی ارزنده شما
    لطفا با یوزر- پسورد - ترمینال آی دی معتبری که در اختیار دارین اون کد vb.net رو هم یکبار دیگه چک کنین.

  39. #39
    کاربر دائمی
    تاریخ عضویت
    فروردین 1387
    محل زندگی
    تبريز
    پست
    165

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

    نقل قول نوشته شده توسط amirzazadeh مشاهده تاپیک
    سلام
    یوزر پسورد و ترمینال ای دی متفاوت از یوزر پسورد خود سایت هست شما باید با تکمیل فرم از اداره بیمه این اطلاعات رو دریافت کنید.قسمتی از آنها به ایمیل و قسمتی از اون به صورت پیامک ارسال میشه.
    نمونه توکن دریافتی از برنامه:
    {
    "resCode" : 1,
    "resMessage" : "توکن با موفقیت ایجاد شد",
    "info" : {
    "token" : "Wo2xs1IyKV6z/lqbVPR9m++IBU4="
    }
    }
    جناب امیرزاده ضمن تشکر از راهنماییهای شما و دیگر دوستان مخصوصا جناب Mazoolagh
    لطف میکنید فرم ونحوه ارتباط با بیمه سلامت را ارسال بفرمایید ضمنا این فرم برای نرم افزاری که در چند مرکز کار میکند معتبر است یا برای هر مرکز باید فرم جداگانه پر و یوزر پسورد گرفته شود
    البته یوزر ای دی فکر کنم همان کد موسسه است که در سایت اعتبار سنجی وجود دارد و برای هر مرکز مخصوص آن میباشد
    قبلا از مساعدت شما نهایت تشکر را دارم

  40. #40
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,057

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

    خروجی کد بالا:

    1.JPG

صفحه 1 از 2 12 آخرآخر

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

  1. پذیرش کارآموز در زمینه برنامه نویس اندروید و برنامه نویس یونیتی
    نوشته شده توسط کامرانی در بخش آگهی های استخدام
    پاسخ: 0
    آخرین پست: یک شنبه 14 شهریور 1395, 11:56 صبح
  2. پاسخ: 0
    آخرین پست: یک شنبه 09 شهریور 1393, 00:27 صبح
  3. گفتگو: راست نویس,چپ نویس و وسط نویس در textarea
    نوشته شده توسط djscsi در بخش طراحی وب (Web Design)
    پاسخ: 3
    آخرین پست: شنبه 30 شهریور 1387, 18:43 عصر

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

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