Delphi 对提交参数编码

本文整理自网络，侵删。

 
function ParamsEncode(const ASrc: Ansistring): AnsiString;
var i: Integer;
begin
  Result := '';
  for i := 1 to Length(ASrc) do
  begin
    if (ASrc[i] in ['&', '*','#','%','<','>',' ','[',']'])
       or (not (ASrc[i] in [#33..#128]))
    then
    begin
      Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2);
    end
    else
    begin
      Result := Result + ASrc[i];
    end;
  end;
end;
 

相关阅读 >>

Delphi tstreamreader tfile assignfile读取文本文件

Delphi 将字符串转换为c-escape转义字符串格式

Delphi sqlite 自动编号的实现

Delphi原生方法取得文件的md5

Delphi 很方便调用的log日志方法

Delphi textfile utf8编码读写

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 防止程序重复执行(多种方法)

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi 按esc快捷键退出程序的简单方法

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

转载请注明出处：木庄网络博客 » Delphi 对提交参数编码