delphi 实现URL编码解码函数(转)

      最近在写网页抓取程序时候，很多时候需要对字符进行URL编码，其实URL编码就是将每个字节用16进制的文本表示，前边在家上%，了解了这一点，那么写个函数就很简单了，于是就随手写了个两个简单的函数对字符进行URL编码解码。

 

//加码

function URLencode(str:string):string;
var
  i:integer;
  temp:string;
begin
  for i:= 1 to  length(str) do
  begin
    temp:=temp+'%'+inttohex(integer(str[i]),0);
  end;
  result:=temp;
end;

 

//解码

function URLdecode(str:string):string;
var
  temp:string;
  i:integer;
begin
  setlength(temp,length(str) div 3);
  i:=1;
  while(i<length(str)) do
  begin
    temp[(i+2)div 3]:=char(strtoint('$'+str[i+1]+str[i+2]));
    inc(i,3);
  end;
  Result:=temp;
end;