Виктор
Зарегистрирован: 10.03.2005 Сообщения: 210 Откуда: Горловка (Щирий кум)
|
Добавлено: Вт Июл 26, 2011 6:47 am Заголовок сообщения: Re: Обращение к Web-службе |
|
|
ias85 писал(а): | Здравствуйте! Подскажите возможно ли обратиться к web-службе по протоколу SOAP в Акцент 7.4. Если можно примерчик. |
Что типа так
Код: |
Dim url, xmlhttp, dom, node,key,GetAppSettings
'Call Web Service using HTTP-GET
key = "shrgdfhsd"
url = "http://localhost:1180/41/Service.asmx/"
url = url & "GetAppSettings?key=" & key
url ="http://megasite.com.ua/WebService/Service.asmx/GetTelefon"
'url ="http://localhost:6267/32/WebService/Service.asmx/GetTelefon"
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
Call xmlhttp.Open("Get", url, False)
Call xmlhttp.send
'Parse result
Set dom = CreateObject("Microsoft.XMLDOM")
dom.Load(xmlhttp.responseBody)
Set node = dom.SelectSingleNode("//string")
If Not node Is Nothing Then
GetAppSettings = node.text
End If
MsgBox GetAppSettings |
Если служба отдает JSon - то через JavaScript |
|