Delphi 实现PHP的URLEncode编码效果

本文整理自网络，侵删。

 
function URLEncode(const aData: AnsiString): AnsiString;
const
      Chars: Array [0..18] of AnsiChar = (#$25, #$21, #$2A, #$27, #$28, #$29,
                                          #$3B, #$3A, #$40, #$26, #$3D, #$2B,
                                          #$24, #$2C, #$2F, #$3F, #$23, #$5B,
                                          #$5D);
var
     sData: String;
     i1: DWORD;
begin
     sData := String(aData);
     for i1 := Low(Chars) to High(Chars) do
     sData := StringReplace(sData, String(Chars[i1]), '%' + IntToHex(Ord(Chars[i1]), 2), [rfReplaceAll, rfIgnoreCase]);
     result := AnsiString(sData);
end;
 

相关阅读 >>

Delphi中三种延时方法

Delphi 解决idhttp下载数据时程序无响应的问题

Delphi tms web core twebsocketclient

Delphi多媒体函数

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi 金木水火土 生克用法

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi 释放资源文件

Delphi写的服务程序在服务管理器中显示“描述”

Delphi 获取指定年月的周、日数

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

转载请注明出处：木庄网络博客 » Delphi 实现PHP的URLEncode编码效果