先介绍一下,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;
|
请发表评论