Каскадный · [ Стандартный ] · Линейный+ Все анекдоты RDA, надо?

[Valky]

Самый долгоживущий топик форума, как известно, Анекдоты.
Хотите узнать кто больше всего анекдотов напостил? И кто входит в первую десятку анекдотчиков? Оказывается есть бесспорный лидер по постам в анекдотах, догадайтесь, кто

Скачайте, распакуйте и запустите эту программу: Анекдоты RDA (не бойтесь, не вирус )

Кроме статистики по нашим выдающимся юмористам, программа еще создает html-файл со всем содержимым топика Анекдоты (размер файла - больше мегабайта!).

[alossenko]

а работу через прокси то не учел

[Valky]

QUOTE (alossenko @ Dec 1 2002, 21:05)

а работу через прокси то не учел

Уже поправил, скачай еще раз!

[AciDWinD]

Интересно!

[Domi], само собой, недосягаем

[Bubble-Gum]

ух ты классная тулза

[Leshii]

Valky не учел повторный поиск (номера страниц продолжают накручиваться)

[Bubble-Gum]

ну вы, блин, критики доморощенные...
вас что, вежливости не учили в детском садике??

Сначала благодарят, а потом уже и критика...
Вот напишите такую штуку сами, а тогда и выступайте

[AciDWinD]

QUOTE (lexxei @ Dec 1 2002, 18:06)

Valky не учел повторный поиск (номера страниц продолжают накручиваться)

Специально из-за тебя ещё раз прокрутил, ничего подобного не замечено.

[Leshii]

ясно - я особенный

но прога все равно классная!! спасибо!

еще бы картинки на жесткий диск сохранять...

[Nightmare]

Хех, а я оказывается 5-й в списке!

[Leshii]

а я 18-ый

[Korax]

Классно...
2 Valky: А исходники не выложишь?

[[Dominant]]

Хехехе... здорово давно уже хотел получить ВЕСЬ списочек, но копировать было бы глупо, а на большее мозгов не хватило.

Спасибо!

[Yanch]

Молодец, Валкирыч

[[Dominant]]

QUOTE (Korax @ Dec 2 2002, 11:10)

2 Valky: А исходники не выложишь?

2 Valky: Не давай им исходники! Они Читы хотят прописать!

[Yanch]

QUOTE ([Dominant] @ Dec 2 2002, 11:40)

2 Valky: Не давай им исходники! Они Читы хотят прописать!

Ну, тут много ума не надо. Ща вот Лехабой придет, и...

[Korax]

QUOTE ([Dominant] @ Dec 2 2002, 11:40)

QUOTE (Korax @ Dec 2 2002, 11:10) 2 Valky: А исходники не выложишь?   2 Valky: Не давай им исходники! Они Читы хотят прописать!

Не правда!
Мне всегда интересно просто, как та или иная програмка сделана...

2 Valky: на чём писал кстати?

[Valky]

Delphi 6.0, а посему исходники выкладывать нет смысла, т.к. там всё готовенькое, в данном случае, работает элемент NMHTTP из библиотечки FastNet. Вот процедура его вызова:


try
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ProxyCheck.Checked then
Begin
NMHTTP1.Proxy := ProxyEdit1.Text;
NMHTTP1.ProxyPort := StrToInt(ProxyEdit2.Text);
End;
NMHTTP1.Get(Address);
PageContent.Text := NMHTTP1.Body; // PageContent : TStringList;
GetHTMLpage := True;
except
GetHTMLpage := False;
end...

(плюс еще добавляем обработку сообщений от NMHTTP, типа Invalid Host, Connection failed и т.п.)

А остальная часть программы элементарна (т.е. недостойна обнародования ): вытаскиваем страничку, ищем некую ключевую фразу (например "Флейм" или "Анекдоты" и двигаемся дальше). Чистая логика и просмотр HTML-кода форума.

Вот если бы на основе такого опыта написать что-то более универсальное и менее ёмкое... Но, кажется, такие проги уже есть, да и задачка это будет на порядок посложнее - вот здесь и проходит граница между любительским (это я про себя) и профессиональным программированием!

ЗЫ. Спасибо! Было приятно услышать добрые отзывы.

[kuchin]

Самое быстрое, это просто вытащить данные из MySQL-таблицы.
Можно сразу одним запросом получить нужный списочек...
Вот только для этого надо иметь доступ к базе данных.

[Yanch]

А слабо дать доступ к базе данных? Хотя бы в виде XML?