VPF::Получение ЛС из vkontakte.ru - Форум программистов

SANCHO123

Дата 21.2.2010, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.5.2008

Репутация: нет
Всего: нет

Доброго времени суток!

Как можно получить список личных сообщений(всех или хотя бы непрочитанных) из сайта vkontakte.ru в массив записей

Код


messag: array of record m_id: string;
  From: string;
  data: string;
  Subject: string;
  Body: string;
end;

На сайте авторизовался.

Код


...
param := TStringList.Create;
    param.Add('u=1');
    param.Add('success_url=');
    param.Add('fail_url=');
    param.Add('try_to_login=1');
    param.Add('email=' + Edit2.Text);
    param.Add('pass=' + Edit3.Text);
    try
      IdHTTP1.Post('http://vkontakte.ru/login.php?', param);
    except
      ShowMessage('Сервер недоступен :(');
    end;

Пробовал так:

Код


s:=IdHTTP.get('http://vkontakte.ru/mail.php?id=XXXXXX#filter=all&out=0&st='+inttostr(i)); //i=0,20,40...

А потом вырезать из s (string). Но так слишком долго.

Proxin

Дата 1.3.2010, 23:49 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

используй регекспы.

ange007

Дата 2.3.2010, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.2.2010

Репутация: нет
Всего: нет

А почему слишком долго то!?
Вот где-то примерно так.

Код


while Pos('начало блока', text) > 0 do
  begin
    block := copy(text,Pos('начало блока',text),Pos('конец блока',text));

  From := copy(block,'','');
  data := copy(block,'','');
  Subject := copy(block,'','');
  Body := copy(block,'','');

    if Pos('конец блока', text) > 0 then
    begin
      Delete(text, 1, Pos('конец блока', text));
    end
    else
      break;
  end;

Proxin

Дата 2.3.2010, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

щито такое начало блока и конец блока? и почему такой странный вызов copy?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »