Самый долгоживущий топик форума, как известно, Анекдоты.
Хотите узнать кто больше всего анекдотов напостил? И кто входит в первую десятку анекдотчиков? Оказывается есть бесспорный лидер по постам в анекдотах, догадайтесь, кто
Скачайте, распакуйте и запустите эту программу: http://www.mixt.ru/all/misc/rda/programm/anekdot.zip (не бойтесь, не вирус )
Кроме статистики по нашим выдающимся юмористам, программа еще создает html-файл со всем содержимым топика Анекдоты (размер файла - больше мегабайта!).
а работу через прокси то не учел
QUOTE (alossenko @ Dec 1 2002, 21:05) |
а работу через прокси то не учел |
Интересно!
[Domi], само собой, недосягаем
ух ты классная тулза
Valky не учел повторный поиск (номера страниц продолжают накручиваться)
ну вы, блин, критики доморощенные...
вас что, вежливости не учили в детском садике??
Сначала благодарят, а потом уже и критика...
Вот напишите такую штуку сами, а тогда и выступайте
QUOTE (lexxei @ Dec 1 2002, 18:06) |
Valky не учел повторный поиск (номера страниц продолжают накручиваться) |
ясно - я особенный
но прога все равно классная!! спасибо!
еще бы картинки на жесткий диск сохранять...
Хех, а я оказывается 5-й в списке!
а я 18-ый
Классно...
2 Valky: А исходники не выложишь?
Хехехе... здорово давно уже хотел получить ВЕСЬ списочек, но копировать было бы глупо, а на большее мозгов не хватило.
Спасибо!
Молодец, Валкирыч
QUOTE (Korax @ Dec 2 2002, 11:10) |
2 Valky: А исходники не выложишь? |
QUOTE ([Dominant] @ Dec 2 2002, 11:40) |
2 Valky: Не давай им исходники! Они Читы хотят прописать! |
QUOTE ([Dominant] @ Dec 2 2002, 11:40) | ||
2 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-кода форума.
Вот если бы на основе такого опыта написать что-то более универсальное и менее ёмкое... Но, кажется, такие проги уже есть, да и задачка это будет на порядок посложнее - вот здесь и проходит граница между любительским (это я про себя) и профессиональным программированием!
ЗЫ. Спасибо! Было приятно услышать добрые отзывы.
Самое быстрое, это просто вытащить данные из MySQL-таблицы.
Можно сразу одним запросом получить нужный списочек...
Вот только для этого надо иметь доступ к базе данных.
А слабо дать доступ к базе данных? Хотя бы в виде XML?
эт точно...
наклепали бы тут туулсов хороших и разных...
Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)