Delphi通过ITHTTP传输有汉字乱码问题

1 概述

        本人在使用Delphi开发过程中，需要通过服务进行不同系统间的数据传输，为保证对数据进行有效传输。在开发结果模拟测试中，本人发现所有汉字都是乱码，经过网上资料查询及本人实践测试，并汇总形成本文，供大家参考使用。

  2 开发环境

开发环境：Delphi 2010

第三方组件：SuperObject

传输协议：TCP/IP

数据格式：JSON

服务控件：

      CLIENT端：IDHTTP

      SERVER端：IDHTTPSErver

3 写在开发前

为简化JSON数据的组合、解析工作，本人使用专为 Delphi 设计的开源JSON处理库SuperObject。所以，需要在文件头引用部分增加superobject的引用。

Server端接收服务信息是使用IDHTTPserver的onCommandGet事件中（代码请见第5部分B小节）。另，因为onCommandGet需要使用TidContext，所以在文件头引用部分增加IdContext的引用。

Client端引用：Uses superobject;

Server端引用：Uses superobject, IdContext;

4 CLIENT端开发

A 控件说明

A.1 接口服务控件：IDHTTP

A.2 报文展示信息：包括3个memo控件，分别显示：发送的原始报文信息(memobaowen1)、经过编码处理的报文信息(memobaowen2)，Server端发回的响应报文(memoinfo)

A.3 发送报文按钮：点击按钮则发送报文

B 源代码示例

procedure Tmainf