怎么样使用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;

本文地址：http://www.45fan.com/a/question/68307.html