1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses
  IdHttp;

var
  HttpLoader: TIdHttp;
  PageContents: String;
begin
  HttpLoader := TIdHttp.Create;
  try
    PageContents := HttpLoader.Get('http://www.example.com');
  finally
    HttpLoader.Free;
  end;
end;                    

1:

quelltext := idhttp1.Get('https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login=+' + lstAccounts.Items.Item[i].SubItems.Strings[0] + '&password=' + lstAccounts.Items.Item[i].SubItems.Strings[1]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

// -----------------------------------------------------------------------------
// IE-Cache leeren (threadbasierte Version)
// -----------------------------------------------------------------------------
//
// V1.00 05.01.2008, Narses
//   - erste Version
//
// (C) 2008 Narses
// -----------------------------------------------------------------------------

unit IECache;

interface

uses
  Classes;

type
  TClearIECacheThread = class(TThread)
  private
    FCount: Integer;
  public
    constructor Create(const AOnTerminate: TNotifyEvent = NIL);
    procedure Execute; override;
    property Count: Integer read FCount;
  end;

implementation

uses
  WinINet;

constructor TClearIECacheThread.Create;
begin
  inherited Create(FALSE);
  FreeOnTerminate := TRUE;
  OnTerminate := AOnTerminate;
end;

// WinINet-Functions: http://msdn2.microsoft.com/en-us/library/aa385473(VS.85).aspx
procedure TClearIECacheThread.Execute;
  var
    lpEntryInfo: PInternetCacheEntryInfo;
    hCacheDir: LongWord;
    dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  try
    if (dwEntrySize > 0) then
      lpEntryInfo^.dwStructSize := dwEntrySize;
    hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
    if (hCacheDir <> 0) then
      repeat
        if DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName) then // http://msdn2.microsoft.com/en-us/library/aa383983.aspx
          Inc(FCount);
        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))
            or Terminated;
  finally
    FreeMem(lpEntryInfo, dwEntrySize);
  end;
  FindCloseUrlCache(hCacheDir)
end;

end.                    

1:

TClearIECacheThread.Create;