具有编码UTF8的IdHTTPServer和IdHTTP

Question

我正在使用TIdHTTPServer和TIdHTTP测试本地主机服务器。 我在编码UTF8数据时遇到问题。

客户端：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  res: string;
begin
  res:=IdHTTP1.Get('http://localhost/?msg=đi chơi thôi');
  Memo1.Lines.Add(res);
end;

服务器端：

procedure TForm1.OnCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Memo1.Lines.Add(ARequestInfo.Params.Values['msg']); // ?i ch?i th?i

  AResponseInfo.CharSet := 'utf-8';
  AResponseInfo.ContentText := 'chào các bạn'; // chào các b?n
end;

我想发送đi chơi thôi并接收chào các bạn 。 但是，服务器收到?i ch?i th?i和客户端接收chào các b?n 。

谁能帮我？

Answer 1

TIdHTTP完全按照您TIdHTTP传输URL，但是http://localhost/?msg=đi chơi thôi不是可以原样传输的有效URL，因为URL仅包含ASCII字符。 可以按原样使用未保留的ASCII字符，但是必须将保留和非ASCII字符进行字符集编码为字节，然后必须将这些字节以%HH格式进行url编码，例如：

IdHTTP1.Get('http://localhost/?msg=%C4%91i%20ch%C6%A1i%20th%C3%B4i');

您必须确保仅将有效的URL编码URL传递给TIdHTTP 。

在此示例中，URL是硬编码的，但是如果您需要更动态的TIdURI ，请使用TIdURI类，例如：

IdHTTP1.Get('http://localhost/?msg=' + TIdURI.ParamsEncode('đi chơi thôi'));

然后， TIdHTTPServer将按照您的期望对参数数据进行解码。 默认情况下， TIdURI和TIdHTTPServer使用UTF-8。

发送响应时，仅设置CharSet ，而不设置ContentType 。 因此TIdHTTPServer会将ContentType设置为'text/html; charset=ISO-8859-1' 'text/html; charset=ISO-8859-1' ，覆盖您的CharSet 。 您需要自己明确设置ContentType以便可以指定自定义CharSet ，例如：

AResponseInfo.ContentType := 'text/plain';
AResponseInfo.CharSet := 'utf-8';
AResponseInfo.ContentText := 'chào các bạn';

要么：

AResponseInfo.ContentType := 'text/plain; charset=utf-8';
AResponseInfo.ContentText := 'chào các bạn';

---

附带说明一下， TIdHTTPServer是一个多线程组件。 OnCommand...事件是在辅助线程而不是主UI线程的上下文中触发的。 因此，像您Memo1直接访问Memo1并不是线程安全的。 您必须与主UI线程同步，以便安全地访问UI控件，例如：

procedure TForm1.OnCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  msg: string;
begin
  msg := ARequestInfo.Params.Values['msg'];
  TThread.Synchronize(nil,
    procedure
    begin
      Memo1.Lines.Add(msg);
    end
  );
  ...
end;