webservice可以自己调用自己么？

2014-01-21 12:27:27 310 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

HttpURLConnection调用webservice，HTTP调用webservice，简单的webservice调用以前调用webservice一般使用axis、axis2先生成java类后，直接引用，多方便。但是有的webservice接口非常的函数，生成的java类非常多，有没有一种非常简化的方法。 axis2有不生成类直接调用的方法，但是QName不容易找，每次查N久不到。有的反馈，使用CXF调用一样方便，但CXF还要使用maven下载jar，而这里是jdk自带的^_^.....。 ... 阅读详情

一、在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变量没实例化，我这种调用是否有问题，有经验的大虾指导指导，谢谢！

...全文