webservice可以自己调用自己么?

zgqasd 2014-01-21 12:27:27
一、在web提供者创建了test1,
代码如下:
Dim s As NotesSession

Class WebServiceOne

Sub NEW
'Print "kaishi..."
'Set s = New NotesSession
'Print s.EffectiveUserName
'Print "jieshu"
End Sub

Function operation1(input1 As String, input2 As String) As String
operation1 = "hello,My Dear!"
End Function

Function operation2(input1 As String, input2 As String) As String
operation2 = "hello,Jason!"
End Function

End Class

二、在web使用者创建了usews。
%INCLUDE "lsxsd.lss"
Class WebServiceOne As PortTypeBase

Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceWebServiceOneService", _
"WebServiceOneService.Domino", "http://xxxxx:8090/ttt.nsf/test1?OpenWebService", _
"WebServiceOne")
Print "rrrruuuu"
End Sub

Function OPERATION1(INPUT1 As String, INPUT2 As String) As String
Let OPERATION1 = Service.Invoke("OPERATION1", INPUT1, INPUT2)
End Function

Function OPERATION2(INPUT1 As String, INPUT2 As String) As String
Let OPERATION2 = Service.Invoke("OPERATION2", INPUT1, INPUT2)
End Function

End Class
三、然后新建代理,调usews,
Sub Initialize
Dim s As New notessession

Dim ws As WebServiceOne

Print "123456"

Set ws = New WebServiceOne

If ws Is Nothing Then
Print "aaaa"
Else
Print "bbbbb"
End If

Print ws.OPERATION1(" "," ")
End Sub
执行代理,输出“123456 rrrruuuu bbbbb ”

我想输出“hello,My Dear!”这句话,但是系统控制台说调用超时。前面的判断说明,ws变量没实例化,我这种调用是否有问题,有经验的大虾指导指导,谢谢!
...全文
240 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zgqasd 2014-02-28
  • 打赏
  • 举报
回复
搞定了啊啊啊啊

536

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧