Datei runterladen und dabei IE-Cockies verwenden

[himitsu]

den TWebbrowser nehm ich ja schon, allerdings ist dieses nicht grad ein optimaler Weg.

besser wäre sowas:

• Cockie aus dem IE auslesen
  
• datei runterladen und im String speichern
  z.B. mit INDY/JEDI ... irgendwie soll man da ja die Cockies angeben können
  
• eventuell empfanges Cockie wieder im IE speichern

hab jetzt auch schon 2 weiter Varianten zum Runterladen einer Datei
und bei Ersterem mit INDY soll man so angeblich ein Cockie mitsenden können,
aber da fehlt mir dann noch das nötige Cockie.
Beim Zweitem weiß ich nichtmal wie man dort das Cockie überhaupt einbaut,
allerdings wäre es mir so dann schon lieber, da so keine Zusatzkomonenten nötig wären.

Delphi-Quellcode:

  Function TForm1.DownloadFile(Const URL: String): String;
    Begin
       IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0; .NET CLR 1.0.3705)';
       IdHTTP1.Request.CustomHeaders.Add('Cookie:' + Cookie);
       Result := IdHTTP1.Get(URL);
    End;


  Function TForm1.DownloadFile(Const URL: String): String;
    Const BufferSize = 2048;

    Var hSession, hURL: HInternet;
      Buffer: String;
      BufferLength: LongWord;

    begin
      Result := '';
      hSession := InternetOpen('User', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
      Repeat
        SetLength(Buffer, BufferSize);
        InternetReadFile(hURL, @Buffer[1], BufferSize, BufferLength);
        Result := Result + Copy(Buffer, 1, BufferLength);
      Until BufferLength = 0;
      InternetCloseHandle(hURL);
      InternetCloseHandle(hSession);
    End;