Нужна помощ в Delphi 7 c WebBrowser

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by diki_01, 6 Aug 2013.

  1. diki_01

    diki_01 Member

    Joined:
    18 Jan 2013
    Messages:
    18
    Likes Received:
    5
    Reputations:
    0
    Короче говоря на форме есть компонент WebBrowser, когда я через него перехожу на страницу с флеш игрой(на сайте vk.com) она не загружаетса, если я беру CCLeaner и чищу все куки и кэш с интернет експлорера и на вкладке приложения в поле мультимедиа отмечаю галочкой "Adobe Flash Player" то в WebBrowser игра загружаетса 1-2 раза и потом надо заново все очищать CCLeaner-ом.
    Я думаю это может быть изза того что я не коректно завершаю работу с WebBrowser.

    И вот вопрос как ето исправить??
    Буду благодарен за любые идеи.
     
  2. qw1mb1

    qw1mb1 Member

    Joined:
    8 Feb 2013
    Messages:
    113
    Likes Received:
    16
    Reputations:
    8
    попробуй чистить кэш с помощью данной процедуры:
    Code:
    procedure EmptyIECache;
    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;
    
     
  3. diki_01

    diki_01 Member

    Joined:
    18 Jan 2013
    Messages:
    18
    Likes Received:
    5
    Reputations:
    0
    Большое спасибо
     
Loading...