delphi Парс Данных Вк

[Po6oKon 177]

Кто может помочь с куском кода для парса данных ?

 

И еще у меня есть к вам вопрос по поводу перехода с vk.com/feed на vk.com/id (ТУТ СТРАНИЧКА которая авторизировалась через браузер)

 

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser2.Navigate('http://vk.com/edit');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
Doc, Elems, Elem : Variant;
i, j : Integer;
begin
//?????? ?? ????????.
Doc := WebBrowser2.OleObject.document;
if TVarData(Doc).VDispatch = nil then begin
ShowMessage('Документ не задан!.');
Exit;
end;

//
Elem := Doc.GetElementById('pedit_general_row clear_fix');
//

Elems := Elem.GetElementsByTagName('
');
j := 0;
for i := 0 to Elems.length - 1 do begin
Elem := Elems.item(i);
if Elem.className = 'post-b' then begin
if j = 1 then begin
Inc(j);
Break;
end else if Elem.innerHTML = 'Имя' then
Inc(j);
end;
end;
if j = 2 then
Memo2.Lines.Add('Имя: ' + Elem.innerHTML)
else
Memo2.Lines.Add('Имя не найдено.');
end;

Изменено 7 октября, 2014 пользователем Po6oKon

[Po6oKon 177]

При нажатии кнопки, не обрабатывается сценарий: Elems := Elem.GetElementsByTagName('pedit_general_labeled fl_l');

[styler 104]

А через api сделать это не вариант? Там и с парсингом проблем быть не должно

[Po6oKon 177]

А через api сделать это не вариант? Там и с парсингом проблем быть не должно

Для API нужен Токен, с этим у меня будут проблемы.

[styler 104]

Бери токен из моб приложения вк