получить текст сообщения вконтакте

[Dionix]

прошу помочь исходным кодом и компонентами которые нужны для работоспособности этого кода. Спасибо.

[DomiNick]

Я не знаю что такое "вконтакте"... И не знаю что там за сообщения...
Но полагаю что нужно получение текста страницы и его парсинг...
Посмотрите компоненты Indy...

[Dionix]

да, именно парсинг страницы. но нужно распознать новые и старые сообщения и сразу их передавать в программу. Та вот смотрю на эти инди и ничего в голову не приходит

[DomiNick]

Та вот смотрю на эти инди и ничего в голову не приходит

Зачем смотреть-то? Открываете Яндекс, пишите в строку поиска что-то вроде "получение текста html страницы, Indy" - и готово... ))

[kangreon]

Получение новых сообщений

function VK_ParsEmail(s:string; IdHTTP1:TIdHTTP): TStringList;
var
  i : Integer;
  mess_full, mess_text,
  mess_id, mess_new,
  mess_aut, mess_aut_id,
  mess_date, mess_title : string;
  sl : TStringList;
begin
  Result := TStringList.Create;
  i := 1;
  s := Copy(s,PosEx('</tr>',s,Pos('<div id="messages_wrap">',s))+6,PosEx('</table>',s,Pos('<div id="messages_wrap">',s))-PosEx('</tr>',s,Pos('<div id="messages_wrap">',s))-6);
  while PosEx('<tr ',s,i)<>0 do
  begin
    mess_full := Copy(s,PosEx('<tr ',s,i),PosEx('</tr>',s,PosEx('<tr ',s,i))-PosEx('<tr ',s,i));

    // Ïîëó÷åíèå id ñîîáùåíèÿ
    mess_id := Copy(mess_full,Pos('id="',mess_full)+8,PosEx('"',mess_full,Pos('id="',mess_full)+9)-Pos('id="',mess_full)-8);

    // íîâîå ëè ýòî ñîîáùåíèå
    if Pos('class='+#39+'newRow'+#39,mess_full)<>0 then mess_new := '1' else mess_new := '0';

    if mess_new = '1' then
    begin
      // Îò êîãî ñîîáùåíèå
      mess_aut := Copy(mess_full,PosEx('">',mess_full,Pos('<div class="name">',mess_full)+19)+2,PosEx('</a>',mess_full,PosEx('">',mess_full,Pos('<div class="name">',mess_full)+19)+3)-PosEx('">',mess_full,Pos('<div class="name">',mess_full)+19)-2);

      // ÈÄ ïîëüçîâàòåëÿ, êîòîðûé ïðèñëàë ñîîáùåíèå
      mess_aut_id := Copy(mess_full,Pos('href="',mess_full)+7,PosEx('">',mess_full,Pos('href="',mess_full)+8)-Pos('href="',mess_full)-7);

      // Äàòà, êîãäà ïðèøëî ñîîáùåíèå
      mess_date := Copy(mess_full,Pos('class="date">',mess_full)+13,PosEx('</div',mess_full,Pos('class="date">',mess_full)+14)-Pos('class="date">',mess_full)-13);

      //Òåìà ñîîáùåíèÿ
      mess_title := Copy(mess_full,PosEx('<span>',mess_full,Pos('new messageSubject',mess_full))+6,PosEx('</span>',mess_full,Pos('new messageSubject',mess_full))-PosEx('<span>',mess_full,Pos('new messageSubject',mess_full))-6);

      // Òåêñò ñîîáùåíèÿ
      mess_text := IdHTTP1.Get('http://vkontakte.ru/mail.php?act=show&id='+ mess_id);
      mess_text := Copy(mess_text,PosEx(';">',mess_text,Pos('class="messageText"',mess_text))+3,PosEx('</div>',mess_text,Pos('class="messageText"',mess_text))-PosEx(';">',mess_text,Pos('class="messageText"',mess_text))-3);
    end;

    Result.Add(mess_aut+' '+mess_aut_id+' '+mess_date+' '+mess_text);
    i := PosEx('<tr ',s,i)+2;
    Sleep(300);
  end;
end;

Пример использования

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Lines := VK_ParsEmail(IdHTTP1.Get('http://vkontakte.ru/mail.php'),IdHTTP1)
end;

[W0LF]

Люди с ума сошли с этим Вконтакте. Создайте уже раздел и постите свои функи, ну или чужие. Будет больше пользы чем 1000 топиков типа: как авторизироваться, как получить сообщения, как отослать сообщения и т.д.

[Dionix]

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

Люди с ума сошли с этим Вконтакте. Создайте уже раздел и постите свои функи, ну или чужие. Будет больше пользы чем 1000 топиков типа: как авторизироваться, как получить сообщения, как отослать сообщения и т.д.

Сделано =)

Спасибо за помощь всем!

[Dionix]

только проблемка...оно первое сообщение ровно 20 раз выводит

[kangreon]

Я забыл Result занести в if mess_new = '1' then

[Dionix]

а что надо именно сделать с резалтом? напиши плизз