Отправка сообщения m.odnoklassniki.ru

[Кольша]

Всем hello!)
Занялся я тут synaps'ом..
Написал авторизация на одноклассниках, но вот ни задача не могу отправить сообщение..да и вообще любой пост запрос...уже и refer подставлял..без толку..Может это из использования gzip?Хотя нет через браузер отправляется да и даже уберал когда все равно не отправляет..
Авторизация:

var stream: TStringStream;
...
stream:=TStringStream.Create('');
stream.WriteString('fr.posted=set&fr.needCaptcha=&fr.login='+EncodeURLElement('login')+'&fr.password='+EncodeURLElement('pass')+'&fr.remember=on&button_login=%D0%92%D0%BE%D0%B9%D1%82%D0%B8');
http.MimeType:='application/x-www-form-urlencoded';
http.UserAgent :='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
http.Headers.Add('Accept-Encoding: gzip,deflate');
http.Protocol:='1.1';
http.Document.LoadFromStream(stream);
if (http.HTTPMethod('post','http://m.odnoklassniki.ru/dk?bk=GuestMain&st.cmd=main' )) and(http.ResultCode=302) then
//авторизовались!
...

И как быть...?)

[Человек_Борща]

в Synautil есть метод WriteStrToStream, там готовите POST данные и пишите их этим методом в THHTSend.Document

Ваш вариант правильный, но он не есть годный для синапсов.

[Кольша]

Попробую...как попробую отпишу...И как все таки с gzip? он не влияет на запрос?

[Кольша]

Нет всеравно не отправляет..

[Человек_Борща]

Попробую...как попробую отпишу...И как все таки с gzip? он не влияет на запрос?

Советую почитать, по больше, про значения переменных HTTP заголовка.
Я вот так делаю авторизацию, но на др. сайте.. Кусок из рабочего проекта:

      bIsFirst := True;
      if (not fLogined) and fDoLogin and fLogouted then
      begin
        // Авторизация
        fHTTP.Clear;
        fHTTP.Cookies.Clear;
        sAuth := Format(cAuthReq, [fLogin, fPassword]);
        WriteStrToStream(fHTTP.Document, sAuth);
        fHTTP.KeepAlive := True;
        fHTTP.Headers.Add('Accept-Encoding: gzip, deflate');
        SetLogin(lrLogging);

        if fHTTP.HTTPMethod('POST', cAuthPage) and (fHTTP.ResultCode = 302) then
        begin

Покажите, как вы делаете?

[Кольша]

Интересный метод..но когда я делаю серьезный..хоть чуть чуть серьезный проект..я создаю класс типа TEngine{vk например} делаю в нем обычную процедуру auth(l,p:string):boolean;
и все
Дело не в том авторизация проходит норм отправка не происходит..даже статус немогу поставить...ничего..даже пробовал парсить все значения из формы и все равно 0

[Кольша]

Проблема решена хоть и столько времени прошло..
Суть надо перед каждым постом добавлять

http.MimeType:='application/x-www-form-urlencoded';