Недавно добавленные исходники

•  3D Designer  105

•  Sik Screen Capture  87

•  Patch Maker  76

•  Айболит (remote control)  95

•  ListBox Drag & Drop  73

•  Доска для игры Реверси  1 270

•  Графические эффекты  84

•  Рисование по маске  62

•  Перетаскивание изображений  66

•  Canvas Drawing  68

•  Рисование Луны  143

•  Поворот изображения  50

•  Рисование стержней  44

•  Paint on Shape  41

•  Генератор кроссвордов  53

•  Головоломка Paletto  63

•  Теорема Монжа об окружностях  105

•  Пазл Numbrix  49

•  Заборы и коммивояжеры  74

•  Игра HIP  56

•  Игра Go (Го)  47

•  Симулятор лифта  49

•  Программа укладки плитки  52

•  Генератор лабиринта  92

•  Проверка числового ввода  43

•  HEX View  97

•  Физический маятник  99

•  Задача коммивояжера  125

•  Автомобильная пробка  49

•  Квадратные сетки из слов  43

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Проверка наличия соединения с интернетом и доступности сетевых ресурсов



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка наличия соединения с интернетом и доступности сетевых ресурсов

Если входной параметр URL не задан (пустая строка), то выполняется быстрая
проверка только на наличие соединения (Для этого требуется функция
CheckInetConnect из базы UBPFD). Если URL задан, то при наличии соединения
проверяется еще и доступность указанного URL (Для этого требуется функция
CheckURL из базы UBPFD). Двойная проверка бывает часто необходима, когда
соединение вроде бы установлено, но сетевые ресурсы недоступны по каким-либо
причинам. Для общей проверки доступности ресурсов в качестве URL
рекомендуется указывать домен второго уровня своего города,
например: http://www.spb.ru

Зависимости: UBPFD.CheckInetConnect, UBPFD.CheckUrl
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        20 апреля 2002 г.
***************************************************** }

function CheckInetLink(URL: string): byte;
begin
  Result := CheckInetConnect;
  if URL <> '' then
    if Result <> 0 then
      if not CheckUrl(URL) then
        Result := 0;
end;




Похожие по теме исходники

Проверка знаний Delphi

Проверка числового ввода




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter