baidu_27173129 2015-04-06 03:58 采纳率: 0%
浏览 1753

domino web service使用者相关问题

%INCLUDE "lsxsd.lss"
Const n0 = "xxxxxxxxxxxxxxxxxxxxxxxxxxx"
Class MessageServicePortType_n0 As PortTypeBase

Sub NEW
    Call Service.Initialize ("HttpServiceWsSmsRyoukaComMessageService", _
    "MessageService.MessageServiceHttpPort", "http://1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", _
    "MessageServicePortType_n0")

End Sub

Function sendMessage(in0 As XSD_STRING) As XSD_STRING
    Set sendMessage = Service.Invoke("sendMessage", in0)
End Function

Function queryMessage(in0 As XSD_STRING) As XSD_STRING
    Set queryMessage = Service.Invoke("queryMessage", in0)
End Function

Function queryReply(in0 As XSD_STRING) As XSD_STRING
    Set queryReply = Service.Invoke("queryReply", in0)
End Function

End Class
如何调用这个web service使用者 之中的sendmessage函数
Sub Initialize()
Dim sstr As XSD_STRING
Dim MessageServicePortType_n01 As MessageServicePortType_n0
Set MessageServicePortType_n01 = New MessageServicePortType_n0
MsgBox MessageServicePortType_n01.sendMessage("sstr")
End Sub
这样为什么会报错呢

  • 写回答

1条回答 默认 最新

  • devmiao 2015-04-06 12:08
    关注
    评论

报告相同问题?

悬赏问题

  • ¥15 C#调用python代码(python带有库)
  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能
  • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面
  • ¥50 NT4.0系统 STOP:0X0000007B