Psendandgetmessage test_ws
Long rVal
String str_endpoint sms_id, sms_pass
String ls_ruent, ls_rund
Conn=create the SoapConnection
RVal=Conn. CreateInstance (test_ws, "psendandgetmessage")
Str_endpoint="% 3//$/" + ofl_sjh + "///$$/2/% %/" + ofl_text + "/n/r
"Ls_ruent=test_ws. SendMessages (sms_id sms_pass, str_endpoint)
DESTROY the conn
Rval=pos (ls_ruent, '/r/n)
Ls_ruent=mid (ls_ruent rval - 1, 1)
Choose a case ls_ruent
Case '0'
Ls_rund='0'
Case '1'
Ls_rund='phone number errors'
Case '2'
Ls_rund='with sensitive characters'
Case '3'
Ls_rund='message is too long'
Case '4'
Ls_rund='calling number or password mistake'
Case '5'
Ls_rund='message there is no gauge characters'
The end choose
Return ls_rund
CodePudding user response:
Estimated that caused because of the absence of a DLL, compiled on the current computer run out this mistake, too?CodePudding user response:
To pb Shared directory, find pbsoapclient90 PBD, put it in the library list, and release on itCodePudding user response:
Conn. CreateInstance (test_ws, "psendandgetmessage"), an increase in one parameter, put the address of webservice,