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;

delphi url编码与解码工具附代码

相关推荐

评论