[Помогите!] авторизация DO [dark orbit]

[•♥AndroiD♥•]

Недавно начал осваивать Delphi, хотелось бы узнать авторизацию браузерной игры dark orbit, помогите ;]

[=PaLeTiZaToR=]

Бросил дарк , код остался ... есле есче работает , то хорошо
Переменные сам напишешь

Data:=tstringlist.create;//Создаем список
data.Add('loginForm_default_username='+form1.Edit1.Text);//Заполняем поле ника
data.Add('loginForm_default_password='+form1.Edit2.Text);//Заполняем поле пароля
html1:=form1.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data);//Посылаем данные на сервер
if pos('http://'+Edit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде
begin
ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение
exit
end
else // есле есть продолжить
html2:=pars('http://'+form1.edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html1,'&ref_pid=');//спарсить ссылку для входа на сервер
if pos(form1.edit3.Text,html1)=0 then
begin
Showmessage('Ошибка входа на сервер');
exit
end
else
html3:=form1.idhttp1.Get('http://'+form1.edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+html2);// отправляем нашу ссылку на сервер
data.Free;//очищаем дату

Это сама функция парса

function pars(s_, s, _s: string): string;
var
  p: integer;
  _s_: string;
begin
  _s_ := copy(s, pos(s_, s) + length(s_), length(s) - pos(s_, s) - length(s_));
  p := pos(_s, _s_);
  result := copy(_s_, 1, p - 1);
end;

Она тебе везде пригодится



Есле будут вопросы , стучи скайп lil-50cent

[Number/1/]

Цитата: Сообщение от =^PaLeTiZaToR^= Data:=tstringlist.create;//Создаем список data.Add('loginForm_default_username='+form1.Edit1 .Text);//Заполняем поле ника data.Add('loginForm_default_password='+form1.Edit2 .Text);//Заполняем поле пароля html1:=form1.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data);//Посылаем данные на сервер if pos('http://'+Edit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде begin ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение exit end else // есле есть продолжить html2:=pars('http://'+form1.edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html1,'&ref_pid=');//спарсить ссылку для входа на сервер if pos(form1.edit3.Text,html1)=0 then begin Showmessage('Ошибка входа на сервер'); exit end else html3:=form1.idhttp1.Get('http://'+form1.edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+html2);// отправляем нашу ссылку на сервер data.Free;//очищаем дату

а нафик использовать для каждой новой ссылки новую переменную?

[=PaLeTiZaToR=]

Цитата: Сообщение от Number/1/ а нафик использовать для каждой новой ссылки новую переменную?

код старый ... (когда начинал учить дельфи) да и ему наверно так понятней будет