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 case选择语句练习代码简化

Delphi 删除确认对话框

Delphi 下载函数

Delphi 如何取得键盘每个键

Delphi读取radiogroup选中按钮的string文本

Delphi判断线程是否释放

Delphi int64 与 currency

Delphi rgbtohsb

Delphi 实现执行外部程序,并等待程序结束的函数

Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...