• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
先介绍一下,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

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;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab程序画柱状图发布时间:2022-07-18
下一篇:
delphi中Label中文显示不全的问题解决办法发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap