CODEWITHSUNDEEP
delphidelphi-xe2indy
JustMe
JustMe

Reputation: 2383

TIdHttp.Post - can't get utf-8 encoding

How can I force TIdHttp.post method to return the web page encoded in utf-8? I tried http.Request.ContentEncoding := 'UTF-8' but it doesn'twork. Here's my code:

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;

Upvotes: 6

Views: 17119

Answers (2)

user2211164
user2211164

Reputation: 11

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;

Upvotes: 1

JustMe
JustMe

Reputation: 2383

Ok, I found what i've done wrong. In case anybody would search:

You need to set the TStringStream encoding in constructor, so it should be like:

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);

Upvotes: 15

Related Questions