使用 Domino 8.0.2 使用 SSL Web 服务

发布于 2025-01-06 10:56:25 字数 586 浏览 1 评论 0原文

我正在开发一个项目，需要使用 Domino 8.0.2 通过 HTTPS (SSL) 使用 Web 服务。

能够创建脚本库来使用 Web 服务。

创建了一个简单的按钮来测试使用此代码的使用情况：

Use "AA-FEED"

Sub Click(Source As Button)
Dim ws1 As New IAccountService_n1
Dim r1 As New  ArrayOfValidSystem_n2

Set r1 = ws1.GetValidSystemsList()

End Sub

调用时，Notes 会提示我与您的服务器进行交叉认证，我确实这样做了。

这是可以预料的。

单击“交叉认证”按钮，然后联系 Web 服务并返回错误消息：

“Web 服务 IAccountService_n1 方法 GetValidSystemsList 已返回错误。”

因此...

Web 服务的提供者在 Java 中使用时表示，他们将验证者信息添加到肥皂头中，

不确定 Lotus 中的交叉验证操作是否与 LotusScript 中的操作相同。

原文

Working on a project where I need to consume a web service over HTTPS (SSL) using Domino 8.0.2.

Was able to create the script library to consume the web service.

Created a simple button to test consuming it with this code:

Use "AA-FEED"

Sub Click(Source As Button)
Dim ws1 As New IAccountService_n1
Dim r1 As New  ArrayOfValidSystem_n2

Set r1 = ws1.GetValidSystemsList()

End Sub

When called, Notes prompts for me to Cross Certify with your server, which I do.

That is to be expected.

Click on 'Cross Certify" button and then the web service is contacted and returns an error message:

"The Web Service IAccountService_n1 method GetValidSystemsList has returned a fault."

So...

The provider of the web serivce says when it is consumed in Java, they add certifier information to the soap header.

Not sure if the Cross Certify actions in Lotus would do equlivent in LotusScript.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

王权女流氓 2025-01-13 10:56:25

如果 WebService 需要身份验证，请在生成的 Web 服务使用者代码中，在 Web 服务初始化调用后添加以下内容：

Sub NEW
    Call Service.Initialize ("UrnDefaultNamespaceWSQueryService", ...
    'ADD THE FOLLOWING
    'set userid and password if required
    Call Service.SetCredentials("userid","password")
    'set SSL options
    Call Service.SetSSLOptions(NOTES_SSL_ACCEPT_SITE_CERTS + NOTES_SSL_ACCEPT_EXPIRED_CERTS)

If the WebService requires authentication, in your generated web service consumer code, add the following after the webservice initialize call:

Sub NEW
    Call Service.Initialize ("UrnDefaultNamespaceWSQueryService", ...
    'ADD THE FOLLOWING
    'set userid and password if required
    Call Service.SetCredentials("userid","password")
    'set SSL options
    Call Service.SetSSLOptions(NOTES_SSL_ACCEPT_SITE_CERTS + NOTES_SSL_ACCEPT_EXPIRED_CERTS)

回复收藏 0 原文