• indy httpserver 接收URL包含中文参数乱码的问题


    在测试TIdHttpServer的时候,发现浏览器提交的URL包含中文时会乱码,我用的是XE7 UPDATE1,INDY是10。

    procedure TForm1.idhtpsrv1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);

    在这事件处理中文时,AResponseInfo好办,只要设置下

      AResponseInfo.ContentType := 'text/html';
      AResponseInfo.CharSet := 'utf-8';

    浏览器就能正确显现中文。


    对于 ARequestInfo,回头想想一开始决解方向就错了,不要想着各种编码转换,实际到这里,INDY已经把编码转换好了,因为到这里处理的文本,

     ARequestInfo.Params.Text已经是string类型了(UNICODE)。网上说是改INDY的源码,因为没地方设置TIdHTTPRequestInfo编码属性。

    改动的是IdCustomHTTPServer.pas的 TIdHTTPRequestInfo.DecodeAndSetParams(const AValue: String)方法:


    procedure TIdHTTPRequestInfo.DecodeAndSetParams(const AValue: String);
    var
      i, j : Integer;
      s: string;
      LEncoding: IIdTextEncoding;
    begin
      // Convert special characters
      // ampersand '&' separates values    {Do not Localize}
      Params.BeginUpdate;
      try
        Params.Clear;
        CharSet := 'utf-8';  //添加这一行                                                              
        // which charset to use for decoding query string parameters.  We
        // should not be using the 'Content-Type' charset for that.  For
        // 'application/x-www-form-urlencoded' forms, we should be, though...
        LEncoding := CharsetToEncoding(CharSet);
        i := 1;
        while i <= Length(AValue) do
        begin
          j := i;
          while (j <= Length(AValue)) and (AValue[j] <> '&') do {do not localize}
          begin
            Inc(j);
          end;
          s := Copy(AValue, i, j-i);
          // See RFC 1866 section 8.2.1. TP
          s := StringReplace(s, '+', ' ', [rfReplaceAll]);  {do not localize}
          Params.Add(TIdURI.URLDecode(s, LEncoding));
          i := j + 1;
        end;
      finally
        Params.EndUpdate;
      end;
    end;

    然后重新编译IndyProtocols包,注意bpl文件放在bin下,dcu和dcp文件放在Lib下的各个相应目录下(就是win32/win64, debug/release)

    测试代码:


    procedure TForm1.idhtpsrv1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);
    begin
    
      AResponseInfo.ContentType := 'text/html';
      AResponseInfo.CharSet := 'utf-8';
    
      mmo1.Lines.Add('=====================');
      mmo1.Lines.Add('Document:');
    
      mmo1.Lines.Add('');
      mmo1.Lines.Add(ARequestInfo.Params.Text);
      mmo1.Lines.Add('p1: '+ ARequestInfo.Params.Values['p1']);
      mmo1.Lines.Add('p2: '+ ARequestInfo.Params.Values['p2']);
    
      AResponseInfo.ContentText := '是中文吧'; // 'HttpServer OK';
    end;


    浏览器URL:http://127.0.0.1:8000/test?p1=中文&p2=ghg

    用 Chrome,edge,360浏览器测试正确。


  • 相关阅读:
    【随笔】新博客
    【Linux】grep命令
    【C/C++】C++11 Move, Forward
    【C/C++】C++11 Variadic Templates
    【C/C++】C++11 Lambda
    【Linux】gdb调试
    【C/C++】数组 & 指针
    【PAT】反转链表
    【OS】Process & Thread
    【Python】Scrapy基础
  • 原文地址:https://www.cnblogs.com/jankerxp/p/7774029.html
Copyright © 2020-2023  润新知