[poli-smen]

Сообщение от Alegun

Можно ещё вот так

Код:

const tg ='<span id="ajx_health">';
procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
begin
 s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
 Delete(s, 1, Pos(tg, s) + Length(tg) - 1);
 Delete(s, Pos('</span>', s), Length(s));
 sLabel1.Caption := s;
 end;

но это очень грубо

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

Через 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;