VPF::TwebBrowser и куки - Форум программистов

Coobick

Дата 3.12.2012, 02:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ подскажите как очистить куки в своём приложении что использует TwebBrowser?
Я использую Embedded, ну проблемы он не решает.. тоже не всё удаляет.
Остаётся буквально пару тройка куков.. которые как раз бы и стоило снести.
Тем же CCleaner всё без проблем зачищается.

Coobick

Дата 3.12.2012, 16:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Например такой вариант..

Код


    procedure CleanIECache;
    Var
    lpEntryInfo : PInternetCacheEntryInfo;
    hCacheDir : LongWord;
    dwEntrySize : LongWord;
    dwLastError : LongWord;
    Begin
    dwEntrySize := 0;
    FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
    GetMem( lpEntryInfo, dwEntrySize );
    hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
    If ( hCacheDir <> 0 ) Then
    DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
    FreeMem( lpEntryInfo );
    Repeat
    dwEntrySize := 0;
    FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
    dwLastError := GetLastError();
    If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
    GetMem( lpEntryInfo, dwEntrySize );
    If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
    DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
    FreeMem(lpEntryInfo);
    End;
     
    Until ( dwLastError = ERROR_NO_MORE_ITEMS)
    or ( dwLastError = ERROR_INVALID_PARAMETER );
    End;

Проблема по ходу в имени Кука.
Cookie:��@google.com/
функция
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
Выдаёт "Не удается найти указанный файл"..

И того вопрос в том как задать правильное имя?

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