Помощник
Здравствуйте, гость ( Вход | Регистрация )
|
|
11:01:2008, 07:37
|
|
Новенький ![]() Группа: Программист Сообщений: 6 Регистрация: 11:01:2008 Пользователь №: 14 707 Репутация: 0
|
Плз, подскажите чем и как прочитать построчно (да и весь текст целиком - сойдет) html-код страницы с известным адресом. Отображать страницу в браузере при этом не нужно.
|
|
Сообщение
#1
|
|
![]() |
|
|
11:01:2008, 07:53
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Берите Indy и вперед.
|
|
Сообщение
#2
|
|
|
|
11:01:2008, 08:02
|
|
Новенький ![]() Группа: Программист Сообщений: 6 Регистрация: 11:01:2008 Пользователь №: 14 707 Репутация: 0
|
А без Indy - никак?
Я с ним не работал никогда... |
|
Сообщение
#3
|
|
|
|
11:01:2008, 08:07
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
С Indy проще, чем без него.
Ну или тотже TWebBrowser, но Visible := false; наверное проще уж некуда. |
|
Сообщение
#4
|
|
|
|
11:01:2008, 08:26
|
|
Знающий ![]() ![]() ![]() Группа: Lotus team Сообщений: 492 Регистрация: 10:06:2006 Пользователь №: 4 745 Специализация: Lotus Notes & Domino, ERP Репутация: 18
|
Для: Adm
там ничего сложного Код var
st1: TStream; const URL: String = 'http://forum.codeby.net/'; begin -- st1 := TMemoryStream.Create; IdHTTP1.Get(URL, st1); st1.Seek(0, soFromBeginning); Memo1.Lines.LoadFromStream(st1); st1.Free; end; ИЛИ Memo1.Text := IdHTTP1.Get(URL); Сообщение отредактировал root - 11:01:2008, 08:34 |
|
Сообщение
#5
|
|
|
|
11:01:2008, 10:59
|
|
Новенький ![]() Группа: Программист Сообщений: 6 Регистрация: 11:01:2008 Пользователь №: 14 707 Репутация: 0
|
Спасибо, с этим я управился (как написано в ИЛИ)!
А подскажите еще такую вещь. Как проверить наличие подключения к И-нету? Я обрабатываю построчно текстовик и перед тем, как терзать очередную строку должен убедиться, что нахожусь on-line... |
|
Сообщение
#6
|
|
|
|
11:01:2008, 11:05
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Цитата(Adm @ 11:01:2008, 12:59 ) Как проверить наличие подключения к И-нету? Никак. Ловите исключение при загрузке. |
|
Сообщение
#7
|
|
|
|
11:01:2008, 11:44
|
|
Знающий ![]() ![]() ![]() Группа: Lotus team Сообщений: 492 Регистрация: 10:06:2006 Пользователь №: 4 745 Специализация: Lotus Notes & Domino, ERP Репутация: 18
|
|
|
Сообщение
#8
|
|
|
|
11:01:2008, 11:48
|
|
============== ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Для: root
Это в принципе тоже-самое, да также не достоверная информацияю |
|
Сообщение
#9
|
|
|
|
11:01:2008, 12:06
|
|
очень злой модератор ![]() ![]() ![]() ![]() ![]() Группа: Lotus team Сообщений: 2 667 Регистрация: 7:08:2006 Из: Украина, Киев Пользователь №: 5 807 Специализация: разработчик всякой хрени Репутация: 46
|
Для: root
да уж не каждый на пинг откликнеться |
|
Сообщение
#10
|
|
|
|
11:01:2008, 15:30
|
|
Божественный ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 2 450 Регистрация: 27:05:2004 Из: Минск Пользователь №: 561 Специализация: Delphi, RDBMS, C# Репутация: 8
|
Google откликнется с вероятностью 99.(9)
|
|
Сообщение
#11
|
|
|
|
14:01:2008, 14:56
|
|
Продвинутый ![]() ![]() Группа: Программист Сообщений: 109 Регистрация: 7:01:2008 Пользователь №: 14 636 Специализация: delphi Репутация: -2
|
Я у себя так и проверяю когда подазрения есть... но вот когда стоит бешенный фаервол это безполезно
(У меня слчай был, фаер взбесился! Прикинте, он кажду. программу. котороя была в доверенныъх прописал по 700 раз! и когда все их удоляешь, при следующем запуске они снова появлялись! И плюс к этоку от 60 и до 90 процессов svchost в инет лезло... ) Я не шучу, это реально было! Потом веба установил, у меня там вирусни было... Сообщение отредактировал dima_lamo - 14:01:2008, 14:57 |
|
Сообщение
#12
|
|
![]() |
|
Текстовая версия | Сейчас: 17:05:2008 - 10:49 |