中文编码GB2312如何转化 比如:%D6%D0%CE%C4=中文 "%D6%D0%CE%C4" 应该是 "中文"的GB2312 编码,但是我获取的是"%D6%D0%CE%C4" ,怎么把他转成"中文"两个字呢?分数不多,多谢帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 %D6%D0%CE%C4把%改为$Chr($D6)+Chr($D0)...就是了代码类似Chr(InttoStr('$D6'))...具体自己弄~ var mStr: string;begin mStr := #$D6#$D0#$CE#$C4; showmessage(mStr);end; 可以考虑使用一下Indy Misc组件面板中的TIdQuotedPrintableDecoder控件,代码如下:var Str: String;begin Str := '%D6%D0%CE%C4'; Str := StringReplace(Str, '%', '=', [rfReplaceAll]);//转换成=D6=D0=CE=C4格式 IdQuotedPrintableDecoder1.CodeString(Str); Str := IdQuotedPrintableDecoder1.CompletedInput; Delete(Str, 1, 2);//去掉前两个字符 ShowMessage(Str);end; to:DunDao(Foolish)没有这个TIdQuotedPrintableDecoder吧只有TIdPrintableDecoderQuoted,但是用上去也不行啊 to:erhan(二憨) 具体点可以吗 你用的是delphi几,D6肯定是没问题的。 D7用这个TIdDecoderQuotedPrintablevar Str: String;begin Str := '%D6%D0%CE%C4'; Str := StringReplace(Str, '%', '=', [rfReplaceAll]); Str := IdDecoderQuotedPrintable1.DecodeString(Str); ShowMessage(Str);end; 如何删除动态数组控件? [分享]FastReport4.8給Memo變量賦值 我想做一个EMAIL搜索器,如我把www.51job.com 上的邮件搜索下来,如何做,提供思路 关于启动注入DLL的问题。 请问大虾!一个日期保存问题, delphi迭代的收敛 关于关闭窗体和重载的问题 誰知道哪有李維著的delphi5系列書下載網站(免費) 怎样控制right,left,up,down这四个按钮?怎样备份access数据库? 一个简单问题,在线等(50),解决立即给分 listview 组合 问题 delphi activeX 参数
把%改为$
Chr($D6)+Chr($D0)...
就是了
代码类似
Chr(InttoStr('$D6'))...
具体自己弄~
mStr: string;
begin
mStr := #$D6#$D0#$CE#$C4;
showmessage(mStr);
end;
var
Str: String;
begin
Str := '%D6%D0%CE%C4';
Str := StringReplace(Str, '%', '=', [rfReplaceAll]);//转换成=D6=D0=CE=C4格式
IdQuotedPrintableDecoder1.CodeString(Str);
Str := IdQuotedPrintableDecoder1.CompletedInput;
Delete(Str, 1, 2);//去掉前两个字符
ShowMessage(Str);
end;
没有这个TIdQuotedPrintableDecoder吧
只有TIdPrintableDecoderQuoted,但是用上去也不行啊
具体点可以吗
Str: String;
begin
Str := '%D6%D0%CE%C4';
Str := StringReplace(Str, '%', '=', [rfReplaceAll]);
Str := IdDecoderQuotedPrintable1.DecodeString(Str);
ShowMessage(Str);
end;