Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[13.59.82.167] |
|
Сообщ.
#1
,
|
|
|
как-то так...
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. |