Авторизация на майле(Ошибка Socket Error#0)

[pavel!]

Hi, авторизуюся на майле выдает ошибку Socket Error#0

Цитата: var HTTP:tidHTTP; data:tstringlist; begin HTTP:=tidHTTP.Create; HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:13.0) Gecko/20100101 Firefox/13.0.1'; HTTP.AllowCookies:=true; HTTP.HandleRedirects:=true; HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; data:=tstringlist.Create; data.Add('Domain='+form1.Edit4.Text); data.Add('Login='+form1.Edit3.Text); data.Add('Password='+form1.Edit5.Text); data.Add('level=1'); try HTTP.Post('https://auth.mail.ru/cgi-bin/auth', data); except end;

WTF?

[Skrillex3]

Цитата: HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:= True; data:=TStringList.Create; data.Add('Login='+Edit1.Text); data.Add('Password='+Edit2.Text); data.Add('Domain=mail.ru'); S:=HTTP.Post('http://win.mail.ru/cgi-bin/auth',data); if pos('Входящие -',s)<>0 then Showmessage('Авторизовались') else Showmessage('Не авторизовались');

рабочий код

[VeTaL_UA]

OpenSSL динамические библиотеки с программой лежат?

[Skrillex3]

VeTaL_UA, там не нужны ссл ,просто пост запрос

[VeTaL_UA]

Цитата: Сообщение от pavel! HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

Цитата: Сообщение от pavel! HTTP.Post('https://auth.mail.ru/cgi-bin/auth', data);

Цитата: Сообщение от Skrillex3 VeTaL_UA, там не нужны ссл ,просто пост запрос

Уверен?

[pavel!]

Цитата: Сообщение от VeTaL_UA Уверен?

Да лежали, но почему то сервер закрывал конект :O
В общем уже разобрался, щас пытаюся после авторизации парсить текст, но почему то программа выходит с потока когда надо парсить..
Thread Exit: Thread ID: 7680. Process Project1.exe (7016)
С чем это может быть связано?

[VeTaL_UA]

Цитата: Сообщение от pavel! С чем это может быть связано?

С тем, что ты тупо выходишь из потока, ничего не понял из вышесказанного

[pavel!]

Цитата: Сообщение от VeTaL_UA С тем, что ты тупо выходишь из потока, ничего не понял из вышесказанного

Мне надо после авторизации спарсить текст, а он с потока выходит ^___^

[D.E.Z.E.R.T.I.R]

а зачем ты выходишь? сам он никак не выйдет

[pavel!]

Цитата: Сообщение от D.E.Z.E.R.T.I.R а зачем ты выходишь? сам он никак не выйдет

Я не выхожу ^_^

Цитата: procedure TNewThread.Execute; begin inherited; HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:= True; data:=TStringList.Create; data.Add('Login=admiral42rus'); data.Add('Password=pavel89043722834'); data.Add('Domain=mail.ru'); S:=HTTP.Post('http://win.mail.ru/cgi-bin/auth',data); if pos('Входящие -',s)<>0 then begin form1.label6.Caption:='Online'; form1.Label6.Font.Color:=clgreen; HTTP.HandleRedirects:=true; page:=HTTP.Get('http://my.mail.ru/inbox/fenks/ajax?ajax_call=1&func_name=search.getlist&data=[{"general"%3A{"common"%3A"'+form1.edit1.text+'"}}% 2C'+form1.Edit2.Text+'%2Cnull%2Cnull%2C""]&mna=83210&mnb=4059805758&encoding=windows-1251'); Reg:=TRegExpr.Create; reg.Expression := 'href=\"http://my.mail.ru/my/dialogues?thread=(.*?)\">'; if Reg.Exec(page) then repeat form1.Memo1.lines.add(Reg.Match[1]); until not Reg.ExecNext; end else begin form1.label6.Caption:='OFLINE'; form1.Label6.Font.Color:=clred; end; Где я тут выхожу с потока? end;

[VeTaL_UA]

Цитата: Сообщение от pavel! inherited;

нафиг он в твоём коде?

[pavel!]

Цитата: Сообщение от VeTaL_UA нафиг он в твоём коде?

Я когда поток создавал нажал сочитания клавиш Ctrl+shift+C , создалося вместе со всеми процедурами, я его не убираю)

[D.E.Z.E.R.T.I.R]

а почему ты в конце поток не синхронизируешь и не завершаешь?

[pavel!]

Цитата: Сообщение от D.E.Z.E.R.T.I.R а почему ты в конце поток не синхронизируешь и не завершаешь?

Что мне там синхронизировать? Парсинг я синхронихировать не умею.
Буду рад если объясниш и поможеш

[VeTaL_UA]

Цитата: Сообщение от D.E.Z.E.R.T.I.R а почему ты в конце поток не синхронизируешь и не завершаешь?

Прости, но если он работает в один поток, нафига ему синхронизация? И ещё, зачем завершать поток, когда он сам завершится?