Помогите спарсить количество подписчиков группы в вк

[Andrey770]

Доброго времени суток.
Собственно вопрос в названии темы.
Делал вот так:

Кинул на форму idHttp,IdSSLIOHandlerSocketOpenSSL, listbox.
IdSSLIOHandlerSocketOpenSSL связал с idHttp

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Source:TstringList;
begin
  Source:=TStringList.Create;
  Source.Text:=IdHTTP1.Get('https://vk.com/mdk');
  listbox1.items.add('Подписчиков: '+Pars('<span class="fl_r"></span>',Source.Text,'<span class="num_delim">'));
  Source.Free;
end;

По идеи должно вывести: "Подписчиков: 3", но возвращает только "Подписчиков: ". Помогите, пожалуйста.

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);
var
 Source:TstringList;
begin
  Source:=TStringList.Create;
  Source.Text:=IdHTTP1.Get('https://vk.com/mdk');
  listbox1.items.add('Подписчиков: '+stringreplace(Pars('<span class="fl_r"></span>',Source.Text,'<span class="num_delim">'),#13#10,'',[rfreplaceall]));
  Source.Free;
end;

[Andrey770]

Не помогло, результат тот самый.
"Подписчиков: "

[Кольша]

function pars(const a, b, s: string): string;
begin
  result := copy(s, pos(a, s) + length(a), length(s));
  result := copy(result, 1, pos(b, result) - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
  s:=IdHTTP1.Get('http://vk.com/mdk');
showmessage(Pars('<span class="fl_r"></span>','<span class="num_delim">',s));
  listbox1.items.add('Подписчиков: '+stringreplace(Pars('<span class="fl_r"></span>','<span class="num_delim">',s),#13#10,'',[rfreplaceall]));
end;

[Andrey770]

Теперь понял. Спасибо тебе, Кольша, большое.

[Кольша]

Это сарказм? или серьезно?
Во первых не обязательно парсить https, версию, во вторых по идее все должно работать, может дело в функции парсинга, а может вк по другому данные отдает.

[Andrey770]

серьезно, все получилось
просто не те html тэги были вставлены, а благодаря вашему showmessage я увидел какие нужно ставить.
Вообщем все заработало.