本文整理自网络,侵删。
function URLEncode(s: string): string;var i: integer; source: PAnsiChar;begin result := ''; source := pansichar(s); for i := 1 to length(source) do if not (source[i - 1] in ['A'..'Z', 'a'..'z', '0'..'9', '-', '_', '~', '.', ':', '/']) then result := result + '%' + inttohex(ord(source[i - 1]), 2) else result := result + source[i - 1];end;
相关阅读 >>
Delphi 如何从一张图片中裁剪一部分距形图片另存为文件(使用canvas.copyrect)
Delphi winsocks检测某个tcp端口师傅正在被使用
Delphi xe的firemonkey获取当前文件所在路径的方法
更多相关阅读请进入《Delphi》频道 >>