delphi最快速编码urldecodeurlencode

1、delphi 最快速编码 URLDecode URLEncodedelphi 最快速编码 URLDecode URLEncode 时间 :2011-5-26 来源 :yang 作者 : peng 点击 : 28 次delphi 最快速编码 URLDecode URLEncodefunction URLDecode(const S: string): string;varIdx: Integer;/ loops thru chars in stringHex: string;/ string of hex charactersCode: Integer; / hex character code

2、 (-1 on error) begin/ Intialise result and string indexResult := ;Idx := 1;/ Loop thru string decoding each characterwhile Idx <= Length(S) do begincase SIdx of%:begin/ % should be followed by two hex digits - exception otherwiseif Idx <= Length(S) - 2 thenbegin/ there are sufficient digits -

3、try to decode hexdigitsHex := SIdx+1 + SIdx+2;Code := SysUtils.StrToIntDef( $-+1)H; ex,Inc(Idx, 2);endelse/ insufficient digits - errorCode := -1;/ check for error and raise exception if foundif Code = -1 thenraise SysUtils.EConvertError.Create( Invalid hex digit in URL);/ decoded OK - add character

4、 to resultResult := Result + Chr(Code); end;/ + is decoded as a spaceResult := Result + else/ All other characters pass thru unchangedResult := Result + SIdx;end;Inc(Idx);end;end;function URLEncode(const S: string; const InQueryString: Boolean): string;varIdx: Integer; / loops thru characters in stringbeginResult := ;for Idx := 1 to Length(S) dobegincase SIdx of A -7“A. Z, a .-., z_, , 0 .:9 Result := Result + SIdx;c cif InQueryString thenResult := Result + +elseResult := Result +e