delphi idhttp post 普通提交乱码处理

weixin_30622181

于 2018-05-23 09:19:00 发布

阅读量1.6k

点赞数 1

CC 4.0 BY-SA版权

文章标签： json 移动开发 c/c++

原文链接：http://www.cnblogs.com/zhqian/p/9075252.html

var
  IdHTTP1:TIdHTTP;
  postStream : TStringStream;
  Wstr:WideString;

res:WideString;
begin

 IdHTTP1 := TidHTTp.create(nil);
     try
        Wstr:= 'aaccount=' + aaccount;
        Wstr:=Wstr+'&'+'passwd=' +passwd;
  postStream:=TStringStream.Create(ansitoUTF8(Wstr));
        IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

      try
         res:=Utf8ToAnsi(IdHTTP1.Post(infoURl,postStream));
      except
       on E:Exception do
       begin
          MsgBox('错误信息:' +e.message);
       end;
      end;
        vJson := SO(res);

end;

用stringlistPOST提交时会乱码，改用该方法后解决。

转载于:https://www.cnblogs.com/zhqian/p/9075252.html