Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.10.2012, 12:11   #1
atihiy2010
Пользователь
 
Аватар для atihiy2010
 
Регистрация: 22.04.2010
Сообщений: 60
По умолчанию Проверка валидности URL

Извеняюсь конечно если повторюсь, но нашел миллион функций которіе віполняют мою задачу и все выдают ошибку на месте обьявления переменных. Есть у меня Лабел с ссылкой на сайт, мне надо чтоб я нажал на буттон и высветилось сообщение если сайт не работает или выдает 404. Подскажите плиз как это сделать?
atihiy2010 вне форума Ответить с цитированием
Старый 12.10.2012, 15:59   #2
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

Код:
uses
  IdHTTP;


function ValidUrl(const url: string): Boolean;
begin
  with TIdHTTP.Create(nil) do
  try
    try
      get(url);
      Result := ResponseCode = 200;
    except
      Result := False;
    end;
  finally
    Free;
  end;
end;
Функция вернет True если страница загрузилась с кодом 200. Иначе false.

Get еще можно попробовать заменить на head
kangreon вне форума Ответить с цитированием
Старый 17.10.2012, 15:58   #3
atihiy2010
Пользователь
 
Аватар для atihiy2010
 
Регистрация: 22.04.2010
Сообщений: 60
По умолчанию

Пишет ошибку в месте begin. END expected but BEGIN found.
atihiy2010 вне форума Ответить с цитированием
Старый 17.10.2012, 17:27   #4
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

synapse
Код:
uses Httpsend;

function SiteRsponse(const aURL:string):boolean;
begin
  Result:=False;
  with THTTPSend.Create do
  begin
    Result:=(HTTPMethod('HEAD',aURL) and (ResultCode = 200));
    Free;
  end;
end;
Человек_Борща вне форума Ответить с цитированием
Старый 22.10.2012, 13:18   #5
atihiy2010
Пользователь
 
Аватар для atihiy2010
 
Регистрация: 22.04.2010
Сообщений: 60
По умолчанию

File not found Httpsend.dcu
atihiy2010 вне форума Ответить с цитированием
Старый 22.10.2012, 13:54   #6
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

httpsend.pas входит в состав библиотеки Synapse, которую можно скачать на сайте
kangreon вне форума Ответить с цитированием
Старый 22.10.2012, 15:10   #7
atihiy2010
Пользователь
 
Аватар для atihiy2010
 
Регистрация: 22.04.2010
Сообщений: 60
По умолчанию

Куда его кидать?
atihiy2010 вне форума Ответить с цитированием
Старый 22.10.2012, 15:12   #8
atihiy2010
Пользователь
 
Аватар для atihiy2010
 
Регистрация: 22.04.2010
Сообщений: 60
По умолчанию

ребят я мучаюсь с этим кодом уже неделю. Все время ошибки выдает, может киньте проектик рабочий, а я доработаю под себя. Хоть пример какой-то. Умоляю...
atihiy2010 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка валидности ICQ номеров jone Работа с сетью в Delphi 14 19.06.2012 20:54
проверка валидности введеного значения cliv БД в Delphi 4 21.07.2011 00:21
Ошибка валидности в коде Winlook HTML и CSS 4 27.02.2010 22:20
Проверка URL на работоспособность Beni PHP 2 13.08.2009 21:44