VPF::Граббилка новостей - Форум программистов

Georgich

Дата 1.3.2008, 23:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Приветствую.
Появилась идейка написать программу для граббинга новостей с определенных сайтов. На них нет RSS. Но так как я не особо опятный программист под Делфи, то и возник вопрос с чего начать решение этой задачи? И какие компоненты Делфи необходимы для реализации этой идеи.
Надеюсь на Вас. СПАСИБО!

VICTAR

Дата 2.3.2008, 00:09 (ссылка)

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

Загрузка ...

Эксперт

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

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

Indy или альтернатива

SneG0K

Дата 2.3.2008, 00:24 (ссылка)

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

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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

Береш обычный винсок, делаеш запрос на сайт с новостями, принимаеш новости, удаляеш лишние теги и вот тебе новость smile

Georgich

Дата 2.3.2008, 01:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Надо будет попробовать. smile

imageman

Дата 18.3.2008, 20:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

сначала загрузить (download) страницу по протоколу http

Код


function DownloadFile(const Url: string): string;
// загрузка текстового файла из интернета
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of char;
  BytesRead: cardinal;
begin
  Result := '';
  NetHandle := InternetOpen(PAnsiChar( HttpUserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    { UrlHandle правильный? Начинаем загрузку }
    if Assigned(UrlHandle) then
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        FillChar(Buffer, SizeOf(Buffer), 0);
        if InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer)-1, BytesRead) then
          Result := Result + copy(Buffer,0,BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
    begin
      { UrlHandle неправильный. Генерируем исключительную ситуацию. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);
    end;
    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle недопустимый. Генерируем исключительную ситуацию }
    raise Exception.Create('Unable to initialize Wininet');
end;

после этого полученную строку можно обрабатывать....

Лучше всего при помощи RegExp http://regexpstudio.com/RU/

MetalFan

Дата 18.3.2008, 22:34 (ссылка)

(голосов:2)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Цитата(imageman @ 18.3.2008, 20:41

)

сначала загрузить (download) страницу по протоколу http

да чтож везде этот кривоватый код суют?!
один с ошибкой написал, а куча народу как дятлы повторяют.
из-за одного из raise'ов можно получить утечку ресурсов.

--------------------

There are always someone smarter than you...

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