Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как проверить есть ли в интернете по указанному адресу файл?

Beavercrazy © (2007-01-31 17:15:00)
Необходимо перед закачкой проверить есть ли физически такой файл, поскольку сейчас даже если файла нет все равно удается скачать какой-нибудь предупреждение, что мол файла нет. Если можно пример.

Zeqfreed (2007-01-31 19:01:00) [1]
Удалено модератором
Примечание: Оффтопик.

Джо (2007-01-31 18:58:00) [2]
Удалено модератором
Примечание: Оффтопик.

Джо (2007-01-31 18:56:00) [3]
> [8] Zeqfreed © (31.01.07 18:54)
> Есть HEAD-запрос возвращает «200 OK», то есть некоторые
> основания полагать, что вам отдадут именно то, чего вы ожидаете.

Некоторыеоснования, конечно, есть. :)

Zeqfreed (2007-01-31 18:56:00) [4]
Удалено модератором
Примечание: Оффтопик.

Zeqfreed (2007-01-31 18:54:00) [5]
Есть HEAD-запрос возвращает «200 OK», то есть некоторые основания полагать, что вам отдадут именно то, чего вы ожидаете.

Джо (2007-01-31 17:38:00) [6]
> [4] Beavercrazy (31.01.07 17:25)
> Все пропало? Не судьба решить мою задачу?

В протоколе HTTP нет никаких файлов. Даже, если это и выглядит, как файл. Более того, даже веб-страницы вообще на веб-сервере может не быть, пока ее не запросят.
Если же используется протокол FTP, то тогда разумно воспользоваться именно функциями для работы с этим протоколом. Т.е., FtpOpenFile, FtpFindFirstFile и т.д. Однако, в определенном смысле, тут тоже нет никаких «файлов» :)

Beavercrazy (2007-01-31 17:36:00) [7]
Ну я так понимаю, что качать можно с помощью указанного мною кода, а проверять наличие файла можно и отдельно любым протоколом. Т.е сначала проверил, а потом закачал. Верно? Может подскажите каким компонентом?

novill (2007-01-31 17:31:00) [8]
> [2] Beavercrazy (31.01.07 17:17)
В приведенном вами коде про файлы не сказано ни слова..., и кто или что ответить вам на запрос - ниезвестно... ) да и ответят ли... )

Для того чтобы определить наличие желаемого надо анализировать ответ сервера, а он зависит от протокола, которого вы не знаете...
Мой телепатор говорит, что имеется в виду http, тогда возможно у функции HttpQueryInfo есть шанс вам помочь... Хотя и очень слабый...

Beavercrazy (2007-01-31 17:25:00) [9]
Все пропало? Не судьба решить мою задачу?

Джо (2007-01-31 17:20:00) [10]
В данном случае, мы не имеем дела ни с какими «файлами».

Beavercrazy (2007-01-31 17:17:00) [11]
Стыдоба и срамота! Не знаю! Не местный!

Код такой:
function arGetWebFile(const URL, LocalFN: string): boolean;
//Сохраняет файл из интернета в локальный каталог
const
BufferSize = 1024;
var
hSession, hURL: hInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
sAppName:=ExtractFileName(Application.ExeName);
hSession:=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL:=InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
if Assigned(hURL) then
try
AssignFile(f, LocalFN);
Rewrite(f, 1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
until BufferLen=0;
CloseFile(f);
Result:=true;
finally
InternetCloseHandle(hURL)
end
else
Result:=false
finally
InternetCloseHandle(hSession)
end
end;

Джо (2007-01-31 17:16:00) [12]
По какому протоколу «скачиваем»?

Наверх

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