Форумы RDA [Powered by Invision Power Board]

Автор: Valky Воскресенье, 01 Декабря 2002, 20:54

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

Скачайте, распакуйте и запустите эту программу: http://www.mixt.ru/all/misc/rda/programm/anekdot.zip (не бойтесь, не вирус )

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

Автор: alossenko Воскресенье, 01 Декабря 2002, 21:05

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

Автор: Valky Воскресенье, 01 Декабря 2002, 21:23

QUOTE (alossenko @ Dec 1 2002, 21:05)
а работу через прокси то не учел

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

Автор: AciDWinD Воскресенье, 01 Декабря 2002, 21:24

Интересно!

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

Автор: Bubble-Gum Воскресенье, 01 Декабря 2002, 22:18

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

Автор: Leshii Понедельник, 02 Декабря 2002, 1:06

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

Автор: Bubble-Gum Понедельник, 02 Декабря 2002, 1:09

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

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

Автор: AciDWinD Понедельник, 02 Декабря 2002, 1:52

QUOTE (lexxei @ Dec 1 2002, 18:06)
Valky не учел повторный поиск (номера страниц продолжают накручиваться)

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

Автор: Leshii Понедельник, 02 Декабря 2002, 6:03

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

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

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

Автор: Nightmare Понедельник, 02 Декабря 2002, 7:19

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

Автор: Leshii Понедельник, 02 Декабря 2002, 7:30

а я 18-ый

Автор: Korax Понедельник, 02 Декабря 2002, 12:10

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

Автор: [Dominant] Понедельник, 02 Декабря 2002, 12:26

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

Спасибо!

Автор: Yanch Понедельник, 02 Декабря 2002, 12:27

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

Автор: [Dominant] Понедельник, 02 Декабря 2002, 12:40

QUOTE (Korax @ Dec 2 2002, 11:10)
2 Valky: А исходники не выложишь?

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

Автор: Yanch Понедельник, 02 Декабря 2002, 12:45

QUOTE ([Dominant] @ Dec 2 2002, 11:40)
2 Valky: Не давай им исходники! Они Читы хотят прописать!

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

Автор: Korax Понедельник, 02 Декабря 2002, 13:43

QUOTE ([Dominant] @ Dec 2 2002, 11:40)
QUOTE (Korax @ Dec 2 2002, 11:10)
2 Valky: А исходники не выложишь?

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

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

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

Автор: Valky Понедельник, 02 Декабря 2002, 14:05

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 Понедельник, 02 Декабря 2002, 15:52

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

Автор: Yanch Понедельник, 02 Декабря 2002, 16:32

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

Автор: Korax Понедельник, 02 Декабря 2002, 16:37

эт точно...
наклепали бы тут туулсов хороших и разных...

Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

Форумы RDA _ Флейм _ Все анекдоты RDA