Delphi: Как удалить cookies из TWebBrowser?

Прочии темы

Moderator: Aleksandr

Avatar
Topic author
LILUS M
Старшина
Старшина
Posts: 136
With us: 7 years 5 months

Delphi: Как удалить cookies из TWebBrowser?

Post #1by LILUS » 31 Jan 2014, 18:20

Thu, 10 Mar 2011 10:02:00 +0000

В этой статье не будет ничего скандально нового. Просто уже 2 комментатора спросили в заметке о cookies в TWebBrowser, как их удалять. В гугле, ясно дело, решение найти просто, но почему-то для кого-то проще спросить и ждать.

В общем, если на мой блог о парсинге приходят по этому запросу, то надо на него ответить.

Это готовое решение, взятое из инета и опробованное мной. В результате будут подчищены все файлы с куками, хранящиеся в c:\Documents and Settings\Имя_пользователя\Cookies.

Code: Select all

uses
  WinInet
;

procedure DeleteIECache;
var
  
lpEntryInfoPInternetCacheEntryInfo;
  
hCacheDirLongWord;
  
dwEntrySizeLongWord;
begin
  dwEntrySize 
:= 0;
  
FindFirstUrlCacheEntry(nilTInternetCacheEntryInfo(nil^), dwEntrySize);
  
GetMem(lpEntryInfodwEntrySize);
  if 
dwEntrySize 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  
hCacheDir := FindFirstUrlCacheEntry(nillpEntryInfo^, dwEntrySize);
  if 
hCacheDir <> 0 then 
  begin
    repeat
      DeleteUrlCacheEntry
(lpEntryInfo^.lpszSourceUrlName);
      
FreeMem(lpEntryInfodwEntrySize);
      
dwEntrySize := 0;
      
FindNextUrlCacheEntry(hCacheDirTInternetCacheEntryInfo(nil^), dwEntrySize);
      
GetMem(lpEntryInfodwEntrySize);
      if 
dwEntrySize 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    
until not FindNextUrlCacheEntry(hCacheDirlpEntryInfo^, dwEntrySize);
  
end;
  
FreeMem(lpEntryInfodwEntrySize);
  
FindCloseUrlCache(hCacheDir);
end


Для чего может пригодиться очистка кукисов? Ну, например, вы написали какое-то свое приложение с TWebBrowser и заходите на определенный сайт через список прокси.

! ! !


  • Similar Topics
    Replies
    Views
    Last post

Return to “Прочее”

Who is online

Users browsing this forum: 1 guest