На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> можно ли очистить куки не в ручную ?
P.O.D
   Сообщ. #1 ,

    Guru
    *******
    Профиль · PM
    Поощрения: 1 Dgm
    Рейтинг (т): 274
    subj.
    Song
    Сообщ. #2 ,
      Unregistered
      Потереть файлы в нужном месте? smile.gif
      P.O.D
      Сообщ. #3 ,

        Guru
        *******
        Профиль · PM
        Поощрения: 1 Dgm
        Рейтинг (т): 274
        ага, т.е вручную - там гиморно трохи. Я вот думаю должна ф-ция быть. Как например для очистки кэша.
        Voice
        Сообщ. #4 ,

          Profi
          *****
          Профиль · PM
          Рейтинг (т): 15
          а какая ф-ия чистит кэш?
          я искал, но, видать, плохо....
          P.O.D
          Сообщ. #5 ,

            Guru
            *******
            Профиль · PM
            Поощрения: 1 Dgm
            Рейтинг (т): 274
            Voice


            Uses WinINet;
            ...
            procedure ClearCache;
            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 );  
            End;
            Song
            Сообщ. #6 ,
              Unregistered
              P.O.D
              Ты проверял, работает? (если да, помещу в FAQ)
              Voice
              Сообщ. #7 ,

                Profi
                *****
                Профиль · PM
                Рейтинг (т): 15
                я проверял, но у меня писал, что cgi остановлен, т.к. превышен интервал ожидания. МоШт я че-то криво сделал...
                Кстати, надо туда в юзес сунуть Windows, т.к. в cgi он автоматом не суется и я очень долго думал, где найти константы, которые там прописаны (сказываются долгие недосыпы). Потом наконец додумался, что они могут быть в модуле Windows...
                pigas
                Сообщ. #8 ,

                  Profi
                  *****
                  Профиль · PM
                  Рейтинг (т): 18
                  Цитата (Voice @ 17.12.03, 13:26)
                  я че-то криво сделал...

                  Это нев cgi делать а в EXE и локально а не на сервере .
                  P.O.D
                  Сообщ. #9 ,

                    Guru
                    *******
                    Профиль · PM
                    Поощрения: 1 Dgm
                    Рейтинг (т): 274
                    Song пришлось пожертвовать своим кэшем smile.gif
                    win98 - все работает.
                    проверте кто в XP, хотя все должно пахать.
                    P.O.D
                    Сообщ. #10 ,

                      Guru
                      *******
                      Профиль · PM
                      Поощрения: 1 Dgm
                      Рейтинг (т): 274
                      гы, во я тормаз laugh.gif laugh.gif laugh.gif
                      так же можно и куки чистить, только структуру lpEntryInfo самому заполнить.
                      http://shu.ru/tech/wininet/INTERNET_CACHE_...NET_CACHE_ENTRY
                      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                      0 пользователей:


                      Рейтинг@Mail.ru
                      [ Script execution time: 0,0327 ]   [ 16 queries used ]   [ Generated: 28.04.24, 12:03 GMT ]  
                      Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.