[Dima170792]

Сообщение от poli-smen

Это действительно грубовато.

Через PosEx делается примерно так:

Код:

const tg ='<span id="ajx_health">';
.....
var
.....
  p1, p2: Integer;
begin
.....
  p1 := Pos(tg, s);
  if p1>0 then
  begin
    Inc(p1, Length(tg));
    p2 := PosEx('</span>', s, p1);
    if p2 > 0 then sLabel1.Caption := Copy(s, p1, p2-p1);
  end;
end;

Но проще (и наверное лучше) воспользоваться умением TWebBrowser парсить страницу:

Код:

  sLabel1.Caption := (WebBrowser1.Document as IHTMLDocument3).getElementById('ajx_health').innerText;

Огромное спасибо! Действительно помогло!!!!!!