m.odnoklassniki.ru авторизация!

[Кольша]

Всем привет помогите авторизоваться на http://m.odnoklassniki.ru/ я пробывал по общим принципам авторизации нечего не получилось

[Bright-rider]

Вот набросал пример. Для работы с сетью использую Synapse.
В разы лучше Indy(IMHO)
На Synapse код авторизации выглядит так:

PHP код:

...
uses httpsend;
...
procedure TForm1.btn1Click(Sender: TObject);
 var
   HTTP:THTTPSend;
   s,login,password,id:string;
 function Str(HTTP: THTTPSend): string;
   var 
    T:Tstringlist;
 begin
  T:=Tstringlist.Create;
  T.LoadFromStream(HTTP.Document);
  result:=t.Text;
  T.free
 end;
 function pars(text, a, b: string): string;
  var
   temp:string;
 begin
  temp:=copy(text,pos(a,text)+length(a),length(text)-(pos(a,text)+length(a)-1));
  pars:=copy(temp,1,pos(b,temp)-1);
 end;
 procedure clear(http:thttpsend);
 begin
  HTTP.Document.Clear;
  HTTP.Headers.Clear;
 end;
 begin
  login:='логин';
  password:='пас';
  HTTP:=THTTPSend.Create;
  HTTP.HTTPMethod('get','http://m.odnoklassniki.ru/');
  id:=pars(str(http),'tkn=','');
  s:='fr.posted=set&fr.needCaptcha=&fr.login='+login+'&fr.password='+password+'&fr.remember=on&button_login=%D0%92%D0%BE%D0%B9%D1%82%D0%B8';
  clear(http);
  HTTP.Document.Write(Pointer(s)^, Length(s));
  http.MimeType:='application/x-www-form-urlencoded';
  http.HTTPMethod('post','http://m.odnoklassniki.ru/dk?bk=GuestMain&st.cmd=main&tkn='+id);
  clear(http);
  HTTP.HTTPMethod('get','http://m.odnoklassniki.ru/');
  HTTP.Free;
end; 


P.S.: Будут вопросы - пишите

[Кольша]

можно с пояснениями т.к компонент не знакомый

[Кольша]

спасибо пояснений не надо еще раз большое спасибо Bright-rider

[Кольша]

Вопрос почему этот компонент отчищаеться после загрузки

[Bright-rider]

Сообщение от Кольша

Вопрос почему этот компонент отчищаеться после загрузки

Это ты про

PHP код:

HTTP.Document.Clear; 
HTTP.Headers.Clear; 


?
Если да, то при нужно для того, чтобы при следующем пост запросе не отправлять тело прошлого документа.
В общем сервер вернёт ошибку 500(плохой запрос).
P.S.: Спасибо сюда: http://programmersforum.ru/reputation.php?p=932154

[Кольша]

да нет просто он например ссылку типа http://m.odnoklassniki.ru/dk?st.cmd=userMsgs&st.chatWith=nqrc ujdiyhpjuevzzbz0qpwbqolavbiybgtly&t kn=8428#lstзагружает пустой

[Bright-rider]

Мой код авторизации работает?

[Кольша]

да работает

[Кольша]

Не получаеться блин помогите пожалуйста может какой нбудь параметр надо поменять у httpsend или что еще подключить я даже когда ссылки страницы парсю чтобы tkn был верным он страницу пустую загружает редко бывает выкидывает меня с одноклассников