delphi中urlencode和urldecode的函数编写？

use

    httpapp;

   函数：httpencode  和  httpdecode;   

一、utf8编码的urlencode

     dest:= HttpEncode(AnsiToUtf8(src)) ; 

二、utf8解码的urldecode

   src:=utf8toansi(Httpdecode(dest));

注意：string对应的类型；delphi2007以前的string默认是ansistring； 高版本的（支持64位版本） string默认是 wideString；

             因此这个需要注意一下；