Idhttp и параметры запроса

[andrejjka]

Столкнулся с проблемой.
В потоке выполняется следующая функция

function stream.avtorizaciy(Srt:TStringList):TStringList;
var
IdHTTP: TIdHTTP;

begin


  Result:=TStringList.Create;
  
  try
    IdHTTP := TIdHTTP.Create(nil);
    IdHTTP.HandleRedirects:=True;
    IdHTTP.AllowCookies:=True;
    IdHTTP.CookieManager:=TIdCookieManager.Create(nil);
    IdHTTP.Request.UserAgent:='Mozilla/3.0';
    IdHTTP.Request.Accept:='text/html, */*';
    IdHTTP.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    IdHTTP.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    IdHTTP.IOHandler:=TIdSSLIOHandlerSocket.Create(nil);
    Result.Text:=IdHTTP.Post('https://pogoda-sv.ru/cgi-bin/wda',srt);
    Synchronize(show);
    IdHTTP.Disconnect;
    IdHTTP.Free;
  except on e : EIDHttpProtocolException do
    Begin
      if e.ReplyErrorCode = 503 then
      begin
        flag:=True;
      end;

    end;

    on e: EIdSocksError do
    begin
      flag:=True;
    end;

  end;
end;

В нее поступают параметры авторизации следующего вида

user=123
pass=123
Se1_old=BUL
Se1=BUL
Se2_old=WO/
Se2=WO/
Se3_old=лвут/
Se3=лвут/
Se4_old=чпту90лвут
Se4=чпту90лвут

на выходе получаю ответ на post запрос. НО после post запроса, еще до завершения работы функции, мои параметры авторизации превращаются в

user=123
pass=123
Se1_old=BUL
Se1=BUL
Se2_old=WO/
Se2=WO/
Se3_old=%EB%E2%F3%F2/
Se3=%EB%E2%F3%F2/
Se4_old=%F7%EF%F2%F390%EB%E2%F3%F2
Se4=%F7%EF%F2%F390%EB%E2%F3%F2

Как это исправить?

[kangreon]

На сколько я понял сервер хочет принемать данные в кодировке koi8-r

<meta http-equiv='content-type' content='text/html; charset=koi8-r'>

в вашем случае сервер получает строчку вида Google

PS Какая у вас версия Delphi?

В Delphi XE можно сделать так

var
  ss: TStringStream;
begin
  ss := TStringStream.Create('имя1=значение1&имя2=значение2',20866);
  //(Вики) В Microsoft Windows KOI8-R присвоен код страницы 20866 
end;
// и пост запрос
http.post('url',ss)

[andrejjka]

Не дописал, пост запрос проходит! Я получаю нормальный ответ и дальше его обрабатываю. Мои параметры принимаются сервером! Но почему после пост запроса мои параметры меняют кодировку? Я далее их опять использую, но они уже в непригодном виде. Более того, если всю операцию делать через компонент на форме, то все проходит отлично!

У меня delphi 7.

[veniside]

> параметры меняют кодировку

Это UrlEncode(), с кодировкой всё в порядке. И по-моему TIdHTTP правильно сделал, что заенкодил их, так что я бы ничего и не исправлял )