网站建设需要干什么,中国建筑招标投标网官网,杭州企业管理咨询有限公司,wordpress 浮动定位WEB后台使用UTF-8进行编码#xff0c;由于D7默认是ansiString#xff0c;直接提交到后台会使中文乱码。
解决方法#xff1a;
1.先把AnsiString转WideString
2.通过System单元中的ansitoUTF8()函数进行转换之后再提交就可以了。
代码示例#xff1a;
procedure postDe…WEB后台使用UTF-8进行编码由于D7默认是ansiString直接提交到后台会使中文乱码。
解决方法
1.先把AnsiString转WideString
2.通过System单元中的ansitoUTF8()函数进行转换之后再提交就可以了。
代码示例
procedure postDemo();
varAURL: String;APostList: TStringList; // 提交参数ListAPostStream : TStringStream; // 流提交APostWideString:WideString;AResponseStream: TStringStream; // 接收流AResponse: String;
beginAURL:; // 接口地址AResponseStream : TStringStream.Create();APostList: TStringList.Create; APostList.add(user测试);APostList.add(id123456);APostList.add(codeHA123);APostWideString : APostList.text;APostStream :TStringStream.Create(ansitoUTF8(APostWideString));try // WideString 调用ansitoUTF8进行UTF-8编码才行APostList.text : ansitoUTF8(APostWideString);IdHTTP.Request.ContentType : application/x-www-form-urlencoded; CharsetUTF-8;// List 提交IdHTTP.Post(AURL, APostList, AResponseStream);// 字符串提交IdHTTP.Post(AURL, ansitoUTF8(APostWideString), AResponseStream);// 流提交IdHTTP.Post(AURL, APostStream, AResponseStream);// AResponse 接收到的返回用UTF-8解码AResponse : UTF8toansi( AResponseStream.DataString );finallyAPostList.Clear;APostList.Free; APostStream.Free;AResponseStream.Free;end; end;
