На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Как проверить есть ли на сайте тот или иной файл ? (по HTTP)
      как-то так...

      ExpandedWrap disabled
        program IsFileExists;
         
        {$APPTYPE CONSOLE}
         
        uses
          SysUtils,
          WinInet;
         
        var
          FSession, FConnect: HINTERNET;
          StatusCode, Len, Res: Cardinal;
        begin
          try
            FSession := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
            if not Assigned(FSession) then Exit;
            try
              FConnect := InternetOpenUrl(FSession,
                'http://rouse.drkb.ru/other/vista.jpg', nil, 0, 0, 0);
              if not Assigned(FConnect) then Exit;
              try
                Len := 4;
                StatusCode := 0;
                Res := 0;
                HttpQueryInfo(FConnect, HTTP_QUERY_STATUS_CODE or
                  HTTP_QUERY_FLAG_NUMBER, @StatusCode, Len, Res);
                // если сервер на запрос вернул 200 - файл сущетвует
                writeln(StatusCode = 200);
                readln;
              finally
                InternetCloseHandle(FConnect);
              end;
            finally
              InternetCloseHandle(FSession);
            end;
          except
            on E:Exception do
              Writeln(E.Classname, ': ', E.Message);
          end;
        end.
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0211 ]   [ 17 queries used ]   [ Generated: 28.03.24, 21:03 GMT ]