Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Как прочитать построчно Html-код страницы, Помогите с Web-страницей!
Adm
Вставить ник
сообщение 11:01:2008, 07:37
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 6
Регистрация: 11:01:2008
Пользователь №: 14 707



Репутация: - 0 +


Плз, подскажите чем и как прочитать построчно (да и весь текст целиком - сойдет) html-код страницы с известным адресом. Отображать страницу в браузере при этом не нужно.
Подняться вверх 
 
Сообщение #1
 
Новая тема 
Ответов (1 - 11)
sax_ol
Вставить ник
сообщение 11:01:2008, 07:53
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Берите Indy и вперед.
Подняться вверх 
 
Сообщение #2
Adm
Вставить ник
сообщение 11:01:2008, 08:02
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 6
Регистрация: 11:01:2008
Пользователь №: 14 707



Репутация: - 0 +


А без Indy - никак?
Я с ним не работал никогда...
Подняться вверх 
 
Сообщение #3
sax_ol
Вставить ник
сообщение 11:01:2008, 08:07
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


С Indy проще, чем без него.

Ну или тотже TWebBrowser, но Visible := false; наверное проще уж некуда. smile.gif
Подняться вверх 
 
Сообщение #4
root
Вставить ник
сообщение 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
Adm
Вставить ник
сообщение 11:01:2008, 10:59
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 6
Регистрация: 11:01:2008
Пользователь №: 14 707



Репутация: - 0 +


Спасибо, с этим я управился (как написано в ИЛИ)!

А подскажите еще такую вещь. Как проверить наличие подключения к И-нету? Я обрабатываю построчно текстовик и перед тем, как терзать очередную строку должен убедиться, что нахожусь on-line...
Подняться вверх 
 
Сообщение #6
sax_ol
Вставить ник
сообщение 11:01:2008, 11:05
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Цитата(Adm @ 11:01:2008, 12:59 )
Как проверить наличие подключения к И-нету?

Никак. Ловите исключение при загрузке.
Подняться вверх 
 
Сообщение #7
root
Вставить ник
сообщение 11:01:2008, 11:44
Цитата Ответить 


Знающий
***

Группа: Lotus team
Сообщений: 492
Регистрация: 10:06:2006
Пользователь №: 4 745
Специализация: Lotus Notes & Domino, ERP



Репутация: - 18 +


Цитата(Adm @ 11:01:2008, 16:59 ) *
должен убедиться, что нахожусь on-line...

можно через пинг реализовать
Подняться вверх 
 
Сообщение #8
sax_ol
Вставить ник
сообщение 11:01:2008, 11:48
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Для: root
Это в принципе тоже-самое, да также не достоверная информацияю wink.gif
Подняться вверх 
 
Сообщение #9
Morpheus
Вставить ник
сообщение 11:01:2008, 12:06
Цитата Ответить 


очень злой модератор
*****

Группа: Lotus team
Сообщений: 2 667
Регистрация: 7:08:2006
Из: Украина, Киев
Пользователь №: 5 807
Специализация: разработчик всякой хрени



Репутация: - 46 +


Для: root
да уж не каждый на пинг откликнеться
Подняться вверх 
 
Сообщение #10
Barmutik
Вставить ник
сообщение 11:01:2008, 15:30
Цитата Ответить 


Божественный
*****

Группа: Модеры
Сообщений: 2 450
Регистрация: 27:05:2004
Из: Минск
Пользователь №: 561
Специализация: Delphi, RDBMS, C#



Репутация: - 8 +


Google откликнется с вероятностью 99.(9) smile.gif Самый банальный способ проверки есть ли выход в инет..
Подняться вверх 
 
Сообщение #11
dima_lamo
Вставить ник
сообщение 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


Быстрый ответ  Ответить  Новая тема 

> Быстрый ответ
Полужирный
Курсив
Подчеркнутый
Вставить изображение
Смайлики
Цитата
Код
 
 Отправлять уведомления об ответах на e-mail |  Включить смайлики |  Добавить подпись
   

 

RSS Текстовая версия Сейчас: 17:05:2008 - 10:49
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net