delphi - TIdHttp.Post-utf-8エンコーディングを取得できません

Question

TIdHttp.postメソッドにutf-8でエンコードされたWebページを返すように強制するにはどうすればよいですか？試しhttp.Request.ContentEncoding := 'UTF-8'ましたが、うまくいきません。これが私のコードです：

procedure TeUpdateNews.Check;
var url: string;
    Http: TIdHttp;
    SS: TStringStream;
    param: TStringList;
    SWIDESTRING: WideString;
begin
  http := TIDHttp.Create(nil);
  http.HandleRedirects := true;
  http.ReadTimeout := 5000;
  http.Request.ContentEncoding := 'UTF-8';

  param := TStringList.create;
  param.Clear;

  url := CONST_SOME_WWW;

  try
    SS := TStringStream.Create;
    try
      SWIDESTRING := http.Post(url, param);

       // it's not getting utf-8!
       ShowMessage(SWIDESTRING); 
    finally
      SS.Free;
      param.free;
    end;
  finally
    Http.Free;
  end;
end;

Answer 1

わかりました、私が間違ったことを見つけました。誰かが検索する場合：

コンストラクターで TStringStream エンコーディングを設定する必要があるため、次のようにする必要があります。

try
  // this is it :-)
  SS := TStringStream.Create('', TEncoding.UTF8);
  try
    // using overloaded post method this time
    // it writes return in the ss stream
    http.Post(url, param, ss);

     // now it's getting utf-8, baby!
     ShowMessage(ss.DataString); 

Answer 2

var

  ds: TIdMultipartFormDataStream;

begin

  ds := TIdMultipartFormDataStream.Create;

  try

    ds.AddFormField('test', UTF8Encode('äöüß'), 'utf-8').ContentTransfer := '8bit';

    try

      ShowMessage(HTTP.Post('http://mysite.net/test.php', ds));

    except

    end;

  finally

    FreeAndNil(ds);

  end;

end;