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 系统服务和普通forms程序共存一体的实现

decodedatetime:将一个tdatetime变量拆分成它的日期/时间 部分

Delphi图像二值化

Delphi 根据文件扩展名判断文件类型函数写法

Delphi检测网络连接状态

Delphi 标题栏相关操作

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

wmi cim_datafile的33个属性

Delphi 异或加解密

Delphi 文件查找记录类型 - tsearchrec

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...