![]() |
|
#1
|
|||
|
|||
![]() Здраствуйте,есть такая игра как minecraft так вот,есть сервер на котором есть биржа ресурсов тоисть один игрок продает туда другой покупает
вот страницы биржы на сайте :Биржа Так как все нормальные ресуры там розлетаютса за пару секунд хочу написать програму которая бы выводила окно (ShowMsg) когда продают новый ресур: Если я не ошибаюсь то должно быть так:Парсинг страницы -> Удаление лишниго -> Вывод изминений через ShowMsg Код:
procedure TForm1.Button1Click(Sender: TObject); var St:WideString; begin try St:=IdHTTP1.Get('http://forum.mcserver.ru/forex.php'); Delete(St,1,pos('<tr><td class="author-row">20</td><td class="author-row"</div></td><td class="author-row">glass</td><td class="author-row"><a href="javascript: show_sell(20);">0.0822657</a></td><td cla',St)+length('td "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"><td class="author-row"><a href="html11</a></td>')-1); Delete(St,pos('< = "'),length(St)); ShowMessage(St); except on e:Exception do end; end; |