URLEncode (windows-1251)

[kirsan007]

В общем нужно преобразовать русский текс в windows-1251 а затем в url как делает это http://www.codenet.ru/services/urlencode-urldecode/ (не реклама)
Вводим на сайте текст и получаем url в разных кодировках, мне нужно получить Закодированный текст в кодировке windows-1251

Сколько не пытался... только в utf8 выходило.

Пробовал отсылать пост запрос методом

params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('id_group=41');
params.Add('id_subgroup=363');
params.Add('id_city=100000');
params.Add('key1=матрац');
for i := 0 to Params.Count - 1 do
begin
  s:=s+Params.Names[i]+'='+Params.Values[Params.Names[i]];
  if i<>Params.Count - 1 then s:=s+'&';
end;
ss:=TStringStream.Create(s,1251);
responseres.Text:=RussianToUnicode(idhttp1.Post('http://www.ratiss.com/search/CatalogGoods.aspx',ss));

Но ничего не вышло. Преобразовать как вы уже поняли надо слово матрац в данном случае. Должно получиться - %EC%E0%F2%F0%E0%F6

[Serge_Bliznykov]

Обычный текст?
а если попробовать так?

procedure TForm2.Button1Click(Sender: TObject);
var s, sOut : AnsiString;
  i, code : integer;
begin
  s := 'матрац';
  sOut := '';
  for I := 1 to length(s) do
    sOut := sOut + Format('%%%.2x', [ord(s[i])]);

  Edit1.Text := sOut;
end;

написал так, навскидку, формат URL кодирования не читал, поэтому возможно, что ещё надо будет что-то напильником допилить....

[kirsan007]

О_О работает! Спасибо огромное!!!!