Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

узнать запущен ли веб сервер [D7, XP]


gvozdkoff ©   (2011-12-20 11:50:00) 

Всем привет.
Суть в следующем.
Есть сервер с белым IP.
С этого сервера я качаю несколько фалов, текстовых, имена файлов не постоянные.
Но до закачки я проверяю. доступен ли сервер по сети
(wininet.InternetCheckConnection)
Но тут получилось так, что сервер доступен, но веб-сервер на нем упал.
Хотелось бы как то опросить , включен ли веб сервер.
пробовал так
IdHttp.Get(ServerName), ругается на ошибку сокета
Подскажите, пожалуйста,  как это лучше бы реализовать


gvozdkoff   (2011-12-20 13:26:00) [1]


> Сергей М. ©   (20.12.11 11:55) [1]

спасибо за помощь


Медвежонок Пятачок   (2011-12-20 13:05:00) [2]

уже приехали.
какие вопросы-то?


gvozdkoff   (2011-12-20 13:02:00) [3]


> Медвежонок Пятачок ©   (20.12.11 13:01) [8]
> не хотелось бы слышать вопросов а че за ошибка и тд
>
> вопросов не будет только в том случае, если каждое скачивание
> будет завершаться успехом. Причем независимо от того, работает
> сервер или нет.
>
> А так вопросы будут.

все нармально. едем дальше ))


Медвежонок Пятачок   (2011-12-20 13:01:00) [4]

не хотелось бы слышать вопросов а че за ошибка и тд

вопросов не будет только в том случае, если каждое скачивание будет завершаться успехом. Причем независимо от того, работает сервер или нет.

А так вопросы будут.


gvozdkoff   (2011-12-20 12:57:00) [5]


> Медвежонок Пятачок ©   (20.12.11 12:55) [5]
> так не бойся.
> если сервер в дауне - ты с него не скачаешь ничего.
> и даже иногда если он не в дауне, то тоже ничего не скачаешь.
>

 да вот как раз таки если не в дауне то качаю, как вобьщем то и должно быть, но поскольку пользоваться будут другие, то не хотелось бы слышать вопросов а че за ошибка и тд


gvozdkoff   (2011-12-20 12:56:00) [6]

получилось у меня следующее

procedure TForm1.Button1Click(Sender: TObject);
var
servername:string;
begin
   memo1.Clear;
   servername:=' http://server' ;
 try
  IdHttp1.Get(servername);
  except
  on E: Exception do
   begin
memo1.Lines.Add(E.Message);
   end;
 end;
end;


Если веб-сервер включен. то в мемо пусто, то есть все хорошо. как я понимаю, если же отключаю веб-сервер то в мемо у меня пишется строка

Socket Error # 10054
Connection reset by peer.

Поправьте меня пожалуйста, если мои рассуждения не верны


Медвежонок Пятачок   (2011-12-20 12:55:00) [7]

так не бойся.
если сервер в дауне - ты с него не скачаешь ничего.
и даже иногда если он не в дауне, то тоже ничего не скачаешь.


gvozdkoff   (2011-12-20 12:52:00) [8]


> Медвежонок Пятачок ©   (20.12.11 12:43) [3]
> А зачем узнавать, доступен ли веб-сервер?

ну вобщем это можно и так объяснить )


Медвежонок Пятачок   (2011-12-20 12:43:00) [9]

А зачем узнавать, доступен ли веб-сервер?

Это ты типа опасаешься успешно скачать с него контент, в то время как веб-сервер в дауне?


Anatoly Podgoretsky   (2011-12-20 12:26:00) [10]

Она известна - ошибка сокета


Сергей М.   (2011-12-20 11:55:00) [11]

Ф-ция wininet.InternetCheckConnection не имеет ни малейшего отношения к проверке "доступен ли сервер по сети".


> IdHttp.Get(ServerName)
> , ругается на ошибку сокета


try
IdHttp.Get(ServerName)
except
// анализ причин исключения
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо