如何发送/接收 JSON？

Question

一个愚蠢的问题，我知道。但我通常不进行网络编程，并且被要求发送一些 JSON 数据并接收一些作为回报。

我用谷歌搜索，很清楚如何对 JSON 数据进行编码和解码，但我对此很陌生，以至于我不知道如何与给定的 URL 通信并说“这里有一些数据，请给我发回一些数据”。

谁能指出一个简单的工作代码示例？例如，只是将用户名和密码作为 JSON 传递并接收一些回复......我想我应该使用TIdHTTP，但不确定如何将它与 JSON 一起使用。我有一个 GET 和一个 POST 接口。

+1 给@DavidHeffernan，但我不明白谁将打包的 JSON 数据与我的请求一起传递或从响应中检索它。编码/解码很好，但是将其添加为参数让我陷入了困境。

我真的很感激一个（链接到一个）小但完整的工作示例。

顺便说一句，我只有 XE2 入门版，所以我没有数据快照。

Answer 1

对于通过 HTTP 的 JSON 流程，请看以下 S/O 问题： https://stackoverflow.com/a/15948106/458259

如果您的问题是关于如何在 Delphi 中使用远程 RESTful 服务，您会找到答案。

但是如果你想在 Delphi 应用程序之间使用 JSON 和 HTTP 进行通信，最简单的方法是在 Delphi 中实现一个 RESTful Client-Server 连接。

对于使用 JSON 和 RESTful 的客户端-服务器传输，请查看我们的开源 Synopse mORMot framework。它将为您完成所有 JSON 序列化和 RESTful 路由。

它具有客户端-服务器 ORM（可能不是您需要的）。

也是一个使用两种模式的SOA框架：

• Method-based services, like DataSnap;
• Interface-based services, like WCF。

您可以选择任一模式以通过 HTTP 使用 JSON 通信。

请注意，mORMot 预计可以与 Delphi XE2 入门版一起使用，因为它不使用 Pro/Entreprise/Architect 版本的任何“高级”功能，例如 DB.pas 或 DataSnap。它允许您访问数据库，即使是入门版。如果由于 Starter 中缺少某些内容而遇到困难，请随时在我们的论坛上报告问题。