Удаление cookies на WinInet [DELPHI]
Столкнулся с проблемкой - не могу почистить куки, когда использую wininet.
Поиск гугла и ачата ничего вразумительного не дал.
Делаю запрос используя код:
Код:
function fSendRequest(chHost, chPath: PChar):string;
var
hInternet: Pointer;
hConnect: Pointer;
hRequest: Pointer;
BuffData: Char;
ReadData: Cardinal;
FullData: String;
begin
hInternet := InternetOpen('Approove', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hConnect := InternetConnect(hInternet, chHost, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
hRequest := HttpOpenRequest(hConnect, 'GET', chPath, nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
HttpSendRequest(hRequest, nil, 0, nil, 0);
while (TRUE) do
begin
InternetReadFile(hRequest, @BuffData, SizeOf(BuffData), ReadData);
if ReadData = 0 then break;
FullData := FullData + BuffData;
end;
InternetCloseHandle(hRequest);
InternetCloseHandle(hConnect);
InternetCloseHandle(hInternet);
result := FullData;
end;
Проснифав трафик, запрос получается такой:
Код:
GET /index HTTP/1.1
User-Agent: Approove
Host: pda.vkontakte.ru
Connection: Keep-Alive
Cookie: remixlang=0; remixchk=5; remixmid=XXX; remixemail=XXX; remixpass=XXX; remixsid=XXX; remixcookiecheck=1
Все что находится в хэдре Cookie, он видимо берет из IE, если в нем есть сохраненные эти куки.
Вопрос: Как удалить все куки этого сайта?
P.S. Пока не охота переходить с WinInet на WinSock - много кода лишнего каждый раз писать придется. |
