[Помогите!] что не так?

[-=|GOOBER|=-]

Цитата: Reg := TRegExpr.Create; Data := TStringList.Create; HTTP := TIdHTTP.Create(nil); HTTP.HandleRedirects := True; // Входим в игру Data.Clear; Data.Add('loginForm_default_username='+Edit1.Text) ; Data.Add('loginForm_default_password='+Edit2.Text) ; Data.Add('loginForm_default_login_submit=Вход'); try S := HTTP.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',Data); except ShowMessage('Ошибка при посылке данных!'); Exit; end; if Pos('Выбор сервера',S) = 0 then begin ShowMessage('Неверные данные!'); Exit; end; Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"'; if Reg.Exec(S) then begin try S := HTTP.Get('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]); S := HTTP.Get('http://'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart'); except ShowMessage('Ошибка при запросе выбора сервера!'); Exit; end; if Pos('<title>DarkOrbit | Браузерная игра про приключения в онлайн-космосе.</title>',S) <> 0 then begin Reg.Expression := '<div id="news_head_date" class="fliess11px-weiss">(.*?)</div>'; if Reg.Exec(S) then ListBox1.Items.Add('Новости: '+Reg.Match[1]); ListBox1.items.Add('Информация загружена!'); end else begin ShowMessage('Ошибка при входе!'); Exit; end; end else begin ShowMessage('Неудачный выбор сервера!'); Exit; end; Reg.Free; Data.Free; HTTP.Free; end; end.

Не пойму что не так вписал?может вы мне поможете?...

[Skrillex3]

мой старый код авторизации))) ты помоему не туда отправляешь ник и пароль , проверяй , и проверь парсится ли

Цитата: darkorbit.bigpoint.com/GameAPI\.php\?req=

[-=|GOOBER|=-]

Цитата: Сообщение от Skrillex3 мой старый код авторизации))) ты помоему не туда отправляешь ник и пароль , проверяй , и проверь парсится ли

ну через чарлик пост запрос на этот адрес шел..мож с выбором сервера что-то не так?

[Skrillex3]

ошибка в парсинге

Цитата: Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"';

сравни строчку которую отправляешь в программе и которая при авторизации и исправь ошибку

[-=|GOOBER|=-]

Чет нарезать не могу..

[Steam~]

Цитата: Сообщение от -=|GOOBER|=- Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"';

Замени на

Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=(.*?)"';

[Skrillex3]

Цитата: Сообщение от Steam~ Цитата: Сообщение от -=|GOOBER|=-Посмотреть сообщение Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"'; Замени на Код: Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=(.*?)"'; ________________

это одна и та же строчка

[Steam~]

Цитата: Сообщение от Skrillex3 это одна и та же строчка

ок , буду знать

[[Na`Vi]DendI]

Цитата: Сообщение от Skrillex3 это одна и та же строчка

Цитата: Сообщение от Skrillex3 .php\?req=(.*?)"';

и

Цитата: Сообщение от Skrillex3 .php?req=

[metra3]

Цитата: Сообщение от [Na`Vi]DendI и

учи матчасть.

[Skrillex3]

Цитата: Сообщение от [Na`Vi]DendI Цитата: Сообщение от Skrillex3Посмотреть сообщение это одна и та же строчка Цитата: Сообщение от Skrillex3Посмотреть сообщение .php\?req=(.*?)"'; и Цитата: Сообщение от Skrillex3Посмотреть сообщение .php?req=

сам ты ,присмотрись к строчкам

Цитата: Сообщение от Steam~ Цитата: Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"'; Reg.Expression := '"http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI\.php\?req=(.*?)"';