delphi URLEncode

2022-11-02 09:50:00 网络 Delphi

本文整理自网络，侵删。

 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如何计算一个文件目录的大小

Delphi idhttp访问datasnap有密码验证的中间件

cnwizards cnpack ide 专家包

Delphi decodeutf8str解决系统自带utf8解码缺陷

Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了

Delphi中复制线程

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