Уважаемые лисоводы, всем привет.

Столкнулся с необходимостью отправки СМС-сообщений из программы на VFP, посредством API интерфейса сайта www.sms4b.ru.

Процесс формирования номеров и текстовых сообщений уже реализован, но как теперь передать эти данные на шлюз отправки посредством API ума не приложу.

Учитывая тот факт что ни разу ничего подобного не делал прошу вашей помощи, что почитать? где поглядеть? Если есть уже готовые решения или наработки в этой области готов купить ну или за вознаграждение посмотреть урок от вас.

shock19
Столкнулся с необходимостью

shock19
посредством API интерфейса сайта www.sms4b.ru

shock19
что почитать? где поглядеть?

Ну, та к в мануале этого API и надо читать/смотреть.
Здесь можно получить ответ на конкретный вопрос о конкретной проблеме, а не в общих чертах

Запускаешь фокс, в нём TaskPane, в нём XML WEB Services, Register an XML Web Service, скармливаешь ссылку sms4b.ru
Дальше уж сам догадайся.





Исправлено 2 раз(а). Последнее : ssa, 30.08.17 11:19

Не все так однозначно...

shock19
Не все так однозначно...

Смотря у кого. Просто в броузер вставь эту ссылку и посмотри откроется ли она. Если нет, то "проблемы на вашей стороне".
1drv.ms





Исправлено 1 раз(а). Последнее : ssa, 30.08.17 14:18

Любопытно... в том то и дело из браузера все открывается, а вот из самого фокса не хочет, антивируса и файрвола тоже нет...

SOAP установлен?

Если имеется ввиду из коробки с фоксом то да

Такой код работает?

Прокся есть? Для winhttp она настроена? Интернет в вашей сети раздаётся не через MS Forefront?

Впрочем это не так важно как то что SOAP давным давно умер. И если и делать чисто со стороны фокса, то лучше напрямую использовать MSXML2.XMLHTTP и "вручную" запросы формировать. Поиск по форуму даёт материал для размышлений.
Можно ещё на каком-нить C# нарисовать часть общения с веб-сервисом, а из фокса уже вызывать тем или иным образом шарповскую компоненту.

ssa
Такой код работает?

** Упрощенная отправка уникальных сообщений. Возвращает идентификатор сообщения либо код ошибки (<=0) 
 
 
*Syntax: 
*SendSMS(Login AS string, Password AS string, Source AS string, Phone AS long, Text AS string) AS string 
 
*Sample Code: 
LOCAL loWSSM AS "XML Web Service"
* LOCAL loWSSM AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loWSSM = sms4b.ru , WSSM , WSSMSoap
LOCAL loException, lcErrorMsg, loWSHandler
TRY
    loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
    loWSSM = loWSHandler.SetupClient("https://sms4b.ru/ws/sms.asmx?wsdl", "WSSM", "WSSMSoap")
    * Call your XML Web service here.  ex: leResult = loWSSM.SomeMethod()
    leResult = loWSSM.GetInfo()
    
CATCH TO loException
    lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
    DO CASE
    CASE VARTYPE(loWSSM)#"O"
        * Handle SOAP error connecting to web service
    CASE !EMPTY(loWSSM.FaultCode)
        * Handle SOAP error calling method
        lcErrorMsg=lcErrorMsg+CHR(13)+loWSSM.Detail
    OTHERWISE
        * Handle other error
    ENDCASE
    * Use for debugging purposes
    MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
?leResult 

Нет к сожалению.

Увы, но что-то с сетью. Или, как уже упоминалось, прокси, и/или еще что-то...

Выше приведенный код - рабочий. Попробуйте переустановить SOAP ToolKit.

Для проверки того что программа может получить данные из интернета достаточно кода:


Если выведет "простыню" с содержимым wsdl файла, ну тогда скорее всего проблема в SOAP, если и это ничего не даст - тогда проблема с сетевым соединением - точнее с его настройками НЕ для браузеров.

Интересно девки пляшут... поставил фокс на windows 7 64 разрядную, все ок, работает, а вот на 10 с той же разрядностью отказывается. Нашел на просторах интернета похожую проблему, но правда с семеркой: www.tek-tips.com. Буду думать дальше.

Igor Korolyov
Для проверки того что программа может получить данные из интернета достаточно кода:

oHttp = CREATEOBJECT("MSXML2.XMLHTTP.6.0")
oHttp.open("GET","https://sms4b.ru/ws/sms.asmx?wsdl")
oHttp.send()
? m.oHttp.responseText

Если выведет "простыню" с содержимым wsdl файла, ну тогда скорее всего проблема в SOAP, если и это ничего не даст - тогда проблема с сетевым соединением - точнее с его настройками НЕ для браузеров.

Простыня вышла...что не так с SOAP вопрос...

Если так работает, то просто продолжай через XMLHTTP писать код общения с сервисом (поиск поможет, хотя там всё достаточно несложно - сам XML через тот же парсер и разбирается, и, если надо, "формируется"). Забудь про кусок г*на под названием MSSOAP контрол - сам MS про него успешно забыл уже лет 10 как

shock19
Интересно девки пляшут... поставил фокс на windows 7 64 разрядную, все ок, работает, а вот на 10 с той же разрядностью отказывается. Нашел на просторах интернета похожую проблему, но правда с семеркой: www.tek-tips.com. Буду думать дальше.

Только для справки - вылезала такая же ошибка по поводу объекта LOWSSM, переустановил SOAP и все заработало.(см. подпись)

Igor Korolyov
Если так работает, то просто продолжай через XMLHTTP писать код общения с сервисом (поиск поможет, хотя там всё достаточно несложно - сам XML через тот же парсер и разбирается, и, если надо, "формируется"). Забудь про кусок г*на под названием MSSOAP контрол - сам MS про него успешно забыл уже лет 10 как

Ларчик просто открывался, Игорь спасибо за пинок в правильную сторону. Сразу попутный вопрос, какие подводные камни ждут меня при компиляции в exe? Что то необходимо отдельно ставить на машину клиента или "фокс" зверь самодостаточный?

Если речь про SOAP, то его придётся устанавливать на клиентские машины. Если про MSXML - то для самого фокса нужно установить 4-ю версию (через неё работает XMLAdapter - в принципе если в программе эта часть фокса не используется, то можно забить). Для вышеприведенного кода нужен MSXML парсер 6-й версии. В новых ОС он есть по умолчанию, для старых можно установить. В принципе вполне можно обойтись и старинным 3-й версии - он встроен в любые актуальные версии винды, включая даже WinXP. Просто в имени класса убрать .6.0
По собственно рантайму фокса на форуме не раз писалось что нужно и как это можно установить (можно и не устанавливать, просто рядом с твоим exe файлы рантайма положить - несколько dll-ек).