[Помогите!] Авторизация Darkorbit - Выбор сервера

[DangerousSs]

procedure TForm4.Button1Click(Sender: TObject);
var aLogin,aServer: String;
    data: TstringList;
begin
data:=TstringList.Create;
data.Add('loginForm_default_username='+Edit1.Text);
data.Add('loginForm_default_password='+Edit2.Text);
data.Add('loginForm_default_login_submit=Вход');
 Memo1.Lines.Add('Авторизация...');
try
   aLogin:=idHTTP1.Post('http://www.darkorbit.ru/?locale=ru&aid=0',data);
except
   Memo1.Lines.Add('Ошибка при посылке данных!...');
   data.Free;
   Exit;
end;
if Pos('selectInstanceHint',aLogin)<>0 then
Memo1.Lines.Add('Выбор сервера...')
else
Memo1.Lines.Add('Данные введены не верно!...');

// Далее нужно выбрать сервер, но долго этим не занимался и забыл как его выбрать
// Испробовал Pos,copy,RegExpr для парсинга ссылки не получается, или изменилось что.

end;

Прошу помочь, напишите код выбора сервера.
Без разницы pos,copy или regexpr или еще что, главное чтоб было понятно. Парсинг данных: уридиума, кредитов и т.д не нужен, - в этом сам разберусь

На другие темы не отправлять, опишите сами, буду благодарен.

[Skrillex3]

сделаю пинок: нужно парсить строчку с гейм апи немного длтннее чем она на самом деле , а потос её резать

[DangerousSs]

Цитата: Сообщение от Skrillex3 сделаю пинок: нужно парсить строчку с гейм апи немного длтннее чем она на самом деле , а потос её резать

Цитата: На другие темы не отправлять, опишите сами, буду благодарен.

Походу твоя подпись все о тебе говорит)...

[Skrillex3]

Цитата: Сообщение от DangerousSs Походу твоя подпись все о тебе говорит)...

А твой пост говорит что тебе или не подсилу сделать то что я сказал или лень

[DangerousSs]

Цитата: Сообщение от Skrillex3 А твой пост говорит что тебе или не подсилу сделать то что я сказал или лень

Цитата: Далее нужно выбрать сервер, но долго этим не занимался и забыл как его выбрать

Лучше уйди с темы... я попросил написать код, а не умничать перед другими людьми

[Skrillex3]

Цитата: Сообщение от DangerousSs Лучше уйди с темы... я попросил написать код, а не умничать перед другими людьми ________________

надейся , тебе его никто не напишет

[DangerousSs]

Цитата: Сообщение от Skrillex3 надейся , тебе его никто не напишет

Тролль, банов давно не видел, будешь троллить все темы точно получишь бан.
Даже не отвечай тут больше, иначе будешь создавать новый аккаунт.

Начались у них каникулы, так теперь Zhyk.ru засран школятиной.
Надеюсь и буду надеяться ответа от нормального человека.

[VeTaL_UA]

DangerousSs, советую вам быть поспокойнее в отношении пользователей портала

Добавлено через 18 часов 10 минут
Следующий, кто решит продолжить конфликт будет награждён картой

[[Na`Vi]DendI]

Reg.Expression := 'http://'+Server+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)">';
if Reg.Exec(S) then
begin
s := Reg.Match[1];
SetLength(S,Length(S)-2);
S := HTTP.Get('http://'+Server+'.darkorbit.bigpoint.com/GameAPI.php?req='+S);
if Pos('span', S) <> 0 then

теперь понятней ?

[DangerousSs]

Цитата: Сообщение от [Na`Vi]DendI Reg.Expression := 'http://'+Server+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)">'; if Reg.Exec(S) then begin s := Reg.Match[1]; SetLength(S,Length(S)-2); S := HTTP.Get('http://'+Server+'.darkorbit.bigpoint.com/GameAPI.php?req='+S); if Pos('span', S) <> 0 then теперь понятней ?

Понятней, но я уже написал своим кодом.