盒子论坛 v2.1

如果一个服务端要求 URL 参数值用 UTF8编码，那么将参数值编码后，用
TWinHTTP组件发请求时，不会返回正确的信息。因为TWinHTTP组件内部代码，与UTF8编码存在冲突。

  with WinHTTP1 do
  begin
    url := 'http://www.2ccc.com/test/?name=%xx';%xx表格utf8编码的参数值
    Read()
  end;

运行到

procedure TCustomWinHTTP.ThreadExecute;
。。。
  运行到下面的行
  ParseURL(FURL, ProtocolName, HostName, ObjectName,
          URLUsername, URLPassword, URLExtraInfo, PortNumber);

这个函数对FURL 里的 utf8参数值无法分析，导致取得的URLExtraInfo值是乱码
function ParseURL(URL: String; var Protocol, HostName, URLPath,
  Username, Password, ExtraInfo: String; var Port: Word): Boolean;
var
  URLComp: TURLComponents;
begin
  if Pos('://', URL) = 0 then // this should be HTTP by default
    URL := HTTPPrefix + URL;

  InitMSRecord(URLComp, SizeOf(URLComp));
  with URLComp do
   begin
    dwSchemeLength     := INTERNET_MAX_SCHEME_LENGTH + 1;
    dwHostNameLength   := INTERNET_MAX_HOST_NAME_LENGTH + 1;
    dwUserNameLength   := INTERNET_MAX_USER_NAME_LENGTH + 1;
    dwPassWordLength   := INTERNET_MAX_PASSWORD_LENGTH + 1;
    dwUrlPathLength    := INTERNET_MAX_PATH_LENGTH + 1;
    dwExtraInfoLength  := INTERNET_MAX_PATH_LENGTH + 1;
    GetMem(lpszScheme,    INTERNET_MAX_SCHEME_LENGTH + 1);
    GetMem(lpszHostName,  INTERNET_MAX_HOST_NAME_LENGTH + 1);
    GetMem(lpszUserName,  INTERNET_MAX_USER_NAME_LENGTH + 1);
    GetMem(lpszPassword,  INTERNET_MAX_PASSWORD_LENGTH + 1);
    GetMem(lpszUrlPath,   INTERNET_MAX_PATH_LENGTH + 1);
    GetMem(lpszExtraInfo, INTERNET_MAX_PATH_LENGTH + 1);

    Result := InternetCrackUrl(PChar(URL), Length(URL), ICU_ESCAPE, URLComp);//关键是这个API函数对utf8编码后的字符没法正确分析

    if Result then
     begin
      Protocol  := lpszScheme;
      HostName  := lpszHostName;
      URLPath   := lpszUrlPath;
      Username  := lpszUserName;
      Password  := lpszPassword;
      ExtraInfo := lpszExtraInfo;//乱码
      Port      := nPort;
     end;

    FreeMem(lpszExtraInfo);
    FreeMem(lpszUrlPath);
    FreeMem(lpszPassword);
    FreeMem(lpszUserName);
    FreeMem(lpszHostName);
    FreeMem(lpszScheme);
   end;
end;

接下来，继续发请求时，就不会返回正确的内容了。

----------------------------------------------
我打的是酱油，而不是别的什么油。
我灌的是口水，而不是别的什么水。
我聊的折腾不是那个不折腾的折腾。
我说的阿娇不是那个邓玉娇的阿娇。
3个代表,6个为什么,9个肠胃炎。
D性强的领导干部都不喜欢热比娅。
我特别要讲的是,屁民网黄色论坛是我经常上网必选的网站之一

作者：

xlonger (xlonger)	★☆☆☆☆	-
	普通会员

2012/3/4 9:26:24

1楼：

我说的是这个组件

  WinHTTP v3.1

  Copyright (c) 1999-2005 UtilMind Solutions
  All rights reserved.
  E-Mail: info@utilmind.com
  WWW: http://www.utilmind.com, http://www.appcontrols.com

  The entire contents of this file is protected by International Copyright
Laws. Unauthorized reproduction, reverse-engineering, and distribution of all
or any portion of the code contained in this file is strictly prohibited and
may result in severe civil and criminal penalties and will be prosecuted to
the maximum extent possible under the law.
----------------------------------------------
我打的是酱油，而不是别的什么油。
我灌的是口水，而不是别的什么水。
我聊的折腾不是那个不折腾的折腾。
我说的阿娇不是那个邓玉娇的阿娇。
3个代表,6个为什么,9个肠胃炎。
D性强的领导干部都不喜欢热比娅。
我特别要讲的是,屁民网黄色论坛是我经常上网必选的网站之一

信息

登陆以后才能回复