Простой парсинг вконтакте

[Pein]

Здравствуйте. Я полный ноль в парсинге поэтому прошу помочь. Есть форма, на ней webbrowser, в котором открыта страница http://vkontakte.ru/feed.php. Нужно что бы каждое значение {count=0} помещалось в отдельный tedit. Помогите реализовать.

[Pein]

Нашёл способ.

procedure TForm1.Button4Click(Sender: TObject);
var
Document: IHTMLDocument2;
begin
Document := WebBrowser1.Document as IHtmlDocument2;
if Document <> nil then
Memo1.Text := ( Document.all.Item( NULL, 0 ) as IHTMLElement ).OuterHTML;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
StrPars,St:WideString;
FeedSource: string;
begin
FeedSource:=memo1.Text;
Delete(FeedSource, 1, Pos('messages{count=', FeedSource) + Length('messages{count=') - 1);
Delete(FeedSource, Pos('},', FeedSource), Length(FeedSource));
label1.Caption:='Сообщения: '+FeedSource;
end;

Но это только если получить исходный код с webbrowser в memo. А как сделать что бы сразу получить код с webbrowser?

[Человек_Борща]

Можно=)

  HtmlSrc:AnsiString; //Global var

implementation

{$R *.dfm

procedure TForm1.Button4Click(Sender: TObject);
var
Document: IHTMLDocument2;
begin
Document := WebBrowser1.Document as IHtmlDocument2;
if Document <> nil then
HtmlSrc := ( Document.all.Item( NULL, 0 ) as IHTMLElement ).OuterHTML;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
StrPars,St:WideString;
begin
Delete(HtmlSrc, 1, Pos('messages{count=', HtmlSrc) + Length('messages{count=') - 1);
Delete(HtmlSrc, Pos('},', HtmlSrc), Length(HtmlSrc));
label1.Caption:='Сообщения: '+HtmlSrc;
end;

я бы вообще так зделал:

uses ...,idHTTP;

procedure dosmth;
const
  ReqLink = 'http://vkontakte.ru/feed.php';
var
  http: TidHTTP;
  Answer: TstringList;
  s:string;
begin
  Answer := TStringList.Create;
  http := TIdHTTP.Create(nil);
  try
    Answer.Text:=http.Get(ReqLink);
    s:=Answer.Text;
    Delete(s, 1, AnsiPos('messages{count=', s) + Length('messages{count=') - 1);
    Delete(s, AnsiPos('},', s), Length(s));
    ShowMessage('Сообщений=' + s);
  finally
    FreeAndNil(Http);
    FreeAndNil(Answer);
  end;
end;

[Pein]

Второй вариант хорош, но там нужна авторизация. А webbrowser как раз для этого подходит