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 winapi: getparent - 获取指定窗口的父窗口句柄

Delphi 两种登录界面验证写法

Delphi xe5 android得到手机的手机号码

Delphi xe intraweb 程序在iis下的发布详细教程

Delphi 获取系统内存状态

Delphi edit控制字居中，居左，居右

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