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 fmx 获取控件句柄

Delphi nativeexcel获取excel所有列

Delphi firedac,ado性能测试

Delphi tidhttp 登录网页封装

Delphi 图像操作

Delphi 双击tmemo选择光标所在行

Delphi 读取文本文件的最后一行

Delphi里实现对图片base64编码解码

Delphi listview1 图标不齐，错乱解决方法

Delphi_关于null,nil

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

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