本文整理自网络，侵删。
function EncodeURIComponent(const ASrc: string): UTF8String;const HexMap: UTF8String = '0123456789ABCDEF';
function IsSafeChar(ch: Integer): Boolean; begin if (ch >= 48) and (ch <= 57) then Result := True // 0-9 else if (ch >= 65) and (ch <= 90) then Result := True // A-Z else if (ch >= 97) and (ch <= 122) then Result := True // a-z else if (ch = 33) then Result := True // ! else if (ch >= 39) and (ch <= 42) then Result := True // '()* else if (ch >= 45) and (ch <= 46) then Result := True // -. else if (ch = 95) then Result := True // _ else if (ch = 126) then Result := True // ~ else Result := False; end;var I, J: Integer; ASrcUTF8: UTF8String;begin Result := ''; {Do not Localize}
ASrcUTF8 := UTF8Encode(ASrc); // UTF8Encode call not strictly necessary but // prevents implicit conversion warning
I := 1; J := 1; SetLength(Result, Length(ASrcUTF8) * 3); // space to %xx encode every byte while I <= Length(ASrcUTF8) do begin if IsSafeChar(Ord(ASrcUTF8[I])) then begin Result[J] := ASrcUTF8[I]; Inc(J); end else if ASrcUTF8[I] = ' ' then begin Result[J] := '+'; Inc(J); end else begin Result[J] := '%'; Result[J+1] := HexMap[(Ord(ASrcUTF8[I]) shr 4) + 1]; Result[J+2] := HexMap[(Ord(ASrcUTF8[I]) and 15) + 1]; Inc(J,3); end; Inc(I); end;
SetLength(Result, J-1);end; 相关阅读 >>
Delphi下载程序并且urldownloadtofile的进度提示
Delphi tms web core webhttprequest1 解析json
windows关机函数exitwindowsex使用大全（适用windows所有操作平台）
更多相关阅读请进入《Delphi》频道 >>
