Lotus notes LotusScript：通过POST方法HTTP发送数据

我想通过POST请求将数据发送到服务器。 在我的例子中，我有一个代理，它将从打开的电子邮件中检索信息，将这些数据发送到服务器。但是对于数据传输HTTP POST，我需要以参数的形式提供JSON格式的数据

---

但是，我还没有找到任何关于如何使用数据创建JSON的明确信息。我可以很容易地从电子邮件中检索数据，但我不知道如何将其转换为JSON。这样做容易吗？有人有解决方案吗？

这个简单的例子应该对您有所帮助

Dim session As New NotesSession
Dim url As String
Dim jsonBody As String

url="https://example.com"
jsonBody="{'param 1:'value 1'}"

Dim http As NotesHTTPRequest
Set http=session.CreateHTTPRequest()

Call http.SetHeaderField("ContentType","application/json")
Call http.Post(url,jsonBody)

示例中的json内容是使用名为jsonBody的字符串构建的。下面是一个使用其他变量构建字符串的示例：

Dim lastname As String
lastname="Richards"
jsonBody="{'param 1':'" + lastname + "'}";

---

这个简单的例子应该对您有所帮助

Dim session As New NotesSession
Dim url As String
Dim jsonBody As String

url="https://example.com"
jsonBody="{'param 1:'value 1'}"

Dim http As NotesHTTPRequest
Set http=session.CreateHTTPRequest()

Call http.SetHeaderField("ContentType","application/json")
Call http.Post(url,jsonBody)

示例中的json内容是使用名为jsonBody的字符串构建的。下面是一个使用其他变量构建字符串的示例：

Dim lastname As String
lastname="Richards"
jsonBody="{'param 1':'" + lastname + "'}";

---

取决于你的版本。从版本10开始，就有这样的类：NotesJSONObject、NotesJSONArray、NotesJSONNavigator等等，是的，我已经看过了。但我担心的是，我找不到任何关于如何使用它们的例子。我找不到如何填写JSON表达式。我所发现的只是如何在JSON GetFirstElement、GetElementByName等中检索数据。。但我想制作这样的东西：json.addlastname，Richards。可能吗？感谢您的建议JSON是一种简单的文本格式，您可以自己构建。但这当然是以前做过的。不幸的是，默认类不支持JSON的构造，我通常使用来自的类。它们包含关于如何构建有效JSON的帮助和示例。发送json是由Per Henrik显示的。我使用的取决于您的版本。从版本10开始，就有这样的类：NotesJSONObject、NotesJSONArray、NotesJSONNavigator等等，是的，我已经看过了。但我担心的是，我找不到任何关于如何使用它们的例子。我找不到如何填写JSON表达式。我所发现的只是如何在JSON GetFirstElement、GetElementByName等中检索数据。。但我想制作这样的东西：json.addlastname，Richards。可能吗？感谢您的建议JSON是一种简单的文本格式，您可以自己构建。但这当然是以前做过的。不幸的是，默认类不支持JSON的构造，我通常使用来自的类。它们包含关于如何构建有效JSON的帮助和示例。发送json是由Per Henrik演示的。谢谢你的回答。如果现在我想在以后编辑参数1的值，我该怎么办？但在发送数据之前，或者如果我想这样做：将lastname设置为字符串；姓氏=理查兹；jsonBody=|{param 1:lastname}|；我更新了我的答案，并改为使用而不是|作为字符串引号。谢谢你的回答。如果现在我想在以后编辑参数1的值，我该怎么办？但在发送数据之前，或者如果我想这样做：将lastname设置为字符串；姓氏=理查兹；jsonBody=|{param 1:lastname}|；我更新了我的答案，并改为使用而不是|作为字符串引号。