搜索引擎中的汉字变成 %BD%CC%B3%CC+%CA%E9 请问怎么 互相转化的呢? %BD%CC%B3%CC+%CA%E9 是 UTF-8 编码吗?可以给个代码看看吗?谢谢~~~~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个是转换的PHP 代码,哪位哥哥可以把他转换成delphi的代码呢?function u2utf8($c){for($i=0;$i<count($c);$i++)$str="";if ($c < 0x80) {$str.=$c;}else if ($c < 0x800) {$str.=(0xC0 │ $c>>6);$str.=(0x80 │ $c & 0x3F);}else if ($c < 0x10000) {$str.=(0xE0 │ $c>>12);$str.=(0x80 │ $c>>6 & 0x3F);$str.=(0x80 │ $c & 0x3F);}else if ($c < 0x200000) {$str.=(0xF0 │ $c>>18);$str.=(0x80 │ $c>>12 & 0x3F);$str.=(0x80 │ $c>>6 & 0x3F);$str.=(0x80 │ $c & 0x3F);}return $str;}====================================这里完全是按照UTF-8编码的规则,通过判断字符属于不同的UNICODE编码段范围,进行不同的移位和位与操作,以转化为UTF-8编码。关于该规则可参考http://www.utf8.org/上的说明。这是修改前的GB转化为UTF-8编码的函数,其中调用了上面的u2utf8函数。function gb2utf8($gb) /* Program writen by sadly www.phpx.com */{if(!trim($gb))return $gb;$filename="gb2312.txt";$tmp=file($filename);$codetable=array();while(list($key,$value)=each($tmp))$codetable[hexdec(substr($value,0,6))]=substr($value,7,6);$utf8="";while($gb){if (ord(substr($gb,0,1))>127){$this=substr($gb,0,2);$gb=substr($gb,2,strlen($gb));$utf8.=u2utf8(hexdec($codetable[hexdec(bin2hex($this))-0x8080]));}else{$gb=substr($gb,1,strlen($gb));$utf8.=u2utf8(substr($gb,0,1));}}$ret="";for($i=0;$i<strlen($utf8);$i+=3)$ret.=chr(substr($utf8,$i,3));return $ret;} uses HTTPApp;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(HTTPDecode('%BD%CC%B3%CC+%CA%E9')); ShowMessage(HTTPEncode('教程 书'));end; zswangII(伴水清清)(一贴不灌,何以灌天下?) 大哥~~~~~你是怎么知道的呢 !!!~~~~~ @_@ 非常服你~~ 急救(在线),动态库调用问题? 超级郁闷,装了IE7.0,无法上传文件了,,,, 图像细化 一小段Delphi.NET例子(Get computer IP address) 两个不同数据库的互相操作问题 如何改变中文输入法中的半角和全角(在程序中用语句定)。 问一个典型的生产管理问题??高手赐教 DBComboBox的问题 請問有那位高手用過Delphi6.0 的WebSnap,小弟我需要你的幫助. 如何使Form及其中的控件隨屏幕改變而改變大小? 关于COM 接口实现问题请教 用WISE发布软件问题?再线等待!!!
function u2utf8($c)
{
for($i=0;$i<count($c);$i++)
$str="";
if ($c < 0x80) {
$str.=$c;
}
else if ($c < 0x800) {
$str.=(0xC0 │ $c>>6);
$str.=(0x80 │ $c & 0x3F);
}
else if ($c < 0x10000) {
$str.=(0xE0 │ $c>>12);
$str.=(0x80 │ $c>>6 & 0x3F);
$str.=(0x80 │ $c & 0x3F);
}
else if ($c < 0x200000) {
$str.=(0xF0 │ $c>>18);
$str.=(0x80 │ $c>>12 & 0x3F);
$str.=(0x80 │ $c>>6 & 0x3F);
$str.=(0x80 │ $c & 0x3F);
}
return $str;
}
====================================
这里完全是按照UTF-8编码的规则,通过判断字符属于不同的UNICODE编码段范围,进行不同的移位和位与操作,以转化为UTF-8编码。关于该规则可参考http://www.utf8.org/上的说明。这是修改前的GB转化为UTF-8编码的函数,其中调用了上面的u2utf8函数。
function gb2utf8($gb) /* Program writen by sadly www.phpx.com */
{
if(!trim($gb))
return $gb;
$filename="gb2312.txt";
$tmp=file($filename);
$codetable=array();
while(list($key,$value)=each($tmp))
$codetable[hexdec(substr($value,0,6))]=substr($value,7,6);
$utf8="";
while($gb)
{
if (ord(substr($gb,0,1))>127)
{
$this=substr($gb,0,2);
$gb=substr($gb,2,strlen($gb));
$utf8.=u2utf8(hexdec($codetable[hexdec(bin2hex($this))-0x8080]));
}
else
{
$gb=substr($gb,1,strlen($gb));
$utf8.=u2utf8(substr($gb,0,1));
}
}$ret="";
for($i=0;$i<strlen($utf8);$i+=3)
$ret.=chr(substr($utf8,$i,3));return $ret;
}
begin
ShowMessage(HTTPDecode('%BD%CC%B3%CC+%CA%E9'));
ShowMessage(HTTPEncode('教程 书'));
end;
@_@ 非常服你~~