URL – кодирование запроса POST в Hex

[Ivanko]

Как осуществить URL – кодирование запроса POST: чтобы латинские буквы и цифры остались без изменений, а остальные символы передались в шеснадцатиричной нотации с префиксом “%”. Пробелы могут быть заменены символом “+”. Но и символы “+” и “=” должны быть тоже обязательно закодированы. А также в начало запроса необходимо подставить “inputmessage=”.

[Usov]

кодируй текстовые параметры запроса полностью в HEX

[Ivanko]

Все вопрос снят нашел на форуме функцию...

function URLEncode(const S: string): string;
var
Idx: Integer;
begin
Result := '';
for Idx := 1 to Length(S) do
begin
if S[Idx] in ['A'..'Z', 'a'..'z', '0'..'9', '-', '=', '&', ':', '/', '?', ';', '_', '.'] then
Result := Result + S[Idx]
else
Result := Result + '%' + IntToHex(Ord(S[Idx]), 2);
end;
end;