Delphi url 编码及转码及特殊字符串替换--百度和腾讯用的就是这个

先介绍一下，Delphi中处理Google的URL编码解码，其中就会明白URL编码转换的方法的

从delphi的角度看Google(谷歌)URL编码解码方式 
在网上搜索了一下，似乎没有什么关于google的URL编码解码的很详细的资料，因此在这里写一下，希望给有用的人提供一点帮助。 
使用google谷歌搜索一下关键词，对应的编码如下： 
刀：%E5%88%80 
刀具：%E5%88%80%E5%85%B7 
刀具网：%E5%88%80%E5%85%B7%E7%9A%84 
因此可见，google对URL的编码并非简单的httpencode编码，因为httpencode编码后的字符串应该是带有两个百分号的，而这个是三个百分号。多尝试一下就不难发现googleURL的编码解码规则如下：
1、编码，先UTF8编码，然后再URL编码。 
      使用delphi编码的方法：加入待编码原始字符串为OiginStr,则编码后的字符串为： 
      NewStr:=HttpEncode(UTF8Encode(OiginStr)) 
      其中HttpEncode函数需要用到HttpApp,记得uses中加入。 
2、解码，先URL解码，然后再UTF8解码。 
      使用delphi解码的方法：加入待解码字符串为NewStr,则解码后的原始字符串为： 
      OiginStr:=UTF8Decode(HttpDecode(NewStr)) 
      其中HttpEncode函数需要用到HttpApp,记得uses中加入。 
相对来说百度就简单得多，一个httpencode就搞定了

对于特殊字符如 *，空格等，Delphi会编译成* 和+，这样就不能通过URL编译，所以需要用到下面的函数。

function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

rfReplaceAll：全部替换
rfIgnoreCase：忽略大小写

For Example：

var
    aStr: String;
begin
    aStr := 'This is a book, not a pen!';
    ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, not a pen!只替换了第一个符合的字
    ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not two pen!替换了所有符合的字
    aStr := 'This is a book, not A pen!';
    ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not A pen!只替换了符合的字(小写a)
    ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll, rfIgnoreCase]));//This is two book, not two pen!不管大小写替换了所有符合的字
end;

这样，我们只有调用两次stringreplace函数就搞定了。

http://blog.csdn.net/syndicater/article/details/17787065