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

Question

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

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

Answer 1

这个简单的例子应该对你有帮助。

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 + "'}";