Einzelnen Beitrag anzeigen

t.roller
(Gast)

n/a Beiträge
 
#3

AW: Stream Unvollständig?

  Alt 7. Mär 2017, 05:45
Vielleicht müssen erst alle Cookies von nasdaq.com gelöscht werden, um in kürzeren Abständen neue Daten zu laden.

Suchfeld “Temporary Internet Files”.
Click “Browserverlauf löschen”
Oder:
Delphi-Quellcode:
program Delete_IE_Cache;

uses
  WinInet;

{sc-----------------------------------------------------------------------
  Name:      DeleteIECache
  Parameters: -
-----------------------------------------------------------------------sc}

procedure DeleteIECache;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
begin { DeleteIECache }
  dwEntrySize := 0;

  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);

  GetMem(lpEntryInfo, dwEntrySize);

  if dwEntrySize>0 then
    lpEntryInfo^.dwStructSize := dwEntrySize;

  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);

  if hCacheDir<>0 then
  begin
    repeat
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo, dwEntrySize);
      dwEntrySize := 0;
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize>0 then
        lpEntryInfo^.dwStructSize := dwEntrySize;
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)
  end; { hCacheDir<>0 }
  FreeMem(lpEntryInfo, dwEntrySize);

  FindCloseUrlCache(hCacheDir)
end; { DeleteIECache }


begin
  DeleteIECache
end.
Ausserdem:
Delphi-Quellcode:
{ declaration }
Function DnsFlushResolverCache: DWord; stdcall; external 'dnsapi.dll';
...
{ call it }
procedure CallIt;
begin
  { call it, ignore return code }
  DnsFlushResolverCache;
end;

Geändert von t.roller ( 7. Mär 2017 um 06:02 Uhr)
  Mit Zitat antworten Zitat