[Статья] Получаем информацию о персонаже Тюряга

[Bосh]

Второй урок, который основан на первом - "Получение ID и Auth_Key".
Не буду делать много букв, перейдем сразу к делу.
Кидаем на форму:
1. Label из вкладки Standart - 2шт.
2. Edit из вкладки Standart - 2шт.
3. Memo из вкладки Standart - 2шт.
4. idHTTP из вкладки Indy Clients - 1шт.
Ну и как всегда, для более удобного интерфейса, можем добавить GroupBox.
Получиться должно у нас следующее:
[Ссылки могут видеть только зарегистрированные пользователи. ]

var
PageProfile:string;
St:String;
begin
idHTTP1.HandleRedirects:=true;
try
  St:=IdHTTP1.Get('http://109.234.155.196/prison/universal.php?getInfo&method=getInfo&user='+Edit1.Text+'&key='+Edit2.Text); // Откуда брать инфо
Delete(St,1,pos('<money>',St)+length('<money>')-1); // Откуда копировать
Delete(St,pos('</money>',St),length(St)); // До чего копировать
Memo1.Lines.Add('Деньги: ' + St); // Вывод инфо. в Memo. То есть у нас выведется кол-во монет.
except
  on e:Exception do
end;
end;
end.

У вас наверно возник вопрос, откуда берутся эти тэги(<money></money>).
Переходим по ссылке

[Ссылки могут видеть только зарегистрированные пользователи. ]

Далее, в открывшейся странице, смотрим исходный код.
Там и хранятся все тэги.
Например:
<energy>...</energy> - Энергия.
Или
<rating>...</rating> - Авторитет.
И так далее...

[Skrillex3]

1. в тюряге кажется 10 различных айпишников
2. удобнее было бы парсить с помошью XMLDocument
3. а в целом не плохая статья

[Руслан Палыч]

Это что ? Delete(St,pos('</money>',St),length(St)); // До чего копировать
Так лучше copy(St,1,pos('</money>',St)-1);

[VeTaL_UA]

Руслан Палыч, попробуйте объяснить, почему.

[MastaDan]

Цитата: У вас наверно возник вопрос, откуда берутся эти тэги(<money></money>). Переходим по ссылке

Хм...ввел свой аут кей, мне показали 0