POST запросы и кодировка. Баянищще

[kardinal94]

Всем добрый день, я конечно понимаю, что данная тема настолько заезжена, что всех от нее тошнит, но все же второй день бьюсь и не могу решить данную проблему. Прошу не направлять в поиск, так как там был.
итак, я отправляю POST запрос на страницы, кодировка которых win-1251. Если просто заполняю TStringList и отправляю, то вместо русских букв приходят крякозябры: МоскваЗлатоглавая

Пробовал отправить так:

Var ss:TStringStream;
PostData:TStringList;
Begin
PostData:=TStringList.create;
ss:=TStringStream.Create(s,1251);
    ss.Position:=0;
    ss.WriteString(PostData.Text);
    Form1.IdHTTP1.Post(Posturl, ss);
end;

Так почему то не получается, вообще не происходит регистрация. Сниффер показывает, что POST запрос пустой. Может подскажете где ошибка ?

[Mifody]

эээ, а кодировка на 100% win-1251 ??? как то больше похоже, что сервер хочет данные в UTF-8.
1. проверь ContentEncoding
2. попробуй русские данные перед добавлением в PostData конвертнуть AnsiToUTF8()

[kardinal94]

Блин, ничего не помогает. AnsiToUTF8 в том числе. Может кто-то поможет? Пример страницы - http://antistepler.ru/forum/profile....er&agreed=true
Нужно регистрироваться просто.

[evg_m]

Сниффер показывает, что POST запрос пустой.

попробуй
ss.Position:=0;
ss.WriteString(PostData.Text);
ss.Position:=0;
Form1.IdHTTP1.Post(Posturl, ss);

[Stalkker247]

procedure TForm1.Button5Click(Sender: TObject);
var
  logParam : TIdMultiPartFormDataStream;
  Data : Tmemorystream;
  CM : TidCookieManager;
  StrPage : String;

begin
    try
    logparam := TIdMultiPartFormDataStream.Create;
    Data:=tmemorystream.Create;
    CM := TidCookieManager.Create(idhttp1);
    idHTTP1.CookieManager:=cm;
    idhttp1.AllowCookies:=true;
    idhttp1.HandleRedirects:=true;

    idhttp1.Request.Host:='site-example.com';
    idhttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0';
    idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    idhttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    idhttp1.Request.AcceptCharSet:='windows-1251';
\\ итак далее.....

    logparam.addformfield('user','yourusername');
    logparam.addformfield('password','yourpass');


    idhttp1.Post('http://site-example.com\login.php',logparam,data);
    data.SaveToFile('1111.txt');
    finally
     logparam.Free;
     data.Free;
     cm.Free;
    end;

end;

В переменную DATA записывается нормальная кодировка
1111.тхт сохраняется в папке с проектом

[kardinal94]

Сообщение от evg_m

попробуй
ss.Position:=0;
ss.WriteString(PostData.Text);
ss.Position:=0;
Form1.IdHTTP1.Post(Posturl, ss);

Так тоже пробовал, не получается, все равно POST запрос посылается пустым. Точнее сниффер показывает, что пустой.



Предложенную процедуру переделал так:

var
  logParam : TIdMultiPartFormDataStream;
  Data : Tmemorystream;
  CM : TidCookieManager;
  StrPage : String;

begin
    try
    logparam := TIdMultiPartFormDataStream.Create;
    Data:=tmemorystream.Create;
    CM := TidCookieManager.Create(idhttp1);
    idHTTP1.CookieManager:=cm;
    idhttp1.AllowCookies:=true;
    idhttp1.HandleRedirects:=true;
    idhttp1.Request.Host:='http://antistepler.ru/';
    idhttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0';
    idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    idhttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    idhttp1.Request.AcceptCharSet:='windows-1251';
    idhttp1.Get('http://antistepler.ru/forum/profile.php?mode=register&agreed=true');
// итак далее.....

  logparam.addformfield('username','hgkdnbhg1467');
logparam.addformfield('email','gignerth1@ra1mbler.ru');
logparam.addformfield('new_password','aues300694');
logparam.addformfield('password_confirm','aues300694');
logparam.addformfield('icq','Нету аська');
logparam.addformfield('aim','');
logparam.addformfield('msn','');
logparam.addformfield('yim','');
logparam.addformfield('website','http://promous.ru');
logparam.addformfield('location','МоскваЗлатоглавая');
logparam.addformfield('occupation','чтото');
logparam.addformfield('interests','привет');
logparam.addformfield('signature','');
logparam.addformfield('viewemail','0');
logparam.addformfield('hideonline','0');
logparam.addformfield('notifyreply','0');
logparam.addformfield('notifypm','0');
logparam.addformfield('popup_pm','0');
logparam.addformfield('attachsig','0');
logparam.addformfield('allowbbcode','0');
logparam.addformfield('allowhtml','0');
logparam.addformfield('allowsmilies','0');
logparam.addformfield('language','0');
logparam.addformfield('timezone','0');
logparam.addformfield('dateformat','D M d, Y G:i');
logparam.addformfield('show_quickreply','1');
logparam.addformfield('quickreply_mode','1');
logparam.addformfield('mode','register');
logparam.addformfield('agreed','true');
logparam.addformfield('coppa','0');
logparam.addformfield('submit','Отправить');

    idhttp1.Post('http://antistepler.ru/forum/profile.php',logparam,data);
    data.SaveToFile('1111.txt');
    finally
     logparam.Free;
     data.Free;
    cm.Free;
    end;

end;

Все равно сниффер показывает пустой запрос. Пустой пост запрос и меня редиректит на http://antistepler.ru/forum/index.php

[kardinal94]

Проблема не решена. Неужели никто не сталкивался с такой проблемой?

[kangreon]

Какая у вас версия Indy?

[kardinal94]

Версия 10-ая.