Все анекдоты RDA, надо?
Привет, Гость ( Вход | Регистрация )
Клуб Янча Трекер КВН ВиКи Правообладателям | Помощь Поиск Участники Календарь |
Все анекдоты RDA, надо?
Valky |
Воскресенье, 01 Декабря 2002, 20:54
Сообщение
#1
|
Арт-директор Группа: Team RDA Сообщений: 2386 Регистрация: 04 Июля '01 Откуда: Russia 2 Юзер Цитировать |
Самый долгоживущий топик форума, как известно, Анекдоты.
Хотите узнать кто больше всего анекдотов напостил? И кто входит в первую десятку анекдотчиков? Оказывается есть бесспорный лидер по постам в анекдотах, догадайтесь, кто Скачайте, распакуйте и запустите эту программу: Анекдоты RDA (не бойтесь, не вирус ) Кроме статистики по нашим выдающимся юмористам, программа еще создает html-файл со всем содержимым топика Анекдоты (размер файла - больше мегабайта!). |
alossenko |
Воскресенье, 01 Декабря 2002, 21:05
Сообщение
#2
|
Видеоман Группа: Ветеран Team RDA Сообщений: 3642 Регистрация: 09 Сен '02 2 Юзер Цитировать |
а работу через прокси то не учел
-------------------- http://cligs.ee <---- Мероприятия и фотки с тусовок!!!
|
Valky |
Воскресенье, 01 Декабря 2002, 21:23
Сообщение
#3
|
||
Арт-директор Группа: Team RDA Сообщений: 2386 Регистрация: 04 Июля '01 Откуда: Russia 2 Юзер Цитировать |
Уже поправил, скачай еще раз! |
||
AciDWinD |
Воскресенье, 01 Декабря 2002, 21:24
Сообщение
#4
|
Завсегдатай Группа: Мемберы Сообщений: 586 Регистрация: 31 Мар '01 Откуда: Canada 2 Юзер Цитировать |
Интересно!
[Domi], само собой, недосягаем |
Bubble-Gum |
Воскресенье, 01 Декабря 2002, 22:18
Сообщение
#5
|
Танкист со стажем Группа: Админы Сообщений: 8012 Регистрация: 26 Сен '01 Откуда: Germany 2 Юзер Цитировать |
ух ты классная тулза
-------------------- |
Leshii |
Понедельник, 02 Декабря 2002, 1:06
Сообщение
#6
|
Видеоман Группа: Ветеран Team RDA Сообщений: 4188 Регистрация: 02 Окт '01 Откуда: Леса Караганды 2 Юзер Цитировать |
Valky не учел повторный поиск (номера страниц продолжают накручиваться)
-------------------- [b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
|
Bubble-Gum |
Понедельник, 02 Декабря 2002, 1:09
Сообщение
#7
|
Танкист со стажем Группа: Админы Сообщений: 8012 Регистрация: 26 Сен '01 Откуда: Germany 2 Юзер Цитировать |
ну вы, блин, критики доморощенные...
вас что, вежливости не учили в детском садике?? Сначала благодарят, а потом уже и критика... Вот напишите такую штуку сами, а тогда и выступайте -------------------- |
AciDWinD |
Понедельник, 02 Декабря 2002, 1:52
Сообщение
#8
|
||
Завсегдатай Группа: Мемберы Сообщений: 586 Регистрация: 31 Мар '01 Откуда: Canada 2 Юзер Цитировать |
Специально из-за тебя ещё раз прокрутил, ничего подобного не замечено. |
||
Leshii |
Понедельник, 02 Декабря 2002, 6:03
Сообщение
#9
|
Видеоман Группа: Ветеран Team RDA Сообщений: 4188 Регистрация: 02 Окт '01 Откуда: Леса Караганды 2 Юзер Цитировать |
ясно - я особенный
но прога все равно классная!! спасибо! еще бы картинки на жесткий диск сохранять... -------------------- [b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
|
Nightmare |
Понедельник, 02 Декабря 2002, 7:19
Сообщение
#10
|
Видеоман Группа: Мемберы Сообщений: 1928 Регистрация: 10 Дек '01 Откуда: Мой адрес не дом и не улица ... 2 Юзер Цитировать |
Хех, а я оказывается 5-й в списке!
-------------------- Если у вас нет паранойи, то это ещё не значит, что за вами никто не наблюдает...
http://bsa79.com.ru/avatar/girls_die.gif |
Leshii |
Понедельник, 02 Декабря 2002, 7:30
Сообщение
#11
|
Видеоман Группа: Ветеран Team RDA Сообщений: 4188 Регистрация: 02 Окт '01 Откуда: Леса Караганды 2 Юзер Цитировать |
а я 18-ый
-------------------- [b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
|
Korax |
Понедельник, 02 Декабря 2002, 12:10
Сообщение
#12
|
Видеоман Группа: Мемберы Сообщений: 3953 Регистрация: 07 Сен '01 Откуда: Estonia 2 Юзер Цитировать |
Классно...
2 Valky: А исходники не выложишь? -------------------- Surprise! You're dead!!!
|
[Dominant] |
Понедельник, 02 Декабря 2002, 12:26
Сообщение
#13
|
Бесполезное ископаемое Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать |
Хехехе... здорово давно уже хотел получить ВЕСЬ списочек, но копировать было бы глупо, а на большее мозгов не хватило.
Спасибо! -------------------- Вороне Бог на вход подал 4 вольта...
|
Yanch |
Понедельник, 02 Декабря 2002, 12:27
Сообщение
#14
|
Любитель Пива Группа: Модераторы Сообщений: 6686 Регистрация: 17 Мая '01 Откуда: Израиль 2 Юзер Цитировать |
Молодец, Валкирыч
-------------------- A man is as rich as the beer he drinks...
|
[Dominant] |
Понедельник, 02 Декабря 2002, 12:40
Сообщение
#15
|
||
Бесполезное ископаемое Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать |
2 Valky: Не давай им исходники! Они Читы хотят прописать! -------------------- Вороне Бог на вход подал 4 вольта...
|
||
Yanch |
Понедельник, 02 Декабря 2002, 12:45
Сообщение
#16
|
||
Любитель Пива Группа: Модераторы Сообщений: 6686 Регистрация: 17 Мая '01 Откуда: Израиль 2 Юзер Цитировать |
Ну, тут много ума не надо. Ща вот Лехабой придет, и... -------------------- A man is as rich as the beer he drinks...
|
||
Korax |
Понедельник, 02 Декабря 2002, 13:43
Сообщение
#17
|
||||
Видеоман Группа: Мемберы Сообщений: 3953 Регистрация: 07 Сен '01 Откуда: Estonia 2 Юзер Цитировать |
Не правда! Мне всегда интересно просто, как та или иная програмка сделана... 2 Valky: на чём писал кстати? -------------------- Surprise! You're dead!!!
|
||||
Valky |
Понедельник, 02 Декабря 2002, 14:05
Сообщение
#18
|
Арт-директор Группа: Team RDA Сообщений: 2386 Регистрация: 04 Июля '01 Откуда: Russia 2 Юзер Цитировать |
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
Сообщение
#19
|
Зампотех RDA Группа: Модераторы Сообщений: 4099 Регистрация: 24 Апр '01 Откуда: Израиль 2 Юзер Цитировать |
Самое быстрое, это просто вытащить данные из MySQL-таблицы.
Можно сразу одним запросом получить нужный списочек... Вот только для этого надо иметь доступ к базе данных. -------------------- Дима - http://kuchin.net
|
Yanch |
Понедельник, 02 Декабря 2002, 16:32
Сообщение
#20
|
Любитель Пива Группа: Модераторы Сообщений: 6686 Регистрация: 17 Мая '01 Откуда: Израиль 2 Юзер Цитировать |
А слабо дать доступ к базе данных? Хотя бы в виде XML?
-------------------- A man is as rich as the beer he drinks...
|
Lo-Fi Версия | CMSBlog | Сейчас: Суббота, 21 Сентября 2024, 18:23 |