Developing.ru

Код: Выделить всё

 
function EncodeURL(const InputStr: string; const bQueryStr: Boolean): string;
var
   Idx: Integer;
begin
   Result := '';
   for Idx := 1 to Length(InputStr) do
      begin
         case InputStr[Idx] of
            'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.':
               Result := Result + InputStr[Idx];
            ' ':
               if bQueryStr then
                  Result := Result + '+'
               else
                  Result := Result + '%20';
            else
               Result := Result + '%' + SysUtils.IntToHex(Ord(InputStr[Idx]), 2);
         end;
      end;
end;
function DecodeUrl(const InputStr: string): string;
var
   Idx: Integer;
   Hex: string;
   Code: Integer;
begin
   Result := '';
   Idx := 1;
   while Idx <= Length(InputStr) do
      begin
         case InputStr[Idx] of
            '%':
               begin
                  if Idx <= Length(InputStr) - 2 then
                     begin
                        Hex := InputStr[Idx + 1] + InputStr[Idx + 2];
                        Code := SysUtils.StrToIntDef('$' + Hex, -1);
                        Inc(Idx, 2);
                     end
                  else
                     Code := -1;
                  if Code = -1 then
                     raise SysUtils.EConvertError.Create('Invalid hex digit in URL');
                  Result := Result + Chr(Code);
               end;
            '+':
               Result := Result + ' '
            else
               Result := Result + InputStr[Idx];
         end;
         Inc(Idx);
      end;
end;