رفتن به مطلب
  • 0

روش استفاده از کتابخانه SOAP


behzadsen

سوال

دوستان و استادید محترم سلام.

من یه دوربین اونیف وای فای دارم که میخوام از طریق SOAP دستور حرکت دوربین رو ارسال کنم (PTZ)

دستورش اینه:

<?xml version="1.0" encoding="utf-8"?>
<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:tptz="http://www.onvif.org/ver20/ptz/wsdl" xmlns:tt="http://www.onvif.org/ver10/schema">
  <s:Body>
    <tptz:ContinuousMove>
      <tptz:ProfileToken>prof0</tptz:ProfileToken>
      <tptz:Velocity>
        <tt:PanTilt x="0" y="3" />
        <tt:Zoom x="1" />
      </tptz:Velocity>
    </tptz:ContinuousMove>
  </s:Body>
</s:Envelope>

آدرس URL سرویسش هم اینه:

http://10.100.68.1:5000/onvif/ptz_service

حالا میخوام این دستور رو تویه بیسیک فور اندروید داخل یک buttom بنویسم که با فشار این buttom این دستور به دوربین ارسال بشه ، لطفاً اگه اطلاعتی در این در این مورد دارید راهنمایی کنید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ارسال‌های توصیه شده

مشکلم حل شد، خودم کدش رو نوشتم، اینجا میزارم که بقیه هم بتونن ازش ستفاده کنن:

اول از همه کتابخونه های "OkHttp" و "OkhttpUtils2" رو تیک میزنیم، بعد تویه Sub Globals دوتا متغییر به این صورت ایجاد میکنم:

Sub Globals
Dim job1 As HttpJob
Dim str As String
End Sub

بعد داخل یه Button این کد رو مینویسیم:

Sub Batton1_click
 str="<?xml version='1.0' encoding='utf-8'?>'" & _
 "<soap:Envelope xmlns:soap='http://www.w3.org/2003/05/soap-envelope' xmlns:tptz='http://www.onvif.org/ver20/ptz/wsdl'xmlns:tt='http://www.onvif.org/ver10/schema'>" & _
 "<soap:Body>" & _
 "<tptz:ContinuousMove>" & _
 "<tptz:ProfileToken>prof0</tptz:ProfileToken>" & _
 "<tptz:Velocity>" & _
 "<tt:PanTilt x='1' y='0' />" & _
 "</tptz:Velocity>" & _
 "</tptz:ContinuousMove>" & _
 "</soap:Body>" & _
 "</soap:Envelope>"
 str=str.Replace("'", Chr(34))
 job1.Initialize("Job1", Me)
 job1.PostString("http://10.100.68.1:5000/onvif/ptz_service", str)
 job1.GetRequest.SetContentType("application/soap+xml")
End Sub
  
Sub JobDone (Job As HttpJob)
 If Job.Success = False Then
  ToastMessageShow("خطا: " & Job.ErrorMessage, True)
 End If
 Job.Release
End Sub
  

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...