Наличие файла на сайте

@bond95 · Регистрация: 16.04.2009

Студворк — интернет-сервис помощи студентам

Допустим есть некоторый сайт, нужно с помощью IdHTTP проверить его на наличие некоторого файла, как это осуществить? Размер файла может быть от 1 МБайта до 20 или даже больше.

@Avazart · 15.04.2012, 19:17

Попробовать его закачать (Get или Head) и обрабатывать исключение (кажется код 404)

@bond95 · 15.04.2012, 19:20 **[ТС]**

Avazart, так не получится, я же говорю размер файла может быть и 20 МБ, я тоже над этим думал, но нужен какой то альтернативный вариант.

@Avazart · 15.04.2012, 19:23

Ну закачку можно прервать если используете Get
При Head только заголовок проверяется без закачки тела

@bond95 · 15.04.2012, 19:41 **[ТС]**

А если файл MP3?

@Avazart · 15.04.2012, 20:01

Например? (ссылку)

@bond95 · 15.04.2012, 20:44 **[ТС]**

http://www.audiopoisk.com/file... -99832.mp3

@Avazart · 15.04.2012, 21:36

Так там не в mp3 дело, а перенаправлении обрабатывать надо 302 исключение

@bond95 · 15.04.2012, 22:53 **[ТС]**

И как это сделать?

@Avazart · 15.04.2012, 23:53

Ну перенаправить не проблема проблема в том что IdHTTP почему то не хочит читать вторую ссылку
в то время как браузер открывает её

Вот пример второй ссылки

http://002.audiopoisk.com/get-server/05091c0018001b02120903020518010614045200 525158025052560501580603000355010e5f0f01 59080206500a040151/13090944/MTMzNDQzODQxNzowZDZmNDcwZTAxMDA3YzYwMTkw NTAyMTkwZjFkMDAwNTFjMDEwNTRmNmE1ZDVlNDY1 ZTA0MDUwMjA1MGIxZTA4NzIwZjFlNDk0YjU3NWY1 OTUyNWY1ZTVlNWI2ZTU4NTI1NjVmNTk1MjE5NWY1 MzUxNTUxNzQzNGM6cHJvbmljaGtpbl9sZW9uaWRA bWFpbC5ydTo=/0/99832/NzcuMTA5LjkuNjk5ODMyb3M2aWYzZW85b3M2aWYz ZW85/Scorpions%20-%20Humanity%20%20%28audiopoisk.com%29.mp 3

Добавлено через 3 минуты

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
 {
 IdHTTP1->Get("http://www.audiopoisk.com/files/scorpions/humanity-99832.mp3");
 }
catch(EIdHTTPProtocolException &se0)
 {
  if(se0.ErrorCode == 302)
    {
    ShowMessage("Перенаправление #1");
     try
      {
       Memo1->Lines->Add("Перенаправление #1");
       Memo1->Lines->Add( IdHTTP1->Response->Location);
       IdHTTP1->Get(IdHTTP1->Response->Location);
      }
     catch(EIdHTTPProtocolException &se1)
       {
       if(se1.ErrorCode == 302)
         {
         ShowMessage("Перенаправление #2");
          try
           {
           Memo1->Lines->Add("Перенаправление #2");
           Memo1->Lines->Add(IdHTTP1->Response->Location );
           IdHTTP1->Get(IdHTTP1->Response->Location);
           }
          catch(EIdHTTPProtocolException &se2)
           {
            ShowMessage(se2.ErrorCode);
           };
          }
        else  ShowMessage(se1.ErrorCode);
        }
    }
  else  ShowMessage(se0.ErrorCode);
 }
}

@bond95 · 16.04.2012, 00:19 **[ТС]**

То есть потом обрабатывать ErrorCode, если 0 тогда файл существует?

@Sergey-K · 16.04.2012, 01:39

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try
    {
      IdHTTP1->Head("http://www.awudiopoisk.com/files/scorpions/humanity-99832.mp3");
    }
  catch(EIdProtocolReplyError &E0)
    {
      if(E0.ReplyErrorCode == 302)
        {
          ShowMessage("Перенаправление #1");
          try
            {
              IdHTTP1->Head(IdHTTP1->Response->Location);
            }
          catch(EIdProtocolReplyError &E1)
            {
              if(E1.ReplyErrorCode == 302)
                {
                  ShowMessage("Перенаправление #2");
                  try
                    {
                      IdHTTP1->Head(IdHTTP1->Response->Location);
                    }
                  catch(...)
                    {
                      ShowMessage("Файл недоступен");
                      return;
                    }
                }
            }
          catch(...)
            {
              ShowMessage("Файл недоступен");
              return;
            }
        }
    }
  catch(...)
    {
      ShowMessage("Файл недоступен");
      return;
    }
  ShowMessage("Файл доступен");
}

@Avazart · 16.04.2012, 01:59

Ну а разница?
У меня попрежнему пишит что недоступен... либо вообще подвисает напрочь

Добавлено через 7 минут
Нет все же пишит что доступен? только висит очень долго ... что как-то неправильно

@Sergey-K · 16.04.2012, 02:01

Чуть поправил:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try
    {
      IdHTTP1->Head("http://www.audiopoisk.com/files/scorpions/humanity-99832.mp3");
    }
  catch(EIdProtocolReplyError &E0)
    {
      if(E0.ReplyErrorCode == 302)
        {
          ShowMessage("Перенаправление #1");
          try
            {
              IdHTTP1->Head(IdHTTP1->Response->Location);
            }
          catch(EIdProtocolReplyError &E1)
            {
              if(E1.ReplyErrorCode == 302)
                {
                  ShowMessage("Перенаправление #2");
                  try
                    {
                      IdHTTP1->Head(IdHTTP1->Response->Location);
                    }
                  catch(...)
                    {
                      ShowMessage("Файл недоступен");
                      return;
                    }
                }
            }
          catch(...)
            {
              ShowMessage("Файл недоступен");
              return;
            }
        }
    }
  catch(...)
    {
      ShowMessage("Файл недоступен");
      return;
    }
  if(IdHTTP1->ResponseCode == 200 || IdHTTP1->ResponseCode == 206)
    ShowMessage("Файл доступен");
  else
    ShowMessage("Файл недоступен");
}

@Avazart · 16.04.2012, 02:05

Что не так с кодом.
Сначала выскакивает 302 и перенаправление#1, за ней 404 и "Файл доступен"
И если заменить на Get не висит...

@DefineTrueFalse · 16.04.2012, 02:12

Нужна рекурсивная функция (лишний поворот не поставит в тупик) и возможно с таймаутом (чтобы избавиться от зависа если сервер загружен).

@Sergey-K · 16.04.2012, 02:12

Сообщение от Avazart

404 и "Файл доступен"

В последнем коде не должно, там:

C++
1
if(IdHTTP1->ResponseCode == 200 || IdHTTP1->ResponseCode == 206)

@Avazart · 16.04.2012, 02:20

Ну да, последний код говорит что недоступен.
Но ведь мы та знаем что файл доступен и браузер его качает.

Добавлено через 1 минуту
Я сказал об этом еще в начале темы, IdHTTP не хочит качать вторую ссылку на которую перенаправляет сервер.
Это можно проверить вставив эту вторую ссылку напрямую в Get.

@Sergey-K · 16.04.2012, 02:27

Сообщение от Avazart

последний код говорит что недоступен

У меня говорит что доступен и не зависает. Шестой билдер

@Avazart · 16.04.2012, 02:29

А качает ли он страницу? (Проверял на RAD2009 единственное что менял EIdProtocolReplyError на EIdHTTPProtocolException )

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489

	Наличие файла на сайте 15.04.2012, 19:08. Показов 5292. Ответов 47 Метки нет (Все метки) Допустим есть некоторый сайт, нужно с помощью IdHTTP проверить его на наличие некоторого файла, как это осуществить? Размер файла может быть от 1 МБайта до 20 или даже больше. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	15.04.2012, 19:17
	Попробовать его закачать (Get или Head) и обрабатывать исключение (кажется код 404) 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	15.04.2012, 19:20 [ТС]
	Avazart, так не получится, я же говорю размер файла может быть и 20 МБ, я тоже над этим думал, но нужен какой то альтернативный вариант. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	15.04.2012, 19:23
	Ну закачку можно прервать если используете Get При Head только заголовок проверяется без закачки тела 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	15.04.2012, 19:41 [ТС]
	А если файл MP3? 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	15.04.2012, 20:01
	Например? (ссылку) 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	15.04.2012, 20:44 [ТС]
	http://www.audiopoisk.com/file... -99832.mp3 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	15.04.2012, 21:36
	Так там не в mp3 дело, а перенаправлении обрабатывать надо 302 исключение Миниатюры 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	15.04.2012, 22:53 [ТС]
	И как это сделать? 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	16.04.2012, 00:19 [ТС]
	То есть потом обрабатывать ErrorCode, если 0 тогда файл существует? 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	16.04.2012, 01:59
	Ну а разница? У меня попрежнему пишит что недоступен... либо вообще подвисает напрочь Добавлено через 7 минут Нет все же пишит что доступен? только висит очень долго ... что как-то неправильно 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	16.04.2012, 02:05
	Что не так с кодом. Сначала выскакивает 302 и перенаправление#1, за ней 404 и "Файл доступен" И если заменить на Get не висит... 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	16.04.2012, 02:12
	Нужна рекурсивная функция (лишний поворот не поставит в тупик) и возможно с таймаутом (чтобы избавиться от зависа если сервер загружен). 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	16.04.2012, 02:20
	Ну да, последний код говорит что недоступен. Но ведь мы та знаем что файл доступен и браузер его качает. Добавлено через 1 минуту Я сказал об этом еще в начале темы, IdHTTP не хочит качать вторую ссылку на которую перенаправляет сервер. Это можно проверить вставив эту вторую ссылку напрямую в Get. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	16.04.2012, 02:29
	А качает ли он страницу? (Проверял на RAD2009 единственное что менял EIdProtocolReplyError на EIdHTTPProtocolException ) 0