VPF::Исходный код страницы средствами wininet

XAKEPEHOK

Дата 11.10.2010, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 18.10.2006
Где: Matrix

Репутация: нет
Всего: 0

Всем добрый день. Возникла такая проблема.

Есть функция

Код


function GetHTTPString:string;
const
toget='http://i-to.ru/csdata.php';
var
ArrayLen:array[1..700] of char;
s:string;
Len:DWORD;
i:integer;
session,url:HInternet;
begin
session:=InternetOpen(Pchar(ExtractFileName(Application.ExeName)),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,INTERNET_FLAG_NO_CACHE_WRITE);
url:=InternetOpenUrl(session,toget,nil,0,0,INTERNET_FLAG_NO_CACHE_WRITE);
repeat
InternetReadFile(url,@ArrayLen,SizeOf(ArrayLen),Len);
until Len=0;
result:=ArrayLen;
InternetCloseHandle(session);
end;

которая возвращает код нужной мне страницы, но данные иногда кэшируются, не смотря на флаг INTERNET_FLAG_NO_CACHE_WRITE или INTERNET_FLAG_DONT_CACHE

Кто подскажет может что не так?
P.S. indy и прочие компоненты не предлагать

XAKEPEHOK

Дата 11.10.2010, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 18.10.2006
Где: Matrix

Репутация: нет
Всего: 0

Поправочка. Понял в каих случаех кэширует. По некоторым причинам не хочу давать данные, с которыми работаю.

Вот при работе с этим http заголовком происходит кэширование

Код


HTTP/1.1 200 OK
Date: Mon, 11 Oct 2010 10:56:27 GMT
Server: Apache/2.2.6 (Unix) mod_ssl/2.2.6 OpenSSL/0.9.8g PHP/5.2.6 mod_perl/2.0.4 Perl/v5.8.8
X-Powered-By: PHP
Last-Modified: Oct 11 2010 10:56:27
Content-Length: 394
Connection: close
Content-Type: text/html; charset=windows-1251

залил к себе на сайт скриптик, который "пропускает" через себя код нужной мне страницы и выдает его. Если обращаюсь к своему скрипту, то кэширования не происходит. Заголовки:

Код


HTTP/1.1 200 OK
Server: nginx/0.8.42
Date: Mon, 11 Oct 2010 10:57:07 GMT
Content-Type: text/html
Connection: close
X-Powered-By: PHP/5.2.14
Vary: Accept-Encoding,User-Agent
Content-Encoding: gzip
Content-Length: 265

Не "Last-Modified: *" ли как-то влияет?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »