Полная версия этой страницы: Как прочитать построчно Html-код страницы
Плз, подскажите чем и как прочитать построчно (да и весь текст целиком - сойдет) html-код страницы с известным адресом. Отображать страницу в браузере при этом не нужно.
Берите Indy и вперед.
А без Indy - никак?
Я с ним не работал никогда...
Я с ним не работал никогда...
С Indy проще, чем без него.
Ну или тотже TWebBrowser, но Visible := false; наверное проще уж некуда.
Ну или тотже TWebBrowser, но Visible := false; наверное проще уж некуда.
Для: 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);
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);
Спасибо, с этим я управился (как написано в ИЛИ)!
А подскажите еще такую вещь. Как проверить наличие подключения к И-нету? Я обрабатываю построчно текстовик и перед тем, как терзать очередную строку должен убедиться, что нахожусь on-line...
А подскажите еще такую вещь. Как проверить наличие подключения к И-нету? Я обрабатываю построчно текстовик и перед тем, как терзать очередную строку должен убедиться, что нахожусь on-line...
Цитата(Adm @ 11:01:2008, 12:59 )
Как проверить наличие подключения к И-нету?
Никак. Ловите исключение при загрузке.
Цитата(Adm @ 11:01:2008, 16:59 ) 
должен убедиться, что нахожусь on-line...
можно через пинг реализовать
Для: root
Это в принципе тоже-самое, да также не достоверная информацияю
Это в принципе тоже-самое, да также не достоверная информацияю
Для: root
да уж не каждый на пинг откликнеться
да уж не каждый на пинг откликнеться
Google откликнется с вероятностью 99.(9) Самый банальный способ проверки есть ли выход в инет..
Самый банальный способ проверки есть ли выход в инет..
Я у себя так и проверяю когда подазрения есть... но вот когда стоит бешенный фаервол это безполезно
(У меня слчай был, фаер взбесился! Прикинте, он кажду. программу. котороя была в доверенныъх прописал по 700 раз! и когда все их удоляешь, при следующем запуске они снова появлялись!
И плюс к этоку от 60 и до 90 процессов svchost в инет лезло... )
Я не шучу, это реально было! Потом веба установил, у меня там вирусни было...
(У меня слчай был, фаер взбесился! Прикинте, он кажду. программу. котороя была в доверенныъх прописал по 700 раз! и когда все их удоляешь, при следующем запуске они снова появлялись!
И плюс к этоку от 60 и до 90 процессов svchost в инет лезло... )
Я не шучу, это реально было! Потом веба установил, у меня там вирусни было...
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.