PDA

Просмотр полной версии : [Помогите!] Что тут не так (Darkorbit, вход по логину)

megatronx
13.04.2011, 09:24
var
Post: TStringList;
begin
Reg := TRegExpr.Create;
Post := TStringList.Create;
Post.Add('loginForm_default_username='+NIK.Text);
Post.Add('loginForm_default_password='+PASS.Text);
Post.Add('loginForm_default_login_submit=Вход');
S := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Post);
Reg.InputString := Utf8ToAnsi(S);
Reg.Expression := '"[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=(.*?)"';
if Reg.Exec
then
begin
S := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);
Reg.InputString := Utf8ToAnsi(S);
Reg.Expression := '<title>(.*?)</title>';
if Reg.Exec
then
if Reg.Match[1] = '[Ссылки могут видеть только зарегистрированные и активированные пользователи]'
then
MessageBox(0,'Вход был выполнен успешно!','Внимание',MB_OK+MB_ICONINFORMATION)
else MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR)
else
MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR);
end
else
MessageBox(0,'Войти не удалось!','Ошибка!',MB_OK+MB_ICONERROR);
Post.Free;
Reg.Free;
end;

Он просто берет и не входит, скорее всего неправильно отправляю запрос.
АзЕсмьЦарь
13.04.2011, 11:18
Не совсем понял эту строчку. А чему равно Reg.Match[1]?
S := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);
megatronx
13.04.2011, 15:40
Не совсем понял эту строчку. А чему равно Reg.Match[1]?
S := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+SRV.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);
Reg.Match[1] - это значение (.*?)

Ошибка или в запросе, или в вот этой строчке:
S := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Post);
megatronx
22.04.2011, 18:52
Уже все понял, ошибка была в поиске req